Changeset 121d2ae in git for Singular/extra.cc

Timestamp:

Apr 30, 2013, 3:28:20 PM (10 years ago)

Author:

Martin Lee <martinlee84@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

ed95e6148ac6926aac6e83629cf4545c5c95a7a7

Parents:

770da2d46f8a15e6de2ab495b0bf7d7d276d98c4

git-author:

Martin Lee <martinlee84@web.de>2013-04-30 15:28:20+02:00

git-committer:

Martin Lee <martinlee84@web.de>2013-05-02 11:42:48+02:00

Message:

chg: added new system command "absBiFact"

File:

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

Singular/extra.cc

@@ -3683 +3683 @@
       }
       else
+  /*================= absBiFact ======================*/
+      if (strcmp(sys_cmd, "absBiFact") == 0)
+      {
+        if (h!=NULL)
+        {
+          res->rtyp=LIST_CMD;
+          if (h->Typ()==POLY_CMD)
+          {
+            intvec *v=NULL;
+            ideal mipos= NULL;
+            int n= 0;
+            ideal f=singclap_absBiFactorize((poly)(h->Data()), mipos, &v, n, currRing);
+            if (f==NULL) return TRUE;
+            ivTest(v);
+            lists l=(lists)omAllocBin(slists_bin);
+            l->Init(4);
+            l->m[0].rtyp=IDEAL_CMD;
+            l->m[0].data=(void *)f;
+            l->m[1].rtyp=INTVEC_CMD;
+            l->m[1].data=(void *)v;
+            l->m[2].rtyp=IDEAL_CMD;
+            l->m[2].data=(void*) mipos;
+            l->m[3].rtyp=INT_CMD;
+            l->m[3].data=(void*) (long) n;
+            res->data=(void *)l;
+            return FALSE;
+          }
+          else return TRUE;
+        }
+        else return TRUE;
+      }
+      else
       #endif
   /*================= probIrredTest ======================*/