高校数学の質問スレ Part410at MATH高校数学の質問スレ Part410 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト1020:１３２人目の素数さん 21/03/19 10:41:24.45 pI96vqfG.net なんで2秒考えてみないんだろ 1021:１３２人目の素数さん 21/03/19 10:42:44.79 aEkmMHXJ.net 無意味な問題ばかり出すなあ このスレを埋めて終わらせるのが目的だろ そんな事をしても 期待値npを知らなかった事はずっと語り継がれるのによwww 1022:１３２人目の素数さん 21/03/19 10:48:28.11 Vudaq87h.net >>979 subfactorialって初めて聞きました。 便利な公式を教えていただいたので、早速、関数化して保存。 subfactorial <- function(n,k){ j=0:k p=sum((-1)^j*choose(k,j)*factorial(n-j)/factorial(n)) list(MASS::fractions(p),p) } 動作確認 > subfactorial(9,9) [[1]] [1] 16687/45360 [[2]] [1] 0.3678792 すでにn=9で1/eに近い > exp(-1) [1] 0.3678794 1023:１３２人目の素数さん 21/03/19 11:11:22.40 Vudaq87h.net >>982 2秒で暗算は無理 1048576 / 9765625 1024:１３２人目の素数さん 21/03/19 11:18:06.42 3qomq5ao.net もう次スレも要らないからな 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch