Mercurial > hg > octave-lyh

diff scripts/plot/contour.m @ 1518:84bd88b8acee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-04 03:35:16 by jwe]
author jwe
date Wed, 04 Oct 1995 03:45:06 +0000
parents 611d403c7f3d
children 5d29638dd524
line wrap: on
line diff
--- a/scripts/plot/contour.m
+++ b/scripts/plot/contour.m
@@ -32,11 +32,11 @@
     if (is_matrix (z))
       set nosurface;
       set contour;
-      set cntrparam bspline
+      set cntrparam bspline;
       command = sprintf ("set cntrparam levels %d", n);
       eval (command);
       set noparametric;
-      set view 0, 0, 1.9, 1
+      set view 0, 0, 1.9, 1;
       gsplot z w l 1;
     else
       error ("mesh: argument must be a matrix");
@@ -58,13 +58,13 @@
           zz(:,i+2) = z(:,k);
           k++;
         endfor
-        set nosurface
-        set contour
-        set cntrparam bspline
+        set nosurface;
+        set contour;
+        set cntrparam bspline;
         command = sprintf ("set cntrparam levels %d", n);
         eval (command);
 	set parametric;
-        set view 0, 0, 1.9, 1
+        set view 0, 0, 1.9, 1;
 	gsplot zz w l 1;
       else
         msg = "mesh: rows (z) must be the same as length (x) and";