r - 如何在 R 中求解三次函数

Question

祝大家有美好的一天!

我有一个以下三次方程。

Left <- P^3+4*P^2+6*P
Right <- 2

如何让 R 求解 P 以获得 Left = Right？

提前致谢。

Answer 1

1。 uniroot()

您可以使用 uniroot() 来搜索函数相对于其第一个参数的根。

uniroot(\(x, y) x^3 + 4*x^2 + 6*x - y, c(0, 1), y = 2, extendInt = "yes")

$root
[1] 0.278161

$f.root
[1] -1.779565e-05

$iter
[1] 6

$init.it
[1] NA

$estim.prec
[1] 6.103516e-05

2。 polyroot()

如果函数是实数或复数多项式，您可以专门使用 polyroot(z)，其中 z 是多项式系数的向量增加订单。

y <- 2
polyroot(c(-y, 6, 4, 1))

# [1]  0.2781631-0.000000i -2.1390815+1.616897i -2.1390815-1.616897i

两种方法均以根0.278161求解方程。 (除了实根之外，polyroot 还给出两个虚根)