refold3.m

来自「强大的多维工具箱.应用在Matlab中,可分析多纬数据结构.直接安装.」· M 代码 · 共 18 行

function [Y]=Refold3(X,R);
%REFOLD3
%
%[Y]=Refold3(X,R);
%
%If you have confused the way you unfolded
%your data, you can mend it by this function

%Claus. A. Andersson, [e-mail]

Y=zeros(size(X));
Olis=zeros(1,R(3)*R(2));
lis=[0 kron([1:R(2)],R(3))];
lis=lis(1:R(2));
for k=1:R(3),
   Olis(1,(k-1)*R(2)+1:k*R(2))=k + lis;
end;
Y=X(1:R(1),Olis);