24/04/21 19:56:01.81 KNrj0Rg+.net
>>386
自己解決
発生させた乱数に重複があれば重複がなくなるまで繰り返すという仕様でsample関数を作成してWolframで100万回シミュレーション
sample[n_:30,a_:5] := (b=Table[RandomInteger[{1,n}],a];While[Length[Union[b]]<a,b=Table[RandomInteger[{1,n}],a]];b)ts={9,7,8,8,12,13,10,14,13,15,19,19,16,12,7,2,2,7,3,5,9,5,8,13,15,11,13,12,9,4}
sim[] := (i=sample[30,5] ; Mean[ts[[i]]])
re=Table[sim[],1*^6];
Mean[re]
Quantile[re,{0.025,0.5,0.975}]
結果
In[22]:= Mean[re]
50002439
Out[22]= --------
5000000
In[23]:= Quantile[re,{0.025,0.5,0.975}]
32 68
Out[23]= {--, 10, --}
5 5
総当たりでの結果とほぼ合致。