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

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