Mercurial > octave

comparison src/g-builtins.cc @ 18:15a1c5152f3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-10 20:11:05 by jwe] (builtin_balance): New function.
author jwe
date Tue, 10 Aug 1993 20:11:05 +0000
parents c9d293a496cf
children 9239bd2337bb
comparison
equal deleted inserted replaced
17:ec4d93a11cfe 18:15a1c5152f3d
152 if (args != NULL_TREE_CONST && args[1].is_defined ()) 152 if (args != NULL_TREE_CONST && args[1].is_defined ())
153 { 153 {
154 retval = new tree_constant [2]; 154 retval = new tree_constant [2];
155 retval[0] = args[1].any (); 155 retval[0] = args[1].any ();
156 } 156 }
157 }
158 return retval;
159 }
160
161 /*
162 * Balancing for eigenvalue problems
163 */
164 tree_constant *
165 builtin_balance (tree_constant *args, int nargin, int nargout)
166 {
167 tree_constant *retval = NULL_TREE_CONST;
168 if (nargin <= 1 || nargin > 4 || nargout < 1 || nargout > 4)
169 usage ("[aa {,dd}] = balance (a, {opt}) or \n\
170 [aa, bb {,cc, dd}] = balance (a, b {,opt}), opt = 'P' or 'S'");
171 else
172 {
173 DLD_BUILTIN (args, nargin, nargout, balance,
174 retval = balance (args, nargin, nargout));
157 } 175 }
158 return retval; 176 return retval;
159 } 177 }
160 178
161 /* 179 /*