Anda memiliki versi terdistribusi dari distribusi log negatif, yaitu distribusi yang dukungannya dan yang pdf-nya adalah f ( t ) = - log t .[ 0 , 1 ]f( t ) = - logt
Untuk melihat ini, saya akan mendefinisikan kembali variabel acak Anda untuk mengambil nilai dalam set alih-alih { 0 , 1 , 2 , ... , N } dan memanggil dihasilkan distribusi T . Lalu, klaim saya adalah itu{ 0 , 1 / N, 2 / N, ... , 1 }{ 0 , 1 , 2 , … , N}T
Pr ( T= tN) →- 1Nlog( tN)
sebagai sementara tN, t → ∞tN dipertahankan (kurang-lebih) konstan.
Pertama, percobaan simulasi kecil yang menunjukkan konvergensi ini. Berikut ini adalah implementasi kecil sampler dari distribusi Anda:
t_sample <- function(N, size) {
bounds <- sample(1:N, size=size, replace=TRUE)
samples <- sapply(bounds, function(t) {sample(1:t, size=1)})
samples / N
}
Berikut histogram sampel besar yang diambil dari distribusi Anda:
ss <- t_sample(100, 200000)
hist(ss, freq=FALSE, breaks=50)
dan inilah pdf logaritmik yang dilapis:
linsp <- 1:100 / 100
lines(linsp, -log(linsp))
Untuk melihat mengapa konvergensi ini terjadi, mulailah dengan ekspresi Anda
Pr ( T= tN) = 1N∑j = tN1j
N
Pr ( T= tN) = 1N∑j = tNNj1N
Penjumlahan sekarang merupakan jumlah Riemann untuk fungsi tersebut g( x ) = 1x, terintegrasi dari tN untuk 1. That is, for large N,
Pr(T=tN)≈1N∫1tN1xdx=−1Nlog(tN)
which is the expression I wanted to arrive at.