matlab模擬干涉衍射

引用請註明出處：http://blog.csdn.net/int64ago/article/details/7076015

%##########################%
%名稱：等厚干涉模擬                       %
%作者：程序猿__int64Ago                %
%時間：2011-12-16                        %
%##########################%
clear                                                %清內存
lamda=632.8e-9;                             %設定入射光波長
n=1;                                                %縫隙折射率
R=5;                                                %柱透鏡半徑
ym=5e-3;                                         %設定屏幕的範圍,根據實際情況調整
xs=ym;                                             %x方向無變化，單一值
N=1000;                                          %條紋柔和度
ys=linspace(-ym,ym,N);                      %y軸上座標離散
for i=1:N                                          %依次求干涉光強
    hm=R-sqrt(R^2-ys(i)^2);                %柱透鏡與底面間隙
    delta=