光束传输 matlab,matlab仿真光束的传输特性

plot(x3,y); End

?

clear all %透镜的结构参数 r1=10; r2=-50; l1=-100; L1=-100; n1=1.0; d1=5; n11=1.563 n2=1.563; n22=1.0; figure(1)

for n=-3:-1%沿光轴分别为1、2、3度的光线进行入射 %近轴光学成像公式第一个面 u1=n;

i1=(l1-r1)*u1/r1 i11=n1*i/n11; u11=u1+i1-i11;

l11=r1+r1*i11/u11; %转面公式 u2=u11; l2=l11-d1;

%近轴光学成像公式第二个面 i2=(l2-r2)*u2/r2; i22= n2*i2/n22; u22=u2+i2-i22; l22=r2+r2*i22/u22;

%入射光线与第一个透镜交点的纵坐标，坐标原点选在第一个透镜的顶点处

h1=l1*(u1*pi/180);

k1=-u1*pi/180;%入射光线的斜率

b1=100*k1;%因为入射光线经过(-100,0)点 x0=(h1-b1)/k1;%入射光线与第一个透镜交点的横坐标 x1=-100:0.01:x0; y1=k1*x1+b1; hold on

plot(x1,y1);%输出入射光线

k3=-u22*pi/180;%第二次折射后出射光线的斜率

b3=-k3*(d1+l22);%因为第二次折射后出射光线经过(d1+l22,0)点 h2=h1-d1*(u11*pi/180);%第一次折射后入射到第二个透镜的纵坐标

x00=(h2-b3)/k3;%第一次折射后入