Changeset cbf3ab0 in git for Singular/maps_ip.cc

Timestamp:

Oct 12, 2023, 10:35:13 AM (7 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

f82517351fcbe145fc0e5dc34be24174af144e8f

Parents:

3088df2fdfc01cfccfb77bf6a17dad423b1bfa13

Message:

add id_PermIdeal

File:

• Singular/maps_ip.cc (modified) (3 diffs)

Singular/maps_ip.cc

@@ -170 +170 @@
       int C=((matrix)data)->cols();
       int R;
+      matrix m=NULL;
       if (w->rtyp==MAP_CMD) R=1;
       else R=((matrix)data)->rows();
-      matrix m=mpNew(R,C);
       char *tmpR=NULL;
       if(w->rtyp==MAP_CMD)
@@ -186 +186 @@
          )
       {
+        m=mpNew(R,C);
         for (i=R*C-1;i>=0;i--)
         {
@@ -194 +195 @@
       else if ((what==IMAP_CMD) || (what==FETCH_CMD))
       {
-        for (i=R*C-1;i>=0;i--)
-        {
-          m->m[i]=p_PermPoly(((ideal)data)->m[i],perm,preimage_r,currRing,
-                          nMap,par_perm,P,use_mult);
-          pTest(m->m[i]);
-        }
+        m=(matrix)id_PermIdeal((ideal)data,R,C,perm,preimage_r,currRing,
+                                    nMap,par_perm,P,use_mult);
       }
       else /* (what==MAP_CMD) */
       {
         assume(what==MAP_CMD);
+        m=mpNew(R,C);
         matrix s=mpNew(N,maMaxDeg_Ma((ideal)data,preimage_r));
         for (i=R*C-1;i>=0;i--)