cent3.m

这是一个三面阵列的数学工具软件

function Y=cent3(X,n,m,p,mode);
% Y=cent3(X,n,m,p,mode);
% centers across one mode 
% mode indicated by 1,2, or 3 

Y=X;
if mode==1
   Y=c(Y);
end;
if mode==2
   Y=permnew(Y,n,m,p);
   Y=c(Y);
   Y=permnew(Y,m,p,n);
   Y=permnew(Y,p,n,m);
end;
if mode==3
   Y=permnew(Y,n,m,p);
   Y=permnew(Y,m,p,n);
   Y=c(Y);
   Y=permnew(Y,p,n,m);
end;