单缝衍射菲涅尔衍射 弗朗禾费衍射

这是几个程序包，matlab代码，里面是单缝衍射，包括菲涅尔衍射和弗朗禾费衍射的光强分布图，希望对用到这一点的同学或者网友有所帮助，谢谢。

clear;clc
%l=input（‘单缝到衍射屏的距离（mm）L=‘）;
%a=input（‘单缝的宽度（mm）a=‘）;
%lam=input（‘波长（nm）λ=‘）;
%lam=lam*10^-6;
l=1000;
a=10;
lam=555e-6;
x=-1:0.001:1;
y=x./sqrt（x.^2+l^2）;
z=a.*y/lam;
I=1000*（sinc（z））.^2;

subplot（211）
image（2xI）
colormap（gray（3））
title（‘弗朗禾费单缝衍射条纹‘）
subplot（212）
plot（xI）
title（‘光强分布‘）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件         353  2013-04-09 17:21  danfeng.m
     文件         338  2013-04-09 17:21  feinieer.m
     文件         378  2013-04-09 17:21  fulanghefei.m
     文件        9772  2013-04-09 17:21  yansheGUI.m
     文件       63206  2013-04-02 09:12  爱拼才会赢2.jpg