Seven-sided dice from five-sided dice: Difference between revisions
Content added Content deleted
Line 780: | Line 780: | ||
Loop Until temp < 21 |
Loop Until temp < 21 |
||
Return (temp Mod 7) +1 |
Return (temp Mod 7) +1 |
||
End Function |
|||
Function distCheck(n As Ulongint, delta As Double) As Ulongint |
|||
Dim As Ulongint a(n) |
|||
Dim As Ulongint maxBucket = 0 |
|||
Dim As Ulongint minBucket = 1000000 |
|||
For i As Ulongint = 1 To n |
|||
a(i) = dice5() |
|||
If a(i) > maxBucket Then maxBucket = a(i) |
|||
If a(i) < minBucket Then minBucket = a(i) |
|||
Next i |
|||
Dim As Ulongint nBuckets = maxBucket + 1 |
|||
Dim As Ulongint buckets(maxBucket) |
|||
For i As Ulongint = 1 To n |
|||
buckets(a(i)) += 1 |
|||
Next i |
|||
Dim As Ulongint expected = n / (maxBucket-minBucket+1) |
|||
Dim As Ulongint minVal = Int(expected*(1-delta)) |
|||
Dim As Ulongint maxVal = Int(expected*(1+delta)) |
|||
expected = Int(expected) |
|||
Print "minVal", "Expected", "maxVal" |
|||
Print minVal, expected, maxVal |
|||
Print "Bucket", "Counter", "pass/fail" |
|||
distCheck = true |
|||
For i As Ulongint = minBucket To maxBucket |
|||
Print i, buckets(i), Iif((minVal > buckets(i)) Or (buckets(i) > maxVal),"fail","") |
|||
If (minVal > buckets(i)) Or (buckets(i) > maxVal) Then Return false |
|||
Next i |
|||
End Function |
End Function |
||