Nếu là một chuỗi các biến ngẫu nhiên có thể trao đổi và thì if và ony nếu . Do đó,
bằng đối xứng. Do đó, . N = phút{ XTôi}i ≥ 1N ≥
N= phút{ n : Xn - 1> Xn} ,
X 1 ≤ X 2 ≤ ⋯ ≤ X n - 1 Pr ( N ≥ n ) = Pr ( X 1 ≤ X 2 ≤ ⋯ ≤ X n - 1 ) = 1N≥ nX1≤ X2≤ ⋯ ≤ Xn - 1E [ N ] = Σ ∞ n = 1 Pr ( N ≥ n ) = e ≈ 2,71828 ...Pr ( N≥ n ) = Pr ( X1≤ X2≤ ⋯ ≤ Xn - 1) = 1( n - 1 ) !,( ∗ )
E [N] = ∑∞n = 1Pr ( N≥ n ) = e ≈ 2,71828 ...
Người PS hỏi về bằng chứng của . Vì chuỗi có thể trao đổi, nên phải có bất kỳ hoán vị nào , chúng ta có
Vì chúng ta cóhoán vị có thể, kết quả sau.π : { 1 , Hầm , n - 1 } → { 1 , Lọ , n - 1 ) ) . ( n - 1 ) !( ∗ )Pr ( X 1 ≤ X 2 ≤ ⋯ ≤ X n - 1 ) = Pr ( X π ( 1 ) ≤ X π ( 2 ) ≤ ⋯ ≤ X π ( n -π: { 1 , Hoài , n - 1 } → { 1 , Mạnh , n - 1 }
Pr ( X1≤ X2≤ ⋯ ≤ Xn - 1) = Pr ( Xπ( 1 )≤ Xπ( 2 )≤ ⋯ ≤ Xπ( n - 1 )) .
( n - 1 ) !
# Monte Carlo
N <- 10^6
dec <- numeric(N)
for (i in 1:N) {
j <- 1
x <- rnorm(1, 0, 1) # plug your favorite distribution here!
repeat {
j <- j + 1
y <- rnorm(1, 0, 1)
if (y < x) {
dec[i] <- j
break
}
x <- y
}
}
cat(mean(dec), "\n")
# A good example of how to program C in R!
[self-study]
thẻ và đọc wiki của nó .