高校数学の質問スレ(医者・東大卒専用) Part438 (991レス)
前次1-
抽出解除 必死チェッカー(本家) (べ) 自ID レス栞 あぼーん

リロード規制です。10分ほどで解除するので、他のブラウザへ避難してください。
244: 2024/10/26(土)21:19 ID:dZVTecny(1/3) AAS
n100=100
n10=10
n9=9
# P[9|m]
p9_m=\(m) choose(m,n9)*choose(n100-m,n10-n9)/choose(100,10)
p9_m=Vectorize(p9_m)
P9m=p9_m(1:100)
plot(1:100,P9m)

# P[m|9]=P[9|m]P[m]/P[9]
# P[9]=P[9|m]P[m]+P[9|!m]P[!m]
省9
245: 2024/10/26(土)21:34 ID:dZVTecny(2/3) AAS
n100=100
n10=10
n9=9

sim=\(){
u=sample(0:n100,1)
u10=sum(sample(1:0,n10,replace=TRUE,prob=c(u,n100-u)))
c(u,u10)
}

k=1e5
res=t(replicate(k,sim()))
省3
247
(1): 2024/10/26(土)22:38 ID:dZVTecny(3/3) AAS
"
ある政党に100人の議員がいる。
何人が裏金議員であるには何の情報もないため
0〜100人である確率は同じと家庭する。
即ち、0人である確率も99人である確率も1/101とする。
無作為に10人を選んで調べたところ9人が裏金議員であった。
100人中の裏金議員の数の期待値と95%信頼区間を算出せよ。

算出法は好みの手法でよい。
"

rm(list=ls())
省28
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル

ぬこの手 ぬこTOP 0.041s