Mercurial > hg > octave-lyh

annotate scripts/deprecated/splu.m @ 7712:a626db2e8a1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
view: get values from current axes if nargin == 0
author John W. Eaton <jwe@octave.org>
date Tue, 15 Apr 2008 16:30:09 -0400
parents 1cdb42b372e8
children e07e93c04080
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7691
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
1 ## Copyright (C) 2008 David Bateman
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 {Loadable Function} {[@var{l}, @var{u}] =} splu (@var{a})
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
21 ## @deftypefnx {Loadable Function} {[@var{l}, @var{u}, @var{P}] =} splu (@var{a})
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
22 ## @deftypefnx {Loadable Function} {[@var{l}, @var{u}, @var{P}, @var{Q}] =} splu (@var{a})
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
23 ## @deftypefnx {Loadable Function} {[@var{l}, @var{u}, @var{P}, @var{Q}] =} splu (@dots{}, @var{thres})
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
24 ## @deftypefnx {Loadable Function} {[@var{l}, @var{u}, @var{P}] =} splu (@dots{}, @var{Q})
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
25 ## This function has been deprecated. Use @code{lu} instead.
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
26 ## @end deftypefn
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
27
7693
8e5371d47da6 note version when functions were deprecated
John W. Eaton <jwe@octave.org>
parents: 7691
diff changeset
28 ## Deprecated in version 3.1
8e5371d47da6 note version when functions were deprecated
John W. Eaton <jwe@octave.org>
parents: 7691
diff changeset
29
7691
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
30 function varargout = splu (varargin)
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
31 persistent warned = false;
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
32 if (! warned)
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
33 warned = true;
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
34 warning ("Octave:deprecated-function",
7704
1cdb42b372e8 don't embed newline in warning messages in deprecated functions
John W. Eaton <jwe@octave.org>
parents: 7693
diff changeset
35 "splu is obsolete and will be removed from a future version of Octave; please use lu instead");
7691
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
36 endif
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
37
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
38 for i = 2 : nargin
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
39 arg = varargin {i};
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
40 if (! isscalar (arg))
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
41 error ("splu: Can no longer treat input column permutations.");
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
42 endif
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
43 endfor
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
44
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
45 varargout = cell (nargout, 1);
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
46 [ varargout{:} ] = lu (varargin{:});
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
47
4a01572f4268 Add versions of removed dispatched sparse function in the deprecated directory
David Bateman <dbateman@free.fr>
parents:
diff changeset
48 endfunction