Terzine su Bari - Decine da 01 a 89

[Giulio Pedrinelli]

Ciao a tutti;

ho fatto un unico script che fra poco pubblicherò.

Per avere una visione d'insieme.
Inizio Estrazione 6877.

Rilevare una terzina su Bari appartenente alle decine sotto:

BA(1) 01-09 X1=3°NA(6)+66 / X2=1°FI(3)+46 / X3=4°MI(5)+11 / X4=5°VE(10)+50 x1-x3/x2-x4 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 11-19 X1=2°RO(8)+75 / X2=2°MI(5)+48 / X3=1°TO(9)+9 / X4=2°FI(3)+87 x1-x3/x2-x4 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 21-29 X1=4°FI(4)+5 / X2=5°VE(10)+80 / X3=1°PA(7)+44 / X4=2°FI(3)+55 x1-x4/x2-x3 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 31-39 X1=3°NZ(12)+59 / X2=3°MI(5)+68 / X3=2°CA(2)+81 / X4=4°MI(5)+29 x1-x3/x2-x4 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 41-49 X1=2°RO(8)+83 / X2=5°RO(8)+41 / X3=3°PA(7)+24 / X4=3°TO(9)+22 x1-x4/x2-x3 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 51-59 X1=3°GE(4)+15 / X°MI(5)+17 / X3=1°GE(4)+19 / X4=4°MI(5)+36 x1-x3/x2-x4 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 61-69 X1=1°VE(10)+83 / X2=2°FI(3)+53 / X3=4°RO(8)+11 / X4=1°FI(3)+60 x1-x3/x2-x4 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 71-79 X1=3°GE(4)+27 / X2=4°FI(3)+57 / X3=2°PA(7)+57 x1-x3/x2-x3 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)
BA(1) 81-89 X1=1°FI(3)+72 / X2=3°NA(6)+3 / X3=2°PA(7)+36 / X4=1°NA(6)+35 x1-x3/x2-x4 Ba(1)_Ca(2)_Fi(3)_GE(4)_Mi(5)

La prima colonna è la ruota di partenza, in questo caso Bari (numero 1), la seconda la decina, la terza gli algoritmi e gli ambi da giocare su Ba-Ca-Fi-Ge-Mi per 13 estrazioni.

Lo script ha contato 250 casi, però gli ambi sono due e andrebbe considerata come un unica previsione, nel senso che alla prima vincita d'ambo si interrompe il gioco.
Casi totali 250, casi positivi 165.

Qui di seguito lo script.

Sub Main()

Dim rt(5), pt(2), nu(2)
Dim es, ini, fin, clp, casi
Dim n(5), d

ini = 6877
fin = EstrazioneFin
clp = 13

' Ruote di gioco: BA-CA-FI-GE-MI
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5

pt(1)=0
pt(2)=1 ' Ambo

For es = ini To fin

AvanzamentoElab ini,fin,es

For k = 1 To 5
n(k) = Estratto(es,1,k) ' Bari
Next

d = DecinaTerzina

If d > 0 Then

casi = casi + 1
Scrivi String(70,"="),1
Scrivi "Caso n° " & casi & " - Estrazione " & es & " - Terzina su Bari decina " & d,1

Select Case d

Case 1 ' 01-09
x1 = Fuori90(Estratto(es,6,3)+66)
x2 = Fuori90(Estratto(es,3,1)+46)
x3 = Fuori90(Estratto(es,5,4)+11)
x4 = Fuori90(Estratto(es,10,5)+50)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 2 ' 11-19
x1 = Fuori90(Estratto(es,8,2)+75)
x2 = Fuori90(Estratto(es,5,2)+48)
x3 = Fuori90(Estratto(es,9,1)+9)
x4 = Fuori90(Estratto(es,3,2)+87)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 3 ' 21-29
x1 = Fuori90(Estratto(es,3,4)+5) ' 4° FI + 5
x2 = Fuori90(Estratto(es,10,5)+80)
x3 = Fuori90(Estratto(es,7,1)+44)
x4 = Fuori90(Estratto(es,3,2)+55)
Call GiocaAmbi(es,x1,x4,x2,x3,rt,pt,nu,clp)

Case 4 ' 31-39
x1 = Fuori90(Estratto(es,12,3)+59)
x2 = Fuori90(Estratto(es,5,3)+68)
x3 = Fuori90(Estratto(es,2,2)+81)
x4 = Fuori90(Estratto(es,5,4)+29)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 5 ' 41-49
x1 = Fuori90(Estratto(es,8,2)+83)
x2 = Fuori90(Estratto(es,8,5)+41)
x3 = Fuori90(Estratto(es,7,3)+24)
x4 = Fuori90(Estratto(es,9,3)+22)
Call GiocaAmbi(es,x1,x4,x2,x3,rt,pt,nu,clp)

Case 6 ' 51-59
x1 = Fuori90(Estratto(es,4,3)+15)
x2 = Fuori90(Estratto(es,5,5)+17)
x3 = Fuori90(Estratto(es,4,1)+19)
x4 = Fuori90(Estratto(es,5,4)+36)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 7 ' 61-69
x1 = Fuori90(Estratto(es,10,1)+83)
x2 = Fuori90(Estratto(es,3,2)+53)
x3 = Fuori90(Estratto(es,8,4)+11)
x4 = Fuori90(Estratto(es,3,1)+60)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

Case 8 ' 71-79
x1 = Fuori90(Estratto(es,4,3)+27)
x2 = Fuori90(Estratto(es,3,4)+57)
x3 = Fuori90(Estratto(es,7,2)+57)
Call GiocaAmbi(es,x1,x3,x2,x3,rt,pt,nu,clp)

Case 9 ' 81-89
x1 = Fuori90(Estratto(es,3,1)+72)
x2 = Fuori90(Estratto(es,6,3)+3)
x3 = Fuori90(Estratto(es,7,2)+36)
x4 = Fuori90(Estratto(es,6,1)+35)
Call GiocaAmbi(es,x1,x3,x2,x4,rt,pt,nu,clp)

End Select

Gioca es

End If

Next

Scrivi
Scrivi "Casi rilevati: " & casi,1
ScriviResoconto

End Sub


Function DecinaTerzina

Dim i, c, a, b

DecinaTerzina = 0

For d = 1 To 9

a = ((d-1)*10)+1
b = a+8
c = 0

For i = 1 To 5
If n(i) >= a And n(i) <= b Then c = c + 1
Next

If c >= 3 Then
DecinaTerzina = d
Exit Function
End If

Next

End Function


Sub GiocaAmbi(es,a,b,c,d,rt,pt,nu,clp)

Scrivi "Ambo 1: " & a & "." & b,1
nu(1)=a
nu(2)=b
ImpostaGiocata 1,nu,rt,pt,clp

Scrivi "Ambo 2: " & c & "." & d,1
nu(1)=c
nu(2)=d
ImpostaGiocata 2,nu,rt,pt,clp

End Sub