使用r语言编写一个函数，实现求一元二次方程的实数解和复数解

在R语言中，我们可以编写一个函数来求解一元二次方程的实数解和复数解。一元二次方程的一般形式为 `ax^2 + bx + c = 0`，其中 `a`、`b` 和 `c` 是系数，且 `a ≠ 0`。根据判别式 `Δ = b^2 - 4ac`，我们可以判断方程的解的性质：

- 如果 `Δ > 0`，方程有两个不同的实数根。
- 如果 `Δ = 0`，方程有两个相同的实数根（重根）。
- 如果 `Δ < 0`，方程有两个复数根。

下面是一个实现该功能的R语言函数示例：

solveQuadraticEquation <- function(a, b, c) {
  # 计算判别式
  discriminant <- b^2 - 4 * a * c
  
  # 判断根的类型并求解
  if (discriminant > 0) {
    # 两个不同的实数根
    root1 <- (-b + sqrt(discriminant)) / (2 * a)
    root2 <- (-b - sqrt(discriminant)) / (2 * a)
    return(list(root1 = root1, root2 = root2))
  } else if (discriminant == 0) {
    # 两个相同的实数根
    root <- -b / (2 * a)
    return(list(root1 = root, root2 = root))
  } else {
    # 两个复数根
    realPart <- -b / (2 * a)
    imaginaryPart <- sqrt(-discriminant) / (2 * a)
    root1 <- complex(real = realPart, imaginary = imaginaryPart)
    root2 <- complex(real = realPart, imaginary = -imaginaryPart)
    return(list(root1 = root1, root2 = root2))
  }
}

# 使用示例
# 求解方程 x^2 - 5x + 6 = 0 的根
solutions <- solveQuadraticEquation(1, -5, 6)
print(solutions)

函数 `solveQuadraticEquation` 接收三个参数 `a`、`b` 和 `c`，然后根据判别式的值计算方程的根，并以列表的形式返回这些根。