% Calculate the area under the curve
% y = -x^2+10

% First, find the roots
x1 = fzero('f01', -2)
x2 = fzero('f01', 2)

% Next, find the area
area = quad( 'f01', x1, x2 )
%quad( 'f01', -4, 4 )

% Finally, plot area in question results
xx = [-4:0.01: 4];
yy = f01(xx);
plot(xx,yy, [-4 4], [0 0]);
