4
$\begingroup$

I'd like to plot all the solutions of the following equation :

F[x_] = -x^2 + 3/4*x^4 MU[x_] = D[F[x], x] PRESSION[x_] = -x^2 + 3/4*x^4 - x*(-2 x + 3 x^3) sol = Solve[{y*PRESSION[y] == x* PRESSION[x] && MU[x] == MU[y]}, {x, y}, Reals]

There are many solutions, as curves or dots. I would like to plot all of them together. Can you help please ?

Improve this question
$\endgroup$

1 Answer 1

Reset to default
6
$\begingroup$ 
sols = {x, y} /. Quiet[sol = N@Solve[{y*PRESSION[y] == x*PRESSION[x] && MU[x] == MU[y]}, {x, y}, Reals]]; {lines, points} = Pick[sols, Boole[FreeQ[Last@#, x]] & /@ sols, #] & /@ {0, 1}; ParametricPlot[lines, {x, -1, 1}, Epilog -> {PointSize[Large], Red, Point[points]}]

enter image description here

Improve this answer
$\endgroup$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.