[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

985: 2024/05/09(木)07:49 ID:SqUSooPh(2/3) AA×
>>979

画像ﾘﾝｸ[png]:i.imgur.com

[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
985: [sage] 2024/05/09(木) 07:49:21.97 ID:SqUSooPh 最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして >979をWolframに移植 長短の差を大きめにして実行してみる。 (* s:短軸枡数 l:長軸枡数 t:宝の数 *) s=2; l=15; t=3; long=Range[s*l]; (mat=Partition[long,l])//MatrixForm; short=Flatten[Transpose[mat]]; tre=Subsets[long,{t}]; long; short; os=Ordering[short]; subsets=Subsets[long,{t}]; (* combn(long,t) *) nshort=Min[os[[#]]]& /@ subsets; nlong=Min[#]& /@ subsets; {"short search"->Mean[nshort],"long search"->Mean[nlong]} % //N dif=nshort-nlong; (* 探索枡差*) Histogram[dif,AxesLabel->{探索枡差(短軸-長軸),""}] sif=Sign[dif]; mshort=Mean@Boole[#==-1& /@ sif]; (* 短軸有利割合*) meven=Mean@Boole[#== 0& /@ sif]; (* 互角割合*) mlong=Mean@Boole[#== 1& /@ sif]; (* 長軸有利割合*) {"short beats"-> mshort,"even" ->meven,"long beats" ->mlong} % // N 実行結果 https://i.imgur.com/tc3ovoG.png http://rio2016.5ch.net/test/read.cgi/math/1712376048/985
最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして をに移植 長短の差を大きめにして実行してみる 短軸数 長軸数 宝の数 探索差 探索差短軸長軸 短軸有利割合 互角割合 長軸有利割合 実行結果

---

上下前次1-新書関写板覧索設栞歴

---

あと 17 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.040s