有关 双缝干涉的 问题
 

已建 figure('Position',[90 100 873 550]);
L=6.8e-8;D=6e-3;R=3;
a2=axes('Position',[0.31,0.15,0.2,0.74]);

输入相位计算公式及三原色公式 线图 却不能填满整个a2

ymax=6e-5;
n=255;
y=linspace(-ymax,ymax,n);
for i=1:n
L1=sqrt((y(i)-D/2).^2+R.^2);
L2=sqrt((y(i)+D/2).^2+R.^2);
p=2*pi*(L2-L1)/L;
A(i,:)=4*cos(p/2).^2;
end
cr=abs(L-560)/200;
cg=1-cr;
cb=abs(L-600)/240;
Ik(:,:,1)=A*cr;
Ik(:,:,2)=A*cg;
Ik(:,:,3)=A*cb;
Pc=imshow(Ik,[]);


哪位大哥大姐帮帮我这位初学者:):):D