nncpyd.m

来自「模式识别工具箱,本人毕业论文时用到的,希望对大家有用!」· M 代码 · 共 29 行

function y = nncpyd(x)
%NNCPYD Copy vectors in a matrix onto diagonals.
%	
%	*WARNING*: This function is undocumented as it may be altered
%	at any time in the future without warning.

% NNCPYD(X)
%   X - NxM Matrix of column vectors.
% Returns Nx(N*M) matrix of M NxN diagonal matrices
%   with the columns of X on each diagonal.
%
% EXAMPLE: X = [1 2; 3 4; 5 6];
%          Y = nncpyd(X)
%
% SEE ALSO: nncpy, nncpyi

% Mark Beale, 12-15-93
% Copyright (c) 1992-94 by the MathWorks, Inc.
% $Revision: 1.1 $  $Date: 1994/01/11 16:26:11 $

[xr,xc] = size(x);

y = zeros(xr,xr*xc);

i = 1:xr;
for j=0:xr:((xc-1)*xr)
  y(i+(i+j-1)*xr) = x(i+j);
end