Rozkład trójmianu kwadratowego

Zagadki prawdopodobieństwa w R

Peter Chi

Assistant Professor of Statistics<br> Villanova University

Jakie jest prawdopodobieństwo, że trójmian da się rozłożyć?

$$ x^2 + 3x + 2$$

$$ x^2 + 3x + 2 = (x+2)(x+1)$$

Równanie kwadratowe: $ ax^2 + bx + c = 0 $

Wzór kwadratowy: $ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} $

Wyróżnik: $ b^2 - 4ac $

Wzór kwadratowy: $ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} $

Wyróżnik: $ b^2 - 4ac $

Przykład. $x^2 + 3x + 2$

if(3^2 - 4*1*2 < 0){
  return(FALSE)
}

Wzór kwadratowy: $ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} $

Wyróżnik: $ b^2 - 4ac $

Przykład. $x^2 + 3x + 2$

sqrt_dscr <- sqrt(3^2 - 4*1*2)
sqrt_dscr == round(sqrt_dscr)

TRUE

is.integer nie działa:

is.integer(sqrt_dscr)

FALSE

Pierwiastek kwadratowy nie jest obliczany:

value <- (-1)
if(value < 0){
  print("The value is negative.")
} else {
  print(sqrt(value))
}

"The value is negative."

Wartość jest dodatnia, więc pierwiastek jest obliczany:

value <- 4
if(value < 0){
  print("The value is negative.")
} else {
  print(sqrt(value))
}

for(i in 1:10){
  for(j in 1:10){
    print(i+j)
  }
}

Zagadki prawdopodobieństwa w R