rot90.m

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

function X=rot90(X)
%ROT90 (overloaded)

% Author Johan L鰂berg 
% $Id: rot90.m,v 1.1 2006/08/10 18:00:22 joloef Exp $   

n = X.dim(1);
m = X.dim(2);
nm = n*m;
for i = 1:length(X.lmi_variables)+1
  X.basis(:,i) = reshape(rot90(reshape(X.basis(:,i),n,m)),nm,1);
end
X.dim(1) = m;
X.dim(2) = n;
% Reset info about conic terms
X.conicinfo = [0 0];