Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi

Condizioni:
Numeri spia: 77.
Ruote spia: Ba(Or).Ca(Or).Fi(Or).Ge(Or).Mi(Or).Na(Or).Pa(Or).Ro(Or).To(Or).Ve(Or).Nz(Or).
Presenze: 1
Posizioni estrattive spie: 3
Ruote di gioco: Ba.
Colpi di gioco: 4
Algoritmi in gioco:
Come lunghetta:
...
DiametrDec 3 di To + 1 di Ba + 50 *
Decina 1 di Ro + 2 di Ro + 50 *
Figura 4 di Na + 2 di Nz + 82 *
Quadrato 1 di To + 2 di Fi + 66 *
...
Complemento90 4 di Ca + 1 di Ve + 82 *
Vertibile 1 di Fi + 4 di Ge + 42 *
SommaCifre 2 di Na + 5 di Na + 61 *
RadiceQuadrata 2 di Na + 2 di Nz + 79 *

sab 19.05.2018
42.8.50.72.
Esiti:
sab 26.05.2018 al 3 colpo su Ba Quaterna 72.42.8.50.
57.65.38.44.
Esiti:
gio 24.05.2018 al 2 colpo su Ba Terno 65.57.38.

mar 05.06.2018
9.87.52.17.
Esiti:
gio 07.06.2018 al 1 colpo su Ba Terno 17.9.87.
gio 14.06.2018 al 4 colpo su Ba Ambo 52.9.
2.29.35.50.
Esiti:
mar 12.06.2018 al 3 colpo su Ba Ambo 35.2.

sab 16.06.2018
50.28.29.71.
Esiti:
gio 21.06.2018 al 2 colpo su Ba Terno 50.28.71.
30.23.38.24.
Esiti:
mar 26.06.2018 al 4 colpo su Ba Ambo 30.23.

mar 17.07.2018
11.50.79.51.
Esiti:
sab 21.07.2018 al 2 colpo su Ba Ambo 50.11.
69.72.67.73.
Esiti:
gio 26.07.2018 al 4 colpo su Ba Ambo 69.72.

gio 02.08.2018
10.83.11.65.
Esiti:
sab 04.08.2018 al 1 colpo su Ba Ambo 83.10.
68.26.87.15.
Esiti:
sab 04.08.2018 al 1 colpo su Ba Terno 15.87.68.

sab 11.08.2018
56.55.26.73.
Esiti:
ESITO NEGATIVO
13.78.34.25.
Esiti:
ESITO NEGATIVO

mar 04.09.2018
15.69.25.22.
Esiti:
mar 11.09.2018 al 3 colpo su Ba Ambo 15.25.
gio 13.09.2018 al 4 colpo su Ba Ambo 15.22.
40.22.15.16.
Esiti:
gio 13.09.2018 al 4 colpo su Ba Quaterna 16.15.40.22.

sab 15.09.2018
17.21.73.40.
Esiti:
mar 25.09.2018 al 4 colpo su Ba Ambo 17.73.
35.88.33.74.
Esiti:
mar 18.09.2018 al 1 colpo su Ba Ambo 35.33.
gio 20.09.2018 al 2 colpo su Ba Terno 88.35.74.

gio 20.09.2018
52.53.49.54.
Esiti:
sab 22.09.2018 al 1 colpo su Ba Quaterna 54.53.49.52.
52.83.54.49.
Esiti:
sab 22.09.2018 al 1 colpo su Ba Quaterna 54.83.49.52.

sab 29.09.2018
26.57.44.14.
Esiti:
IN CORSO ...
23.12.78.38.
Esiti:
IN CORSO ...

Data inizio ricerca : sab 19.05.2018
Data fine ricerca : sab 29.09.2018

Casi esaminati : 10
Casi positivi : 16
Casi negativi : -7
Casi in corso : 1
Casi positivi per ambo : 6
Casi positivi per terno : 5
Casi positivi per quaterna : 3
Casi positivi per cinquina : 0

Vincite totali nei colpi di gioco:

Ambi vinti : 49
Terni vinti : 21
Quaterne vinte : 4
Cinquine vinte : 0

Vincite su Ba (100%)

Scrivi "============================= SE ESCE SPIA 77 in 3° Posiz. a Tutte o Nazion. by DjNomade",1
Scrivi String(70,"="),1
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ruote(5)

Dim am(10),amb(10),cinq(10),abb1(4),abb2(4),abb4(4),abb5(4)
posta(1)=1
poste(2)=1
postee(3)=1
postee(4)=1

casi=0
k=4
fin=EstrazioneFin
ini=9475
For es=ini To fin

nx=Sqr (Estratto(es,6,2)):nx1=(Int (nx*10000))
nx2=Left (Sqr (Estratto(es,6,2)),1)

a=77 'numero spia

abb2(1)=Fuori90(DiametraleD(Estratto(es,9,3))+Estratto(es,1,1)+50)
abb2(2)=Fuori90(Decina(Estratto(es,8,1))+Estratto(es,8,2)+50)
abb2(3)=Fuori90(Figura(Estratto(es,6,4))+Estratto(es,12,2)+82)
abb2(4)=Fuori90((Estratto(es,9,1)*Estratto(es,9,1))+Estratto(es,3,2)+66)


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(abb2) Then
rip = 1
While NumeriRipetuti(abb2)
For x = 1 To 3
For y = x + 1 To 4
If abb2(x) = abb2(y) Then abb2(y) = Fuori90(abb2(y) + 1)
Next
Next
Wend
End If
Rem fine formula



abb5(1)=Fuori90(90-Estratto(es,2,4)+Estratto(es,10,1)+82)
abb5(2)=Fuori90(Vert(Estratto(es,3,1))+Estratto(es,4,4)+42)
abb5(3)=Fuori90(Decina(Estratto(es,6,2))+Cadenza(Estratto(es,6,2))+Estratto(es,6,5)+61)
abb5(4)=Fuori90(nx2+Estratto(es,12,2)+79)

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(abb5) Then
rip = 1
While NumeriRipetuti(abb5)
For x = 1 To 3
For y = x + 1 To 4
If abb5(x) = abb5(y) Then abb5(y) = Fuori90(abb5(y) + 1)
Next
Next
Wend
End If
Rem fine formula



For r=1 To 12
If r=11 Then r=12

If Posizione(es,r,a)=3 Then
cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi

Scrivi DataEstrazione(es,1) & " < " &NomeRuota(r) & " " & StringaEstratti(es,r),1


ruote(1)=1

am(1)=abb2(1)
am(2)=abb5(1)
ImpostaGiocata 1,am,ruote,posta,k
amb(1)=abb2(1)
amb(2)=abb2(2)
ImpostaGiocata 2,amb,ruote,poste,k
amb(1)=abb2(1)
amb(2)=abb2(3)
ImpostaGiocata 3,amb,ruote,poste,k
amb(1)=abb2(1)
amb(2)=abb2(4)
ImpostaGiocata 4,amb,ruote,poste,k
amb(1)=abb5(1)
amb(2)=abb5(2)
ImpostaGiocata 5,amb,ruote,poste,k
amb(1)=abb5(1)
amb(2)=abb5(3)
ImpostaGiocata 6,amb,ruote,poste,k
amb(1)=abb5(1)
amb(2)=abb5(4)
ImpostaGiocata 7,amb,ruote,poste,k
cinq(1)=abb2(1)
cinq(2)=abb2(2)
cinq(3)=abb2(3)
cinq(4)=abb2(4)
ImpostaGiocata 8,cinq,ruote,postee,k
cinq(1)=abb5(1)
cinq(2)=abb5(2)
cinq(3)=abb5(3)
cinq(4)=abb5(4)
ImpostaGiocata 9,cinq,ruote,postee,k




Gioca es

End If

Next
Next
ScriviResoconto

Scrivi "=============================SE ESCE SPIA 77 in 3° Posizione a Tutte o Nazion. by DjNomade",1

Scrivi String(70,"="),1
End Sub