Changeset 92dfcf in git

Timestamp:

Jan 19, 2002, 1:43:40 PM (22 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4f4eb5c00670f6ea7f8545bf784c9187045b4f97

Parents:

cb7578a9034f20d08a92cd05938a6eb9b7ce86ed

Message:

* added maIdeal_2_Ideal


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

Location:

Singular

Files:

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

Singular/fast_maps.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 02/01
- *  Version: $Id: fast_maps.cc,v 1.7 2002-01-19 12:29:32 obachman Exp $
+ *  Version: $Id: fast_maps.cc,v 1.8 2002-01-19 12:43:39 obachman Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -228 +228 @@
 }
 
+
+ideal maIdeal_2_Ideal(maideal m_id, ring dest_r)
+{
+  ideal res = idInit(m_id->n);
+  int l;
+  
+  for (int i= 0; i < m_id->n; i++)
+  {
+    sBucketDestroyMerge(mid->buckets[i], &(res->m[i]), &l);
+  }
+  return res;
+}
 
 #if 0

Singular/fast_maps.h

@@ -8 +8 @@
  *           bricken (Michael Brickenstein) 
  *  Created: 01/02
- *  Version: $Id: fast_maps.h,v 1.7 2002-01-19 12:29:32 obachman Exp $
+ *  Version: $Id: fast_maps.h,v 1.8 2002-01-19 12:43:40 obachman Exp $
  *******************************************************************/
 
@@ -80 +80 @@
 
 // evaluates mpoly and destroys it, on the fly
-mapoly maPoly_Eval(mapoly mpoly, ring src_r, poly* dest_id, ring dest_r);
+void maPoly_Eval(mapoly mpoly, ring src_r, poly* dest_id, ring dest_r);
 
 // creates mpoly and  mideal
@@ -91 +91 @@
                        ring &src_r, ring &dest_r);
 
+ideal maIdeal_2_Ideal(maideal ideal);
 
 
 
+