Mathematica解三次二元带参数的方程Solve[{-3*x + a*Sqrt[1.5]*y^2 + 1.5*x*(2*x^2 + r*(1 - x^2 - y^2)) == 0,-a*Sqrt[1.5]*x*y + 1.5*y*(2*x^2 + r*(1 - x^2 - y^2)) == 0},{x,y}]——————————————这个方程解了以后,发现不是我想要的结果.谁能把x,y表示成a,r的形式?
2019-04-13
Mathematica解三次二元带参数的方程
Solve[{-3*x + a*Sqrt[1.5]*y^2 + 1.5*x*(2*x^2 + r*(1 - x^2 - y^2)) ==
0,-a*Sqrt[1.5]*x*y + 1.5*y*(2*x^2 + r*(1 - x^2 - y^2)) == 0},{x,
y}]
——————————————
这个方程解了以后,发现不是我想要的结果.谁能把x,y表示成a,r的形式?
优质解答
你只需将所有的1.5改成3/2即可.3/2是一个精确数字.而1.5系统认为是近似数.
In[1]:= r =.;
a =.; Solve[{-3*x + a*Sqrt[3/2]*y^2 +
3/2*x*(2*x^2 + r*(1 - x^2 - y^2)) ==
0,-a*Sqrt[3/2]*x*y + 3/2*y*(2*x^2 + r*(1 - x^2 - y^2)) == 0},{x,
y}]
Out[2]= {{y -> 0,x -> -1},{y -> 0,x -> 0},{y -> 0,
x -> 1},{y -> -(Sqrt[6 - a^2]/Sqrt[6]),
x -> a/Sqrt[6]},{y -> Sqrt[6 - a^2]/Sqrt[6],
x -> a/Sqrt[6]},{y -> -Sqrt[(3/2)] Sqrt[(2 r)/a^2 - r^2/a^2],
x -> (Sqrt[3/2] r)/a},{y -> Sqrt[3/2] Sqrt[(2 r)/a^2 - r^2/a^2],
x -> (Sqrt[3/2] r)/a}}
你只需将所有的1.5改成3/2即可.3/2是一个精确数字.而1.5系统认为是近似数.
In[1]:= r =.;
a =.; Solve[{-3*x + a*Sqrt[3/2]*y^2 +
3/2*x*(2*x^2 + r*(1 - x^2 - y^2)) ==
0,-a*Sqrt[3/2]*x*y + 3/2*y*(2*x^2 + r*(1 - x^2 - y^2)) == 0},{x,
y}]
Out[2]= {{y -> 0,x -> -1},{y -> 0,x -> 0},{y -> 0,
x -> 1},{y -> -(Sqrt[6 - a^2]/Sqrt[6]),
x -> a/Sqrt[6]},{y -> Sqrt[6 - a^2]/Sqrt[6],
x -> a/Sqrt[6]},{y -> -Sqrt[(3/2)] Sqrt[(2 r)/a^2 - r^2/a^2],
x -> (Sqrt[3/2] r)/a},{y -> Sqrt[3/2] Sqrt[(2 r)/a^2 - r^2/a^2],
x -> (Sqrt[3/2] r)/a}}