【光学】生成螺旋波带片【含Matlab源码 3116期】

⛄一、获取代码方式

获取代码方式1：
完整代码已上传我的资源：【光学】基于matlab生成螺旋波带片【含Matlab源码 3116期】
点击上面蓝色字体，直接付费下载，即可。

获取代码方式2：
付费专栏Matlab物理应用（初级版）

备注：
点击上面蓝色字体付费专栏Matlab物理应用（初级版），扫描上面二维码，付费29.9元订阅海神之光博客付费专栏Matlab物理应用（初级版），凭支付凭证，私信博主，可免费获得1份本博客上传CSDN资源代码（有效期为订阅日起，三天内有效）；
点击CSDN资源下载链接：1份本博客上传CSDN资源代码

⛄二、部分源代码

clear;
lam=532e-6; %设置波长为600nm
R=1; %设置菲涅尔波带片半径为1mm
f=100; %设置焦距100mm
ym=R;
xm=R;
w=401;
y=linspace(-ym,ym,w);
x=linspace(-xm,xm,w); %设置程序中x，y向量，将屏幕分为10011001个点
for m=1:w
for n=1:w %设置二重循环依次求菲涅尔波带片屏幕上各点
p=sqrt(x(m).^2+y(n).2); %求各点所在圆半径
fi=atan2(y(n),x(m));
dd=sin(fi-((pipp)/(flam)));
if p>R%如果屏幕上点大于波带片半径
I(m,n)=0;% 则用灰色表示背景，不是波带片部分
else
if dd>=0 %判断半波带数透还是不透
I(m,n)=1;
else
I(m,n)=0; %为偶数则不涂黑表示透光
end
end

⛄三、运行结果

⛄四、matlab版本及参考文献

1 matlab版本
2014a

2 参考文献
[1] 门云阁.MATLAB物理计算与可视化[M].清华大学出版社，2013.

3 备注
简介此部分摘自互联网，仅供参考，若侵权，联系删除