RE: Reduction of Coefficients Coming Out of Solve

*To*: mathgroup at smc.vnet.net*Subject*: [mg48781] RE: [mg48761] Reduction of Coefficients Coming Out of Solve*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 16 Jun 2004 04:54:49 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Scott, You could either of the following two methods. expr = (3.4*10^62 + 4.5*10^63*x)/ (6.7*10^64 + 8.9*10^63*x) fac = 1.0*^62; Distribute[Numerator[expr]/fac]/(Distribute[Denominator[expr]/ fac]) fac = 1.0*^62; MapAt[Distribute[#/fac] &, expr, {{1}, {2, 1}}] But I'm hoping you will get better answers. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ -----Original Message----- From: Scott Guthery [mailto:sguthery at mobile-mind.com] To: mathgroup at smc.vnet.net Subject: [mg48781] [mg48761] Reduction of Coefficients Coming Out of Solve A rational polynomial result from Solve multiplies every coefficient by a large factor of 10, e.g. 10^62. Neither Simplify nor FullSimpify remove this common factor from the numerator and denominator. I can remove it by hand but there must be a Mathematica trick that removes it. What might it be? For example: (3.4*10^62 + 4.5*10^63 x)/(6.7*10^64 + 8.9*10^63 x). Thanks for any insight. Cheers, Scott