Changeset 3a62db in git

Timestamp:

Jan 12, 2000, 11:35:01 AM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

4da7f5fdc06b69ca7c96356ff3ede2331ce09aec

Parents:

7b309413ac65df3eb20dbda746a69598a7a8c2c8

Message:

* GMG's version of numerator/denominator


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

File:

• Singular/LIB/poly.lib (modified) (4 diffs)

Singular/LIB/poly.lib

@@ -1 @@
-// $Id: poly.lib,v 1.23 2000-01-10 16:40:41 obachman Exp $
+// $Id: poly.lib,v 1.24 2000-01-12 10:35:01 obachman Exp $
 //(GMG, last modified 22.06.96)
 //(obachman: 17.12.97 -- added katsura)
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: poly.lib,v 1.23 2000-01-10 16:40:41 obachman Exp $";
+version="$Id: poly.lib,v 1.24 2000-01-12 10:35:01 obachman Exp $";
 info="
 LIBRARY:  poly.lib      PROCEDURES FOR MANIPULATING POLYS, IDEALS, MODULES
@@ -684 +684 @@
 ///////////////////////////////////////////////////////////////////////////////
 
+
 proc numerator(number n)
-"USAGE: numerator(n); n number
-RETURN: number, the numerator of n
+"USAGE:    numerator(n); n number
+RETURN:   number, the numerator of n
 SEE ALSO: denominator, content, cleardenom
-EXAMPLE: example numerator; shows an example
-"
-{
-  poly p = n*var(1) + 1;
-  p = cleardenom(p);
-  
-  if (lead(var(1) + 1) == 1)
-  {
-    p = p - lead(p);
-  }
-  
-  return (leadcoef(p));
+EXAMPLE:  example numerator; shows an example
+"
+{
+  poly p = cleardenom(n+var(1));
+  return (coeffs(p,var(1))[1,1]);
 }
 example
@@ -709 +703 @@
 }
 
-///////////////////////////////////////////////////////////////////////////////
-
 proc denominator(number n)
-"USAGE: denominator(n); n number
-RETURN: number, the denominator of n
-SEE ALSO: numerator, content, cleardenom
-EXAMPLE: example denominator; shows an example
-"
-{
-  poly p = n*var(1) + 1;
-  p = cleardenom(p);
-  
-  if (lead(var(1) + 1) != 1)
-  {
-    p = p - lead(p);
-  }
-  
-  return (leadcoef(p));
+"USAGE:    denominator(n); n number
+RETURN:   number, the denominator of n
+SEE ALSO: denominator, content, cleardenom
+EXAMPLE:  example denominator; shows an example
+"
+{
+  poly p = cleardenom(n+var(1));
+  return (coeffs(p,var(1))[2,1]);
 }
 example
@@ -737 +722 @@
 
 
-