polarize.m

多通道奇异谱分析程序

function E=polarize(E);
% POLARIZE - assign a polarity to a vector.
% If the first element of the vector is < 0,
% the vector is multiplied by -1.
%
% If a matrix is input, each column is polarized.
%

[r,c]=size(E);

for i=1:c
  if E(1,i)<0, E(:,i)=-E(:,i); end
end