7 lines
329 B
Plaintext
7 lines
329 B
Plaintext
x:= RandomReal[1]
|
|
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} ]]
|
|
Invocation:
|
|
SampleNormal[ 10000 ]
|
|
->10000 numbers, Mean : -0.0122308, StandardDeviation : 1.00646
|