Mercurial > hg > octave-lyh

annotate scripts/deprecated/spcumprod.m @ 11188:4cb1522e4d0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use function handle as input to cellfun, rather than quoted function name or anonymous function wrapper.
author Rik <octave@nomad.inbox5.com>
date Wed, 03 Nov 2010 17:20:56 -0700
parents 95c3e38098bf
children fd0a3ac60b0e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
8920
eb63fbe60fab update copyright notices
John W. Eaton <jwe@octave.org>
parents: 8818
diff changeset
1 ## Copyright (C) 2008, 2009 David Bateman
7691
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
2 ##
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
3 ## This file is part of Octave.
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
4 ##
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
6 ## under the terms of the GNU General Public License as published by
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
7 ## the Free Software Foundation; either version 3 of the License, or (at
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
8 ## your option) any later version.
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
9 ##
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
13 ## General Public License for more details.
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
14 ##
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
15 ## You should have received a copy of the GNU General Public License
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
17 ## <http://www.gnu.org/licenses/>.
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
18
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
19 ## -*- texinfo -*-
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
20 ## @deftypefn {Function File} {} spcumprod (@var{x}, @var{dim})
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
21 ## This function has been deprecated. Use @code{cumprod} instead.
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
22 ## @end deftypefn
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
23
8818
8dee145c777d fix "Deprecated in version" comments in deprecated fuctions
John W. Eaton <jwe@octave.org>
parents: 7704
diff changeset
24 ## Deprecated in version 3.2
7693
8e5371d47da6 note version when functions were deprecated
John W. Eaton <jwe@octave.org>
parents: 7691
diff changeset
25
7691
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
26 function retval = spcumprod (varargin)
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
27 persistent warned = false;
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
28 if (! warned)
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
29 warned = true;
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
30 warning ("Octave:deprecated-function",
10549
95c3e38098bf Untabify .m scripts
Rik <code@nomad.inbox5.com>
parents: 8920
diff changeset
31 "spcumprod is obsolete and will be removed from a future version of Octave; please use cumprod instead");
7691
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
32 endif
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
33
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
34 retval = cumprod (varargin{:});
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
35
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
36 endfunction