Procedure from library poly.lib (see section poly_lib).
poly.lib
denominator(n); n number
number, the denominator of n
Example:
LIB "poly.lib"; ring r = 0,x, dp; number n = 3/2; denominator(n); → 2
See also: cleardenom; content; denominator.