spher.m

来自「含有多种ICA算法的eeglab工具箱」· M 代码 · 共 26 行

% spher() - return the sphering matrix for given input data
%
% Usage:
%
%        >> sphere_matrix = spher(data);
%
% Reference: T. Bell (1996) - - -
%

% S. Makeig CNL / Salk Institute, La Jolla CA 7-17-97

% $Log: spher.m,v $
% Revision 1.1  2002/04/05 17:36:45  jorn
% Initial revision
%

function sphere = spher(data)


if nargin<1 | size(data,1)<1 
  help spher
  return
end

sphere = 2.0*inv(sqrtm(cov(data'))); % return the "sphering" matrix