Mercurial > octave-nkf

changeset 4146:c3bb286a18a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-01 20:18:29 by jwe]
author jwe
date Fri, 01 Nov 2002 20:18:29 +0000
parents dd311d514ffd
children c1438a47fd5e
files scripts/ChangeLog scripts/plot/contour.m
diffstat 2 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Fri Nov 01 18:07:48 2002 +0000
+++ b/scripts/ChangeLog	Fri Nov 01 20:18:29 2002 +0000
@@ -1,3 +1,7 @@
+2002-11-01  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* plot/contour.m: Correct orientation of plot.
+
 2002-10-31  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* control/base/analdemo.m: Fix typo.
--- a/scripts/plot/contour.m	Fri Nov 01 18:07:48 2002 +0000
+++ b/scripts/plot/contour.m	Fri Nov 01 20:18:29 2002 +0000
@@ -69,7 +69,7 @@
     if (isvector (x) && isvector (y) && ismatrix (z))
       xlen = length (x);
       ylen = length (y);
-      if (xlen == rows (z) && ylen == columns (z))
+      if (xlen == columns (z) && ylen == rows (z))
         if (rows (x) == 1)
           x = x';
         endif
@@ -79,7 +79,7 @@
         for i = 1:3:len
           zz(:,i)   = x;
           zz(:,i+1) = y(k) * ones (xlen, 1);
-          zz(:,i+2) = z(:,k);
+          zz(:,i+2) = z(k,:)';
           k++;
         endfor
         gset nosurface;