sesan_cha.m

本软件使用matlab预言编写

clc
clear
format long
load HE_0.5.mat N0 N1 N2 KJ lamda f f_eff
plot(lamda,N0,'-b',lamda,N1,':',lamda,N2,'-b')
c=3.*10^8;
%n=length(lamda);
%lamda_tmp=(lamda(n)-lamda(1))./30;
%L=lamda(1):lamda_tmp:lamda(n);
%N=interp1(lamda,N1,L)
%figure
%plot(L,N,'o',lamda,N1,'p')
[L1,D1]=ChaDao(lamda,N1);
%[L1,D1]=ChaDao(lamda,N1);
[L2,D2]=ChaDao(L1,D1);
figure
plot(L1,D1)

D=-10.^12.*L2.*D2./c;

figure
%plot(BoChang,Dw)
plot(L2,D)
%plot(BoChang,0*BoChang),hold off
axis([0.5,2.5,-100,100])
xlabel('波长（um）')
ylabel('色散D（ps/km*nm）')
title('普通单模光纤色散曲线')
grid on