Changeset d781a2 in git

Timestamp:

May 5, 2008, 2:13:10 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '873fc1222e995d7cb33f79d8f1792ce418c8c72c')

Children:

751bfd1896248f7cbfab7d7920a96d580dda7f3f

Parents:

6ab785eb44b3e4a89b14dbcdbb18c17151903957

Message:

*hannes: SVD stuff


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

Location:

Singular

Files:

• calcSVD.cc (added)
• extra.cc (modified) (2 diffs)

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.267 2008-04-25 13:14:02 ederc Exp $ */
+/* $Id: extra.cc,v 1.268 2008-05-05 12:13:10 Singular Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2452 +2452 @@
     }
     else
+/*==================== SVD =================*/
+#ifdef HAVE_SVD
+     if (strcmp(sys_cmd, "svd") == 0)
+     {
+          extern lists testsvd(matrix M);
+            res->rtyp=LIST_CMD;
+          res->data=(char*)(testsvd((matrix)h->Data()));
+          return FALSE;
+     }
+     else
+#endif
 #ifdef ix86_Win
 #ifdef HAVE_DL