MathGroup Archive 1998

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

Search the Archive

Re: Simplify

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14808] Re: [mg14780] Simplify
  • From: BobHanlon at aol.com
  • Date: Wed, 18 Nov 1998 01:29:09 -0500
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 11/14/98 7:11:34 AM, jtischer at col2.telecom.com.co
writes:

>Could someone tell me please how to simplify the following formula?
>
>(-7253*2^(1 + 2*n)*5^n - 523*4^n*5^(1 + n) + 17121*20^n + 
>    130321*20^n*n^4)/130321
>
>To my surprise when I changed by hand (with two rules) the powers of 2,
>5 and so on to powers of 20, Mathematica changed them back to this
>form.
>

Jurgen,

a = (-7253*2^(1 + 2*n)*5^n - 523*4^n*5^(1 + n) + 17121*20^n + 
    130321*20^n*n^4)/130321;

b = FullSimplify[a]

(-(5^n*(7253*2^(1 + 2*n) + 2615*4^n)) + 20^n*(17121 + 130321*n^4))/
  130321

b = b /. {5^n -> m, 20^n -> 4^n*m}

(-((7253*2^(1 + 2*n) + 2615*4^n)*m) + 4^n*m*(17121 + 130321*n^4))/
  130321

b = Simplify[b]

4^n*m*n^4

b = b /. m -> 5^n

20^n*n^4

FullSimplify[a/b]

1


Bob Hanlon


  • Prev by Date: Re: Headers and Footers
  • Next by Date: Re: Simplify
  • Previous by thread: Re: Simplify
  • Next by thread: Re: Simplify