高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新

---

488: 2024/12/30(月)03:31 ID:DAgtZ3Zg(3/5) AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
488: [sage] 2024/12/30(月) 03:31:36.28 ID:DAgtZ3Zg # 遷移行列 P <- matrix(c( 0, 0.5, 0.5, 0, 0, # S0: 初戦 A vs B 0, 0, 0, 0.5, 0.5, # S1: A vs C 0, 0, 0, 0.5, 0.5, # S2: B vs C 0.5, 0, 0, 0, 0.5, # S3: 再試合 A vs B 0.5, 0, 0, 0.5, 0 # S4: 再試合 B vs A ), nrow = 5, byrow = TRUE) # 固有値と固有ベクトルの計算 eig <- eigen(t(P)) stationary <- Re(eig$vectors[, which(abs(Re(eig$values) - 1) < 1e-8)]) stationary <- stationary / sum(stationary) # 各プレイヤーの勝率を計算 A_win <- stationary[2] + stationary[4] B_win <- stationary[3] + stationary[5] C_win <- stationary[1] cat("定常分布:\n") print(stationary) cat(sprintf("\nAの勝率: %.3f\n", A_win)) cat(sprintf("Bの勝率: %.3f\n", B_win)) cat(sprintf("Cの勝率: %.3f\n", C_win)) http://rio2016.5ch.net/test/read.cgi/math/1723152147/488
遷移行列 初戦 再試合 再試合 固有値と固有ベクトルの計算 各プレイヤーの勝率を計算 定常分布 の勝率 の勝率 の勝率

---

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

---

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

---

ぬこの手 ぬこTOP 0.026s