isreal.m

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

function YESNO = isreal(F)
%ISREAL (overloaded)

% Author Johan L鰂berg 
% $Id: isreal.m,v 1.2 2005/02/04 10:10:27 johanl Exp $   

if isempty(F.clauses)
    YESNO = 1;
else
    YESNO = 1;
    i = 1;
    while (i<=length(F.clauses)) & YESNO
        Fi = F.clauses{i};
        YESNO =  YESNO & is(Fi.data,'real');
        i  =i+1;
    end   
end