Re: Re: unable to FullSimplify
- To: mathgroup at smc.vnet.net
- Subject: [mg65908] Re: Re: unable to FullSimplify
- From: "Dana DeLouis" <ddelouis at bellsouth.net>
- Date: Sat, 22 Apr 2006 04:54:34 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
> FullSimplify[Expand[x + (x + x^2)^4]
> /. x -> y - 1] /. y -> x + 1
A slightly different idea might be to 'remove' a part
Here are the 3 problem equations:
e1 = Expand[a + (a + b)^4];
e2 = Expand[x + (x + x^2)^4];
e3 = Expand[x + (x + x^2)^ 16];
(* This doesn't do much at all...*)
FullSimplify /@ {e1, e2, e3};
(* This helps a little *)
FullSimplify[e1 - a] + a
a + (a + b)^4
FullSimplify[e2 - x] + x
x + x^4*(1 + x)^4
FullSimplify[e3 - x] + x
x + x^16*(1 + x)^16
Interesting subject.
Dana