[過去ﾛｸﾞ]
高校数学の質問スレ Part434 (1002ﾚｽ)
高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
386: １３２人目の素数さん [sage] 2024/04/21(日) 18:33:42.80 ID:KNrj0Rg+ Wolfram言語の使える方のレスがついたら、Phimoseくんは悔しいらしくて自演認定。 そうでもしなければ精神が崩壊するのかねぇ？ 医師板まで出かけていって罵倒投稿しているPhimoseくんが東大合格者だと思う人はその旨とその根拠を投稿してください。 さて、Wolframでの結果をシミュレーションで検証したいのだが 30個から重複なしで無作為に選ぶ方法がみあたらない。 Table[RangeInteger[30],5]だと乱数発生に重複を許すことになる。 Rだとsample(30,5,replace=FALSE)でいいんだが。 sample = REvaluate["sample"]だとRでやっているみたいなものだし。 Wolframの使える方の御助言を期待します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/386
389: １３２人目の素数さん [sage] 2024/04/21(日) 19:56:01.81 ID:KNrj0Rg+ >>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 総当たりでの結果とほぼ合致。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/389
394: １３２人目の素数さん [sage] 2024/04/21(日) 21:20:36.76 ID:KNrj0Rg+ >>386補足 Table[RangeInteger[30],5]だと０から３０まで３１個から５個になるので RangeInteger[{1,30},5]とすべき。重複を回避するオプションはないみたい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/394
405: １３２人目の素数さん [sage] 2024/04/22(月) 11:54:58.13 ID:aSsf4f76 >386は図星のようだ。 またまた、 罵倒 ＞ 助言 の Phimose草の不等式が実証されてますなぁ 解説 It is as if Mr. Phimose loves to use the expression of 'kusa' that fondles his foreskin too much which has made his hands stink. http://rio2016.5ch.net/test/read.cgi/math/1712376048/405
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.037s