Changeset 08c051 in git

Timestamp:

Aug 9, 2004, 6:55:54 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

394dad95e90d48ebfcb18242e46a0d62f4c1e448

Parents:

44f44d4d66938c7ce97122658bd25e0434ecd70a

Message:

*hannes: fix rOpp


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

File:

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

kernel/ring.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ring.cc,v 1.14 2004-08-09 16:16:01 Singular Exp $ */
+/* $Id: ring.cc,v 1.15 2004-08-09 16:55:54 Singular Exp $ */
 
 /*
@@ -3469 +3469 @@
   for(int i=i2; i>=0; i--)
   {
-    //Print("ex: %d <-> %d\n",i,rVar(r)-1-i);
+    // index: 0..N-1
+    //Print("ex var names: %d <-> %d\n",i,rVar(r)-1-i);
     // exchange names
     char *p;
-    int t;
     p=r->names[rVar(r)-1-i];
     r->names[rVar(r)-1-i]=r->names[i];
     r->names[i]=p;
+  }
+  i2=(rVar(r)+1)/2;
+  for(int i=i2; i>0; i--)
+  {
+    // index: 1..N
+    //Print("ex var places: %d <-> %d\n",i,rVar(r)+1-i);
     // exchange VarOffset
+    int t;
     t=r->VarOffset[i];
-    r->VarOffset[i]=r->VarOffset[rVar(r)-1-i];
-    r->VarOffset[rVar(r)-1-i]=t;
+    r->VarOffset[i]=r->VarOffset[rVar(r)+1-i];
+    r->VarOffset[rVar(r)+1-i]=t;
   }
   // change names:
@@ -3540 +3547 @@
   r->block0[0]=1;
   r->block1[0]=rVar(r);
+  r->order[1]=0;
   rDebugPrint(r);
   return r;