Mercurial > octave

comparison src/schur.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
48 \n\ 48 \n\
49 A = continuous time poles\n\ 49 A = continuous time poles\n\
50 D = discrete time poles\n\ 50 D = discrete time poles\n\
51 U = unordered schur (default)") 51 U = unordered schur (default)")
52 { 52 {
53 Octave_object retval; 53 octave_value_list retval;
54 54
55 int nargin = args.length (); 55 int nargin = args.length ();
56 56
57 if (nargin < 1 || nargin > 2 || nargout > 2) 57 if (nargin < 1 || nargin > 2 || nargout > 2)
58 { 58 {
59 print_usage ("schur"); 59 print_usage ("schur");
60 return retval; 60 return retval;
61 } 61 }
62 62
63 tree_constant arg = args(0); 63 octave_value arg = args(0);
64 64
65 string ord; 65 string ord;
66 66
67 if (nargin == 2) 67 if (nargin == 2)
68 { 68 {
91 int arg_is_empty = empty_arg ("schur", nr, nc); 91 int arg_is_empty = empty_arg ("schur", nr, nc);
92 92
93 if (arg_is_empty < 0) 93 if (arg_is_empty < 0)
94 return retval; 94 return retval;
95 else if (arg_is_empty > 0) 95 else if (arg_is_empty > 0)
96 return Octave_object (2, Matrix ()); 96 return octave_value_list (2, Matrix ());
97 97
98 if (nr != nc) 98 if (nr != nc)
99 { 99 {
100 gripe_square_matrix_required ("schur"); 100 gripe_square_matrix_required ("schur");
101 return retval; 101 return retval;