permute.m

来自「求解线性矩阵不等式简单方便--与LMI工具箱相比」· M 代码 · 共 11 行

function X=permute(X,p)
%PERMUTE (overloaded)

% Author Johan L鰂berg 
% $Id: permute.m,v 1.1 2007/02/14 16:12:20 joloef Exp $   

i = 1:prod(X.dim);
i = reshape(i,X.dim);
i = permute(i,p);
X.basis = X.basis(i,:);
X.dim = X.dim(p);