Как намекнул Джон Д. Кук, сумма i.i.d. экспоненциальные случайные величины имеют гамма-распределение.
Вот cdf суммы n экспоненциальных случайных величин с параметром скорости a (выраженным в Mathematica):
F[x_] := 1 - GammaRegularized[n, a*x];
http://mathworld.wolfram.com/RegularizedGammaFunction.html
Обратный cdf:
Fi[p_] := InverseGammaRegularized[n, 1 - p]/a;
Тогда доверительный интервал c равен
ci[c_, a_, n_] := {Fi[a, n, (1-c)/2], Fi[a, n, c+(1-c)/2]}
Вот некоторый код для эмпирической проверки правильности вышеприведенного:
(* Random draw from an exponential distribution given rate param. *)
getGap[a_] := -1/a*Log[RandomReal[]]
betw[x_, {a_, b_}] := Boole[a <= x <= b]
c = .95;
a = 1/.75;
n = 40;
ci0 = ci[c, a, n];
N@Mean@Table[betw[Sum[getGap[a], {n}], ci0], {100000}]
----> 0.94995