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;
/**/ ClearDenom(f);
10*x +12*y
