




0001 function h = fig(varargin) 0002 if mod(numel(varargin),2) 0003 f = varargin{1}; 0004 parameters = varargin(2:end); 0005 else 0006 parameters = varargin; 0007 f = []; 0008 end 0009 0010 if ishandle(f) 0011 set(0,'CurrentFigure',f); 0012 elseif ~isempty(f) 0013 f = figure(f); 0014 else 0015 f = figure; shg; 0016 end 0017 0018 if ~isempty(parameters) 0019 set(f,parameters{:}); 0020 end 0021 0022 if nargout == 1 0023 h = f; 0024 end 0025 end