이차식 인수분해

R로 풀어보는 확률 퍼즐

Peter Chi

Assistant Professor of Statistics<br> Villanova University

이차식이 인수분해될 확률은?

mathcoachblog.png

mathcoachblog.com

R로 풀어보는 확률 퍼즐

이차식 인수분해

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

  • $a=1$
  • $b=3$
  • $c=2$

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

R로 풀어보는 확률 퍼즐

이차방정식의 해 공식

이차방정식: $ ax^2 + bx + c = 0 $

 

이차방정식의 해 공식: $ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} $

판별식: $ b^2 - 4ac $

R로 풀어보는 확률 퍼즐

판별식 활용

이차방정식의 해 공식: $ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} $

판별식: $ b^2 - 4ac $

 

예시. $x^2 + 3x + 2$

if(3^2 - 4*1*2 < 0){
  return(FALSE)
}
R로 풀어보는 확률 퍼즐

완전제곱인지?

이차방정식의 해 공식: $ x = \frac{-b \pm \sqrt{b^2 - 4ac}}{2a} $

판별식: $ b^2 - 4ac $

예시. $x^2 + 3x + 2$

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

TRUE

 

 

 

is.integer는 동작하지 않음:

is.integer(sqrt_dscr)

FALSE
R로 풀어보는 확률 퍼즐

else 조건문

제곱근은 계산되지 않음:

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

"The value is negative."

값이 양수이므로 제곱근을 계산함:

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

2
R로 풀어보는 확률 퍼즐

중첩 for 루프

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

2
3
4
5
6
7
8
9
10
11
3
4
5
...
R로 풀어보는 확률 퍼즐

이차식을 인수분해해 봅시다

R로 풀어보는 확률 퍼즐

Preparing Video For Download...