Mercurial > hg > octave-lyh

comparison scripts/deprecated/spmax.m @ 7691:4a01572f4268

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add versions of removed dispatched sparse function in the deprecated directory
author David Bateman <dbateman@free.fr>
date Thu, 03 Apr 2008 17:10:15 -0400
parents
children 8e5371d47da6
comparison
equal deleted inserted replaced
7690:97e535ec65db 7691:4a01572f4268
1 ## Copyright (C) 2008 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 {Mapping Function} {} spmax (@var{x}, @var{y}, @var{dim})
21 ## @deftypefnx {Mapping Function} {[@var{w}, @var{iw}] =} spmax (@var{x})
22 ## This function has been deprecated. Use @code{max} instead.
23 ## @end deftypefn
24
25 function varargout = spmax (varargin)
26 persistent warned = false;
27 if (! warned)
28 warned = true;
29 warning ("Octave:deprecated-function",
30 ["spmax is obsolete and will be removed from a future\n",
31 "version of Octave, please use max instead"]);
32 endif
33
34 varargout = cell (nargout, 1);
35 [ varargout{:} ] = max (varargin{:});
36
37 endfunction