Statistics/Basic: Difference between revisions
Content added Content deleted
Line 513: | Line 513: | ||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |
||
<lang Mathematica>Sample[n_]:= (Print[#//Length," numbers, Mean : ",#//Mean,", StandardDeviation : ",#//StandardDeviation ]; |
<lang Mathematica>Sample[n_]:= (Print[#//Length," numbers, Mean : ",#//Mean,", StandardDeviation : ",#//StandardDeviation ]; |
||
BarChart[BinCounts[#,{0,1,.1}], Axes->False, BarOrigin->Left])&[(RandomReal[1,#])&[n]] |
BarChart[BinCounts[#,{0,1,.1}], Axes->False, BarOrigin->Left])&[(RandomReal[1,#])&[ n ]] |
||
Sample/@{100, |
Sample/@{100,1 000,10 000,1 000 000} |
||
100 numbers, Mean : 0.478899, StandardDeviation : 0.322265 |
100 numbers, Mean : 0.478899, StandardDeviation : 0.322265 |
||
1000 numbers, Mean : 0.503383, StandardDeviation : 0.278352 |
1000 numbers, Mean : 0.503383, StandardDeviation : 0.278352 |