mathematica中解方程组并将结果画出图来代码如下Q = 0\[Mu] = 0sol = Solve[y[a,k,mu]*(a^2 *(1 + r) + r^2 *(-3 + 2 *Q^2/r + r)) == a *mu* (1 - r) + k* Q* (a^2 + Q^2 - r) && (y[a,k,mu]*(r^2 + (a)^2) - mu*(a) - k*Q*r)^2 == (r^2 - 2*r + a^2

mathematica中解方程组并将结果画出图来代码如下Q = 0\[Mu] = 0sol = Solve[y[a,k,mu]*(a^2 *(1 + r) + r^2 *(-3 + 2 *Q^2/r + r)) == a *mu* (1 - r) + k* Q* (a^2 + Q^2 - r) && (y[a,k,mu]*(r^2 + (a)^2) - mu*(a) - k*Q*r)^2 == (r^2 - 2*r + a^2
mathematica中解方程组并将结果画出图来
代码如下
Q = 0
\[Mu] = 0
sol = Solve[
y[a,k,mu]*(a^2 *(1 + r) + r^2 *(-3 + 2 *Q^2/r + r)) ==
a *mu* (1 - r) +
k* Q* (a^2 + Q^2 - r) && (y[a,k,mu]*(r^2 + (a)^2) - mu*(a) -
k*Q*r)^2 == (r^2 - 2*r + a^2 +
Q^2)*(1 + ((a)^2)/2*(1 + mu^2)*y[a,k,mu]^2 -
2*(a)*mu*y[a,k,mu] + (\[Mu]^2)*r^2) &&
r \[GreaterSlantEqual] (1 + (1 - (a^2 + Q^2))^(1/2)),{y[a,k,
mu],r},Reals];
T1 = ParametricPlot[Evaluate[y[1,0,mu] /.sol],{mu,-1,1},
PlotRange -> {0.1,0.5},Frame -> True,AspectRatio -> 1/1]
其中,y=y[a,k,mu].求解出y后画出y随mu变化的图像 a可以取若干个数值,k也可以去若干个数值.但是我的不出图,求大神给看看.

mathematica中解方程组并将结果画出图来代码如下Q = 0\[Mu] = 0sol = Solve[y[a,k,mu]*(a^2 *(1 + r) + r^2 *(-3 + 2 *Q^2/r + r)) == a *mu* (1 - r) + k* Q* (a^2 + Q^2 - r) && (y[a,k,mu]*(r^2 + (a)^2) - mu*(a) - k*Q*r)^2 == (r^2 - 2*r + a^2
可以出的,