Verify distribution uniformity/Naive: Difference between revisions
Content added Content deleted
Line 415: | Line 415: | ||
>checkrandom(test) |
>checkrandom(test) |
||
1 |
1 |
||
>wd = 0|((1:6)+[-0.01,0.01,0,0,0,0])/6 |
|||
[ 0 0.165 0.335 0.5 0.666666666667 0.833333333333 1 ] |
|||
>function wrongdice (n) := find(wd,random(1,n)) |
|||
>checkrandom(wrongdice(1000000)) |
|||
0 |
|||
</lang> |
</lang> |
||