


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

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);