Mercurial > hg > octave-nkf
diff scripts/plot/contour.m @ 3426:f8dde1807dee
[project @ 2000-01-13 08:40:00 by jwe]
author | jwe |
---|---|
date | Thu, 13 Jan 2000 08:40:53 +0000 |
parents | ae7adbb591e8 |
children | b736f8b8f0a1 |
line wrap: on
line diff
--- a/scripts/plot/contour.m +++ b/scripts/plot/contour.m @@ -44,13 +44,13 @@ gset contour; gset cntrparam bspline; if (is_scalar (n)) - command = sprintf ("gset cntrparam levels %d", n); + command = sprintf ("gset cntrparam levels %d", n); elseif (is_vector (n)) - tmp = sprintf ("%f", n(1)); - for i = 2:length (n) - tmp = sprintf ("%s, %f", tmp, n(i)); - endfor - command = sprintf ("gset cntrparam levels discrete %s", tmp); + tmp = sprintf ("%f", n(1)); + for i = 2:length (n) + tmp = sprintf ("%s, %f", tmp, n(i)); + endfor + command = sprintf ("gset cntrparam levels discrete %s", tmp); endif eval (command); gset noparametric; @@ -79,19 +79,19 @@ gset nosurface; gset contour; gset cntrparam bspline; - if (is_scalar (n)) + if (is_scalar (n)) command = sprintf ("gset cntrparam levels %d", n); - elseif (is_vector (n)) - tmp = sprintf ("%f", n(1)); - for i = 2:length (n) - tmp = sprintf ("%s, %f", tmp, n(i)); - endfor - command = sprintf ("gset cntrparam levels discrete %s", tmp); - endif + elseif (is_vector (n)) + tmp = sprintf ("%f", n(1)); + for i = 2:length (n) + tmp = sprintf ("%s, %f", tmp, n(i)); + endfor + command = sprintf ("gset cntrparam levels discrete %s", tmp); + endif eval (command); - gset parametric; + gset parametric; gset view 0, 0, 1, 1; - gsplot zz w l 1; + gsplot zz w l 1; else msg = "contour: rows (z) must be the same as length (x) and"; msg = sprintf ("%s\ncolumns (z) must be the same as length (y)", msg);