在R中绘制多个根

Question

我有一个方程式，我想为m值求解

m^2+x*m+1=0

我知道我可以使用polyroot(c(1,x,1))找到这些根。

我想将这些根在R中绘制为变化的x ，以便为x每个值绘制多项式的所有实根。

注意，多项式可能变得比这更复杂，排除了二次或三次公式的应用。

有关如何实现这一目标的任何想法？

谢谢！

Answer 1

我认为这样做会有所帮助。 只需将X设置为您要评估的任何值即可。

X <- seq(0, 10, length=21)
roots <- sapply(X, function(x) polyroot(c(1,x,1))) 
roots[abs(Im(roots)) > 1e-10] <- NA
matplot(X, t(roots), pch=1)