standvec.m

来自「收集的GA的一些源程序」· M 代码 · 共 25 行

function z = standvec(x)
%
% STANDVEC
%
% Standardises a vector x, ie. the mean of x is
% subtracted from all elements of x and the
% result is divided by the standard deviation of x.
%
% Called: z = standvec(x) 
%
% Only for vectors!

[rows,cols]=size(x);
if cols==1 
   meanx=ones(size(x))*mean(x);
   stdx = std(x);
   z=(x-meanx)/stdx;
else
   disp('Error:')  
   disp('   Only for vectors')
   disp(' ')
end;
clear meanx, stdx;