Verify distribution uniformity/Naive: Difference between revisions
Content added Content deleted
(Better version id in D entry) |
|||
Line 842: | Line 842: | ||
<pre>0 9986 1 9826 2 9861 3 10034 4 9876 5 10114 6 10329 7 9924 8 10123 9 9927 |
<pre>0 9986 1 9826 2 9861 3 10034 4 9876 5 10114 6 10329 7 9924 8 10123 9 9927 |
||
#<StandardError: distribution potentially skewed for 'false': expected around 50000.0, got 94841></pre> |
#<StandardError: distribution potentially skewed for 'false': expected around 50000.0, got 94841></pre> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>s$ = "#########################" |
|||
dim num(100) |
|||
for i = 1 to 1000 |
|||
n = (rnd(1) * 10) + 1 |
|||
num(n) = num(n) + 1 |
|||
next i |
|||
for i = 1 to 10 |
|||
print using("###",i);" "; using("#####",num(i));" ";left$(s$,num(i) / 5) |
|||
next i</lang><pre> |
|||
1 90 ################## |
|||
2 110 ###################### |
|||
3 105 ##################### |
|||
4 100 #################### |
|||
5 107 ##################### |
|||
6 133 ######################### |
|||
7 85 ################# |
|||
8 96 ################### |
|||
9 82 ################ |
|||
10 92 ##################*</pre> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |