transpose.m

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

function X=transpose(X)
%TRANSPOSE (overloaded)

% Author Johan L鰂berg 
% $Id: transpose.m,v 1.1 2006/08/10 18:00:23 joloef Exp $

if isa(X,'blkvar')
    X = sdpvar(X);
end

n = X.dim(1);
m = X.dim(2);
ind = reshape(reshape(1:n*m,n,m)',n*m,1);
X.basis = X.basis(ind,:);
X.dim(1) = m;
X.dim(2) = n;
% Reset info about conic terms
X.conicinfo = [0 0];