Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

Suppose I have a simple algebraic equation like:

ChebyshevT[4, p] == 0
1 - 8 p^2 + 8 p^4 == 0

and I want to solve for the term p^4 by simple rearrangement:

p^4 == -(1 - 8 p^2)/8

How do I do that in Mathematica ? And how can I then assign the solution to replace.

share|improve this question

2 Answers 2

I am not sure what you are aiming for but you could get what I think is your desired form by the following:

sol=Solve[1 - 8 p^2 + 8 p^4 == 0 /. p^4 -> u, u]
u/.sol[[1]]

This yields:

1/8 (-1 + 8 p^2)
share|improve this answer

There are several ways to do that. For example, this:

    Clear[eq1, eq2, p];

eq1 = ChebyshevT[4, p] == 0;
eq2 = eq1 /. a_*p^4 -> a*x;
p^4 == Solve[eq2, x][[1, 1, 2]]
p^4 == 1/8 (-1 + 8 p^2)  

or this:

Clear[eq1, eq2, p];

eq1 = ChebyshevT[4, p] == 0;
eq2 = Map[Divide[#, -8] &, Map[Subtract[#, eq1[[1, 3]]] &, eq1]]
1/8 (-1 + 8 p^2) == p^4  
share|improve this answer

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.