Statistics/Normal distribution: Difference between revisions
Content added Content deleted
(Rust Implementation) |
|||
Line 1,773: | Line 1,773: | ||
Histogram( X );</lang> |
Histogram( X );</lang> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>x:= RandomReal[1] |
<lang Mathematica>x:= RandomReal[1] |
||
SampleNormal[n_] := (Print[#//Length, " numbers, Mean : ", #//Mean, ", StandardDeviation : ", #//StandardDeviation]; |
SampleNormal[n_] := (Print[#//Length, " numbers, Mean : ", #//Mean, ", StandardDeviation : ", #//StandardDeviation]; |
||
Histogram[#, BarOrigin -> Left,Axes -> False])& [(Table[(-2*Log[x])^0.5*Cos[2*Pi*x], {n} ]] |
Histogram[#, BarOrigin -> Left,Axes -> False])& [(Table[(-2*Log[x])^0.5*Cos[2*Pi*x], {n} ]] |
||
Invocation: |
Invocation: |
||
SampleNormal[ 10000 ] |
SampleNormal[ 10000 ] |