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