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

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

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

---

855: １３２人目の素数さん [sage] 2025/05/30(金) 19:44:31.38 ID:zoAuXcvc (* pbetat関数の定義 *) pbetat[p0_, prob_, ab_, data_] := Module[{a, b, s, f, lbf, bf, post}, a = ab[[1]]; b = ab[[2]]; s = data[[1]]; f = data[[2]]; lbf = s * Log[p0] + f * Log[1 - p0] + Log@Beta[a, b] - Log@Beta[a + s, b + f]; bf = Exp[lbf]; post = prob * bf / (prob * bf + 1 - prob); <|"bf" -> bf, "post" -> post|> ] (* 関数fの定義 *) f[alpha_] := pbetat[1/6, 0.5, {alpha, 5*alpha - 4}, {4, 50 - 4}]["post"] (* 最小化 *) result = NMinimize[{f[alpha], 0 <= alpha <= 20}, alpha] http://rio2016.5ch.net/test/read.cgi/math/1723152147/855

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 136 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.011s