光纤色散计算

计算光子晶体光纤的有效折射率程序，可以得到有效折射率随波长变化图 (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‘‘all‘）;
I2=postint（fem[Et‘^4‘]‘solnum‘‘all‘）;
Aeff=1E12.*I1.^2./I2;%%%%有效模场面积（单位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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      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个文件信息