Mercurial > octave-nkf
view scripts/plot/__plt1__.m @ 6146:1a6d826e92b5
[project @ 2006-11-09 03:13:11 by jwe]
author | jwe |
---|---|
date | Thu, 09 Nov 2006 03:15:23 +0000 |
parents | 34f96dd5441b |
children | 44c91c5dfe1d |
line wrap: on
line source
## Copyright (C) 1996, 1997 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 2, 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, write to the Free ## Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ## 02110-1301, USA. ## -*- texinfo -*- ## @deftypefn {Function File} {[data, fmtstr] =} __plt1__ (@var{x1}, @var{fmt}) ## @end deftypefn ## Author: jwe function [data, fmtstr, key] = __plt1__ (x1, fmt, keystr) if (nargin < 1 || nargin > 3 || nargout < 2 || nargout > 3) print_usage (); endif if (nargin < 2) fmt = {""}; endif if (nargin < 3) keystr = {""}; endif if (! iscellstr (fmt)) error ("__plt1__: fmt must be a cell array of character strings"); endif if (! iscell (keystr)) error ("__plt1__: fmt must be a cell array"); endif [nr, nc] = size (x1); if (nr == 1) x1 = x1.'; tmp = nr; nr = nc; nc = tmp; endif x1_i = imag (x1); if (any (any (x1_i))) x2 = x1_i; x1 = real (x1); else x2 = x1; x1 = (1:nr)'; endif [data, fmtstr, key] = __plt2__ (x1, x2, fmt, keystr); endfunction