앞서 우리는 한개의 주사위를 던졌을 때의 특정 숫자가 몇번 나오는지 확인하는 그래프를 만들었다.

그렇다면 만약에 두개의 주사위를 던졌을 때 두 숫자의 합이 얼마나 나오는지 확인하는 그래프는 어떻게 만들까??

우선 한 번 실제로 시도해보자.

이렇게 그래프가 피라미드 형태로 나오는 것을 확인할 수 있다. 여기서 왜 경우의 숫자가 다 같지 않는다고 생각할 수 도 있지만 생각해보면 당연한 것이다. 주사위를 두개를 던져서 합이 2가 나오는 경우의 수는 (1,1)인 경우 밖에 없지만 7이 나올 경우의 수는 (1,6),(2,5),(3,4),(4,3),(5,2),(6,1) 6가지의 경우의 수가 있다. 그렇기 때문에 6배 정도 차이가 난다고 할 수 있다.

실제로 6배 차이가 나는지 한 번 확인해보자.

이렇게 해보면 38이라는 숫자가 나오는 것을 확인할 수 있다. 생각보다 많다고 생각할 수도 있지만 10000번을 던져서 38정도 차이가 나는 것이라고 생각하면 적은 숫자임을 알 수 있다.

2. 세 개의 주사위 던지기

그렇게만 주사위 3개를 던진 숫자의 합은 어떻게 구할까??

조금만 생각하면 생각보다 훨씬 간단하다.

rolling = 10000
n = 6
die = ceiling(runif(rolling)*6) + ceiling(runif(rolling)*6)+ceiling(runif(rolling)*6)
b = table(die)
barplot(b)
b[6]-b[1]*6

하지만 그래프가 균등하지 못한 것을 확인할 수 있다. 이는 경우의 숫자가 적기 때문이다. 경우의 수를 조금씩 늘리다 보면 그래프는 점점 더 실제 확률에 가깝게 변한다. 경우의 수를 100만으로 해보자.

그러면 이렇게 이쁜 그래프가 만들어 지는 것을 볼 수 있다.