Mercurial > octave-nkf

changeset 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 ec4d93a11cfe
children cbd2e6016014
files src/g-builtins.cc
diffstat 1 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/g-builtins.cc	Tue Aug 10 20:09:03 1993 +0000
+++ b/src/g-builtins.cc	Tue Aug 10 20:11:05 1993 +0000
@@ -159,6 +159,24 @@
 }
 
 /*
+ * Balancing for eigenvalue problems
+ */
+tree_constant *
+builtin_balance (tree_constant *args, int nargin, int nargout)
+{
+  tree_constant *retval = NULL_TREE_CONST;
+  if (nargin <= 1 || nargin > 4 || nargout < 1 || nargout > 4)
+    usage ("[aa {,dd}] = balance (a, {opt}) or \n\
+[aa, bb {,cc, dd}] = balance (a, b {,opt}), opt = 'P' or 'S'");
+  else
+    {
+      DLD_BUILTIN (args, nargin, nargout, balance,
+		   retval = balance (args, nargin, nargout));
+    }
+  return retval;
+}
+
+/*
  * Clear the screen?
  */
 tree_constant *