Changeset 530df5 in git

Timestamp:

May 19, 2015, 10:56:09 AM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

70be3ab9933c699a3968a0323aa492c9fd6a025e

Parents:

8f97981a9daeadcd937dd52102d0017658247798

Message:

test-impl. for LU for bigintmat/cmatrix

File:

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

Singular/extra.cc

@@ -65 +65 @@
 #include <polys/weight.h>
 
-
+#include <coeffs/bigintmat.h>
 #include <kernel/fast_mult.h>
 #include <kernel/digitech.h>
@@ -3747 +3747 @@
     }
     else
+/*==================== LU for bigintmat =================*/
+#ifdef SINGULAR_4_1
+    if(strcmp(sys_cmd,"LU")==0)
+    {
+      if ((h!=NULL) && (h->Typ()==CMATRIX_CMD))
+      {
+        // get the argument:
+        bigintmat *b=(bigintmat *)h->Data();
+        // just for tests: simply transpose
+        bigintmat *bb=b->transpose();
+        // return the result:
+        res->rtyp=CMATRIX_CMD;
+        res->data=(char*)bb;
+        return FALSE;
+      }
+      else
+      {
+        WerrorS("system(\"LU\",<cmatrix>) expected");
+        return TRUE;
+      }
+    }
+    else
+#endif    
 /*==================== Error =================*/
       Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );