ctranspose.m

来自「国外专家做的求解LMI鲁棒控制的工具箱,可以相对高效的解决LMI问题」· M 代码 · 共 20 行

function X=ctranspose(X)
%CTRANSPOSE (overloaded)

% Author Johan L鰂berg 
% $Id: ctranspose.m,v 1.4 2005/06/17 13:02:01 joloef Exp $

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

n = X.n;
m = X.m;
ind = reshape(reshape(1:n*m,n,m)',n*m,1);
if isreal(X.basis)
    X.basis = X.basis(ind,:);    
else
   X.basis = conj(X.basis(ind,:));
end
X.n = m;
X.m = n;