exn514.m

基天子matlab的双缝干涉从单缝(线光源)发出的单色光射到与之平行的双缝上

%《MATLAB及其在理工课程中的应用指南》(十一五规划版)第五章例5-1-4程序
% 按定义判断极限
% 西安电子科技大学出版社出版  陈怀琛编著 2007年5月

clear,clf
disp('A是否是f(xc)的极限?')	
fxc=input('f(x)的表达式,(书上为sin(x)/x)  ','s'),			%输入函数表达式
A=input('A=,(书上为A=1)  '), 		%输入极限值
xc=input('xc=,(书上为xc=0)  '),	%输入对应的自变量值
flag=1;delta=1;x=xc-delta;n=1;									%初始化
while flag==1 epsilon=input('任给一个小的数ε=')			%任意给出ε
    while abs(A-eval(fxc))>epsilon delta=delta/2;x=xc-delta;	%找δ
        if abs(delta)< eps disp('找不到δ'),n=0;break	%找不到δ，跳出内循环
        end
    end
    if n==0 disp('极限不正确'),break,end,	%极限不正确, 跳出外循环
    delta,disp('极限可能正确')		%找到了δ,
    flag=input('再试一个ε吗? 再试按 1 ，不试按任意数字键 '), %再试？
end