clear;clc
%平凸透鏡光線追跡
n=1.5062;%材料為k9玻璃，對1064nm波長的折射率
d=3;%透鏡中心厚度
R=100;%透鏡凸面曲率半徑
Dr=sqrt（R^2-（R-d）^2）;%透鏡尺寸（最大半徑）
mh=100;
if?Dr>10
????hmax=10;
else?
????hmax=Dr;
end
h0=linspace（-hmaxhmaxmh）;
mz=1000;
z0=20;%初始光線到透鏡平面的距離
y=zeros（size（z0））;
theta1=asin（hmax/R）;
theta2=asin（n*hmax/R）;
theta=theta2-theta1;
f=hmax/tan（theta）;%透鏡的近似焦距
z=linspace（0f+z0+f/3mz）;
for?gh=1:mh
?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????858??2020-03-18?10:21??模擬平凸透鏡的光線追跡.m