% script to perform adaptive quadrature clear all, close all global pts % function to be integrated defined in routine f f = 'integrand'; a = 1; b = 3; pts = [a;b]; tol = input('Enter error tolerance: '); % this is just to plot the graph % it's usually a good idea to look at the integrand % if possible before you try to integrate it ezplot(f,[1,3]) disp('Hit any key to continue') pause hold on fa = feval(f,a); fb = feval(f,b); Sf_old = simp(a,b,f,fa,fb); Sf = adaptiveSimpson(a,b,f,fa,fb,tol,Sf_old) qpts = sort(pts); plot(qpts,zeros(length(pts),1),'rx') disp('number of function evaluations') disp(length(pts)) disp('Hit any key to continue') pause % now compare result with straight Simpson's rule % using the same number of points sum = 0; h = (b-a)/(length(pts)-1); for i=0:length(pts)-1, fxi = feval(f,a+i*h); if i == 0 | i == length(pts)-1, sum = sum + fxi; elseif mod(i,2) == 1, sum = sum + 4*fxi;
Matlab adaptive quadrature
最新推荐文章于 2024-01-06 12:01:31 发布