✅作者简介：热爱科研的Matlab仿真开发者，修心和技术同步精进，matlab项目合作可私信。
🍎个人主页：Matlab科研工作室
🍊个人信条：格物致知。
更多Matlab仿真内容点击👇
⛄ 内容介绍
拉盖尔高斯光束在激光物理、光通讯、原子光学、电子加速、光学成像、光学捕获等领域都有着重要的应用价值。最近,部分相干光在湍流大气中的传输特性受到国内外学者广泛的关注,部分相干光可以有效的降低湍流大气引起的负面影响,因此大气激光通讯、激光雷达、激光远程探测等领域具有重要的应用前景。
⛄ 部分代码
clc
clear all
N=300;
w0=0.03;
s=5;
z=1000;
lamda=1.550e-6;
k=2*pi/lamda;
z0=k*w0^2/2;
b=0.2;%图像坐标范围
dx=b/N;
Cn2=1e-15;
%z=1e3;%传输距离
Numz=20;%把传播距离分成Numz段
dz=z/Numz;%每段的距离
% % n=[-(N-1)/2:(N-1)/2];
m2=[-N/2:N/2-1];
% n=[1:N];
% [x,y]=meshgrid(m2*dx);
% [theta,r]=cart2pol(x,y);
[r,theta]=meshgrid(linspace(0,b,N),linspace(0,2*pi,N));
[x,y]=pol2cart(theta,r);
L=0.7;%窗口宽度
df=1/L;
[fx,fy]=meshgrid(m2*df);%空间频率
fr=sqrt(fx.^2+fy.^2);
kx=2*pi*fx;
ky=2*pi*fy;
%%%%%强度和相位图
[X,Y] = meshgrid(m2*dx);
uz=griddata(x,y,u,X,Y);
%u0=griddata(x,y,u0,X,Y);
%figure
%imshow(abs(u0).^2,[]);
figure
imshow(abs(uz).^2,[]);
%imagesc(abs(uz).^2);
%axis square;
%xlabel('x / mm');ylabel('y / mm')
figure
imshow(angle(uz),[]);
%axis square;
%xlabel('x / mm');ylabel('y / mm')
⛄ 运行结果
⛄ 参考文献
[1]屈军, 袁扬胜, 孟凯,等. 受限拉盖尔-高斯光束湍流传输时轴上光强分布[J]. 激光技术, 2010(1):4.
[2]杨春勇, 张文, 丁丽明,等. 大气湍流对拉盖尔-高斯光束传播质量的影响[J]. 光电子.激光, 2014.
