У вас є дискретизована версія розподілу негативного журналу, тобто дистрибутива, підтримка якого [ 0 , 1 ] і pdf якого f( t ) = - журналт .
Щоб побачити це, я збираюся переосмислити вашу випадкову змінну для отримання значень у множині замість і викликати результуючий розподіл . Тоді, моя вимога така{ 0 , 1 , 2 , … , N } T{ 0 , 1 / N, 2 / Н, … , 1 }{ 0 , 1 , 2 , … , N}Т
Пr ( Т= tN) →- 1Nжурнал( тN)
як тоді як утримується (приблизно) постійною. N, t → ∞тN
По-перше, невеликий імітаційний експеримент, що демонструє цю конвергенцію. Ось невелика реалізація вибірки з вашого розповсюдження:
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
}
Ось гістограма великого зразка, взятого з вашого розповсюдження:
ss <- t_sample(100, 200000)
hist(ss, freq=FALSE, breaks=50)
і ось логарифмічний PDF-файл накладений:
linsp <- 1:100 / 100
lines(linsp, -log(linsp))
Щоб зрозуміти, чому виникає така конвергенція, почніть з свого вираження
Пr ( Т= tN) = 1N∑j = tN1j
і помножити і ділити наN
Пr ( Т= tN) = 1N∑j = tNNj1N
Підсумовування тепер є ріманською сумою для функції , інтегрованої від до . Тобто для великих ,г( х ) = 1хтN1N
Пr ( Т= tN) ≈ 1N∫1тN1хгх = - 1Nжурнал( тN)
яке вираження я хотів досягти.