1、r=sqrt(0.5.*(1+z.2).*log(1./(I.*(1+z.2);plot(z,r, -);hold on end右半边: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, plot(z,r2, 全图:clear allz=-a:0.00001*a: axis equalxlabel(Z()/mylabel(r()/mtitle(焦点附近光场分布)带空间坐标:w0=200e-9;wl=780e-9;a=pi*w02*sqrt(1./I-1)/wl
2、;0.0001*a:r1=w0*sqrt(0.5.*(1+(wl/(pi*w02).*z.2).*log(1./(I.*(1+(wl/(pi*w02).*z.2);r2=-w0*sqrt(0.5.*(1+(wl/(pi*w02).*z.2).*log(1./(I.*(1+(wl/(pi*w02).*z.2);二、焦点附近的三维光场分布三、高斯光束在传播过程中,焦点处的光强分布1、高斯光束在光腰处的三维光强分布图N=200; %高斯光束的光腰半径r=linspace(0,3*w0,N);eta=linspace(0,2*pi,N);rho,theta=meshgrid(r,eta); %生成极坐
3、标网格x,y=pol2cart(theta,rho); %将极坐标网格转化为直角坐标网格I=exp(-2*rho.2./w0.2); %高斯光束在归一化的光强值surf(x,y,I);colormap hot; %colormap gray线性灰度图 colormap hot热色颜色图 去掉这句命令为彩图shading interp;x /my /mzlabel(intensity /a.u.axis(-3*w0 3*w0 -3*w0 3*w0 0 1)焦点附近三维光场分布colorbar;2、高斯光束在光腰处的二维光强分布图x=linspace(-3*w0,3*w0,N);y=linspac
4、e(-3*w0,3*w0,N);X=meshgrid(x,y);Y=meshgrid(y,x);Y=Y;R=sqrt(X.2+Y.2);I=exp(-2*R.2./w0.2);imagesc(x,y,I,0 1);axis(-3*w0 3*w0 -3*w0 3*w0)3、高斯光束在传播过程中,焦点处的三维光强分布wavelength=780e-9; %高斯光束的光波长ZR=pi*w02/wavelength; %高斯光束的瑞利长度L=3*ZR; %高斯光束的传输范围z=linspace(-L,L,N);r=linspace(-4*w0,4*w0,N);pr,pz=meshgrid(r,z);wz=w0*sqrt(1+(wavelength*pz/pi/w02).2);I=w02./wz.2.*exp(-2*pr.2./wz.2);surf(pz,pr,I);Z() /mr() /maxis(-3*ZR 3*ZR -Inf Inf -Inf Inf) %colormap gray线性灰度图 colormap hot热色颜色图view(2) %显示二维视图