20 lines
362 B
Mathematica
20 lines
362 B
Mathematica
|
function X=ctranspose(X)
|
||
|
|
%CTRANSPOSE (overloaded)
|
||
|
|
|
||
|
|
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);
|
||
|
|
if isreal(X.basis)
|
||
|
|
X.basis = X.basis(ind,:);
|
||
|
|
else
|
||
|
|
X.basis = conj(X.basis(ind,:));
|
||
|
|
end
|
||
|
|
X.dim(1) = m;
|
||
|
|
X.dim(2) = n;
|
||
|
|
% Reset info about conic terms
|
||
|
|
X.conicinfo = [0 0];
|
||
|
|
X = ctransposefactor(X);
|