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

---

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

---

985: 2024/05/09(木)07:49 ID:SqUSooPh(2/3) AAS
最初の宝をみつけるまでの探索数が少ない方が有利と判定することにして
>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

実行結果
画像ﾘﾝｸ[png]:i.imgur.com

---

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

---

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

---

ぬこの手 ぬこTOP 0.012s