14 lines
346 B
Mathematica
14 lines
346 B
Mathematica
|
function [X,n] = shiftdim(varargin)
|
||
|
|
% SHIFTDIM (overloaded)
|
||
|
|
|
||
|
|
Y = varargin{1};
|
||
|
|
X = Y;
|
||
|
|
X.basis = [];
|
||
|
|
for i = 1:size(Y.basis,2)
|
||
|
|
base = reshape(full(Y.basis(:,i)),[X.dim(1) X.dim(2)]);
|
||
|
|
[base,n] = shiftdim(base,varargin{2:end});
|
||
|
|
X.basis = [X.basis sparse(base(:))];
|
||
|
|
end
|
||
|
|
[X.dim(1), X.dim(2)] = size(base);
|
||
|
|
X.conicinfo = [0 0];
|
||
|
|
X = clean(X);
|