cdpp.m

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

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

    save BER1 DD;

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

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