% preg1, tema 7, test 2, 521230, S2, 2011

% graficar circunferencia de centro (1,6) y radio 5
x = -4:.1:6;
y1 = 6 + sqrt(25-(x-1).^2);
y2 = 6 - sqrt(25-(x-1).^2);
plot(x,y1);
hold on
plot(x,y2);

% graficar parabola
y = (18 + x.^2 + x)/2;
plot(x,y,'r');

% en el grafico se observa que el primero cero esta cerca de 2 y el segundo
% cerca de -2
x1 = fzero(@(x) 6+sqrt(25-(x-1)^2)-(18+x^2+x)/2,2)
x2 = fzero(@(x) 6+sqrt(25-(x-1)^2)-(18+x^2+x)/2,-2)

% area entre parte superior de la circunferencia y parabola
abs(quad(@(x) 6+sqrt(25-(x-1).^2)-(18+x.^2+x)./2,x1,x2))

% preg 2, tema 7, test 2, S2-2011
options = optimset('TolX',1e-10);
[s,fval,flag] = fzero('func1_tema7',1,options);
% comprobando si metodo convergio
if flag == 1
    display('fzero encontro valor de s')
    s
end
