Mercurial > hg > octave-nkf

diff scripts/plot/__go_draw_axes__.m @ 6920:17d9ce1f00f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-09-21 16:13:30 by jwe]
author jwe
date Fri, 21 Sep 2007 16:13:35 +0000
parents 40be41c7d098
children fbf2e8b95a18
line wrap: on
line diff
--- a/scripts/plot/__go_draw_axes__.m
+++ b/scripts/plot/__go_draw_axes__.m
@@ -1131,7 +1131,7 @@
 	fprintf (plot_stream, "set format %s \"%%s\";\n", ax);
 	fprintf (plot_stream, "set %stics (", ax);
 	for i = 1:ntics
-	  fprintf (plot_stream, " \"%s\" %.15g", labels(k++), tics(i))
+	  fprintf (plot_stream, " \"%s\" %g", labels(k++), tics(i))
 	  if (i < ntics)
 	    fputs (plot_stream, ", ");
 	  endif
@@ -1144,13 +1144,13 @@
 	error ("unsupported type of ticklabel");
       endif
     else
-      fprintf (plot_stream, "set format %s \"%%.15g\";\n", ax);
+      fprintf (plot_stream, "set format %s \"%%g\";\n", ax);
       fprintf (plot_stream, "set %stics (", ax);
-      fprintf (plot_stream, " %.15g,", tics(1:end-1));
-      fprintf (plot_stream, " %.15g);\n", tics(end));
+      fprintf (plot_stream, " %g,", tics(1:end-1));
+      fprintf (plot_stream, " %g);\n", tics(end));
     endif
   else
-    fprintf (plot_stream, "set format %s \"%%.15g\";\n", ax);
+    fprintf (plot_stream, "set format %s \"%%g\";\n", ax);
     fprintf (plot_stream, "set %stics;\n", ax);
   endif
 endfunction