exn542.m

来自「基天子matlab的双缝干涉从单缝(线光源)发出的单色光射到与之平行的双缝上」· M 代码 · 共 18 行

%《MATLAB及其在理工课程中的应用指南》(十一五规划版）第五章例5-4-2程序
% 求两曲线所围面积
% 西安电子科技大学出版社出版  陈怀琛编著 2007年7月
%
clear,clf
dx=input('dx= ') ;x=0:dx:4;
f=exp(-(x-2).^2.*cos(pi*x)); 
g=4*cos(x-2);
plot(x,f,x,g,':r')
x1=fzero('exp(-(x-2).^2.*cos(pi*x))-4*cos(x-2)',1)
x=0:dx:x1;
f=exp(-(x-2).^2.*cos(pi*x)); 
g=4*cos(x-2);
s1=2*trapz(abs(f-g))*dx
pause
s2=quad('exn542f',0,4)
set(gcf,'color','w')