답변:
이것은 다음과 같은 기하학적 분포를 사용하여 대답 할 수 있습니다 .
성공 확률 p ( "heads") 를 갖는 첫 번째 성공 (헤드) 이전 의 실패 횟수 k-1 은 다음과 같이 제공됩니다.
와 k는 실험 종료 제의 머리 '포함 토스의 총수 인.
기대 값의 도출은 여기 에서 찾을 수 있습니다 . 내재 된 마지막 단계는 다음과 같아야합니다.
또는 첫 번째 성공 전의 실패 횟수로 해석 된 음의 이항 분포를 사용할 수 있습니다 . 확률 질량 함수는 p ( 각 Bernoulli 시행에서 특정 확률 p가 주어진 경우 r 성공을 달성하기 전에 실패 횟수 n )으로 제공됩니다.
시행 횟수 n + r에 대한 기대 값은 다음 일반 공식으로 제공됩니다.
을 감안할 때 우리의 알려진 매개 변수 : R = 1 및 P = 0.5 ,
이를 증명하기 위해 Monte Carlo 시뮬레이션을 실행할 수 있습니다.
set.seed(1)
p <- 1/2
reps <- 10000 # Total number of simulations.
tosses_to_HEAD <- 0 # Setting up an empty vector to add output to.
for (i in 1:reps) {
head <- 0 # Set the variable 'head' to 0 with every loop.
counter <- 0 # Same forlocal variable 'counter'.
while (head == 0) {
head <- head + rbinom(1, 1, p) # Toss a coin and add to 'head'
counter <- counter + 1 # Add 1 to 'counter'
}
tosses_to_HEAD[i] <- counter # Append number in counter after getting heads.
}
mean(tosses_to_HEAD)
[1] 2.0097
각각의 티켓에 이러한 기대치를 적으십시오 . 이는 티켓 의 가치 입니다.
우리가 아는 세 가지는 :
이 단일 추첨에 대한 기대는 정의에 따라 모든 종류의 티켓에 대한 확률 가중치 값의 합입니다.
이것은 게임 길이 분포를 시뮬레이션하는 매우 효율적인 방법으로 이어집니다 . R
코드 는 다음과 같습니다 . 부울 배열에 "heads"를 true 값으로 기록하고 연속적인 true 값 사이의 토스를 계산합니다.
p <- 1/3 # Set the chance of heads
tosses <- runif(1e6) < p # Make a million tosses
sim <- diff(c(TRUE, which(tosses))) # Compute game lengths
hist(sim, xlab="Game length", main="Distribution") # Graph their distribution
mean(sim) # Report the average length
set.seed(17)
X가 머리를 얻을 때까지 필요한 동전 뒤집기의 수라고하자. 따라서 E (X)를 계산해야합니다 (예 : X의 예상 값).
첫 플립이 무엇이든 E (X)를 조정할 수 있습니다. E (X | H)가 첫 번째 플립에서 머리를 가졌을 때 남은 코인 플립 수를 나타냅니다. 마찬가지로, E (X | T)는 첫 번째 플립에서 꼬리를 얻었을 때 남은 코인 플립 수를 나타냅니다.
첫 단계 컨디셔닝으로