- 1、本文档共17页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
.
.
电 子 科 技 大 学
UNIVERSITY OF ELECTRONIC SCIENCE AND TECHNOLOGY OF CHINA
激光原理与技术
课程设计
课 程 教 师:
作 者 姓 名:
学 号:
题目一:
编程计算图示谐振腔的稳定性与光焦度1/F的关系。可取R1=?, R2=?, l1=250mm, l2=200mm。,用matlab程序计算光线在腔内的轨迹,演示腔稳定和不稳定时光线在腔内往返次数增加时光线轨迹。初始光线参数可以任意选择。
利用matlab编程如下:
clear,clc
L1=250;L2=200;
R1=inf;R2=inf;
syms d;
T=[1,L1;0,1]*[1,0;-d,1]*[1,L2;0,1]*[1,0;-2/R2,1]*[1,L2;0,1]*[1,0;-d,1]*[1,L1;0,1]*[1,0;-2/R1,1];
A=T(1,1);
B=T(1,2);
C=T(2,1);
D=T(2,2);
h=(A+D)/2;
ezplot(h,[0,0.012])
title(谐振腔的稳定性);xlabel(透镜光焦度D(/mm));ylabel(等效g1g2)
运行结果:
题目二:
计算输出镜M2和透镜上的模式半径与光焦度1/F的关系。
利用matlab编程如下:
clear,clc
L1=250;L2=200;R1=inf;R2=inf;w1=0.5*10^-3;
syms d
T1=[1,L2;0,1]*[1,0;-2/R2,1]*[1,L2;0,1]*[1,0;-d,1]*[1,L1;0,1]*[1,0;-2/R1,1]*[1,L1;0,1]*[1,0;-d,1];
A1=T1(1,1);B1=abs(T1(1,2));C1=T1(2,1);D1=T1(2,2);h1=(A1+D1)/2;
W1=((w1*B1/pi)^(1/2))/((1-h1^2)^(1/4));
T2=[1,0;-2/R2,1]*[1,L2;0,1]*[1,0;-d,1]*[1,L1;0,1]*[1,0;-2/R1,1]*[1,L1;0,1]*[1,0;-d,1]*[1,L2;0,1];
A2=T2(1,1);B2=abs(T2(1,2));C2=T2(2,1);D2=T2(2,2);h2=(A2+D2)/2;
W2=((w1*B2/pi)^(1/2))/((1-h2^2)^(1/4));
figure (1)
ezplot(W1,[0,0.012]);
title(透镜上的光斑半径);xlabel(透镜光焦度D(/mm));ylabel(光束半径)
figure (2);
ezplot(W2,[0,0.012])
title(输出镜上的光斑半径);xlabel(透镜光焦度D(/mm));ylabel(光束半径)
figure (3);
h1=ezplot(W1,[0,0.012]);
hold on
h2=ezplot(W2,[0,0.012]);
set(h2,color,r)
title(透镜和输出镜上的光斑半径);xlabel(透镜光焦度D(/mm));ylabel(光束半径)
运行结果:
题目三:
取使谐振腔稳定的F值,计算腔内模式半径与z的关系。
利用matlab编程如下:
clear,clc
L1=250;L2=200;
R1=inf;R2=inf;F=125;
wl=0.5*10^-3;
T=[1,0;-2/R1,1]*[1,L1;0,1]*[1,0;-1/F,1]*[1,L2;0,1]*[1,0;-2/R2,1]*[1,L2;0,1]*[1,0;-1/F,1]*[1,L1;0,1];
A=T(1,1);B=T(1,2);C=T(2,1);D=T(2,2);
qm=1/(2*C)*((D-A)+i*2*sqrt(1-(A+D)^2/4));
A=1;B=0;C=-2/R1;D=1;
q1=(A*qm+B)/(C*qm+D);
z0=real(q1);f=imag(q1);
w0=sqrt(f*wl/pi);
z=0:L1;
w=w0*sqrt(1+(z+z0).^2/f^2);
plot(z,w),hold on
A=1;B=L1;C=0;D
文档评论(0)