20 lines
307 B
Mathematica
20 lines
307 B
Mathematica
|
function S = spy(X)
|
||
|
|
%SPY (overloaded)
|
||
|
|
|
||
|
|
F = flatten(X);
|
||
|
|
if length(X)>1
|
||
|
|
S = [];
|
||
|
|
for i = 1:length(X)
|
||
|
|
S = blkdiag(S,spy(X.clauses{1}.data));
|
||
|
|
end
|
||
|
|
if nargout == 0
|
||
|
|
spy(S);
|
||
|
|
end
|
||
|
|
else
|
||
|
|
X = spy(sdpvar(X));
|
||
|
|
if nargout==0
|
||
|
|
spy(X);
|
||
|
|
else
|
||
|
|
S = X;
|
||
|
|
end
|
||
|
|
end
|