Mercurial > hg > octave-nkf

comparison scripts/plot/__go_draw_axes__.m @ 6912:66c7da4ee7a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-09-18 15:26:08 by jwe]
author jwe
date Tue, 18 Sep 2007 15:26:08 +0000
parents b2de26e67857
children 40be41c7d098
comparison
equal deleted inserted replaced
6911:63e94c52a85a 6912:66c7da4ee7a1
1054 data(idx) = NaN; 1054 data(idx) = NaN;
1055 endif 1055 endif
1056 1056
1057 if (nd == 2) 1057 if (nd == 2)
1058 nan_elts = find (sum (isnan (data))); 1058 nan_elts = find (sum (isnan (data)));
1059 fmt = strcat (repmat ("%g ", 1, rows (data)), "\n"); 1059 fmt = strcat (repmat ("%e ", 1, rows (data)), "\n");
1060 if (isempty (nan_elts)) 1060 if (isempty (nan_elts))
1061 fprintf (plot_stream, fmt, data); 1061 fprintf (plot_stream, fmt, data);
1062 else 1062 else
1063 n = columns (data); 1063 n = columns (data);
1064 have_nans = true; 1064 have_nans = true;
1074 endfor 1074 endfor
1075 endif 1075 endif
1076 else 1076 else
1077 ## FIXME -- handle NaNs here too? 1077 ## FIXME -- handle NaNs here too?
1078 if (parametric) 1078 if (parametric)
1079 fprintf (plot_stream, "%g %g %g\n", data); 1079 fprintf (plot_stream, "%e %e %e\n", data);
1080 else 1080 else
1081 nc = columns (data); 1081 nc = columns (data);
1082 for j = 1:3:nc 1082 for j = 1:3:nc
1083 fprintf (plot_stream, "%g %g %g\n", data(:,j:j+2)'); 1083 fprintf (plot_stream, "%e %e %e\n", data(:,j:j+2)');
1084 fputs (plot_stream, "\n"); 1084 fputs (plot_stream, "\n");
1085 endfor 1085 endfor
1086 endif 1086 endif
1087 endif 1087 endif
1088 fputs (plot_stream, "e\n"); 1088 fputs (plot_stream, "e\n");