24/07/19 15:11:08.01 1inNDuDx.net
>>80
想定解合致。
f2p[n_,c_:365] := 1- Product[i/c,{i,c-n+1,c}]
fp3[n_,c_:365] := f2p[n,c] - Sum[Binomial[c,j]Binomial[c-j,n-2j]n!/2^j/c^n,{j,1,n/2}]
N[fp3 /@ {87,88},10]
{0.4994548506, 0.5110651106}
88で0.5を越えます。
24/07/19 15:11:08.01 1inNDuDx.net
>>80
想定解合致。
f2p[n_,c_:365] := 1- Product[i/c,{i,c-n+1,c}]
fp3[n_,c_:365] := f2p[n,c] - Sum[Binomial[c,j]Binomial[c-j,n-2j]n!/2^j/c^n,{j,1,n/2}]
N[fp3 /@ {87,88},10]
{0.4994548506, 0.5110651106}
88で0.5を越えます。