24/03/23 03:36:10.84 GDYCbUDd.net
>>623
レスありがとうございます。
想定解通りです。
R言語での計算
p=c(0.5, 0.6, 0.7, 0.8, 0.9)
f=\(x) prod(p[x])*prod(1-p[-x])
prod(p)/(prod(p)+sum(combn(5,4,f)))
> prod(p)/(prod(p)+sum(combn(5,4,f)))
[1] 0.2893226
24/03/23 03:36:10.84 GDYCbUDd.net
>>623
レスありがとうございます。
想定解通りです。
R言語での計算
p=c(0.5, 0.6, 0.7, 0.8, 0.9)
f=\(x) prod(p[x])*prod(1-p[-x])
prod(p)/(prod(p)+sum(combn(5,4,f)))
> prod(p)/(prod(p)+sum(combn(5,4,f)))
[1] 0.2893226