资源描述:
《光强分布matlab》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、实用标准文案一、高斯光束模拟的焦点附近光场分布forn=1:10I=0.1*n;a=sqrt(1./I-1);z=0:0.0001:a;r=sqrt(0.5.*(1+z.^2).*log(1./(I.*(1+z.^2))));plot(z,r,'-');holdonend右半边:forn=1:10I=0.1*n;a=sqrt(1./I-1);z=0:0.0001:a;r1=sqrt(0.5.*(1+z.^2).*log(1./(I.*(1+z.^2))));r2=-sqrt(0.5.*(1+z.^2).*log(1./(I.*
2、(1+z.^2))));plot(z,r1,'-');holdonplot(z,r2,'-');holdonend全图:clearallforn=1:10I=0.1*n;a=sqrt(1./I-1);z=-a:0.00001*a:a;r1=sqrt(0.5.*(1+z.^2).*log(1./(I.*(1+z.^2))));r2=-sqrt(0.5.*(1+z.^2).*log(1./(I.*(1+z.^2))));plot(z,r1,'-');axisequalholdonplot(z,r2,'-');axisequalho
3、ldonendxlabel('Z(λ)/m');ylabel('r(λ)/m');title('焦点附近光场分布')文档实用标准文案带空间坐标:clearallforn=1:10I=0.1*n;w0=200e-9;wl=780e-9;a=pi*w0^2*sqrt(1./I-1)/wl;z=-a:0.0001*a:a;r1=w0*sqrt(0.5.*(1+(wl/(pi*w0^2)).*z.^2).*log(1./(I.*(1+(wl/(pi*w0^2)).*z.^2))));r2=-w0*sqrt(0.5.*(1+(wl/(p
4、i*w0^2)).*z.^2).*log(1./(I.*(1+(wl/(pi*w0^2)).*z.^2))));plot(z,r1,'-');axisequalholdonplot(z,r2,'-');axisequalholdonendxlabel('Z(λ)/m');ylabel('r(λ)/m');title('焦点附近光场分布')文档实用标准文案文档实用标准文案文档实用标准文案二、焦点附近的三维光场分布文档实用标准文案三、高斯光束在传播过程中,焦点处的光强分布1、高斯光束在光腰处的三维光强分布图clearallN=20
5、0;w0=200e-9;%高斯光束的光腰半径r=linspace(0,3*w0,N);eta=linspace(0,2*pi,N);[rho,theta]=meshgrid(r,eta);%生成极坐标网格[x,y]=pol2cart(theta,rho);%将极坐标网格转化为直角坐标网格I=exp(-2*rho.^2./w0.^2);%高斯光束在归一化的光强值surf(x,y,I);colormaphot;%colormapgray线性灰度图colormaphot热色颜色图去掉这句命令为彩图shadinginterp;xlab
6、el('x/m');ylabel('y/m');zlabel('intensity/a.u.');axis([-3*w03*w0-3*w03*w001])title('焦点附近三维光场分布')colorbar;文档实用标准文案2、高斯光束在光腰处的二维光强分布图clearallN=200;w0=200e-9;%高斯光束的光腰半径x=linspace(-3*w0,3*w0,N);y=linspace(-3*w0,3*w0,N);X=meshgrid(x,y);Y=meshgrid(y,x);Y=Y';R=sqrt(X.^2+Y.
7、^2);I=exp(-2*R.^2./w0.^2);imagesc(x,y,I,[01]);axisequalcolormaphot;%colormapgray线性灰度图colormaphot热色颜色图去掉这句命令为彩图colorbar;xlabel('x/m');ylabel('y/m');axis([-3*w03*w0-3*w03*w0])title('焦点附近三维光场分布')文档实用标准文案3、高斯光束在传播过程中,焦点处的三维光强分布clearallw0=200e-9;%高斯光束的光腰半径wavelength=780e
8、-9;%高斯光束的光波长ZR=pi*w0^2/wavelength;%高斯光束的瑞利长度L=3*ZR;%高斯光束的传输范围N=200;z=linspace(-L,L,N);r=linspace(-4*w0,4*w0,N);[pr,pz]=meshgrid(r,z);wz=w0