expdisp

PURPOSE ^

EXPDISP - plot the contours of a domain outline file

SYNOPSIS ^

function expdisp(domainoutline,varargin)

DESCRIPTION ^

EXPDISP - plot the contours of a domain outline file

   This routine reads in a domain outline file (Argus format) and plots all the contours 

   Usage:
      expdisp(domainoutline,varargin)

   See also EXPMASTER, EXPDOC

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function expdisp(domainoutline,varargin)
0002 %EXPDISP - plot the contours of a domain outline file
0003 %
0004 %   This routine reads in a domain outline file (Argus format) and plots all the contours
0005 %
0006 %   Usage:
0007 %      expdisp(domainoutline,varargin)
0008 %
0009 %   See also EXPMASTER, EXPDOC
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

Generated on Sun 29-Mar-2009 20:22:55 by m2html © 2003