Mercurial > hg > octave-lyh

comparison scripts/deprecated/krylovb.m @ 11540:b0ef6f28e09a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
deprecate krylovb function
author John W. Eaton <jwe@octave.org>
date Sat, 15 Jan 2011 03:40:32 -0500
parents scripts/linear-algebra/krylovb.m@fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11539:6bac61388876 11540:b0ef6f28e09a
1 ## Copyright (C) 1993-2011 A. Scottedward Hodel
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 {Function File} {[@var{u}, @var{ucols}] =} krylovb (@var{A}, @var{V}, @var{k}, @var{eps1}, @var{pflg})
21 ## See @code{krylov}.
22 ## @end deftypefn
23
24 ## Deprecated in version 3.4
25
26 function [Uret, Ucols] = krylovb (A, V, k, eps1, pflg)
27
28 persistent warned = false;
29 if (! warned)
30 warned = true;
31 warning ("Octave:deprecated-function",
32 "krylovb is obsolete and will be removed from a future version of Octave; please use [Uret, ~, Ucols] = krylov (...) instead");
33 endif
34
35 switch (nargin)
36 case (3)
37 [Uret, H, Ucols] = krylov (A, V, k);
38 case (4)
39 [Uret, H, Ucols] = krylov (A, V, k, eps1);
40 case (5)
41 [Uret, H, Ucols] = krylov (A, V, k, eps1, pflg);
42 otherwise
43 print_usage ();
44 endswitch
45
46 endfunction