Changeset 1b36de3 in git for Singular/LIB/hnoether.lib

Timestamp:

Dec 13, 2000, 9:55:14 PM (23 years ago)

Author:

Martin Lamm <lamm@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

cf8dcc3a44f401ab4c54ac417f5d44e39e834353

Parents:

2c2db37cb61af0e417d395151cd3c532d9ff1482

Message:

develop now works also with rings having parameter of the form a(1)


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

File:

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

Singular/LIB/hnoether.lib

@@ -1 @@
-// $Id: hnoether.lib,v 1.23 2000-12-04 18:16:24 Singular Exp $
-// last change:           27.04.00
+// $Id: hnoether.lib,v 1.24 2000-12-13 20:55:14 lamm Exp $
+// last change:           31.08.00
 ///////////////////////////////////////////////////////////////////////////////
 // This library is for Singular 1-3-7 or newer
 
-version="$Id: hnoether.lib,v 1.23 2000-12-04 18:16:24 Singular Exp $";
+version="$Id: hnoether.lib,v 1.24 2000-12-13 20:55:14 lamm Exp $";
 info="
 LIBRARY:  hnoether.lib   Procedures for the Hamburger-Noether (Puiseux) development
@@ -591 +591 @@
  if ((p!=0) and (ringchar != string(p))) {
                             // coefficient field is extension of Z/pZ
-   execute("int n_elements="+ringchar[1,size(ringchar)-2]+";");
+   execute("int n_elements="+
+           ringchar[1,size(ringchar)-size(parstr(basering))-1]+";");
                             // number of elements of actual ring
    number generat=par(1);   // generator of the coefficient field of the ring