Changeset 62c2b0 in git for Singular/LIB/hnoether.lib

Timestamp:

May 4, 2011, 7:50:18 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

09e1962946e10c4055338a99e025082254b7dbf0

Parents:

67803ecd35bc4dd74c768bc01e2b8fc76697c8b3

Message:

se div instead of /, part 4 (last part)


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

File:

• Singular/LIB/hnoether.lib (modified) (3 diffs)

Singular/LIB/hnoether.lib

@@ -778 +778 @@
       else {                   // e%p == 0
         eps = e;
-        for (l = 0; eps%p == 0; l=l+1) { eps=eps/ p;}
+        for (l = 0; eps%p == 0; l=l+1) { eps=eps div p;}
         if (defined(HNDebugOn)) {e," -> ",eps,"*",p,"^",l;}
         delt = koeff(f,(M div e)*p^l,(N div e)*p^l*(eps-1)) / (-1*eps*c);
@@ -1265 +1265 @@
  INV[2];                   // the generators of the semigroup of values
  INV[3],INV[4];            // the Puiseux pairs in packed form
- INV[5] / 2;               // the delta-invariant
+ INV[5] div 2;             // the delta-invariant
  INV[6];                   // the sequence of multiplicities
                            // To display the invariants more 'nicely':
@@ -2652 +2652 @@
    else {
      eps = e;
-     for (l = 0; eps%p == 0; l=l+1) { eps=eps/ p;}
+     for (l = 0; eps%p == 0; l=l+1) { eps=eps div p;}
      if (defined(HNDebugOn)) {e," -> ",eps,"*",p,"^",l;}
      delt = koeff(f,(M div e)*p^l,(N div e)*p^l*(eps-1)) / (-1*eps*c);