Changeset 1330

Timestamp:

07/16/09 10:01:08 (16 years ago)

Author:

Mathieu Morlighem

Message:

better way to write exp files

Location:

issm/trunk/src/m/utils/Exp/readwrite

Files:

• expwrite.m (modified) (1 diff)
• expwriteasvertices.m (modified) (1 diff)

issm/trunk/src/m/utils/Exp/readwrite/expwrite.m

@@ -32 +32 @@
    fprintf(fid,'%i %f\n',[length(a(n).x) a(n).density]);
    fprintf(fid,'%s\n','# X pos Y pos');
-
-   for i=1:length(a(n).x),
-         fprintf(fid,'%f %f\n',[a(n).x(i) a(n).y(i)]);
-   end  
-   fprintf(fid,'\n','');
+        fprintf(fid,'%10.10f %10.10f\n',[a(n).x a(n).y]');
+        fprintf(fid,'\n','');
    
 end

issm/trunk/src/m/utils/Exp/readwrite/expwriteasvertices.m

@@ -16 +16 @@
 
 fid=fopen(filename,'w');
-for n=1:length(a.x),
-   
-        fprintf(fid,'%s\n','## Name:');
-        fprintf(fid,'%s\n','## Icon:0');
-        fprintf(fid,'%s\n','# Points Count  Value');
-        fprintf(fid,'1 1.\n');
-        fprintf(fid,'%s\n','# X pos Y pos');
-        fprintf(fid,'%f %f\n\n',[a.x(n) a.y(n)]);
-
-end
+fprintf(fid,'%s\n','## Name:');
+fprintf(fid,'%s\n','## Icon:0');
+fprintf(fid,'%s\n','# Points Count  Value');
+fprintf(fid,'1 1.\n');
+fprintf(fid,'%s\n','# X pos Y pos');
+fprintf(fid,'%10.10f %10.10f\n',[a.x a.y]');
+fprintf(fid,'\n','');
 fclose(fid);