comempty.m

数字通信第四版原书的例程

function out = comempty(vaa, handle, default);

%       Copyright (c) 1995-96 by The MathWorks, Inc.
%       $Revision: 1.1 $  $Date: 1996/04/01 17:53:00 $

if isempty(vaa)
    out = default;
    if isstr(out)
        set(handle,'String',out,'ForegroundColor',[1 0 0])
    else
        set(handle,'String',mat2str(out),'ForegroundColor',[1 0 0])
    end;
else
    out = vaa;
end;