Changeset 9ae5a3 in git for Singular/maps_ip.cc

Timestamp:

May 1, 2018, 3:33:42 PM (6 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

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

Children:

216f06ee7f80913e6ca48a862d43e0f3a02be9f4

Parents:

9922fa723f8d8897179b004e96357ea3d9a9a7e8

Message:

add: polyBucket stuff

File:

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

Singular/maps_ip.cc

@@ -125 +125 @@
       }
       break;
+    case BUCKET_CMD:
+      if ((what==FETCH_CMD)&& (preimage_r->cf==currRing->cf))
+        res->data=(void *)prCopyR(sBucketPeek((sBucket_pt)data), preimage_r, currRing);
+      else
+        if ( (what==IMAP_CMD) || /*(*/ (what==FETCH_CMD) /*)*/) /* && (nMap!=nCopy)*/
+        res->data=(void *)p_PermPoly(sBucketPeek((sBucket_pt)data),perm,preimage_r,currRing, nMap,par_perm,P,use_mult);
+      else /*if (what==MAP_CMD)*/
+      {
+        matrix s=mpNew(N,maMaxDeg_P(sBucketPeek((sBucket_pt)data), preimage_r));
+        res->data=(void *)maEval(theMap, sBucketPeek((sBucket_pt)data), preimage_r, nMap, (ideal)s, currRing);
+        idDelete((ideal *)&s);
+      }
+      if (nCoeff_is_Extension(currRing->cf))
+        res->data=(void *)p_MinPolyNormalize(sBucketPeek((sBucket_pt)data), currRing);
+      break;
     case POLY_CMD:
     case VECTOR_CMD: