expcreateprofile

PURPOSE ^

EXPCREATEPROFILE - create an Argus file from a list of points

SYNOPSIS ^

function expcreateprofile(filename);

DESCRIPTION ^

EXPCREATEPROFILE - create an Argus file from a list of points

   expcreateprofile: from a list of (x,y) points (retrieve using ginput on an undetermined
   number of points: used RETURN key to end input), create an Argus .exp 
   file holding the corresponding open profile.
    
   Usage:
      expcreateprofile(filename)

   See also EXPMASTER, EXPDOC

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function expcreateprofile(filename);
0002 %EXPCREATEPROFILE - create an Argus file from a list of points
0003 %
0004 %   expcreateprofile: from a list of (x,y) points (retrieve using ginput on an undetermined
0005 %   number of points: used RETURN key to end input), create an Argus .exp
0006 %   file holding the corresponding open profile.
0007 %
0008 %   Usage:
0009 %      expcreateprofile(filename)
0010 %
0011 %   See also EXPMASTER, EXPDOC
0012 
0013 %Get root of filename
0014 [path root ext ver]=fileparts(filename);
0015 
0016 %Get profile
0017 disp('Click on profile points you desire. Type RETURN to end input of points');
0018 [x,y]=ginputquick;
0019 
0020 %plot contour
0021 hold on;
0022 plot(x,y,'r-');
0023 
0024 %create structure for expwrite routine
0025 a.x=flipud(x);
0026 a.y=flipud(y);
0027 a.name=root;
0028 a.density=1;
0029 
0030 %write profile using expwrite
0031 expwrite(a,filename);

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