octave_packages/m/plot/ezmeshc.m

   1 ## Copyright (C) 2007-2012 David Bateman
   2 ##
   3 ## This file is part of Octave.
   4 ##
   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
   7 ## the Free Software Foundation; either version 3 of the License, or (at
   8 ## your option) any later version.
   9 ##
  10 ## Octave is distributed in the hope that it will be useful, but
  11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 ## General Public License for more details.
  14 ##
  15 ## You should have received a copy of the GNU General Public License
  16 ## along with Octave; see the file COPYING.  If not, see
  17 ## <http://www.gnu.org/licenses/>.
  18
  19 ## -*- texinfo -*-
  20 ## @deftypefn  {Function File} {} ezmeshc (@var{f})
  21 ## @deftypefnx {Function File} {} ezmeshc (@var{fx}, @var{fy}, @var{fz})
  22 ## @deftypefnx {Function File} {} ezmeshc (@dots{}, @var{dom})
  23 ## @deftypefnx {Function File} {} ezmeshc (@dots{}, @var{n})
  24 ## @deftypefnx {Function File} {} ezmeshc (@dots{}, 'circ')
  25 ## @deftypefnx {Function File} {} ezmeshc (@var{h}, @dots{})
  26 ## @deftypefnx {Function File} {@var{h} =} ezmeshc (@dots{})
  27 ##
  28 ## Plot the mesh and contour lines defined by a function.  @var{f} is a string,
  29 ## inline function or function handle with two arguments defining the function.
  30 ## By default the plot is over the domain @code{-2*pi < @var{x} < 2*pi} and
  31 ## @code{-2*pi < @var{y} < 2*pi} with 60 points in each dimension.
  32 ##
  33 ## If @var{dom} is a two element vector, it represents the minimum and maximum
  34 ## value of both @var{x} and @var{y}.  If @var{dom} is a four element vector,
  35 ## then the minimum and maximum value of @var{x} and @var{y} are specify
  36 ## separately.
  37 ##
  38 ## @var{n} is a scalar defining the number of points to use in each dimension.
  39 ##
  40 ## If three functions are passed, then plot the parametrically defined
  41 ## function @code{[@var{fx} (@var{s}, @var{t}), @var{fy} (@var{s}, @var{t}),
  42 ## @var{fz} (@var{s}, @var{t})]}.
  43 ##
  44 ## If the argument 'circ' is given, then the function is plotted over a disk
  45 ## centered on the middle of the domain @var{dom}.
  46 ##
  47 ## The optional return value @var{h} is a 2-element vector with a graphics
  48 ## handle for the created mesh plot and a second handle for the created contour
  49 ## plot.
  50 ##
  51 ## @example
  52 ## @group
  53 ## f = @@(x,y) sqrt (abs (x .* y)) ./ (1 + x.^2 + y.^2);
  54 ## ezmeshc (f, [-3, 3]);
  55 ## @end group
  56 ## @end example
  57 ##
  58 ## @seealso{ezplot, ezsurfc, ezsurf, ezmesh}
  59 ## @end deftypefn
  60
  61 function retval = ezmeshc (varargin)
  62
  63   [h, needusage] = __ezplot__ ("meshc", varargin{:});
  64
  65   if (needusage)
  66     print_usage ();
  67   endif
  68
  69   if (nargout > 0)
  70     retval = h;
  71   endif
  72 endfunction
  73
  74
  75 %!demo
  76 %! clf
  77 %! f = @(x,y) sqrt(abs(x .* y)) ./ (1 + x.^2 + y.^2);
  78 %! ezmeshc (f, [-3, 3]);
  79