| 查看: 429 | 回复: 1 | ||
[求助]
【求助】Matlab程序模拟TOPO输出波长调谐曲线
|
|
要用matlab程序模拟光参量振荡器输出波长调谐曲线。 具体的描述在附件文件里，请各位MATLAB高手出手相助，感激不尽，因为我是小木虫新人，没有很多金币，程序模拟出来后我愿意把目前所有的都奉献出来，谢谢啦！ |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : matlab程序模拟叙述.doc
2012-11-15 15:41:47, 143.5 K
» 猜你喜欢
如何从铁电相到顺电相。
已经有1人回复
-
各位大佬，求一份最新Wien2k版本作为学习用途
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有102人回复
-
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后
已经有42人回复
-
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有24人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +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
100