底辺私立医大を卒業した医者って頭悪いよね？ Part30

645 ：卵の名無しさん ：2024/04/14(日) 14:58:32.36 ID:L/3YUpCZ0.net

sim := (
n0=10000;
n=n0;
n20=20;
n10=10;
count=1;
atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]];
While[atari==0,n-=20;count++;atari=Total[Boole[Table[RandomInteger[n,n10][[i]] <= n20,{i,n10}]]]];
li={count,atari}
)

k=10^5
re=Table[sim,k]
p=2500
a=1000000
balance=Table[-p*n10*re[[i,1]]+re[[i,2]]*a,{i,k}]
Mean[balance]
Median[balance]