光纤通信的Matlab仿真

光纤通信的matlab的仿真分析，包含光纤通信中的色散研究

a=8.335;lambda=0.6328;nc=1.462420;ng=1.457420;
v=（2*pi*a/lambda）*sqrt（nc^2-ng^2）;
umax=v;umin=0;wmax=v;wmin=0;
u=[0:0.1:v];
Su=size（u）;
for m=1:Su（2）;
    J（m）=u（m）*besselj（1u（m））/besselj（0u（m））;
end
for m=1:Su（2）;
    w（m）=sqrt（v^2-u（m）*u（m））;
    K（m）=w（m）*besselk（1w（m））/besselk（0w（m））;
end
 %plot（uJ）;hold on;plot（wK）;
u01=2.1845;neff01=sqrt（nc^2-（u01/（2*pi*a/lambda））^2）;
u02=4.9966;neff02=sqrt（nc^2-（u02/（2*pi*a/lambda））^2）;
u03=7.7642;neff03=sqrt（nc^2-（u03/（2*pi*a/lambda））^2）;
w01=sqrt（v^2-u01^2）;
w02=sqrt（v^2-u02^2）;
w03=sqrt（v^2-u03^2）;
rc=[0:0.1:a];
Src=size（rc）;
for m=1:Src（2）;
    psic01（m）=besselj（0u01*rc（m）/a）/besselj（0u01）;
end
rg=[a:0.1:2*a];
Srg=size（rg）;
for m=1:Srg（2）;
    psig01（m）=besselk（0w01*rg（m）/a）/besselk（0w01）; 
end
psic01t=psic01‘;
psig01t=psig01‘;
psic01t = psic01t（end:-1:1）;
psig01t=psig01t（end:-1:1）;
     PSIC01=repmat（psic01t1500）;
     PSIG01=repmat（psig01t1500）;
[XcYcZc]=polar3d（PSIC01.^2/max（max（PSIC01））^202*pi0a2‘off‘）;
[XgYgZg]=polar3d（PSIG01.^2/max（max（PSIC01））^202*pia2*a2‘off‘）;
subplot（211）;
surf（XcYcZc）; hold on;surf（XgYgZg）;axis（[-20 20 -20 20]）;shading interp;colorbar;
subplot（212）;
pcolor（XcYcZc）;hold on;pcolor（XgYgZg）;axis（[-10 10 -10 10]）;shading interp
colorbar

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        1309  2005-11-23 10:51  Fiber modes\LP01.m
     文件        1305  2005-11-23 10:51  Fiber modes\LP02.m
     文件        1305  2005-11-23 10:52  Fiber modes\LP03.m
     文件        1615  2005-11-23 10:53  Fiber modes\LP11.m
     文件        1615  2005-11-23 10:54  Fiber modes\LP12.m
     文件        1615  2005-11-23 10:55  Fiber modes\LP13.m
     文件        1207  2005-11-23 10:55  Fiber modes\LP21.m
     文件        1207  2005-11-23 10:55  Fiber modes\LP22.m
     文件        1217  2005-11-23 10:55  Fiber modes\LP31.m
     文件        1237  2005-11-23 18:26  Fiber modes\LP41.m
     文件        1207  2005-11-23 18:24  Fiber modes\LP51.m
     文件        1209  2005-11-23 18:21  Fiber modes\LP61.m
     文件        1209  2005-11-23 18:18  Fiber modes\LP71.m
     文件       14125  2005-11-22 13:08  Fiber modes\polar3d.m