[過去ログ]
臨床統計もおもしろいですよ、その2 (1002レス)
上
下
前
次
1-
新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
49
: 2018/11/05(月)18:35
ID:Lykd2+5F(2/2)
AA×
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
49: [sage] 2018/11/05(月) 18:35:02 ID:Lykd2+5F トランプのA〜10の10枚とジョーカー1枚の 合計11枚が机の上に裏向きに置いてある。 ランダムに1枚ずつ引いていった場合の、得られた数字の総和の期待値を求めよ。 ただし、ジョーカーを引いた時点で終了するものとし、 Aは数字扱いではなく、最終的に得られた数字の総和が2倍になるものとする。 x=sample(11) f <- function(x){ i=1 y=numeric() while(x[i]!=11){ y[i]=x[i] i=i+1 } if(1 %in% y) return(2*(sum(y)-1)) else return(sum(y)) } # simulation re=replicate(1e6,f(sample(11))) summary(re) hist(re,col='lightblue',xlab='sum',main='') # brute-force library(gtools) perm=permutations(11,11) mean(apply(perm,1,f)) http://egg.5ch.net/test/read.cgi/hosp/1540905566/49
トランプのの枚とジョーカー枚の 合計枚が机の上に裏向きに置いてある ランダムに枚ずつ引いていった場合の得られた数字の総和の期待値を求めよ ただしジョーカーを引いた時点で終了するものとし は数字扱いではなく最終的に得られた数字の総和が2倍になるものとする
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 953 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
ぬこの手
ぬこTOP
0.024s