MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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