0001 function expdisp(domainoutline,varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 if nargin==1,
0012 figurenumber=1;
0013 linestyle='r-';
0014 end
0015
0016 if nargin==2,
0017 figurenumber=varargin{1};
0018 linestyle='r-';
0019 end
0020
0021 if nargin==3,
0022 figurenumber=varargin{1};
0023 linestyle=varargin{2};
0024 end
0025
0026 domain=expread(domainoutline,1);
0027
0028 figure(figurenumber),hold on
0029 for i=1:length(domain),
0030 plot(domain(i).x,domain(i).y,linestyle);
0031 end