Mercurial > hg > octave-lyh

comparison src/svd.cc @ 712:36ba0576bd1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-09-19 14:18:15 by jwe]
author jwe
date Mon, 19 Sep 1994 14:18:48 +0000
parents 0a81458ef677
children e81d3a66725e
comparison
equal deleted inserted replaced
711:5f15ab42a631 712:36ba0576bd1b
45 { 45 {
46 Octave_object retval; 46 Octave_object retval;
47 47
48 int nargin = args.length (); 48 int nargin = args.length ();
49 49
50 if (nargin < 2 || nargin > 3 || nargout == 2 || nargout > 3) 50 if (nargin < 1 || nargin > 2 || nargout == 2 || nargout > 3)
51 { 51 {
52 print_usage ("svd"); 52 print_usage ("svd");
53 return retval; 53 return retval;
54 } 54 }
55 55
56 tree_constant arg = args(1); 56 tree_constant arg = args(0);
57 57
58 if (empty_arg ("svd", arg.rows (), arg.columns ()) < 0) 58 if (empty_arg ("svd", arg.rows (), arg.columns ()) < 0)
59 return retval; 59 return retval;
60 60
61 SVD::type type = (nargin == 3) ? SVD::economy : SVD::std; 61 SVD::type type = (nargin == 2) ? SVD::economy : SVD::std;
62 62
63 if (arg.is_real_type ()) 63 if (arg.is_real_type ())
64 { 64 {
65 Matrix tmp = arg.matrix_value (); 65 Matrix tmp = arg.matrix_value ();
66 66