Wolfram mathematica 绘制非解析方程的隐变量

我有一个非解析方程。我可以求解不同的参数值，但我的程序根本不起作用。最后我想画y和x

f[x_] := y + Sqrt[3 + x*y - x^20 - y^4]
Table[f[x], {x, 0.1, 0.5, 0.1}] 
NSolve[f[x] == 0, y] 

这就产生了结果，从中我们可以看到第一个和第二个解产生了复数。首先绘制两个真实解

y3 = subs[[All, 3, 1, 2]];
y4 = subs[[All, 4, 1, 2]];

ListLinePlot[{Transpose[{x0, y3}], Transpose[{x0, y4}]}]

或者，也可以从具有

Plot[{sol[[3, 1, 2]], sol[[4, 1, 2]]}, {x, 0.1, 0.5}]

复杂的解决方案可以这样绘制：

ParametricPlot[{{Re[sol[[1, 1, 2]]], Im[sol[[1, 1, 2]]]},
  {Re[sol[[2, 1, 2]]], Im[sol[[2, 1, 2]]]}}, {x, 0, Pi/2}]

---

这应该是R吗？看起来更像mathematica什么的…从R的角度看，这是没有意义的。请使用标准数学符号或更改标签。是的，是mathematica。

ParametricPlot[{{Re[sol[[1, 1, 2]]], Im[sol[[1, 1, 2]]]},
  {Re[sol[[2, 1, 2]]], Im[sol[[2, 1, 2]]]}}, {x, 0, Pi/2}]