Changeset e5c7fb6 in git

Timestamp:

Jan 10, 2000, 5:24:29 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

baa2b488ad866b2acaf4be321d8f99c203c98578

Parents:

af3bb46201ce137702b9e603dbdee19dc252aef0

Message:

* added functions numerator, denominator


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

File:

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

Singular/LIB/poly.lib

@@ -1 @@
-// $Id: poly.lib,v 1.20 1999-12-21 11:58:36 Singular Exp $
+// $Id: poly.lib,v 1.21 2000-01-10 16:24:29 obachman Exp $
 //(GMG, last modified 22.06.96)
 //(obachman: 17.12.97 -- added katsura)
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: poly.lib,v 1.20 1999-12-21 11:58:36 Singular Exp $";
+version="$Id: poly.lib,v 1.21 2000-01-10 16:24:29 obachman Exp $";
 info="
 LIBRARY:  poly.lib      PROCEDURES FOR MANIPULATING POLYS, IDEALS, MODULES
@@ -680 +680 @@
    content(v);
 }
-
+///////////////////////////////////////////////////////////////////////////////
+
+proc numerator(number 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:"; echo = 2;
+  ring r = 0,x, dp;
+  number n = 3/2;
+  numerator(n);
+}
+
+///////////////////////////////////////////////////////////////////////////////
+
+proc denominator(number n)
+"USAGE: denominator(n); n number
+RETURN: number, the denominator of n
+SEE ALSO: denominator, 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));
+}
+example
+{
+  "EXAMPLE:"; echo = 2;
+  ring r = 0,x, dp;
+  number n = 3/2;
+  denominator(n);
+}
+
+
+
+