Area_Entre_Curvas

Esta es una vista previa del archivo. Inicie sesión para ver el archivo original

clc
clearvars
f=@(x) exp(x-x.^2);
g=2@(x) atan(x.^2);
xx=linspace(-3,3);
plot(xx,f(xx),'b',xx,g(xx),'k');
h=@(x) g(x)-f(x);
P1=fzero(h,[-1 0]);
P2=fzero(h,[1 2]);
A1=quad(h,-3,P1);
A2=quad(@(x) -h(x),P1,P2);
A3=quad(h,P2,3);
ATOTAL=A1+A2+A3;