


EXPWRITEASVERTIVES - write an Argus file from a structure given in input
This routine write an Argus file form a structure containing the fields:
x and y of the coordinates of the points.
The first argument is the structure containing the points coordinates
and the second one the file to be write.
Usage:
expwriteasvertices(a,filename)
Example:
expwriteasvertices(coordstruct,'domainoutline.exp')
See also EXPDOC, EXPREAD, EXPWRITE

0001 function expwriteasvertices(a,filename); 0002 %EXPWRITEASVERTIVES - write an Argus file from a structure given in input 0003 % 0004 % This routine write an Argus file form a structure containing the fields: 0005 % x and y of the coordinates of the points. 0006 % The first argument is the structure containing the points coordinates 0007 % and the second one the file to be write. 0008 % 0009 % Usage: 0010 % expwriteasvertices(a,filename) 0011 % 0012 % Example: 0013 % expwriteasvertices(coordstruct,'domainoutline.exp') 0014 % 0015 % See also EXPDOC, EXPREAD, EXPWRITE 0016 0017 fid=fopen(filename,'w'); 0018 for n=1:length(a.x), 0019 0020 fprintf(fid,'%s\n','## Name:'); 0021 fprintf(fid,'%s\n','## Icon:0'); 0022 fprintf(fid,'%s\n','# Points Count Value'); 0023 fprintf(fid,'1 1.\n'); 0024 fprintf(fid,'%s\n','# X pos Y pos'); 0025 fprintf(fid,'%f %f\n\n',[a.x(n) a.y(n)]); 0026 0027 end 0028 fclose(fid);