Mercurial > octave-nkf
view scripts/plot/pcolor.m @ 7109:5436efbf35e3
[project @ 2007-11-06 22:16:25 by jwe]
author | jwe |
---|---|
date | Tue, 06 Nov 2007 22:16:25 +0000 |
parents | |
children | 0e63f1126f01 |
line wrap: on
line source
## Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2002, 2004, ## 2005, 2006, 2007 John W. Eaton ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function File} {} pcolor (@var{x}, @var{y}, @var{c}) ## @deftypefnx {Function File} {} pcolor (@var{c}) ## Density plot for given matrices @var{x}, and @var{y} from @code{meshgrid} and ## a matrix @var{c} corresponding to the @var{x} and @var{y} coordinates of ## the mesh. If @var{x} and @var{y} are vectors, then a typical vertex ## is (@var{x}(j), @var{y}(i), @var{c}(i,j)). Thus, columns of @var{c} ## correspond to different @var{x} values and rows of @var{c} correspond ## to different @var{y} values. ## @seealso{meshgrid, contour} ## @end deftypefn ## Author: jwe function h = pcolor (x,y,c) newplot (); if (nargin == 1) C = x; Z = zeros(size(C)); [nr, nc] = size(C); [X, Y] = meshgrid(1:nr, 1:nc); elseif (nargin == 3) Z = zeros(size(C)); else print_usage(); end; tmp = surface (X,Y,Z,C); ax = get(tmp, "parent"); set (tmp, "FaceColor", "flat"); set (ax, "view", [0, 90]); if (nargout > 0) h = tmp; endif endfunction