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: [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




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