30 lines
782 B
Mathematica
30 lines
782 B
Mathematica
|
function F = horzcat(varargin)
|
||
|
|
|
||
|
|
F = [];
|
||
|
|
if isa(varargin{1},'lmi')
|
||
|
|
F = varargin{1};
|
||
|
|
top = 2;
|
||
|
|
elseif isa(varargin{1},'constraint')
|
||
|
|
F = lmi(varargin{1});
|
||
|
|
top = 2;
|
||
|
|
else
|
||
|
|
top = 1;
|
||
|
|
end
|
||
|
|
|
||
|
|
for i=top:1:nargin
|
||
|
|
if isa(varargin{i},'double') && ~isempty(varargin{i})
|
||
|
|
warning('One of the constraints evaluates to a DOUBLE variable');
|
||
|
|
elseif isa(varargin{i},'logical')
|
||
|
|
if all(varargin{i}==1)
|
||
|
|
% warning('One of the constraints evaluates to a LOGICAL variable');
|
||
|
|
else
|
||
|
|
error('One of the constraints evaluates to a FALSE LOGICAL variable');
|
||
|
|
end
|
||
|
|
elseif isa(varargin{i},'optproblem')
|
||
|
|
F = [varargin{i},F,varargin{i+1:end}];
|
||
|
|
return;
|
||
|
|
else
|
||
|
|
H = lmi(varargin{i});
|
||
|
|
F = F + H;
|
||
|
|
end
|
||
|
|
end
|