mette in gioco 1 ambata dopo l'uscita di un ambo spia sulla ruota di Roma
gli ambi spia esaminati sono 100, ho notato che funziona ancora (con qualche periodo di pausa)
Nell' output segnala il ritardo e la frequenza...
Usatelo per convergenze o come meglio credete
PS: SE USATE L8 TOGLIETE LA VIRGOLA E L' 1 DOPO GIOCA ES ALTRIMENTI
LE GIOCATE NON APPARIRANNO
Ciao
- Codice: Seleziona tutto
Sub Main()
ColoreTesto 1: Scrivi " Metodi _ Sommativi _ By _ Blackmore " :Scrivi
ColoreTesto 1: Scrivi " Un _ Ambata _ Su _ Roma" :Scrivi
ColoreTesto 1: Scrivi " Inizio Ricerca: 30/01/1993 - Fine Ricerca: 19/11/2011 " :Scrivi
ColoreTesto 1: Scrivi " Ambi spia analizzati: 100 " :Scrivi
Scrivi " ATTENZIONE: Se usate L8 o Lottodesk togliete la virgola e l'1 dopo Gioca es" : Scrivi : ColoreTesto 0
Dim ruota(1)
Dim ambata(1)
Dim num(1)
Dim posta(10)
Dim r(1)
posta(1) = 2
rr = InputBox("Ruota di Gioco:",,8)
ini = InputBox("Estrazione di partenza:",,6369)
fin = InputBox("Estrazione finale:",,EstrazioneFin)
k = InputBox("Colpi di Gioco:",,9)
co = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
Messaggio DataEstrazione(es)&" N°Estr. [ "& es &" ] --> 1 ambata dopo Ambo Spia By Blackmore <-- "
r(1) = rr
For p = 1 To 4
For p1 = p + 1 To 5
a = Estratto(es,rr,p) : b = Estratto(es,rr,p1)
ok = 0
'------------------------------------------------------------------------------------------------
If a = 47 And b = 80 Or a = 80 And b = 47 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 47):ok=1
If a = 17 And b = 31 Or a = 31 And b = 17 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 25):ok=1
If a = 44 And b = 74 Or a = 74 And b = 44 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 55):ok=1
If a = 72 And b = 77 Or a = 77 And b = 72 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 32):ok=1
If a = 32 And b = 84 Or a = 84 And b = 32 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 36):ok=1
If a = 23 And b = 47 Or a = 47 And b = 23 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 84):ok=1
If a = 27 And b = 41 Or a = 41 And b = 27 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 48):ok=1
If a = 13 And b = 80 Or a = 80 And b = 13 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 14):ok=1
If a = 03 And b = 30 Or a = 30 And b = 03 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 22):ok=1
If a = 39 And b = 50 Or a = 50 And b = 39 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 31):ok=1
If a = 41 And b = 57 Or a = 57 And b = 41 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 53):ok=1
If a = 46 And b = 64 Or a = 64 And b = 46 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 63):ok=1
If a = 38 And b = 83 Or a = 83 And b = 38 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 86):ok=1
If a = 50 And b = 90 Or a = 90 And b = 50 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 25):ok=1
If a = 18 And b = 80 Or a = 80 And b = 18 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 20):ok=1
If a = 33 And b = 56 Or a = 56 And b = 33 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 28):ok=1
If a = 20 And b = 75 Or a = 75 And b = 20 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 23):ok=1
If a = 03 And b = 73 Or a = 73 And b = 03 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 27):ok=1
If a = 86 And b = 87 Or a = 87 And b = 86 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 54):ok=1
If a = 22 And b = 76 Or a = 76 And b = 22 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 74):ok=1
If a = 70 And b = 76 Or a = 76 And b = 70 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 49):ok=1
If a = 53 And b = 57 Or a = 57 And b = 53 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 27):ok=1
If a = 17 And b = 30 Or a = 30 And b = 17 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 28):ok=1
If a = 34 And b = 49 Or a = 49 And b = 34 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 77):ok=1
If a = 10 And b = 86 Or a = 86 And b = 10 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 20):ok=1
If a = 32 And b = 71 Or a = 71 And b = 32 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 34):ok=1
If a = 17 And b = 51 Or a = 51 And b = 17 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 24):ok=1
If a = 56 And b = 57 Or a = 57 And b = 56 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 66):ok=1
If a = 04 And b = 81 Or a = 81 And b = 04 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 47):ok=1
If a = 72 And b = 83 Or a = 83 And b = 72 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 53):ok=1
If a = 37 And b = 56 Or a = 56 And b = 37 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 51):ok=1
If a = 59 And b = 78 Or a = 78 And b = 59 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 29):ok=1
If a = 25 And b = 68 Or a = 68 And b = 25 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 48):ok=1
If a = 05 And b = 36 Or a = 36 And b = 05 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 57):ok=1
If a = 26 And b = 67 Or a = 67 And b = 26 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 71):ok=1
If a = 53 And b = 66 Or a = 66 And b = 53 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 73):ok=1
If a = 70 And b = 77 Or a = 77 And b = 70 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 54):ok=1
If a = 24 And b = 65 Or a = 65 And b = 24 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 47):ok=1
If a = 35 And b = 50 Or a = 50 And b = 35 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 32):ok=1
If a = 74 And b = 76 Or a = 76 And b = 74 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 41):ok=1
If a = 07 And b = 78 Or a = 78 And b = 07 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 62):ok=1
If a = 07 And b = 88 Or a = 88 And b = 07 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 34):ok=1
If a = 29 And b = 61 Or a = 61 And b = 29 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 18):ok=1
If a = 38 And b = 54 Or a = 54 And b = 38 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 76):ok=1
If a = 69 And b = 76 Or a = 76 And b = 69 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 24):ok=1
If a = 01 And b = 08 Or a = 08 And b = 01 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 33):ok=1
If a = 40 And b = 64 Or a = 64 And b = 40 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 20):ok=1
If a = 20 And b = 77 Or a = 77 And b = 20 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 25):ok=1
If a = 48 And b = 83 Or a = 83 And b = 48 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 18):ok=1
If a = 13 And b = 58 Or a = 58 And b = 13 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 41):ok=1
If a = 22 And b = 48 Or a = 48 And b = 22 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 63):ok=1
If a = 17 And b = 73 Or a = 73 And b = 17 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 37):ok=1
If a = 28 And b = 43 Or a = 43 And b = 28 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 19):ok=1
If a = 12 And b = 49 Or a = 49 And b = 12 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 40):ok=1
If a = 17 And b = 52 Or a = 52 And b = 17 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 81):ok=1
If a = 29 And b = 75 Or a = 75 And b = 29 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 48):ok=1
If a = 22 And b = 89 Or a = 89 And b = 22 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 24):ok=1
If a = 23 And b = 35 Or a = 35 And b = 23 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 31):ok=1
If a = 47 And b = 58 Or a = 58 And b = 47 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 22):ok=1
If a = 02 And b = 41 Or a = 41 And b = 02 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 69):ok=1
If a = 31 And b = 79 Or a = 79 And b = 31 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 62):ok=1
If a = 11 And b = 28 Or a = 28 And b = 11 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 16):ok=1
If a = 36 And b = 39 Or a = 39 And b = 36 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 52):ok=1
If a = 02 And b = 26 Or a = 26 And b = 02 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 55):ok=1
If a = 47 And b = 50 Or a = 50 And b = 47 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 33):ok=1
If a = 17 And b = 88 Or a = 88 And b = 17 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 24):ok=1
If a = 18 And b = 34 Or a = 34 And b = 18 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 53):ok=1
If a = 48 And b = 70 Or a = 70 And b = 48 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 56):ok=1
If a = 01 And b = 65 Or a = 65 And b = 01 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 31):ok=1
If a = 10 And b = 41 Or a = 41 And b = 10 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 45):ok=1
If a = 37 And b = 81 Or a = 81 And b = 37 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 47):ok=1
If a = 05 And b = 69 Or a = 69 And b = 05 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 29):ok=1
If a = 04 And b = 76 Or a = 76 And b = 04 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 41):ok=1
If a = 01 And b = 27 Or a = 27 And b = 01 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 24):ok=1
If a = 43 And b = 72 Or a = 72 And b = 43 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 39):ok=1
If a = 28 And b = 68 Or a = 68 And b = 28 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 46):ok=1
If a = 08 And b = 58 Or a = 58 And b = 08 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 78):ok=1
If a = 48 And b = 55 Or a = 55 And b = 48 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 20):ok=1
If a = 23 And b = 74 Or a = 74 And b = 23 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 12):ok=1
If a = 11 And b = 60 Or a = 60 And b = 11 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 34):ok=1
If a = 03 And b = 28 Or a = 28 And b = 03 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 26):ok=1
If a = 42 And b = 71 Or a = 71 And b = 42 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 56):ok=1
If a = 10 And b = 48 Or a = 48 And b = 10 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 51):ok=1
If a = 34 And b = 66 Or a = 66 And b = 34 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 73):ok=1
If a = 07 And b = 24 Or a = 24 And b = 07 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 19):ok=1
If a = 09 And b = 40 Or a = 40 And b = 09 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 34):ok=1
If a = 03 And b = 90 Or a = 90 And b = 03 Then ambata(1) = Fuori90(Estratto(es,r(1),4) + 25):ok=1
If a = 76 And b = 90 Or a = 90 And b = 76 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 14):ok=1
If a = 13 And b = 72 Or a = 72 And b = 13 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 19):ok=1
If a = 30 And b = 87 Or a = 87 And b = 30 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 40):ok=1
If a = 49 And b = 82 Or a = 82 And b = 49 Then ambata(1) = Fuori90(Estratto(es,r(1),3) + 77):ok=1
If a = 45 And b = 75 Or a = 75 And b = 45 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 39):ok=1
If a = 23 And b = 56 Or a = 56 And b = 23 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 27):ok=1
If a = 45 And b = 64 Or a = 64 And b = 45 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 38):ok=1
If a = 31 And b = 78 Or a = 78 And b = 31 Then ambata(1) = Fuori90(Estratto(es,r(1),1) + 36):ok=1
If a = 09 And b = 12 Or a = 12 And b = 09 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 30):ok=1
If a = 22 And b = 90 Or a = 90 And b = 22 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 23):ok=1
If a = 49 And b = 76 Or a = 76 And b = 49 Then ambata(1) = Fuori90(Estratto(es,r(1),2) + 14):ok=1
If a = 42 And b = 82 Or a = 82 And b = 42 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 59):ok=1
If a = 13 And b = 27 Or a = 27 And b = 13 Then ambata(1) = Fuori90(Estratto(es,r(1),5) + 46):ok=1
'------------------------------------------------------------------------------------------------
If ok = 1 Then
co = co + 1
ColoreTesto 0
Scrivi String(110,"*") & " Caso n°" & Format2(co),1
ColoreTesto 1
Scrivi DataEstrazione(es) & " * " & NomeRuota(rr) & " * " & StringaEstratti(es,rr) & " * AMBO SPIA * " & a &"-"& b
ColoreTesto 0
cg = 0
ColoreTesto 0
num(1) = ambata(1)
cg = cg + 1
ColoreTesto 2
ra=SerieRitardo(ini,es,num,r,1)'--------> ra = ritardo ambata
Scrivi "IL RITARDO DELL'AMBATA " & Format2(num(1)) & " ALL'ESTRAZIONE DI CALCOLO E'DI: " & Format2(ra) & " ESTRAZIONI"
rsa=SerieStorico(1,es,num,r,1)'--------> rsa = ritardo storico assoluto ambata
Scrivi "IL RITARDO STORICO DELL'AMBATA " & Format2(num(1)) & " DAL 1871 AD OGGI E'DI: " & Format2(rsa) & " ESTRAZIONI"
fa=SerieFreq(ini,es,num,r,1)'--------> fa = frequenza ambata
Scrivi "LA FREQUENZA DELL'AMBATA " & Format2(num(1)) & " NEL PERIODO ESAMINATO E'DI: " & Format2(fa)
faa=SerieFreq(1,es,num,r,1)'--------> faa = frequenza assoluta ambata
Scrivi "LA FREQUENZA ASSOLUTA DELL'AMBATA " & Format2(num(1)) & " DAL 1871 AD OGGI E'DI: " & Format2(faa)
ColoreTesto 0
ImpostaGiocata cg,num,r,posta,k,1
Gioca es,1 ' Se usate L8 o Lottodesk togliete la virgola e l'1 dopo Gioca es
End If
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi
ScriviResoconto
End Sub