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

---

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

---

448: 2024/10/27(日)07:07 ID:SNtImSnv(1/2) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
448: [sage] 2024/10/27(日) 07:07:28.56 ID:SNtImSnv 本日の朝飯前の問題 (* あるシリツ医大にｘ人が入学したとする。 何人が裏口入学であるには何の情報もないため一様分布とする。 即ち0〜x人である確率はどれも同じと仮定する。 無作為にy人を選んで調べたところz人が裏口入学であった。 x人中の裏口入学者の数の期待値とその95%信頼区間、最頻値、中央値を算出するソルバーをWolfram言語で作成せよ。 *) solve[x_,y_,z_] :=( n100=x; n10=y; n9=z; (* P[yz|x] *) p9m[m_] := Binomial[m,n9] Binomial[n100-m,n10-n9]/Binomial[n100,n10]; P9m=Table[p9m[m],{m,0,n100}]; (* P[x|yz] *) pm9[m_] := p9m[m]/(n100+1) / Total[P9m]; auc=Total@Table[pm9[m],{m,0,n100}]; pdf[m_]:=pm9[m]/auc; e=Sum[m*pdf[m],{m,0,n100}]; p=Table[pdf[m],{m,1,n100}]; ps=ReverseSort[p]; n34=Total[Boole[#<0.95]& /@ Accumulate[ps]]; i=Reverse[Ordering[p]][[1;;n34]]; {Min[i],Max[i]}; p[[i]] // Total // N; j=Reverse[Ordering[p]][[1;;n34+1]]; ci={Min[j],Max[j]}; p[[j]] // Total // N; mode=Position[p,Max[p]][[1]][[1]]; median=Total[Boole[#<0.5]& /@ Accumulate[p]]; {Ex->e,CI->ci,Mode->mode,Median->median} ) solve[100,10,9] http://rio2016.5ch.net/test/read.cgi/math/1723179542/448
本日の朝飯前の問題 あるシリツ医大に人が入学したとする 何人が裏口入学であるには何の情報もないため一様分布とする 即ち人である確率はどれも同じと仮定する 無作為に人を選んで調べたところ人が裏口入学であった 人中の裏口入学者の数の期待値とその信頼区間最頻値中央値を算出するソルバーを言語で作成せよ

---

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

---

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

---

ぬこの手 ぬこTOP 0.043s