プログラミングのお題スレ Part22 (863ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
447: デフォルトの名無しさん [sage] 2024/11/13(水) 22:01:15.62 ID:nRkxNwtG >>435 R f=\(N){ u=1000 m=5000 while(u>0 & m>0){ m=m-sum(sample(6,N,replace=TRUE)) u=u-sample(6,1) } u>m } sim=\(N) mean(replicate(1e3,f(N))) p=sapply(1:10,sim) plot(p) data.frame(N=1:10,p=p) N p 1 1 0.000 2 2 0.000 3 3 0.000 4 4 0.000 5 5 0.498 6 6 1.000 7 7 1.000 8 8 1.000 9 9 1.000 10 10 1.000 http://mevius.5ch.net/test/read.cgi/tech/1691038333/447
448: デフォルトの名無しさん [sage] 2024/11/13(水) 22:22:31.42 ID:nRkxNwtG >>435 Wolfram f[N_] :=( u=1000; m=5000; Until[u<=0 || m<=0, m-=Total@RandomChoice[Range[6],N];u-=Total@RandomChoice[Range[6],1]]; Boole[u >= m] ) Table[Mean@Table[f[x],10^3],{x,1,10}] // N {0., 0., 0., 0., 0.511, 1., 1., 1., 1., 1.} http://mevius.5ch.net/test/read.cgi/tech/1691038333/448
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.035s