trace.m

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

function Y=trace(X)
%TRACE (overloaded)

% Author Johan L鰂berg 
% $Id: trace.m,v 1.3 2005/06/02 13:40:00 joloef Exp $   

if isa(X,'blkvar')
    X = sdpvar(X);
end

if X.typeflag~=0
	error('Relational objects cannot be manipulated')
end

Y = X;
x_lmi_variables = X.lmi_variables;
lmi_variables = [];
n = X.n;
m = X.m;
traceX = trace(reshape(X.basis(:,1),n,m));
Y.basis = traceX(:);

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