分步傅里叶法Matlab代码同享代码clc;clearall;closeall;clf;cputime=0;tic;ln=1;i=sqrt(-1);Po=.00064;%inputpwrinwattsalpha=0;%FiberlossvalueindB/kmalph=alpha/(4.343);%Refpage#55eqn2.5.3FiberopticCommbyGPAgrawalgamma=0.003;%fibernonlinearityin/W/mto=125e-12;%initialpulsewidthinsecondC=-2;%Inputchirpparameterforfirstcalculationb2=-20e-27;%2ndorderdisp.(s2/m)Ld=(to^2)/(abs(b2));%dispersionlengthinmeterpi=3.1415926535;
1