cdpp.m

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

clear;
clc;
close all;
powerpenalty=zeros(1,4);
%DD=zeros(1,6);
for kesi=0:2:6
    DD=1.3*kesi;             %ps/nm.km

    save BER1 DD;

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

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