Changeset d9d241 in git

Timestamp:

Feb 16, 2002, 11:57:54 AM (21 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

e5ae3437b397e2d9bd9d13224c6fb63ffdc2a3f3

Parents:

c3f0f3d91585b51e93bc7c20833f975907183070

Message:

*mschulze: added hessenberg eigenvalues


git-svn-id: file:///usr/local/Singular/svn/trunk@5880 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/extra.cc (modified) (5 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.176 2002-02-12 18:25:13 mschulze Exp $ */
+/* $Id: extra.cc,v 1.177 2002-02-16 10:57:54 mschulze Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -102 +102 @@
 #endif
 //#endif /* not HAVE_DYNAMIC_LOADING */
-
-// eigenvalues of constant square matrices
-#ifdef HAVE_EIGENVAL
-#include "eigenval.h"
-#endif
 
 // see clapsing.cc for a description of the `FACTORY_*' options
@@ -547 +542 @@
 #endif
 //#endif /* HAVE_DYNAMIC_LOADING */
-/*==================== eigenval =============================*/
-    if(strcmp(sys_cmd,"tridiag")==0)
-    {
-      return tridiag(res,h);
-    }
-    else
-    if(strcmp(sys_cmd,"eigenval")==0)
-    {
-      return eigenval(res,h);
-    }
-    else
 /*==================== contributors =============================*/
    if(strcmp(sys_cmd,"contributors") == 0)
@@ -652 +636 @@
 #include "mpsr.h"
 #include "mod_raw.h"
+#ifdef HAVE_EIGENVAL
+#include "eigenval.h"
+#endif
+#ifdef HAVE_GMS
 #include "gms.h"
+#endif
 
 static BOOLEAN jjEXTENDED_SYSTEM(leftv res, leftv h)
@@ -1472 +1461 @@
 #endif
 #endif
-/*==================== Gauss-Manin system normal form =================*/
-      if(strcmp(sys_cmd,"gmsnf")==0)
-      {
-        return gmsnf(res,h);
-      }
-      else
+/*==================== eigenvalues ==================================*/
+#ifdef HAVE_EIGENVAL
+    if(strcmp(sys_cmd,"hessenberg")==0)
+    {
+      return evHessenberg(res,h);
+    }
+    else
+    if(strcmp(sys_cmd,"eigenvalues")==0)
+    {
+      return evEigenvalue(res,h);
+    }
+    else
+#endif
+/*==================== Gauss-Manin system ==================================*/
+#ifdef HAVE_GMS
+    if(strcmp(sys_cmd,"gmsnf")==0)
+    {
+      return gmsNF(res,h);
+    }
+    else
+#endif
 /*==================== Error =================*/
       Werror( "system(\"%s\",...) %s", sys_cmd, feNotImplemented );