Mercurial > hg > octave-lojdl
changeset 4146:c3bb286a18a9
[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 +++ b/scripts/ChangeLog @@ -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 +++ b/scripts/plot/contour.m @@ -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;