[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)

高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

984: １３２人目の素数さん [sage] 2024/05/09(木) 07:41:10.03 ID:SqUSooPh >>981 それを多言語で自分の手足のように使って実装できるのがすばらしい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/984

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

989: １３２人目の素数さん [sage] 2024/05/09(木) 12:33:07.87 ID:SqUSooPh >>986 Wolfram言語の練習にその結果を検算 https://i.imgur.com/XHl6EHD.png 最終行 ０：互角 −１：短軸有利 １：長軸有利 結果は合致したので Wolframで正しくコードできたと実感できた。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/989

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.029s