[過去ﾛｸﾞ] 高校数学の質問スレ（医者・東大卒専用） Part438 (1002ﾚｽ)

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

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

---

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

---

854: １３２人目の素数さん [sage] 2025/05/30(金) 06:24:20.07 ID:zoAuXcvc par(bty="l") y = c(43, 24, 100, 35, 85) yn = max(y) n = length(y) B = 200 like = numeric(B) for(i in yn:B) { like[i] = 1 / (i^n) } pmf = like / sum(like) mean = sum((1:B) * pmf) plot(pmf, main="Posterior PMF of N", xlab="N", ylab="Probability", type="h", col="blue") plot(cumsum(pmf), main="Posterior CDF of N", xlab="N", ylab="Cumulative Probability", type="s", col="blue") abline(h=0.95, lty=3) c(lower=yn, mean=mean, upper=which(cumsum(pmf) > 0.95)[1]) sd = sqrt(sum(((1:B) - mean)^2 * pmf)) prob_N_gt_150 = sum(pmf[151:B]) cat("Posterior Mean:", mean, "\n") cat("Posterior Standard Deviation:", sd, "\n") cat("P(N > 150):", prob_N_gt_150, "\n") http://rio2016.5ch.net/test/read.cgi/math/1723152147/854

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.011s