Changeset e2b511 in git

Timestamp:

Jan 19, 2002, 4:48:46 PM (22 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

2d8590792119d11fdb84da502156b5d1f4aad4e7

Parents:

754c54789bebe7fb2b9556146116f630b01a6bca

Message:

added fast_map


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

Location:

Singular

Files:

• fast_maps.cc (modified) (2 diffs)
• fast_maps.h (modified) (2 diffs)
• polys0.cc (modified) (2 diffs)

Singular/fast_maps.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 02/01
- *  Version: $Id: fast_maps.cc,v 1.13 2002-01-19 14:48:15 obachman Exp $
+ *  Version: $Id: fast_maps.cc,v 1.14 2002-01-19 15:48:45 obachman Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -241 +241 @@
   omFree(m_id);
   return res;
+}
+
+
+ideal fast_map(ideal map_id, ring map_r, ideal image_id, ring image_r)
+{
+  ring src_r, dest_r;
+  maMap_CreateRings(map_id, map_r, image_id, image_r, src_r, dest_r);
+  
+  mapoly mp;
+  maideal mideal;
+  maMap_CreatePolyIdeal(map_id, map_r, src_r, dest_r, mp, mideal);
+
+  return maIdeal_2_Ideal(mideal, dest_r);
 }
 

Singular/fast_maps.h

@@ -8 +8 @@
  *           bricken (Michael Brickenstein) 
  *  Created: 01/02
- *  Version: $Id: fast_maps.h,v 1.12 2002-01-19 14:48:15 obachman Exp $
+ *  Version: $Id: fast_maps.h,v 1.13 2002-01-19 15:48:46 obachman Exp $
  *******************************************************************/
 
@@ -97 +97 @@
                        ring &src_r, ring &dest_r);
 
+// collects tthe results into an ideal and destroys maideal
 ideal maIdeal_2_Ideal(maideal ideal, ring dest_r);
+
+ideal fast_map(ideal map_id, ring map_r, ideal image_id, ring image_r);
+
 #endif
 

Singular/polys0.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys0.cc,v 1.20 2002-01-19 14:48:18 obachman Exp $ */
+/* $Id: polys0.cc,v 1.21 2002-01-19 15:48:46 obachman Exp $ */
 
 /*
@@ -21 +21 @@
 * uses form x*gen(.) if ko != coloumn number of p
 */
-void writemon(poly p, int ko, ring r)
+static void writemon(poly p, int ko, ring r)
 {
   BOOLEAN wroteCoef=FALSE,writeGen=FALSE;