Changeset 171950 in git for kernel

Timestamp:

May 23, 2008, 9:47:39 PM (16 years ago)

Author:

Christian Eder

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

fd2ac0fe419f0c1e2dfccaa96a4e48f30a1bcf9d

Parents:

e76142b26f83bd3437d1162e0498a8a2545712cb

Message:

new: interreduction


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

Location:

kernel

Files:

• f5gb.cc (modified) (2 diffs)
• f5gb.h (modified) (2 diffs)

kernel/f5gb.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: f5gb.cc,v 1.2 2008-04-29 18:34:06 ederc Exp $ */
+/* $Id: f5gb.cc,v 1.3 2008-05-23 19:47:39 ederc Exp $ */
 /*
 * ABSTRACT: f5gb interface
@@ -24 +24 @@
 
 #ifdef HAVE_F5
-ideal computeF5(ideal i, ring r)
+ideal F5main(ideal i, ring r)
 {
-  ideal res;
-        
-  Print("Hallo\n");
-  res = idInit(IDELEMS(i),i->rank);
-  for(int j=0; j<IDELEMS(i); j++)
+  ideal iTmp, g;
+  int j;      
+  iTmp = idInit(IDELEMS(i),i->rank);
+  
+  for(j=0; j<IDELEMS(i); j++)
   {
     if(NULL != i->m[j])
     {
-      res->m[j] = i->m[j];
+      iTmp->m[j] = i->m[j];
     }
   }
-  Print("Ideal i: %d \n", IDELEMS(i));mflush();
-  Print("Ideal res: %d", IDELEMS(res));mflush();
+  
+  iTmp = kInterRed(i,0);  
+  idShow(i);
+  idShow(iTmp);
+  /*for(j=0; j<IDELEMS(res); j++)
+  {
+    
 
-  return NULL;
+  return res;
+  }
+  */
 }
 #endif

kernel/f5gb.h

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: f5gb.h,v 1.2 2008-04-18 13:32:53 wienand Exp $ */
+/* $Id: f5gb.h,v 1.3 2008-05-23 19:47:39 ederc Exp $ */
 /*
 * ABSTRACT: ringgb interface
@@ -11 +11 @@
 
 #ifdef HAVE_F5
-ideal computeF5(ideal I, ring r);
+ideal F5main(ideal i, ring r);
+#endif
 #endif
 
-#endif