資源簡(jiǎn)介
計(jì)算光子晶體光纖的有效折射率程序,可以得到有效折射率隨波長(zhǎng)變化圖
(Calculate the effective refractive index of the photonic crystal fiber program, you can get change in the effective refractive index with wavelength)

代碼片段和文件信息
function?[?sol?]?=aftersolved(??)
%后處理
global?Set?fem????
sol.Lambda=?Set.SolLambda;
????????
Neff=fem.sol.lambda*Set.SolLambda/(-j*2*pi);
Loss=-8.686*2*pi*imag(Neff)./Set.SolLambda;%%%%%泄露損耗
Et=‘normE_rfwv‘;%‘sqrt(Ex*conj(Ex)+Ey*conj(Ey))‘;
I1=postint(fem[Et‘^2‘]‘solnum‘‘a(chǎn)ll‘);
I2=postint(fem[Et‘^4‘]‘solnum‘‘a(chǎn)ll‘);
Aeff=1E12.*I1.^2./I2;%%%%有效模場(chǎng)面積(單位um^2)
sol.NeffE??=?Neff(end);
sol.LossE??=??Loss(end);
sol.AeffE??=??Aeff(end);
sol.NAE=1./sqrt(1+pi*Aeff(end)./((Set.SolLambda*1e6).^2));
?sol.Neff??=?Neff;
sol.Loss??=??Loss;
sol.Aeff??=??Aeff;
sol.NA=1./sqrt(1+pi*Aeff./((Set.SolLambda*1e6).^2));
end
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件??????10039??2011-09-22?14:59??Downloads\1.fig
?????文件??????64743??2011-09-22?14:58??Downloads\1.jpg
?????文件???????9514??2011-09-22?15:01??Downloads\2.fig
?????文件??????53307??2011-09-22?15:01??Downloads\2.jpg
?????文件????????652??2011-07-07?11:02??Downloads\aftersolved.m
?????文件???????2704??2011-08-08?19:49??Downloads\ALLDispersion.m
?????文件?????139776??2011-09-22?15:04??Downloads\bijiao.doc
?????文件????????983??2011-09-22?14:59??Downloads\copeddate.m
?????文件??????79516??2011-09-20?06:46??Downloads\date\DataSol_5_0.9_0.mat
?????文件??????88874??2011-09-22?01:49??Downloads\date\DataSol_61.5e-006_0.3_0.mat
?????文件??????93793??2011-09-21?07:02??Downloads\date\DataSol_6_0.2_0.mat
?????文件??????88980??2011-09-21?17:57??Downloads\date\DataSol_6_0.3_0.mat
?????文件??????79690??2011-08-28?19:39??Downloads\date\DataSol_6_0.9_0.mat
?????文件?????104489??2011-09-22?13:45??Downloads\date\DataSol_6_1.5e-006_0.4_0.mat
?????文件???????1843??2011-07-16?08:28??Downloads\datedetle.m
?????文件????????237??2011-08-21?22:54??Downloads\dispersion.m
?????文件????????597??2011-08-07?15:07??Downloads\DMdispersion.m
?????文件????????594??2011-09-21?09:55??Downloads\DSidispersion.m
?????文件????????422??2011-06-01?09:05??Downloads\fcn_eigen_equa.m
?????文件????????497??2011-06-02?15:02??Downloads\findcoremode.m
?????文件????????709??2011-07-06?11:57??Downloads\findmode.m
?????文件????????366??2011-04-27?09:03??Downloads\GetNSiO2.m
?????文件????????450??2011-05-07?16:41??Downloads\lamdadispersion.m
?????文件???????1207??2011-07-14?12:48??Downloads\Savefigure.m
?????文件???????1001??2011-09-21?11:07??Downloads\Setmode.m
?????文件???????3734??2011-07-09?10:13??Downloads\solvedmode.m
?????文件????????413??2011-08-07?15:57??Downloads\solvenclad.m
?????文件???????5448??2011-09-22?08:14??Downloads\zhengliumode.m
?????文件???????1773??2011-09-22?08:14??Downloads\zhengliumodeDM.mat
?????目錄??????????0??2011-09-22?13:45??Downloads\date
............此處省略5個(gè)文件信息
評(píng)論
共有 條評(píng)論