查看单个帖子
旧 2008-12-01, 18:10   #1
grb1988
初级会员
 
注册日期: 2008-12-01
年龄: 37
帖子: 1
声望力: 0
grb1988 正向着好的方向发展
默认 [求助]双缝干涉

clc
clear
lam=500e-9
a=2e-3
d=1
m=500
ym=10*lam*d/a
ys=linspace(-ym,ym,m)
xs=ys
for i=1:m
r1=sqrt((ys(i)-a/2).^2+d^2)
r2=sqrt((ys(i)-a/2).^2+d^2)
phi=2*pi*(r2-r1)/lam
b(i,=4*cos(phi/2).^2
end
b
n=255
br=b.*n./10
subplot(1,2,1)
image(xs,ys,br)
colormap(gray(n))
subplot(1,2,2)
plot(ys,br)


请大家帮帮忙,哪错了
grb1988 当前离线   回复时引用此帖