# HG changeset patch
# User jwe
# Date 745022059 0
# Node ID 53764ee8f3583acc0e890c140aa4f1c938578265
# Parent  f3215b07c171d45a223c4e448dee3dfd5a2a5577
[project @ 1993-08-10 22:34:19 by jwe]

diff -r f3215b07c171 -r 53764ee8f358 src/builtins.cc
--- a/src/builtins.cc	Tue Aug 10 22:33:20 1993 +0000
+++ b/src/builtins.cc	Tue Aug 10 22:34:19 1993 +0000
@@ -467,6 +467,9 @@
   { "quit", 1, 0, builtin_quit,
     "exit Octave gracefully\n", },
 
+  { "qzval", 3, 1, builtin_qzval,
+    "x = qzval(a,b): compute generalized eigenvalues \n", },
+
   { "rand", 2, 1, builtin_rand,
     "matrices with random elements\n", },
 
diff -r f3215b07c171 -r 53764ee8f358 src/g-builtins.cc
--- a/src/g-builtins.cc	Tue Aug 10 22:33:20 1993 +0000
+++ b/src/g-builtins.cc	Tue Aug 10 22:34:19 1993 +0000
@@ -1279,6 +1279,24 @@
 }
 
 /*
+ * generalized eigenvalues via qz
+ */
+tree_constant *
+builtin_qzval (tree_constant *args, int nargin, int nargout)
+{
+  tree_constant *retval = NULL_TREE_CONST;
+
+  if (nargin == 3 && nargout < 2)
+    DLD_BUILTIN (args, nargin, nargout, qzvalue,
+		 retval = qzvalue (args, nargin, nargout);)
+  else
+    usage ("x = qzval (A,B): compute generalized eigenvalues of \n\
+  the matrix pencil (A - lambda B).  A and B must be real matrices.\n");
+
+  return retval;
+}
+
+/*
  * Random numbers.
  */
 tree_constant *
diff -r f3215b07c171 -r 53764ee8f358 src/g-builtins.h
--- a/src/g-builtins.h	Tue Aug 10 22:33:20 1993 +0000
+++ b/src/g-builtins.h	Tue Aug 10 22:34:19 1993 +0000
@@ -100,6 +100,7 @@
 extern tree_constant *builtin_qr (tree_constant *, int, int);
 extern tree_constant *builtin_quad (tree_constant *, int, int);
 extern tree_constant *builtin_quit (tree_constant *, int, int);
+extern tree_constant *builtin_qzval (tree_constant *, int, int);
 extern tree_constant *builtin_rand (tree_constant *, int, int);
 extern tree_constant *builtin_replot (tree_constant *, int, int);
 extern tree_constant *builtin_setstr (tree_constant *, int, int);