[過去ログ]
分からない問題はここに書いてね458 (1002レス)
分からない問題はここに書いてね458 http://rio2016.5ch.net/test/read.cgi/math/1581260776/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
リロード規制
です。10分ほどで解除するので、
他のブラウザ
へ避難してください。
638: 132人目の素数さん [sage] 2020/03/15(日) 04:25:33.20 ID:OTl1KJku >>635 n を 1〜20でシミュレーションしてみた。 sim <- function(n,k=1e5){ # n:サイコロを振る回数 k:シミュレーション回数 sub <- function(n){ prod(sample(6,n,replace=TRUE))%%6==0 # n回の目の積の6で除算した剰余が0か? } mean(replicate(k,sub(n))) # 0となる割合を返す } p=sapply(1:20,function(n) sim(n)) data.frame(p) p 1 0.16560 2 0.41369 3 0.61413 4 0.75417 5 0.84134 6 0.89669 7 0.93356 8 0.95765 9 0.97254 10 0.98093 11 0.98873 12 0.99175 13 0.99458 14 0.99611 15 0.99737 16 0.99849 17 0.99899 18 0.99924 19 0.99963 20 0.99978 http://rio2016.5ch.net/test/read.cgi/math/1581260776/638
640: 132人目の素数さん [sage] 2020/03/15(日) 08:00:20.15 ID:OTl1KJku >>638 1 : 1/6 2 : 5/12 3 : 133/216 4 : 325/432 5 : 6541/7776 6 : 4655/5184 7 : 261493/279936 8 : 535925/559872 9 : 9796381/10077696 http://rio2016.5ch.net/test/read.cgi/math/1581260776/640
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.034s