No.07173 Re: 箱 【青木繁伸】 2008/07/26(Sat) 20:41
百万個の箱詰めを作って，計算してみました(^_^;)
> n <- 20 # 一箱あたりの製品の個数
> trial <- 1000000 # 箱詰め個数
> a <- matrix(rnorm(n*trial, mean=100, sd=sqrt(16)), n, trial) # n 個を詰めた trial 箱のシミュレーション
> b <- rnorm(trial, mean=300, sd=sqrt(80))
> weight <- colSums(a)+b # 製品を詰めた箱の重さ
> hist(weight)
> mean(weight) # 平均値
[1] 2299.988
> var(weight) # 分散
[1] 400.3204
> sd(weight) # 標準偏差
[1] 20.00801
