FIRENZE-GENOVA

Algoritmi in gioco:
...
Ambata: 3 di Fi + 01 *
Ambo: 2 di Fi + 11 *
Ambo: 5 di Fi + 04 *
Ambo: 2 di Ge + 89 *
Ambo: 4 di Ge + 30 *

mar 19.02.2013
Ambata 28
Abbinamenti per ambo: 30.66.24.60.
Esiti:
sab 23.02.2013 al 2 colpo su Fi ambata 28
sab 23.02.2013 al 2 colpo su Fi ambo 28 - 60
sab 09.03.2013 al 8 colpo su Ge ambata 28

sab 08.06.2013
Ambata 60
Abbinamenti per ambo: 40.69.25.89.
Esiti:
mar 11.06.2013 al 1 colpo su Fi ambata 60
mar 11.06.2013 al 1 colpo su Fi ambo 60 - 69
mar 11.06.2013 al 1 colpo su Fi ambo 60 - 40

gio 16.01.2014
Ambata 47
Abbinamenti per ambo: 45.29.35.25.
Esiti:
sab 25.01.2014 al 4 colpo su Ge ambata 47
sab 25.01.2014 al 4 colpo su Ge ambo 47 - 29

sab 08.02.2014
Ambata 78
Abbinamenti per ambo: 38.40.59.54.
Esiti:
gio 27.02.2014 al 8 colpo su Fi ambata 78
gio 27.02.2014 al 8 colpo su Fi ambo 78 - 38
gio 27.02.2014 al 8 colpo su Fi ambo 78 - 40

sab 31.05.2014
Ambata 73
Abbinamenti per ambo: 54.6.68.70.
Esiti:
mar 03.06.2014 al 1 colpo su Fi ambata 73
mar 17.06.2014 al 7 colpo su Fi ambata 73
mar 24.06.2014 al 10 colpo su Fi ambata 73
mar 24.06.2014 al 10 colpo su Fi ambo 73 - 70

mar 03.06.2014
Ambata 88
Abbinamenti per ambo: 84.40.33.56.
Esiti:
mar 10.06.2014 al 3 colpo su Ge ambata 88
mar 10.06.2014 al 3 colpo su Ge ambo 88 - 84
gio 19.06.2014 al 7 colpo su Fi ambata 88
gio 19.06.2014 al 7 colpo su Fi ambo 88 - 33

sab 06.09.2014
Ambata 30
Abbinamenti per ambo: 25.4.84.56.
Esiti:
gio 11.09.2014 al 2 colpo su Ge ambata 30
gio 11.09.2014 al 2 colpo su Ge ambo 30 - 84
gio 11.09.2014 al 2 colpo su Ge ambo 30 - 56
sab 13.09.2014 al 3 colpo su Fi ambata 30
sab 27.09.2014 al 9 colpo su Fi ambata 30

sab 29.11.2014
Ambata 29
Abbinamenti per ambo: 84.13.66.67.
Esiti:
IN CORSO ...

Casi esaminati : 8
Ambate vinte   : 13
Ambi vinti     : 11

ColoreTesto 1
Scrivi "============================= SPIA 36 E AMBO DISTANZA 36 FIRENZE O GENOVA by DjNomade",1
Scrivi String(40,"=")&"listato by DjNomade ",1
ColoreTesto 0
Sub main()
Dim posta(5)
Dim poste(5),postee(5)
Dim ruote(5)

Dim am(10),cinq(10),abb(4)
posta(1)=1
poste(2)=1

postee(2)=1
postee(3)=1
postee(4)=0.5

casi=0
k=10
fin=EstrazioneFin
ini=8654
For es=ini To fin

For r=3 To 4
For p1=1 To 4
For p2=p1+1 To 5
For r1=3 To 4
For p3=1 To 5
n1=Estratto (es,r,p1)
n2=Estratto (es,r,p2)
If DISTANZA(n1,n2)=36 Then
n3=Estratto (es,r1,p3)
If n3=36 Then
If DISTANZA(n1,n2)=36  And n3=36 And((r=3 Or r=4)And(r1=3 Or r1=4)) Then  'CONDIZIONE DA RILEVARE :


Messaggio "Elaborazione estrazioni... " &(es) & "  --->  script by DjNomade"
casi=casi+1
Scrivi String (80,"=")&" Caso n° "&casi,1
ColoreTesto 2:Scrivi "SPIA 36 E AMBO DISTANZA 36 FIRENZE O GENOVA",1

If r=3 Then Scrivi DataEstrazione(es)&" "&Left(NomeRuota(3),3)&" "&_
StringaEstratti(es,3) &" -> "& Format2(n1)&" "& Format2(n2),True
If r=4 Then Scrivi DataEstrazione(es)&" "&Left(NomeRuota(4),3)&" "&_
StringaEstratti(es,4) &" -> "& Format2(n1)&" "& Format2(n2),True

If r1=3 Then Scrivi DataEstrazione(es)&" "&Left(NomeRuota(3),3)&"  -> "& Format2(n3),True

If r1=4 Then Scrivi DataEstrazione(es)&" "&Left(NomeRuota(4),3)&"  -> "& Format2(n3),True

'ColoreTesto 0: Scrivi String (80,"="),1

co=co+1
cont=cont+1

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


ruote(1)=3
ruote(2)=4  'si puo'aggiungere altre ruote
 

am(1)=amb
am(2)=amb
EliminaRipetuti am
ImpostaGiocata 1,am,ruote,posta,k
am(1)=amb
am(2)=abb(1)
ImpostaGiocata 2,am,ruote,poste,k
am(1)=amb
am(2)=abb(2)
ImpostaGiocata 3,am,ruote,poste,k
am(1)=amb
am(2)=abb(3)
ImpostaGiocata 4,am,ruote,poste,k

am(1)=amb
am(2)=abb(4)
ImpostaGiocata 5,am,ruote,poste,k


Gioca es
casi=casi+1
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
Scrivi "============================= SPIA 36 E AMBO DISTANZA 36 FIRENZE O GENOVA by DjNomade",1
Scrivi "================================================ List. DjNomade",1
Scrivi String(70,"="),1
End Sub