二维光场的角谱传输

  • angciesun
    了解作者
  • matlab
    开发工具
  • 509B
    文件大小
  • zip
    文件格式
  • 0
    收藏次数
  • 5 积分
    下载积分
  • 0
    下载次数
  • 2022-05-29 13:58
    上传日期
用于计二维光场在自由空间的传输,matlab程序
jiaopuchuanshu.zip
  • jiaopuchuanshu.m
    566B
内容介绍
%%二维光场角谱传输 z_max=1;%传输距离 pcs = 100; % Number of pictures zg = linspace(0,z_max,pcs); for z=1:pcs L=exp(1i*zg(z)/2/k0*(kx.^2+ky.^2)); L=fftshift(L); u=sqrt(S0).*exp(1i.*phz); f = fft2(fftshift(g0)); f1 = L.*f; u(:,:,z)= ifftshift(ifft2(f1)); u(:,:,z) = u(:,:,z)*exp(-1i*k0*zg(z)); % For drawing graphics Uplot(:,:)=u(:,:,z).*conj(u(:,:,z)); Uplot(:,:)=Uplot(:,:)./max_I_0; Imaxz(:,z)=Uplot((ny)/2,:); Im0(:,:,z)=Uplot(:,:); IM0(z)=max(max(Uplot)); % end
评论
    相关推荐