Đặt là các số mũ độc lập và phân phối giống hệt với tham số . Sau đó, với cho , tổng của các giá trị này
theo Phân phối Erlang với hàm mật độ xác suất
Tôi quan tâm đến việc phân phối trong đó là một biến ngẫu nhiên sao cho phân phối theo cấp số nhân, nó giữ rằng
Nói cách khác, bị cắt bớt bởi một phân phối theo cấp số nhân. Tôi thất bại trong việc tạo ra phân phối của nhưng có lẽ có một cách dễ dàng hơn:
Tuy nhiên, chỉ cần lấy mẫu và nhìn bằng mắt như mật độ này không phải là xấu xí:
iter <- 20000
lambda_a <- 1
lambda <- 2
df <- data.frame(tau=rep(NA, iter), a=rep(NA, iter))
for(i in 1:iter){
set.seed(i)
a <- rexp(1, rate = lambda_a)
s <- cumsum(rexp(500, rate = lambda))
df[i,] <- c(max(s[1], s[s<a]), a)
}
library(tidyverse)
ggplot(df %>% gather(), aes(x = value, fill = key)) +
geom_density(alpha = .3) + theme_bw()