[過去ﾛｸﾞ] 高校数学の質問スレ Part441 (1002ﾚｽ)

高校数学の質問スレ Part441 http://rio2016.5ch.net/test/read.cgi/math/1745555217/

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

---

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

---

393: １３２人目の素数さん [sage] 2025/05/07(水) 06:36:58.67 ID:Yj/kuMQy >384の神コードをRに移植。 f <- \(n, m, stack = list()) { key = paste0(n, "_", m) if (!is.null(stack[[key]])) { return(stack[[key]]) } if (n == 1 && m > 0 && m < 7) { re = m } else { if (m < n || m > 6 * n) { re = 0 } else { re = 0 for (k in 1:6) { tmp = k * f(n - 1, m - k, stack) re = re + tmp } } } stack[[key]] = re return(re) } calc <-\(k) f_r(10, k) / 21^10 > sapply(43:45,calc) [1] 0.08256769 0.08356575 0.08100966 >384の　N[]の方の数値とほぼ同じ。 In[4]:= Table[{k,N[f[10,k]/21^10,6]},{k,43,45}] Out[4]= {{43, 0.0825677}, {44, 0.0835657}, {45, 0.0810097}} 自分のスキルではRで分数解を正しく算出するのは無理でした。 http://rio2016.5ch.net/test/read.cgi/math/1745555217/393

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.011s