eigvctomask.m

matlab实现主成分分析PAC神经网络的程序

function M = eigvcToMask(vc,rM)
%vc2blkM  Reshaping a matrix vc of rc by 1 vectors into a block-matrix 
%         M  of  rM  by  cM  size
%
% Each rc-element column of vc is converted into a  r by c block
% of a matrix  M  and placed as a block-row element 

[rc nb] = size(vc) ; pxls = rc*nb ;

if ( (rem(pxls, rM) ~= 0) )
   error('incorrect number of rows of the matrix')
end
cM = pxls/rM ;


%c = rc/r ;

xM = zeros(rM, cM);
M = (reshape(vc,rM,cM))';
%xM(:) = vc ;

%nrb = rM/r ; 
%M = zeros(rM, cM);

%for ii = 0:nrb-1
%   M((1:r)+ii*r, :) = xM(:, (1:cM)+ii*cM) ;
%end