| 查看: 344 | 回复: 1 | |||
[求助]
【求助】Matlab程序模拟TOPO输出波长调谐曲线
|
|
要用matlab程序模拟光参量振荡器输出波长调谐曲线。 具体的描述在附件文件里，请各位MATLAB高手出手相助，感激不尽，因为我是小木虫新人，没有很多金币，程序模拟出来后我愿意把目前所有的都奉献出来，谢谢啦！ |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : matlab程序模拟叙述.doc
2012-11-15 15:41:47, 143.5 K
» 猜你喜欢
新西兰Robinson研究所招收全奖PhD
已经有0人回复
-
石墨烯转移--二氧化硅衬底石墨烯
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有235人回复
-
笼目材料中量子自旋液体基态的证据
已经有0人回复
-
数学教学论硕士可以读数学物理博士吗？
已经有0人回复
-
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生
已经有4人回复
-
澳门大学 应用物理及材料工程研究院 潘晖教授课题组诚招博士后
已经有11人回复
-
求助NH4V4O10晶体的CIF文件
已经有0人回复
-
英国全奖博士招聘-深度学习与量子物理
已经有0人回复
-
间接带隙半导体有效质量求助
已经有1人回复
-
投稿chemical physical letters不送审？
已经有2人回复
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
惜梦寻草: 金币+10, ★★★很有帮助, 非常感谢，不过我还有点小问题想交流一下 2012-11-16 16:06:57
csgt0: 金币+3, 谢谢 2012-11-17 09:13:48
感谢参与，应助指数 +1
惜梦寻草: 金币+10, ★★★很有帮助, 非常感谢，不过我还有点小问题想交流一下 2012-11-16 16:06:57
csgt0: 金币+3, 谢谢 2012-11-17 09:13:48
|
楼主，第一级给你画出来，第二级就你自己编咯： clear clc n=1; m=1; a1=5.756; a2=0.0983; a3=0.2020; a4=189.32; a5=12.52; a6=1.32e-2; b1=2.860e-6; b2=4.700e-8; b3=6.113e-8; b4=1.156e-4; A=31.5; lamdap=1.064; T = [25:0.1:300]; lamdas = [1.065:0.01:3.2]; lamdass = [2.5:0.05:4.5]; % figure; for i_T = 1:length(T) f=(T(i_T)-24.5)*(T(i_T)+570.82); ni = zeros(size(lamdas)); np = ni; ns = ni; %% 第一级放大 for i_lamdas = 1:length(lamdas) lamdai(i_lamdas)=1/(1/lamdap-1/lamdas(i_lamdas)); ni(i_lamdas)=(a1+b1*f+(a2+b2*f)/(lamdai(i_lamdas)^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdai(i_lamdas)^2-a5^2)-a6*lamdai(i_lamdas)^2)^(1/2); np(i_lamdas)=(a1+b1*f+(a2+b2*f)/(lamdap^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdap^2-a5^2)-a6*lamdap^2)^(1/2); ns(i_lamdas)=(a1+b1*f+(a2+b2*f)/(lamdas(i_lamdas)^2-(a3+b3*f)^2)+(a4+b4*f)/(lamdas(i_lamdas)^2-a5^2)-a6*lamdas(i_lamdas)^2)^(1/2); end temp1 = abs(np./lamdap-ns./lamdas-ni./lamdai-1/A); % 求出最符合条件的波长 [x1,i_x1] = min(temp1); lamdai_opt(i_T) = lamdai(i_x1); lamdas_opt(i_T) = lamdas(i_x1); end plot(T,lamdai_opt,'b.'); hold on plot(T,lamdas_opt,'b.') |
2楼2012-11-15 22:36:24