如何求解R中的二次方程？

Question

我需要解决这个问题，但我绝对没有头绪。我知道这是很基本的东西，但我不明白: ax2 + bx +c=0

a <- 1

b <- -8

c <- 12

d <- b*b-4*a*c 

谢谢你。

Answer 1

下面是二次公式的实现，

​

​

这将给出ax^2 + bx +c= 0的根。如果根是复杂的，它将返回复数值。如果两个根相同，它将返回单个值：

quad <- function(a, b, c)
{
  a <- as.complex(a)
  answer <- c((-b + sqrt(b^2 - 4 * a * c)) / (2 * a),
              (-b - sqrt(b^2 - 4 * a * c)) / (2 * a))
  if(all(Im(answer) == 0)) answer <- Re(answer)
  if(answer[1] == answer[2]) return(answer[1])
  answer
}

因此，在您的情况下，我们将具有：

quad(a = 1, b = -8, c = 12)
#> [1] 6 2

因此，我们知道当x为2或6时，x^2 -8 *x + 12 =0。这很容易手工验证。