4 lines
242 B
Text
4 lines
242 B
Text
Sample[n_]:= (Print[#//Length," numbers, Mean : ",#//Mean,", StandardDeviation : ",#//StandardDeviation ];
|
|
BarChart[BinCounts[#,{0,1,.1}], Axes->False, BarOrigin->Left])&[(RandomReal[1,#])&[ n ]]
|
|
|
|
Sample/@{100,1 000,10 000,1 000 000}
|