太郎くんと花子さんが一緒に食事をしてノロウイルスのいる生牡蠣を食べたとする。
https://i.imgur.com/lro8LGD.png
のデータから太郎くんと花子さんが同じ日に発症する確率を求めなさい。
算出に必要な条件は適宜設定してよい、すなわち、好みの方法で計算してよい。

算出例：incubation periodがどんな分布に従うかを前提にしないで乱数発生させて算出。

R言語
calc=\(){
noro=c(
runif(2,21,24),
runif(2,25,28),
runif(16,29,32),
runif(16,33,36),
runif(14,37,40),
runif(2,41,44),
runif(5,45,48))
abs(diff(sample(noro,2,replace = TRUE))) < 24
}
mean(replicate(1e6,calc()))


Wolfram言語
calc[] := Module[{noro},
noro := Flatten@{
Table[Random[Real,{21,24}], 2],
Table[Random[Real,{25,28}], 2],
Table[Random[Real,{29,32}],16],
Table[Random[Real,{33,36}],16],
Table[Random[Real,{37,40}],14],
Table[Random[Real,{41,24}], 2],
Table[Random[Real,{45,48}], 5]};
(Abs@Differences@RandomChoice[noro,2])[[1]] < 24 // Boole
]
Table[calc[],10^6] // Mean // N