Crawler App

[Admin]

All about the Crawler App, new ideas, changes, way of playing . . .

[Admin]

For fun and your interest I publish source code for Bayes algo in Crawler App. (Visual Basic)

Private Sub bayes()
If totalSpins >= 37 Then
For p = 0 To 36
bayHit(p) = 0
Next p
For p = 1 To 37
Select Case Nbrs(p)
Case 0
bayHit(0) += 1
Case 1
bayHit(1) += 1
Case 2
bayHit(2) += 1
Case 3
bayHit(3) += 1
Case 4
bayHit(4) += 1
Case 5
bayHit(5) += 1
Case 6
bayHit(6) += 1
Case 7
bayHit(7) += 1
Case 8
bayHit(8) += 1
Case 9
bayHit(9) += 1
Case 10
bayHit(10) += 1
Case 11
bayHit(11) += 1
Case 12
bayHit(12) += 1
Case 13
bayHit(13) += 1
Case 14
bayHit(14) += 1
Case 15
bayHit(15) += 1
Case 16
bayHit(16) += 1
Case 17
bayHit(17) += 1
Case 18
bayHit(18) += 1
Case 19
bayHit(19) += 1
Case 20
bayHit(20) += 1
Case 21
bayHit(21) += 1
Case 22
bayHit(22) += 1
Case 23
bayHit(23) += 1
Case 24
bayHit(24) += 1
Case 25
bayHit(25) += 1
Case 26
bayHit(26) += 1
Case 27
bayHit(27) += 1
Case 28
bayHit(28) += 1
Case 29
bayHit(29) += 1
Case 30
bayHit(30) += 1
Case 31
bayHit(31) += 1
Case 32
bayHit(32) += 1
Case 33
bayHit(33) += 1
Case 34
bayHit(34) += 1
Case 35
bayHit(35) += 1
Case 36
bayHit(36) += 1
End Select
Next p

For i = 37 To 1 Step -1
For p = 0 To 36
bayNonHit(p) += 1
Next p
Select Case Nbrs(i)
Case 0
bayNonHit(0) = 0
Case 1
bayNonHit(1) = 0
Case 2
bayNonHit(2) = 0
Case 3
bayNonHit(3) = 0
Case 4
bayNonHit(4) = 0
Case 5
bayNonHit(5) = 0
Case 6
bayNonHit(6) = 0
Case 7
bayNonHit(7) = 0
Case 8
bayNonHit(8) = 0
Case 9
bayNonHit(9) = 0
Case 10
bayNonHit(10) = 0
Case 11
bayNonHit(11) = 0
Case 12
bayNonHit(12) = 0
Case 13
bayNonHit(13) = 0
Case 14
bayNonHit(14) = 0
Case 15
bayNonHit(15) = 0
Case 16
bayNonHit(16) = 0
Case 17
bayNonHit(17) = 0
Case 18
bayNonHit(18) = 0
Case 19
bayNonHit(19) = 0
Case 20
bayNonHit(20) = 0
Case 21
bayNonHit(21) = 0
Case 22
bayNonHit(22) = 0
Case 23
bayNonHit(23) = 0
Case 24
bayNonHit(24) = 0
Case 25
bayNonHit(25) = 0
Case 26
bayNonHit(26) = 0
Case 27
bayNonHit(27) = 0
Case 28
bayNonHit(28) = 0
Case 29
bayNonHit(29) = 0
Case 30
bayNonHit(30) = 0
Case 31
bayNonHit(31) = 0
Case 32
bayNonHit(32) = 0
Case 33
bayNonHit(33) = 0
Case 34
bayNonHit(34) = 0
Case 35
bayNonHit(35) = 0
Case 36
bayNonHit(36) = 0
End Select
Next i

End If

For i = 0 To 36
bayexp(i) = bayNonHit(i) * (1 / 37)
bayexpAll(i) = bayNonHitAll(i) * (1 / 37)
Next i

For p = 0 To 36
bayScore(p) = 0
Next p

For i = 0 To 36
AllNumbers4(i) = i
Next i

For p = 0 To 36
If nhCount >= 8 And hitCount >= 5 Then
If bayHitAll(p) > 0 And bayexp(p) > 0 And bayexpAll(p) > 0 Then
bayScore(p) = ((bayHit(p) * (bayWeight) + 1) / 37) * ((bayHitAll(p) * (bayWeight) / totalSpins)) * bayexp(p) * ((bayexpAll(p)))
Else
bayScore(p) = 0
End If
Else
bayScore(p) = ((bayHit(p) + 1) / 37) * (((bayHitAll(p) + 1) / totalSpins)) * (bayWeight * bayexp(p)) * (bayWeight * (bayexpAll(p)))
End If
Next p

Array.Sort(bayScore, AllNumbers4)
Array.Reverse(AllNumbers4)
Array.Reverse(bayScore)
End Sub