imag.m

来自「国外专家做的求解LMI鲁棒控制的工具箱,可以相对高效的解决LMI问题」· M 代码 · 共 29 行

function Y = imag(X)
%IMAG (overloaded)

% Author Johan L鰂berg 
% $Id: imag.m,v 1.2 2004/07/01 11:17:10 johanl Exp $   

Y = X;
x_lmi_variables = X.lmi_variables;
lmi_variables = [];
n = X.n;
m = X.m;
imagX = imag(X.basis(:,1));
Y.basis = imagX(:);

j = 1;
for i = 1:length(x_lmi_variables)
	imagX = imag(X.basis(:,i+1));
	if (norm(imagX,inf)>0)
		Y.basis(:,j+1) = imagX(:);
		lmi_variables = [lmi_variables x_lmi_variables(i)];
		j = j+1;
	end
 end   
 if isempty(lmi_variables)
   Y = full(reshape(Y.basis,n,m));
 else
   Y.lmi_variables = lmi_variables;
 end