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

---

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

---

471(1): 2024/05/25(土)06:07 ID:wUdHLV1U(2/5) AAS
>411の方法は棒の１端から切断する長さを残っている長さから無作為に選んで逐次切断する設定での計算である。
切断箇所を無作為に3箇所選んで一括切断したする設定で１００万回シミュレーション計算してみる。（初学者のWolfram言語の練習）

sim[] :=(
x=Sort[RandomReal[{0,1},3]];
a=x[[1]];
b=x[[2]]-x[[1]];
c=x[[3]]-x[[2]];
d=1-x[[3]];
Boole[Max[{a,b,c,d}] < 0.5]
)
Mean[Table[sim[],10^6]] // N

0.499966

無理やり１行にまとめて
Mean@Boole@Table[(Max@{#[[1]],#[[2]]-#[[1]],#[[3]]-#[[2]],1-#[[3]]}& [Sort[RandomReal[{0,1},3]]]) < 0.5,10^6] // N
にしたけど、このコードではWolframAlphaでは動かなかった。
Wolfram Scriptでは
0.500329が返ってきた。

厳密解は1/2なのだろうと予想。

ここで新たな疑問　分割個数を増やしても無作為の一括切断なら多角形ができる確率は1/2のままなのだろうか？

---

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

---

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

---

ぬこの手 ぬこTOP 0.011s