User Portlet User Portlet

Discussions
It is something from https://mathematica.stackexchange.com/questions/114634/simplifying-polynomials-with-conditions-on-variables, that intend to minimize the number of variables. The problem is the usage of ``Solve". I know how to solve equations,...
Here is a way: P1 = \[Beta] (\[Omega]1 l2 + \[Omega]2 l1) + 2 \[Gamma] \[Omega]1 \[Omega]2 + k1 (\[Omega]2 + 4 k2^3) + k2 (\[Omega]1 + 4 k1^3) + 6 k1^2 k2^2 + 6 l1 l2 + (k1^4 + k2^4 + k1 \[Omega]1 + k2 \[Omega]2 + 3...
Thanks. It is worth to try.
By plotting over the range {n,-3,3} you are plotting a parameteric region that contains all curves for -3 Full] Or plot all the cureves ParametricPlot[ Evaluate[{X[\[Xi], #, -25], func[\[Xi], #, -25]} & /@ Range[-3, 3, .5]],...
Thank you for your reply.
Cross-posted in https://mathematica.stackexchange.com/q/261815/1871