Changeset 43cbc0 in git for kernel/gr_kstd2.cc

Timestamp:

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

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

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/gr_kstd2.cc (modified) (2 diffs)

kernel/gr_kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gr_kstd2.cc,v 1.28 2009-02-23 11:26:29 Singular Exp $ */
+/* $Id: gr_kstd2.cc,v 1.29 2009-02-23 19:22:27 levandov Exp $ */
 /*
 *  ABSTRACT -  Kernel: noncomm. alg. of Buchberger
@@ -1123 +1123 @@
 //        }
 
-      strat->P.p = nc_CreateSpoly(strat->P.p1,strat->P.p2,currRing);
+      
+      if( ! rIsRatGRing(currRing) )
+      { 
+        strat->P.p = nc_CreateSpoly(strat->P.p1,strat->P.p2,currRing);
+      }
+      else
+      {
+        /* rational case */
+        strat->P.p = nc_rat_CreateSpoly(strat->P.p1,strat->P.p2,currRing->real_var_start-1,currRing);
+      }
+
 
 #ifdef PDEBUG