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
