From: Michael G. <gof...@us...> - 2007-08-09 12:29:40
|
Update of /cvsroot/octave/octave-forge/extra/jhandles/inst In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv14260/inst Modified Files: surf.m Log Message: make surf work with a single argument Index: surf.m =================================================================== RCS file: /cvsroot/octave/octave-forge/extra/jhandles/inst/surf.m,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- surf.m 21 Jun 2007 22:29:04 -0000 1.2 +++ surf.m 9 Aug 2007 12:29:35 -0000 1.3 @@ -25,6 +25,7 @@ [nr, nc] = size (z); x = 1:nc; y = (1:nr)'; + [x, y] = meshgrid (x, y); else error ("surf: argument must be a matrix"); endif @@ -33,7 +34,7 @@ if (rows (z) == length (y) && columns (z) == length (x)) x = x(:)'; y = y(:); - [x, y] = meshgrid (x, y); + [x, y] = meshgrid (x, y); else msg = "surf: rows (z) must be the same as length (y) and"; msg = sprintf ("%s\ncolumns (z) must be the same as length (x)", msg); |