Changeset c33a45 in git for Singular/extra.cc

Timestamp:

Mar 2, 2017, 4:12:22 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

77ba486a2bb537dad7c328a5710ec099c240c06f

Parents:

dc29160a567b9e04c172ea21b48f03a654afd0a8

Message:

add: mp_Tensor for Kronecker product of 2 matrices given as modules

File:

• Singular/extra.cc (modified) (1 diff)

Singular/extra.cc

@@ -3834 +3834 @@
     }
     else
+/*==================== tensor =================*/
+    if(strcmp(sys_cmd,"tensor")==0)
+    {
+      if ((h->Typ()==MODUL_CMD)
+      && (h->next!=NULL)
+      && (h->next->Typ()==MODUL_CMD))
+      {
+        res->data=(void*)mp_Tensor((ideal)h->Data(),(ideal)h->next->Data(),currRing);
+        res->rtyp=MODUL_CMD;
+        return FALSE;
+      }
+      else
+        return TRUE;
+    }
+    else
 /*==================== power* ==================================*/
     #if 0