Mercurial > hg > octave-nkf

comparison scripts/plot/meshz.m @ 7216:5389a52df87b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-29 19:07:29 by jwe]
author jwe
date Thu, 29 Nov 2007 19:07:29 +0000
parents dd88d61d443f
children 95c3e38098bf
comparison
equal deleted inserted replaced
7215:dd88d61d443f 7216:5389a52df87b
30 function retval = meshz (varargin) 30 function retval = meshz (varargin)
31 31
32 [h, varargin, nargin] = __plt_get_axis_arg__ ("meshz", varargin{:}); 32 [h, varargin, nargin] = __plt_get_axis_arg__ ("meshz", varargin{:});
33 33
34 ioff = nargin + 1; 34 ioff = nargin + 1;
35 for i = 1 : nargin 35 for i = 1:nargin
36 if (ischar (varargin{i})) 36 if (ischar (varargin{i}))
37 ioff = i; 37 ioff = i;
38 break; 38 break;
39 endif 39 endif
40 endfor 40 endfor
45 endif 45 endif
46 46
47 if (ioff == 2) 47 if (ioff == 2)
48 z = varargin{1}; 48 z = varargin{1};
49 [m, n] = size (z); 49 [m, n] = size (z);
50 x = 1 : n; 50 x = 1:n;
51 y = (1 : m).'; 51 y = (1:m).';
52 else 52 else
53 x = varargin{1}; 53 x = varargin{1};
54 y = varargin{2}; 54 y = varargin{2};
55 z = varargin{3}; 55 z = varargin{3};
56 endif 56 endif