cdpp.m

来自「一种新的光纤通信调制技术」· M 代码 · 共 26 行

clear;
clc;
close all;
powerpenalty=zeros(1,5);
%DD=zeros(1,6);
for kesi=0:2:8
    DD=1.5+0.6*kesi;             %ps/nm.km

    save BER1 DD;

    powerpenalty(0.5*kesi+1)=klse822();
end
zz=powerpenalty(1);
for ii=0:4
    powerpenalty(ii+1)=powerpenalty(ii+1)-zz;
end
save CD_pi powerpenalty;
kesi=0:2:8;
p=polyfit(kesi,powerpenalty,4);
kesi1=0:0.01:10;
plot(kesi,powerpenalty,'r*',kesi1,polyval(p,kesi1),'b-');
grid;
title('offset-2DPSK色散引起的功率损失');

xlabel('V^2*L*D[10e4(GHz)^2]');
ylabel('Power Penalty');