大神,我终于弄出来了,但是还有一些不理解的地方
sol = Solve[(y*(x^2 + 1) - mu)^2 == (x^2 - 2 *x + 1) *(1 +
1/2 (1 + mu^2) y^2 - 2 mu y) &&
y == (1 - x) mu/((x - 3) x^2 + (x + 1)) && 1 <= x, {y, x}, Reals];
T1 = Plot[
If[mu \[LessSlantEqual] 0.74, y /. sol[[2]],
y /. sol[[1]]], {mu, -1, 1}, PlotRange -> {0.1, 0.5},
Frame -> True, AspectRatio -> 1/1,
Exclusions -> {-0.845, -0.61, 0, 0.61, 0.845}];
T2 = Plot[Evaluate[y /. sol[[2 ;;]]], {mu, -1, 1},
PlotRange -> {0.1, 0.5}, Frame -> True, AspectRatio -> 1/1,
Exclusions -> {-0.845, -0.61, 0, 0.61, 0.845}];
Show[T1, T2]

在T1中,我用了if语句,为什么图只出现了半截?T1中,如果mu>=0.74图应该出现直线部分,而小于0.74出现曲线部分,但是运行的时候却仅仅画出了mu》=0.74的直线部分,mu=<0.74的曲线部分却没有出现 我不得不将两个图合成。麻烦您帮我看看T1的语法有误么?非常感谢。