19 lines
355 B
Mathematica
19 lines
355 B
Mathematica
|
function Q=getbasematrix(X,ind)
|
||
|
|
%GETBASEMATRIX Internal function to extract basematrix for variable IND
|
||
|
|
|
||
|
|
if ind==0
|
||
|
|
base = X.basis(:,1);
|
||
|
|
Q = reshape(base,X.dim(1),X.dim(2));
|
||
|
|
return;
|
||
|
|
end
|
||
|
|
|
||
|
|
here = find(X.lmi_variables==ind);
|
||
|
|
if isempty(here)
|
||
|
|
Q = sparse(X.dim(1),X.dim(2));
|
||
|
|
else
|
||
|
|
base = X.basis(:,here+1);
|
||
|
|
Q = reshape(base,X.dim(1),X.dim(2));
|
||
|
|
end
|
||
|
|
|
||
|
|
|