pulse.m

来自「这是几个仿真利用半导体激光器的交叉相位调制进行全光波长转换的程序」· M 代码 · 共 10 行

%输入脉冲信号函数
function pin=pulse(p0,m,T)
t=0.01:0.01:T;
pin1=p0/2;    %mw
pin2=0;    %mw
for k=1:1:m
    pin1=pin1+p0*sin(pi/2*k)/k/pi*exp(i*k*pi/5*(t-2.5));
    pin2=pin2+p0*sin(pi/2*k)/k/pi*exp(-i*k*pi/5*(t-2.5));
end
pin=pin1+pin2