24小时热门版块排行榜    

Znn3bq.jpeg
查看: 1252  |  回复: 4

shuanglei

铜虫 (小有名气)

[交流] 【求助】求解光纤包层模的有效折射率 已有3人参与

% function fm=zheshe(neff)

neff=1.23;

a1=2.625;                                                            %纤芯半径
a2=62.5;                                                              %包层半径
n1=1.458;                                                            %纤芯折射率
n2=1.450;                                                            %包层折射率
n3=1.0;                                                                %空气折射率
lamda=1550;
z0=377;                                                               %真空电磁阻抗

t1=1i*neff/z0;                                                        %t1、t2都是复数   ?????
t2=1i*neff*z0;

u1=((2*pi/lamda)^2*(n1^2-neff^2))^(1/2);
u2=((2*pi/lamda)^2*(n2^2-neff^2))^(1/2);                             %??????
e3=((2*pi/lamda)^2*(neff^2-n3^2))^(1/2);
      
u21=1/u2^2-1/u1^2;
u32=1/e3^2+1/u2^2;

m1=besselj(0,u1*a1)-1/(u1*a1)*besselj(1,u1*a1);                            %m1为besselj(1,u1*a1)的一阶微商

m2=-besselk(0,e3*a2)-1/(e3*a2)*besselk(1,e3*a2);                          %m2为besselk(1,e3*a2)的一阶微商

m3=bessely(0,u2*a1)-1/(u2*a1)*bessely(1,u2*a1);                           %m3为bessely(1,u2*a1)的一阶微商

m4=besselj(0,u2*a1)-1/(u2*a1)*besselj(1,u2*a1);                            %m4为besselj(1,u2*a1)的一阶微商

m5=besselj(0,u2*a2)-1/(u2*a2)*besselj(1,u2*a2);                            %m5为besselj(1,u2*a2)的一阶微商

m6=bessely(0,u2*a2)-1/(u2*a2)*bessely(1,u2*a2);                           %m6为bessely(1,u2*a2)的一阶微商

bej=m1/(u1*besselj(1,u1*a1));                                                  
bek=m2/(e3*besselk(1,e3*a2));                                               

pa2=besselj(1,u2*a2)*bessely(1,u2*a1)-besselj(1,u2*a1)*bessely(1,u2*a2);

qa2=besselj(1,u2*a2)*m3-m4*bessely(1,u2*a2);                     

ra2=m5*bessely(1,u2*a1)-besselj(1,u2*a1)*m6;                 

sa2=m5*m3-m4*m6;                                                               

                                                                                                                                          
g1=(1/t2)*(u2*(bej*bek+t1*t2*u21*u32/(n2^2*a1*a2))*pa2-bek*qa2+bej*ra2-sa2/u2)/(-u2*(u32/(n2^2*a2)*bej-u21/(n1^2*a1)*bek)*pa2+u32/(n1^2*a2)*qa2+u21/(n1^2*a1)*ra2);
g0=t1*(u2*(u32/a2*bej-n3^2*u21/(n2^2*a1)*bek)*pa2-u32/a2*qa2-u21/a1*ra2)/(u2*(n3^2/n2^2*bej*bek+t1*t2*u21*u32/(n1^2*a1*a2))*pa2-n3^2/n1^2*bek*qa2+bej*ra2-n2^2/(n1^2*u2)*sa2);

fm=g1-g0;

return  
求解neff   。我调试好久没有弄出来请各位大侠帮帮指教一下。

[ Last edited by luoqiquan on 2010-10-21 at 05:20 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

硬着头皮钻下去?!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lhfx_313

至尊木虫 (文坛精英)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
luoqiquan(金币+2):thank you 2010-08-30 17:34:09
求解neff?? 是求解fm吧?
试试下面的

clc;
clear;
neff=1.23;

a1=2.625;                                                            %纤芯半径
a2=62.5;                                                              %包层半径
n1=1.458;                                                            %纤芯折射率
n2=1.450;                                                            %包层折射率
n3=1.0;                                                                %空气折射率
lamda=1550;
z0=377;                                                               %真空电磁阻抗

t1=1*i*neff/z0;                                                        %t1、t2都是数   ?????
t2=1*i*neff*z0;

u1=((2*pi/lamda)^2*(n1^2-neff^2))^(1/2);
u2=((2*pi/lamda)^2*(n2^2-neff^2))^(1/2);                             %??????
e3=((2*pi/lamda)^2*(neff^2-n3^2))^(1/2);
      
u21=1/u2^2-1/u1^2;
u32=1/e3^2+1/u2^2;

m1=besselj(0,u1*a1)-1/(u1*a1)*besselj(1,u1*a1);                           
%m1besselj(1,u1*a1)的一阶微商

m2=-besselk(0,e3*a2)-1/(e3*a2)*besselk(1,e3*a2);                          
%m2为besselk(1,e3*a2)的一阶微商

m3=bessely(0,u2*a1)-1/(u2*a1)*bessely(1,u2*a1);                          
%m3为bessely(1,u2*a1)的一阶微商

m4=besselj(0,u2*a1)-1/(u2*a1)*besselj(1,u2*a1);                           
%m4为besselj(1,u2*a1)的一阶微商

m5=besselj(0,u2*a2)-1/(u2*a2)*besselj(1,u2*a2);                           
%m5为besselj(1,u2*a2)的一阶微商

m6=bessely(0,u2*a2)-1/(u2*a2)*bessely(1,u2*a2);                          
%m6为bessely(1,u2*a2)的一阶微商

bej=m1/(u1*besselj(1,u1*a1));                                                  
bek=m2/(e3*besselk(1,e3*a2));                                               

pa2=besselj(1,u2*a2)*bessely(1,u2*a1)-besselj(1,u2*a1)*bessely(1,u2*a2);

qa2=besselj(1,u2*a2)*m3-m4*bessely(1,u2*a2);                     

ra2=m5*bessely(1,u2*a1)-besselj(1,u2*a1)*m6;                 

sa2=m5*m3-m4*m6;                                                               

                                                                                                                                          
g1=(1/t2)*(u2*(bej*bek+t1*t2*u21*u32/(n2^2*a1*a2))*pa2-bek*qa2+bej*ra2-sa2/u2)/(-u2*(u32/(n2^2*a2)*bej-u21/(n1^2*a1)*bek)*pa2+u32/(n1^2*a2)*qa2+u21/(n1^2*a1)*ra2);
g0=t1*(u2*(u32/a2*bej-n3^2*u21/(n2^2*a1)*bek)*pa2-u32/a2*qa2-u21/a1*ra2)/(u2*(n3^2/n2^2*bej*bek+t1*t2*u21*u32/(n1^2*a1*a2))*pa2-n3^2/n1^2*bek*qa2+bej*ra2-n2^2/(n1^2*u2)*sa2);

fm=g1-g0



结果:fm =

        0 - 0.0191i

[ Last edited by lhfx_313 on 2010-8-26 at 11:38 ]
2楼2010-08-26 11:35:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

shuanglei

铜虫 (小有名气)

谢谢大侠指教
硬着头皮钻下去?!
3楼2010-08-26 16:21:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

struggle2011

金虫 (小有名气)


小木虫: 金币+0.5, 给个红包,谢谢回帖
引用回帖:
2楼: Originally posted by lhfx_313 at 2010-08-26 11:35:51
求解neff?? 是求解fm吧?
试试下面的

clc;
clear;
neff=1.23;

a1=2.625;                                                            %纤芯半径
a2=62.5;                                             ...

请问为啥是复数呢?
4楼2018-03-03 14:22:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

struggle2011

金虫 (小有名气)

引用回帖:
3楼: Originally posted by shuanglei at 2010-08-26 16:21:52
谢谢大侠指教

为啥是复数呢?
5楼2018-03-03 14:36:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 shuanglei 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 290调剂生物0860 +28 哇哈哈,。 2026-04-11 31/1550 2026-04-13 01:16 by 幸免 ..
[考研] 211本科材料化工求调剂 +16 YHLAH 2026-04-11 19/950 2026-04-12 22:43 by kyle12138
[考研] 305求调剂 +7 玛卡巴卡boom 2026-04-11 7/350 2026-04-12 07:35 by zhouxiaoyu
[考研] 331求调剂 +5 王国帅 2026-04-11 5/250 2026-04-11 22:56 by 溪涧流水
[考研] 269求调剂 +11 啊啊我我 2026-04-07 11/550 2026-04-11 16:45 by vgtyfty
[考研] 调剂 +5 文道星台 2026-04-11 5/250 2026-04-11 15:01 by 凯凯要变帅
[考研] 085404 293求调剂 +9 勇远库爱314 2026-04-06 10/500 2026-04-11 10:36 by 紫曦紫棋
[考研] 085402通信工程调剂,有4项学科竞赛国奖(电赛国二),硕士研究生调剂自荐信。 +5 m永o不v言o弃m 2026-04-09 5/250 2026-04-11 09:33 by zhq0425
[考研] 314求调剂 +18 xhhdjdjsjks 2026-04-09 19/950 2026-04-10 18:53 by HPUCZ
[考研] 一志愿中南大学物理学,英一66,求调剂 +4 长烟旖旎 2026-04-08 5/250 2026-04-10 10:31 by 颖果儿
[考研] 材料专硕调剂 +16 哈哈哈吼吼吼哈 2026-04-07 17/850 2026-04-09 21:16 by wutongshun
[考研] 367求调剂 +10 hffQAQ 2026-04-09 10/500 2026-04-09 18:06 by lijunpoly
[考研] 1U盾记得记得就 +9 sanjin020722 2026-04-08 10/500 2026-04-09 14:11 by 诗与自由
[考研] 材料307分求大佬组收留 +17 Hll胡 2026-04-07 17/850 2026-04-09 10:53 by liuhuiying09
[考研] 353求调剂 +8 晴空万里air 2026-04-07 8/400 2026-04-09 00:18 by GouQ
[考研] 生物学学硕,初试351分,求调剂 +4 …~、王…~ 2026-04-08 5/250 2026-04-08 21:49 by limeifeng
[考研] 计算机11408 287 求调剂 +3 LiLe5 2026-04-07 3/150 2026-04-07 23:15 by shanqishi
[考研] 259求调剂 +5 就爱吃土豆呀呀 2026-04-07 5/250 2026-04-07 22:40 by JourneyLucky
[考研] 机械调剂 +3 zzzbcb 2026-04-07 3/150 2026-04-07 22:19 by hemengdong
[考研] 一志愿西南090202求调剂 +4 在线求有学上 2026-04-07 4/200 2026-04-07 19:47 by biomichael
信息提示
请填处理意见