Changeset 43cbc0 in git for kernel/gring.cc

Timestamp:

Feb 23, 2009, 8:22:27 PM (15 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e8e2b6921594abbde4a1dccae43bc5f6b73440d1

Parents:

51542244f370752f7a57d84632cc1650dc8a4ed5

Message:

*levandov: massive attack of RATGRING things on BB algorithm


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

File:

• kernel/gring.cc (modified) (3 diffs)

kernel/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.68 2008-07-26 14:28:03 motsak Exp $
+ *  Version: $Id: gring.cc,v 1.69 2009-02-23 19:22:27 levandov Exp $
  *******************************************************************/
 
@@ -45 +45 @@
 #include <ncSAMult.h> // for CMultiplier etc classes
 #include <ncSAFormula.h> // for CFormulaPowerMultiplier and enum Enum_ncSAType
+
+#ifdef HAVE_RATGRING
+#include "ratgring.h"
+#endif
 
 
@@ -1896 +1900 @@
   }
 
-  poly m = p_Lcm(p1, p2, si_max(lCompP1, lCompP2), r);
+  poly m; 
+  if ( ! rIsRatGRing(currRing))
+  {
+    m = p_Lcm(p1, p2, si_max(lCompP1, lCompP2), r);
+  }
+  else
+  {
+    /* rational version */
+    m = p_LcmRat(p1, p2, si_max(lCompP1, lCompP2), r);
+  }
 
 //  n_Delete(&p_GetCoeff(m, r), r);