Statistics/Normal distribution: Difference between revisions
→{{header|VBA}}
m (→{{header|REXX}}: added a function name to the REXX section header.) |
|||
Line 2,847:
The blank lines in the output are where the number of samples is too small to even merit a single unit on the histogram.
=={{header|VBA}}==
<lang vb>Public Sub standard_normal()
Dim s() As Variant, bins(71) As Single
ReDim s(20000)
For i = 1 To 20000
s(i) = WorksheetFunction.Norm_S_Inv(Rnd())
Next i
For i = -35 To 35
bins(i + 36) = i / 10
Next i
Debug.Print "sample size"; UBound(s), "mean"; mean(s), "standard deviation"; standard_deviation(s)
t = WorksheetFunction.Frequency(s, bins)
For i = -35 To 35
Debug.Print Format((i - 1) / 10, "0.00");
Debug.Print "-"; Format(i / 10, "0.00"),
Debug.Print String$(t(i + 36, 1) / 10, "X");
Debug.Print
Next i
End Sub</lang>{{out}}
<pre>sample size 20000 mean-5,26306310478751E-03 standard deviation 1,00355037427319
-3,60--3,50
-3,50--3,40
-3,40--3,30
-3,30--3,20
-3,20--3,10
-3,10--3,00
-3,00--2,90 XX
-2,90--2,80 X
-2,80--2,70 XX
-2,70--2,60 XX
-2,60--2,50 XXX
-2,50--2,40 XXXX
-2,40--2,30 XXXXX
-2,30--2,20 XXXXXXXX
-2,20--2,10 XXXXXXXX
-2,10--2,00 XXXXXXXXXXX
-2,00--1,90 XXXXXXXXXXXXX
-1,90--1,80 XXXXXXXXXXXXXXX
-1,80--1,70 XXXXXXXXXXXXXXXX
-1,70--1,60 XXXXXXXXXXXXXXXXXXXX
-1,60--1,50 XXXXXXXXXXXXXXXXXXXXXXXX
-1,50--1,40 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-1,40--1,30 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-1,30--1,20 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-1,20--1,10 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-1,10--1,00 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-1,00--0,90 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,90--0,80 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,80--0,70 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,70--0,60 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,60--0,50 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,50--0,40 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,40--0,30 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,30--0,20 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,20--0,10 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
-0,10-0,00 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,00-0,10 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,10-0,20 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,20-0,30 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,30-0,40 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,40-0,50 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,50-0,60 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,60-0,70 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,70-0,80 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,80-0,90 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0,90-1,00 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1,00-1,10 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1,10-1,20 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1,20-1,30 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1,30-1,40 XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
1,40-1,50 XXXXXXXXXXXXXXXXXXXXXXXXXX
1,50-1,60 XXXXXXXXXXXXXXXXXXXXXXXXX
1,60-1,70 XXXXXXXXXXXXXXXXXXXXXX
1,70-1,80 XXXXXXXXXXXXXXXXXX
1,80-1,90 XXXXXXXXXXXXXXX
1,90-2,00 XXXXXXXXXXX
2,00-2,10 XXXXXXXXXXXX
2,10-2,20 XXXXXXX
2,20-2,30 XXXXXX
2,30-2,40 XXXXX
2,40-2,50 XXX
2,50-2,60 XXXX
2,60-2,70 XX
2,70-2,80 XX
2,80-2,90 X
2,90-3,00 X
3,00-3,10 X
3,10-3,20 X
3,20-3,30
3,30-3,40
3,40-3,50 </pre>
=={{header|zkl}}==
{{trans|Go}}
| |||