高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

249: １３２人目の素数さん [sage] 2024/10/27(日) 05:57:28.52 ID:SNtImSnv (* ある政党に100人の議員がいる。 何人が裏金議員であるには何の情報もないため 0〜100人である確率は同じと家庭する。 即ち、0人である確率も99人である確率も1/101とする。 無作為に10人を選んで調べたところ9人が裏金議員であった。 100人中の裏金議員の数の期待値と95%信頼区間を算出せよ。 *) n100=100; n10=10; n9=9; (* P[9|m] *) p9m[m_] := Binomial[m,n9] Binomial[n100-m,n10-n9]/Binomial[100,10] P9m=Table[p9m[m],{m,0,100}]; (* P[m|9] *) pm9[m_] := p9m[m]/(n100+1) / Total[P9m]; auc=Total@Table[pm9[m],{m,0,n100}]; pdf[m_]:=pm9[m]/auc Sum[x*pdf[x],{x,0,n100}] Table[pdf[x],{x,1,100}] // ListPlot Plot[pdf[x],{x,0,100}] p=Table[pdf[x],{x,1,100}]; ps=ReverseSort[p]; Boole[#<0.95]& /@ Accumulate[ps] // Total i=Reverse[Ordering[p]][[1;;34]]; {Min[i],Max[i]} p[[i]] // Total // N j=Reverse[Ordering[p]][[1;;35]]; {Min[j],Max[j]} p[[j]] // Total // N http://rio2016.5ch.net/test/read.cgi/math/1723152147/249

251: １３２人目の素数さん [sage] 2024/10/27(日) 08:42:49.81 ID:Ll/mJg+e >>249 死に損ないいつになったら高校生に相手にされるんだ？ http://rio2016.5ch.net/test/read.cgi/math/1723152147/251

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.036s