phi_nk_one.m

一种新的光纤通信调制技术

function y = Phi_nk_one(alpha, beta, s, ksi_k) 
%%%%%%%  \phi_nk(s) 的一阶导数

a=alpha(:);
b=beta(:);
I=ones(size(a));
[n1 , m1] =size (a) ;
[n2 , m2] =size(b) ;
if (m1~=1) | (m2~=1),
    error('x and nu must be vectors') ;
end ;
if(n1~=n2)
    error('x and nu must be of the same length');
end ;
if(s==0) 
    s = eps;
end

y = sum( ( a+b.*(I-b*s) )./( (I-b*s).^2 ) ) - 1/s - ksi_k;
% y = sum( ( a+b.*(I-b*s) )./( (I-b*s).^2 ) ) - 1/abs(s) - ksi_k;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%