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>
• 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

```

• Prev by Date: Re: How to modify Convex Hull program to give output as Cartesian Coordinates?
• Next by Date: Complexes, Reals, FullSimplify
• Previous by thread: Re: Reduction of Coefficients Coming Out of Solve
• Next by thread: Re: Reduction of Coefficients Coming Out of Solve