Da Ambo Distanza 27 a Bari

Condizioni:
Distanze 27  Tutti
Ruote spia: Ba(And).
Posizioni estrattive spie: 12345
Ruote di gioco: Ba.
Colpi di gioco: 8
Algoritmi in gioco:
...
Ambata: 2 di Fi + 5 di Mi  *
Ambo: 4 di Ca + 3 di Fi *
Ambo: 5 di Ba + 1 di Mi  *
Ambo: 1 di Ro + 5 di Ve  *
...
Ambata: 4 di Ca + 1 di Na  *
Ambo: 4 di Ca + 3 di Fi *
Ambo: 5 di Ba + 1 di Mi  *
Ambo: 1 di Ro + 5 di Ve  *

sab 13.01.2018
Ambata 45
Abbinamenti per ambo: 21.75.90.
Esiti:
gio 01.02.2018 al 8 colpo su Ba ambata 45
Ambata 52
Abbinamenti per ambo: 21.75.90.
Esiti:
gio 25.01.2018 al 5 colpo su Ba ambata 52

sab 03.02.2018
Ambata 69
Abbinamenti per ambo: 5.67.15.
Esiti:
ESITO NEGATIVO
Ambata 22
Abbinamenti per ambo: 5.67.15.
Esiti:
mar 13.02.2018 al 4 colpo su Ba ambata 22
sab 17.02.2018 al 6 colpo su Ba ambata 22
mar 20.02.2018 al 7 colpo su Ba ambata 22
mar 20.02.2018 al 7 colpo su Ba ambo 22 - 5

gio 08.02.2018
Ambata 9
Abbinamenti per ambo: 53.40.66.
Esiti:
gio 22.02.2018 al 6 colpo su Ba ambata 9
gio 22.02.2018 al 6 colpo su Ba ambo 9 - 53
Ambata 15
Abbinamenti per ambo: 53.40.66.
Esiti:
ESITO NEGATIVO

gio 15.02.2018
Ambata 63
Abbinamenti per ambo: 74.54.18.
Esiti:
sab 17.02.2018 al 1 colpo su Ba ambata 63
sab 17.02.2018 al 1 colpo su Ba ambo 63 - 54
sab 17.02.2018 al 1 colpo su Ba ambo 63 - 18
Ambata 34
Abbinamenti per ambo: 74.54.18.
Esiti:
ESITO NEGATIVO

sab 17.02.2018
Ambata 44
Abbinamenti per ambo: 90.71.72.
Esiti:
mar 06.03.2018 al 7 colpo su Ba ambata 44
mar 06.03.2018 al 7 colpo su Ba ambo 44 - 71
gio 08.03.2018 al 8 colpo su Ba ambata 44
Ambata 24
Abbinamenti per ambo: 90.71.72.
Esiti:
mar 20.02.2018 al 1 colpo su Ba ambata 24

mar 20.02.2018
Ambata 27
Abbinamenti per ambo: 70.33.41.
Esiti:
sab 24.02.2018 al 2 colpo su Ba ambata 27
sab 24.02.2018 al 2 colpo su Ba ambo 27 - 70
Ambata 61
Abbinamenti per ambo: 70.33.41.
Esiti:
ESITO NEGATIVO

sab 24.02.2018
Ambata 61
Abbinamenti per ambo: 83.37.58.
Esiti:
ESITO NEGATIVO
Ambata 20
Abbinamenti per ambo: 83.37.58.
Esiti:
mar 27.02.2018 al 1 colpo su Ba ambata 20
mar 27.02.2018 al 1 colpo su Ba ambo 20 - 58
mar 06.03.2018 al 4 colpo su Ba ambata 20
mar 06.03.2018 al 4 colpo su Ba ambo 20 - 83

mar 06.03.2018
Ambata 24
Abbinamenti per ambo: 44.45.18.
Esiti:
sab 10.03.2018 al 2 colpo su Ba ambata 24
mar 13.03.2018 al 3 colpo su Ba ambata 24
mar 13.03.2018 al 3 colpo su Ba ambo 24 - 18
gio 15.03.2018 al 4 colpo su Ba ambata 24
Ambata 55
Abbinamenti per ambo: 44.45.18.
Esiti:
gio 08.03.2018 al 1 colpo su Ba ambata 55
gio 08.03.2018 al 1 colpo su Ba ambo 55 - 44
sab 24.03.2018 al 8 colpo su Ba ambata 55

sab 10.03.2018
Ambata 63
Abbinamenti per ambo: 12.72.83.
Esiti:
mar 27.03.2018 al 7 colpo su Ba ambata 63
Ambata 26
Abbinamenti per ambo: 12.72.83.
Esiti:
gio 29.03.2018 al 8 colpo su Ba ambata 26
gio 29.03.2018 al 8 colpo su Ba ambo 26 - 83

mar 13.03.2018
Ambata 63
Abbinamenti per ambo: 36.80.37.
Esiti:
mar 27.03.2018 al 6 colpo su Ba ambata 63
Ambata 25
Abbinamenti per ambo: 36.80.37.
Esiti:
sab 17.03.2018 al 2 colpo su Ba ambata 25

gio 29.03.2018
Ambata 88
Abbinamenti per ambo: 46.76.16.
Esiti:
mar 17.04.2018 al 8 colpo su Ba ambata 88
mar 17.04.2018 al 8 colpo su Ba ambo 88 - 46
Ambata 73
Abbinamenti per ambo: 46.76.16.
Esiti:
ESITO NEGATIVO

mar 10.04.2018
Ambata 31
Abbinamenti per ambo: 19.74.51.
Esiti:
sab 21.04.2018 al 5 colpo su Ba ambata 31
IN CORSO ...
Ambata 77
Abbinamenti per ambo: 19.74.51.
Esiti:
sab 14.04.2018 al 2 colpo su Ba ambata 77
gio 19.04.2018 al 4 colpo su Ba ambata 77
gio 19.04.2018 al 4 colpo su Ba ambo 77 - 74
IN CORSO ...

mar 24.04.2018
Ambata 50
Abbinamenti per ambo: 77.16.63.
Esiti:
IN CORSO ...
Ambata 55
Abbinamenti per ambo: 77.16.63.
Esiti:
IN CORSO ...

Data inizio ricerca : sab 13.01.2018
Data fine ricerca   : mar 24.04.2018

Casi esaminati : 13
Casi positivi  : 12
Casi negativi  : 0
Casi in corso  : 1
Casi positivi per ambata   : 12
Casi positivi per ambo     : 10

Vincite totali nei colpi di gioco:

Ambate         : 26
Ambi vinti     : 13

Estratti in 1 posizione  (12%)
Estratti in 2 posizione  (19%)
Estratti in 3 posizione  (23%)
Estratti in 4 posizione  (35%)
Estratti in 5 posizione  (12%)

Vincite su Ba  (100%)

ColoreTesto 2 :Scrivi String(37,32)&"Ambo  Distanza 27 BARI  di DjNomade  NUOVA VERSIONE DEL 24-04-2018 ",1


Scrivi String(45,32)&"List. by DjNomade",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10),amb(4),amb1(4)
Dim ruote(10),ruota(10)
Dim poste(5),poste1(5),poste2(5),poste3(5)
poste(1)=1

poste1(2)=1
poste2(2)=1
poste2(3)=1
fin=EstrazioneFin
ini=9421
For es=ini To fin
AvanzamentoElab ini,fin,es

ok=0
For r1=1 To 1
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)


n5=Distanza(n1,n2)

If n5=27  Then
If n5=27  Then ok=ok+1
If ok=1  Then

casi=casi+1:Scrivi String(75,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo stessa distanza < "&Format2(n1)&"."&Format2 (n2)&" > DISTANZA..."&Format2 (n5)

'Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:k=8:co=0



a1=Fuori90(Estratto(es,3,2)+Estratto(es,5,5)+90)'ambata
a2=Fuori90(Estratto(es,2,4)+Estratto(es,6,1)+90)'ambata
b1=Fuori90(Estratto(es,2,4)+Estratto(es,3,3)+90)
c1=Fuori90(Estratto(es,1,5)+Estratto(es,5,1)+90)
d1=Fuori90(Estratto(es,8,1)+Estratto(es,10,5)+90)





amb(1)=a1
amb(2)=b1
amb(3)=c1
amb(4)=d1


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

amb1(1)=a2
amb1(2)=b1
amb1(3)=c1
amb1(4)=d1


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



nu1(1)=amb(1)
nu1(2)=amb1(1)
ImpostaGiocata 1 ,nu1,ruote,poste,k

nu2(1)=amb(1)
nu2(2)=amb(2)

ImpostaGiocata 2 ,nu2,ruote,poste1,k
nu2(1)=amb(1)
nu2(2)=amb(3)

ImpostaGiocata 3 ,nu2,ruote,poste1,k
nu2(1)=amb(1)
nu2(2)=amb(4)

ImpostaGiocata 4 ,nu2,ruote,poste1,k


nu2(1)=amb1(1)
nu2(2)=amb1(2)

ImpostaGiocata 5 ,nu2,ruote,poste1,k
nu2(1)=amb1(1)
nu2(2)=amb1(3)

ImpostaGiocata 6 ,nu2,ruote,poste1,k
nu2(1)=amb1(1)
nu2(2)=amb1(4)

ImpostaGiocata 7 ,nu2,ruote,poste1,k





Gioca es
End If
End If
Next
:Next:Next
Next
ScriviResoconto
End Sub