18 lines
360 B
Mathematica
18 lines
360 B
Mathematica
|
function Y=repmat(varargin)
|
||
|
|
%REPMAT (overloaded)
|
||
|
|
|
||
|
|
Y = varargin{1};
|
||
|
|
dim = Y.dim;
|
||
|
|
resize = [varargin{2:end}];
|
||
|
|
index = (1:size(Y.basis,1))';
|
||
|
|
index = reshape(index,Y.dim);
|
||
|
|
index = repmat(index,resize);
|
||
|
|
Y.basis = Y.basis(index(:),:);
|
||
|
|
Y.dim = size(index);
|
||
|
|
Y = flush(Y);
|
||
|
|
% Reset info about conic terms
|
||
|
|
Y.conicinfo = [0 0];
|
||
|
|
if length(Y.dim)>2
|
||
|
|
Y = ndsdpvar(Y);
|
||
|
|
end
|