Changeset d8e71a in git for Singular

Timestamp:

Aug 25, 2022, 11:43:42 AM (20 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

aaa2126025a96fdc04e3b30a2afd09f23a3bd228

Parents:

2d1047928fc91699976942d5b18b0096edd8439e

Message:

add CoeffTerm(<vector>,<ideal>)

File:

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

Singular/extra.cc

@@ -3971 +3971 @@
       const short t5[]={2,VECTOR_CMD,POLY_CMD};
       const short t6[]={2,MODUL_CMD,POLY_CMD};
+      const short t7[]={2,VECTOR_CMD,IDEAL_CMD};
       if (iiCheckTypes(h,t1,0)
       || iiCheckTypes(h,t2,0))
@@ -4003 +4004 @@
         res->data=id_CoeffTermV(p,q,currRing);
         res->rtyp=MODUL_CMD;
+        return FALSE;
+      }
+      else if (iiCheckTypes(h,t7,0)) /* vector,ideal*/
+      {
+        poly p=(poly)h->Data();
+        ideal q=(ideal)h->next->Data();
+        res->data=p_CoeffTermId(p,q,p_MaxComp(p,currRing),currRing);
+        res->rtyp=VECTOR_CMD;
         return FALSE;
       }