> rmax=replicate(1e5,max(sim(10,25)))
> summary(rmax)
Min. 1st Qu. Median Mean 3rd Qu. Max.
30.00 40.00 42.00 41.91 44.00 52.00
> hist(rmax,col=3,main='時刻10での最高得点',axes=F,xla='') ; axis(2)
> axis(1)
> table(rmax)
rmax
30 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
1 8 42 110 378 1011 2279 4428 7467 11568 15154 16616 15519 11623 7375 3761
47 48 49 50 51 52
1714 662 212 57 13 2