Changeset a204ea in git

Timestamp:

Jul 19, 1999, 12:50:43 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

460c1e191b2029d71d3c85f849b12944b8be0afa

Parents:

ee118eb43d8892eda3751061decc3bba5e1c72b9

Message:

*hannes: preimage works now also for qrings (maGetPreimage)


git-svn-id: file:///usr/local/Singular/svn/trunk@3291 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Singular/maps.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: maps.cc,v 1.15 1999-07-13 15:06:52 Singular Exp $ */
+/* $Id: maps.cc,v 1.16 1999-07-19 10:50:43 Singular Exp $ */
 /*
 * ABSTRACT - the mapping of polynomials to other rings
@@ -249 +249 @@
   else
     j = IDELEMS(id);
+  int j0=j;
+  if (theImageRing->qideal!=NULL) j+=IDELEMS(theImageRing->qideal);
   temp1 = idInit(sourcering->N+j,1);
   for (i=0;i<sourcering->N;i++)
@@ -267 +269 @@
     temp1->m[i] = p;
   }
-  for (i=sourcering->N;i<sourcering->N+j;i++)
+  for (i=sourcering->N;i<sourcering->N+j0;i++)
   {
     temp1->m[i] = pChangeSizeOfPoly(theImageRing,
                                     id->m[i-sourcering->N],1,imagepvariables);
+  }
+  for (i=sourcering->N+j0;i<sourcering->N+j;i++)
+  {
+    temp1->m[i] = pChangeSizeOfPoly(theImageRing,
+                                    theImageRing->qideal->m[i-sourcering->N-j0],
+                                    1,imagepvariables);
   }
   // we ignore here homogenity - may be changed later: