clear;
clf;
a=-2;
b=3;
%Mencari luas f(x) dengan sb.x dalam 
%interval [a,b]
k(1)=1
Luas(1)=0.5*(b-a)*fungsi(a)+fungsi(b)
for n=2:25
   dx=(b-a)/n;
   for i=1:(n-1)
      fxi(i)=dx*fungsi(a+(i*dx));
   end
   fxitot=sum(fxi);
   k(n)=n;
   fa=0.5*dx*fungsi(a);
   fb=0.5*dx*fungsi(b);
   Luas(n)=fa+fb+fxitot
end
plot(k,Luas), grid on