up previous next
clear common denominator of a polynomial with rational coeffs
ClearDenom(F: RINGELEM): RINGELEM
This function clears the denominators of the coefficients in a
polynomial over QQ. It simply multiplies by the least common multiple
of the denominators.
/**/ use QQ[x,y];
/**/ f := (2/3)*x + (4/5)*y;