Mercurial > hg > octave-nkf

comparison scripts/plot/__contour__.m @ 7208:a730e47fda4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-28 02:32:41 by jwe]
author jwe
date Wed, 28 Nov 2007 02:32:42 +0000
parents b48a21816f2e
children 11c5f1ee553e
comparison
equal deleted inserted replaced
7207:71c03c7239fb 7208:a730e47fda4d
18 18
19 ## Undocumented internal function. 19 ## Undocumented internal function.
20 20
21 function [c, h] = __contour__ (varargin) 21 function [c, h] = __contour__ (varargin)
22 22
23 ax = varargin {1}; 23 ax = varargin{1};
24 z = varargin {2}; 24 z = varargin{2};
25 25
26 if (ischar (z)) 26 if (ischar (z))
27 if (strcmp (z, "none")) 27 if (strcmp (z, "none"))
28 z = NaN; 28 z = NaN;
29 elseif (strcmp (z, "base")) 29 elseif (strcmp (z, "base"))
30 if (nargin == 1) 30 if (nargin == 1)
31 z = varargin {1}; 31 z = varargin{1};
32 else 32 else
33 z = varargin {3}; 33 z = varargin{3};
34 endif 34 endif
35 z = 2 * (min (z(:)) - max (z(:))); 35 z = 2 * (min (z(:)) - max (z(:)));
36 elseif (! strcmp (z, "level")) 36 elseif (! strcmp (z, "level"))
37 error ("unrecognized z argument"); 37 error ("unrecognized z argument");
38 endif 38 endif