Writing function to solve quadratic equation

1. Introduction

A quadratic equation is of the form

\[ ax^2 + bx + c = 0 \]

2.1 quadratic formula

To solve this equation, use the quadratic formula

\[ x_\text{1,2} = \frac {-b \pm \sqrt{b^2 -4ac}} {2a} \]

2.2 Function to sove quadratic equation

gpt <- function(a, b, c){
  n1 <- (-b +sqrt(b^2 - 4*a*c))/(2*a)
  n2 <- (b + sqrt(b^2-4*a*c))/2*a
  n1 <- paste("x1 =", n1)
  n2 <- paste("x2 =", n2)
  ifelse(n1==n2, return(n1), return(c(n1,n2)))
}

We put 1, 6, 9to function gpt(1,6,9), then then we get.

gpt(1,6,9)

## [1] "x1 = -3" "x2 = 3"

Hence, we can get the Result of quadratic equation is x1 = -3, x2 = 3