Mercurial > hg > octave-lyh

comparison scripts/plot/mesh.m @ 904:3470f1e25a79

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-09 21:22:15 by jwe]
author jwe
date Wed, 09 Nov 1994 21:22:15 +0000
parents 16a24e76d6e0
children 3f257ab07921
comparison
equal deleted inserted replaced
903:b3692d63cca3 904:3470f1e25a79
1 # Copyright (C) 1993 John W. Eaton 1 # Copyright (C) 1993, 1994 John W. Eaton
2 # 2 #
3 # This file is part of Octave. 3 # This file is part of Octave.
4 # 4 #
5 # Octave is free software; you can redistribute it and/or modify it 5 # Octave is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by the 6 # under the terms of the GNU General Public License as published by the
59 set nocontour; 59 set nocontour;
60 set parametric; 60 set parametric;
61 set view 60, 30, 1, 1 61 set view 60, 30, 1, 1
62 gsplot (zz); 62 gsplot (zz);
63 else 63 else
64 disp ("mesh: rows (z) must be the same as length (x)"); 64 msg = "mesh: rows (z) must be the same as length (x) and";
65 error (" and columns (z) must be the same as length (y)"); 65 msg = sprintf ("%s\ncolumns (z) must be the same as length (y)", msg);
66 error (msg);
66 endif 67 endif
67 else 68 else
68 error ("mesh: x and y must be vectors and z must be a matrix"); 69 error ("mesh: x and y must be vectors and z must be a matrix");
69 endif 70 endif
70 else 71 else
71 error ("usage: mesh (z)"); 72 usage ("mesh (z)");
72 endif 73 endif
73 74
74 endfunction 75 endfunction