Mercurial > octave

comparison src/pinv.cc @ 2086:bfb775fb6fe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-04-25 05:55:19 by jwe]
author jwe
date Thu, 25 Apr 1996 05:55:19 +0000
parents 003570e69c7b
children 6abec42e52f6
comparison
equal deleted inserted replaced
2085:7603b37325db 2086:bfb775fb6fe8
34 34
35 DEFUN_DLD_BUILTIN (pinv, args, , 35 DEFUN_DLD_BUILTIN (pinv, args, ,
36 "pinv ( [, tol])\n\ 36 "pinv ( [, tol])\n\
37 Returns the pseudoinverse of X; singular values less than tol are ignored.") 37 Returns the pseudoinverse of X; singular values less than tol are ignored.")
38 { 38 {
39 Octave_object retval; 39 octave_value_list retval;
40 40
41 int nargin = args.length (); 41 int nargin = args.length ();
42 42
43 if (nargin < 1 || nargin > 2) 43 if (nargin < 1 || nargin > 2)
44 { 44 {
45 print_usage ("pinv"); 45 print_usage ("pinv");
46 return retval; 46 return retval;
47 } 47 }
48 48
49 tree_constant arg = args(0); 49 octave_value arg = args(0);
50 50
51 double tol = 0.0; 51 double tol = 0.0;
52 if (nargin == 2) 52 if (nargin == 2)
53 tol = args(1).double_value (); 53 tol = args(1).double_value ();
54 54