Re: Reduction of Coefficients Coming Out of Solve
- To: mathgroup at smc.vnet.net
- Subject: [mg48776] Re: [mg48761] Reduction of Coefficients Coming Out of Solve
- From: Oleksandr Pavlyk <pavlyk at phys.psu.edu>
- Date: Wed, 16 Jun 2004 04:54:28 -0400 (EDT)
- Organization: Penn State University; Department of Physics
- References: <200406150650.CAA27200@smc.vnet.net>
- Reply-to: pavlyk at phys.psu.edu
- Sender: owner-wri-mathgroup at wolfram.com
Hi Scott,
FullSimplify of version 5.0.1 deals with it as you would expect
In[41]:=
FullSimplify[(3.4*10^62 +
4.5*10^63*x)/(6.7*10^64 +
8.9*10^63*x)]
Out[41]=
0.5056179775280899 +
3.7681353364474184/
(-7.52808988764045 - 1.*x)
Check out commands Factor or Apart on your expression.
You could also extend Simplify using TranformationFunctions option
In[51]:=
Simplify[(3.4*10^62 +
4.5*10^63*x)/(6.7*10^64 +
8.9*10^63*x),
TransformationFunctions ->
{Apart, Factor}]
Out[51]=
0.5056179775280899 -
3.7681353364474184/
(7.52808988764045 + 1.*x)
Cheers,
Sasha
Scott Guthery wrote:
> 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
- References:
- Reduction of Coefficients Coming Out of Solve
- From: "Scott Guthery" <sguthery@mobile-mind.com>
- Reduction of Coefficients Coming Out of Solve