WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

放射能の放出

粒子が，1時間に の割合でポワソン過程に従って放射能源から放出される．連続する5時間のうち少なくとも1時間は粒子が放出されない確率を求める．

Wolfram Language code: emissionProcess = PoissonProcess[Log[5]];
Wolfram Language code: ListLinePlot[RandomFunction[emissionProcess, {0, 10}], InterpolationOrder -> 0, Filling -> Axis]
連続する5時間のうち少なくとも1時間は放出がない確率：
Wolfram Language code: 1 - NProbability[x[1] > 0, xemissionProcess] ^ 10