prof.uskovЦитата:
Попробую написать программу
Математика 12.0 выражает плотность распределения суммы независимых распределений Парето первого рода через неполную бета-функцию, т.е. некоторые интегралы
Код:
PDF[TransformedDistribution[ x + y, {x \[Distributed] ParetoDistribution[a, b],
y \[Distributed] ParetoDistribution[c, d]}], t]
\[Piecewise] (1/(-c+t))a^b b (-c^d (1-a/t)^-d (1/t)^(b+d) (a/t)^-b+c^(1+d) (1-a/t)^-d (1/t)^(1+b+d) (a/t)^-b-c^(1+d) (1-c/t)^-b (1/t)^(1+b+d) (c/t)^-d+(1/(-c+t))^b+c^d (b+d) (1/t)^(1+b+d) (-c+t) Beta[1-c/t,-b,1-d]-c^d (b+d) (1/t)^(1+b+d) (-c+t) Beta[a/t,-b,1-d]) a+c-t<0
0 True
Если параметры являются конкретными рациональными числами, то ответ получается в терминах гипергеометрических функций. Когда параметры
являются небольшими натуральными числами, то громозкий результат выражается в замкнутом виде, например,
Код:
PDF[TransformedDistribution[
x + y, {x \[Distributed] ParetoDistribution[3/4, 2],
y \[Distributed] ParetoDistribution[3/2, 3]}], t]
\[Piecewise] (1/(32 t^6 (-3+2 t)^2 (-3+4 t)^3))9 (-196830 t+940410 t^2-1691280 t^3+1385100 t^4-474336 t^5+23040 t^6+10752 t^7+1024 t^8+196830 Log[3]-1049760 t Log[3]+2187000 t^2 Log[3]-2216160 t^3 Log[3]+1088640 t^4 Log[3]-207360 t^5 Log[3]-98415 Log[2-3/t]+524880 t Log[2-3/t]-1093500 t^2 Log[2-3/t]+1108080 t^3 Log[2-3/t]-544320 t^4 Log[2-3/t]+103680 t^5 Log[2-3/t]-98415 Log[4-3/t]+524880 t Log[4-3/t]-1093500 t^2 Log[4-3/t]+1108080 t^3 Log[4-3/t]-544320 t^4 Log[4-3/t]+103680 t^5 Log[4-3/t]-196830 Log[t]+1049760 t Log[t]-2187000 t^2 Log[t]+2216160 t^3 Log[t]-1088640 t^4 Log[t]+207360 t^5 Log[t]) t>9/4
0 True