Changeset f8fb471 in git

Timestamp:

Mar 5, 2010, 6:06:07 PM (13 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

fc46db6c6caaf5753ae95943e23d432236bb7b6c

Parents:

75d2965e69ba0cd0d74c5bde226f0c853f80b55a

Message:

genus for larger char.: use normal instead of normalP

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

File:

• Singular/LIB/normal.lib (modified) (1 diff)

Singular/LIB/normal.lib

@@ -2086 +2086 @@
      int pa=1-hilbPoly(J)[1];
      setring R0;
+     if (char(basering)>7)
+     {
+       list nor=normal(I,"withDelta");
+       return(pa-nor[3][2]);
+     }
+     // only for very small char.:
      list nor=normalP(I);
      return(pa-nor[2][2]);