squeeze.m

来自「求解线性矩阵不等式简单方便--与LMI工具箱相比」· M 代码 · 共 12 行

function X = squeeze(X)
% squeeze (overloaded)

% Author Johan L鰂berg
% $Id: squeeze.m,v 1.2 2006/07/26 09:09:07 joloef Exp $


dummy = reshape(ones(prod(X.dim),1),X.dim);
dummy = squeeze(dummy);
X.dim = size(dummy);
X = clean(X);