Option Explicit
Sub Main
'0904_23 Rosanna x Nelson1331
'http://forum.lottoced.com/f12/aiuto-per-il-gioco-del-lotto-superfrequenze-ed-assenze-106905/
'L' esempio che vi postero', riguarda l' estrazione del 28.06.2012 (8553)avente a Venezia i seguenti numeri : 87.53.60.55.10
'Quindi Keeper, mi aveva chiesto se scaturiva dai superfrequenti, nel 3° ciclo a ritroso, il terno 22.37.39 originato da Pa To Ba.
'Il 1° ciclo a ritroso, parte dal 28.06.2012 e si conclude il 29.03.2012 (le prime 40 estrazioni a ritroso, dalla 1° alla 40°)
'Il 2° ciclo a ritroso, parte dal 27.03.2012 e si conclude il 27.12.2011 (le seconde 40 estrazioni a ritroso, dalla 41° alla 80°)
'Il 3° ciclo a ritroso, parte dal 24.12.2011 e si conclude il 24.09.2011 (le terze 40 estrazioni a ritroso, dall' 81° alla 120°)
'Se percio' vorrai analizzare il 3° ciclo, scoprirai che esiste un terno, replicato 3 volte 20.21.30 ottenuto dalle ruote di Napoli, Roma, Torino ed uscito a Venezia il 12° colpo del 26.07.2012 esattamente 30.27.21.61.20. Devi cioe' prendere tutti i numeri ripetuti 3 o piu' volte, all' interno del 3° ciclo e ruota per ruota e ti accorgerai di questa evenienza.
'Aggiungo anche le formazioni integre delle 3 lunghette, cosi' potrete confrontarle :
'Napoli : 82 81 78 76 74 71 65 60 57 54 44 42 40 39 37 31 30 28 26 24 22 21 20 19 17 14 13 12 9 6 3 2
'Roma : 88 85 83 75 74 66 63 56 55 54 52 51 48 47 46 45 44 42 39 38 36 32 31 30 29 27 25 24 Torino : 21 20 18 15 8 7 6
'86 84 83 82 78 72 70 66 65 62 60 49 47 43 42 41 32 30 24 21 20 15 14 7 4 3 2
'---------
'I superassenti li ricavero' per ogni ciclo e per ogni ruota. Sono quelli che fisicamente hanno valore zero nelle presenze o 1 sola presenza.
Dim ini,fin,Ini1,Fin1,Ini2,Fin2,Ini3,Fin3
Dim es,ciclo,n,r,soglia,co1,co2,co3,nMaxCo1,nMaxCo2,nMaxCo3,conta1,conta2,conta3,i,y,z,r1,r2,r3,comb
Dim aRuota(1),aNum(1)
ReDim mFreq(3,90,10)
ReDim mNumFreq1(90,10),mNumFreq2(90,10),mNumFreq3(90,10),mSupAss1(90,10),mSupAss2(90,10),mSupAss2(90,10)
Dim sFrequenti1,sFrequenti2,sFrequenti3,sRighello
ciclo = 40' durata del ciclo
comb = 3 ' combinazione minima di numeri trovati su gruppi di 3 ruote
soglia = 2 ' soglia minima frequenza... ovvero cerca da quella frequenza in su
ini = 8550
fin = 8553
For es = ini To fin
AvanzamentoElab ini,fin,es
'-------------------------------------variabili di inizio e fine dei 3 cicli
Fin3 = es : Ini3 =(es - ciclo) + 1
Fin2 = Ini3 - 1 : Ini2 =(Fin2 - ciclo) + 1
Fin1 = Ini2 - 1 : Ini1 =(Fin1 - ciclo) + 1
'---------------------------------
nMaxCo1 = 0 : nMaxCo2 = 0 : nMaxCo3 = 0
'---------------------------------
ColoreTesto 1
Scrivi
Scrivi "========================================================================================================"
Scrivi Space(35) & "RICERCA SU CICLI DI " & ciclo & " ESTRAZIONI",1
Scrivi "| " & Ini1 & "------- 1°ciclo -------" & Fin1 & " | " & Ini2 & "------- 2°ciclo -------" & Fin2 & " | " &_
Ini3 & "------- 3°ciclo -------" & Fin3 & " |"
Scrivi "| " & DataEstrazione(Ini1) & "- 1°ciclo -" & DataEstrazione(Fin1) & " | " & DataEstrazione(Ini2) &_
"- 2°ciclo -" & DataEstrazione(Fin2) & " | " & DataEstrazione(Ini3) & "- 3°ciclo -" & DataEstrazione(Fin3) & " |"
Scrivi "========================================================================================================"
Scrivi
ColoreTesto 0
ReDim mFreq(3,90,10)
For n = 1 To 90 ' calcolo delle frequenze dei 90 numeri per i 3 cicli
aNum(1) = n
For r = 1 To 10
aRuota(1) = r
mFreq(1,n,r) = SerieFreqTurbo(Ini1,Fin1,aNum,aRuota,1)
mFreq(2,n,r) = SerieFreqTurbo(Ini2,Fin2,aNum,aRuota,1)
mFreq(3,n,r) = SerieFreqTurbo(Ini3,Fin3,aNum,aRuota,1)
Next
Next
'Scrivi"-------------vedo TUTTA LA 1° dim MATRICE DEI 90NUM X 10RUOTE-------------1° ciclo-------"
'For n = 1 To 90
' Scrivi Format2(n),0,0
' For r = 1 To 10
' If mFreq(1,n,r) > soglia Then ColoreTesto 2 Else ColoreTesto 0
' Scrivi FormatSpace(mFreq(1,n,r),2,1)& " ",0,0
' If r = 10 Then Scrivi
' ColoreTesto 0
' Next
'Next
'Scrivi"-------------vedo TUTTA LA 2° dim MATRICE DEI 90NUM X 10RUOTE-------------2° ciclo-------"
'For n = 1 To 90
' Scrivi Format2(n),0,0
' For r = 1 To 10
' If mFreq(2,n,r) > soglia Then ColoreTesto 2 Else ColoreTesto 0
' Scrivi FormatSpace(mFreq(2,n,r),2,1)& " ",0,0
' If r = 10 Then Scrivi
' ColoreTesto 0
' Next
'Next
'Scrivi"-------------vedo TUTTA LA 3° dim MATRICE DEI 90NUM X 10RUOTE-------------3° ciclo-------"
'For n = 1 To 90
' Scrivi Format2(n),0,0
' For r = 1 To 10
' If mFreq(3,n,r) > soglia Then ColoreTesto 2 Else ColoreTesto 0
' Scrivi FormatSpace(mFreq(3,n,r),2,1)& " ",0,0
' If r = 10 Then Scrivi
' ColoreTesto 0
' Next
'Next
'Scrivi "--------- le ruote di ciascun SUPERFREQUENTE -------- 1° ciclo----------------------"
'For n = 1 To 90
'Scrivi Format2(n) & " ",0,0
'For r = 1 To 10
'If mFreq(1,n,r) > soglia Then Scrivi SiglaRuota(r) & " ",0,0
'Next
'Scrivi
'Next
'Scrivi "--------- le ruote di ciascun SUPERFREQUENTE -------- 2°ciclo ----------------------"
'For n = 1 To 90
' Scrivi Format2(n) & " ",0,0
' For r = 1 To 10
' If mFreq(2,n,r) > soglia Then Scrivi SiglaRuota(r) & " ",0,0
' Next
' Scrivi
'Next
'Scrivi "--------- le ruote di ciascun SUPERFREQUENTE -------- 3°ciclo ----------------------"
'For n = 1 To 90
'Scrivi Format2(n) & " ",0,0
'For r = 1 To 10
'If mFreq(3,n,r) > soglia Then Scrivi SiglaRuota(r) & " ",0,0
'Next
'Scrivi
'Next
'------------------------------------------------------------------------------
sRighello = Space(3)
For i = 1 To 40 : sRighello = sRighello & Format2(i) & " ": Next
'------------------------------------------------------------------------------
Scrivi "-------------i numeri superfrequenti (freq>" & soglia & ") per ogni ruota-----1° ciclo---" & Ini1 & "-" & Fin1,1
ColoreTesto 2 : Scrivi sRighello : ColoreTesto 0
For r = 1 To 10
Scrivi SiglaRuota(r) & " ",0,0
For n = 90 To 1 Step - 1
If mFreq(1,n,r) > soglia Then Scrivi Format2(n) & " ",0,0
Next
Scrivi
Next
Scrivi
Scrivi "-------------i numeri superfrequenti (freq>" & soglia & ") per ogni ruota-----2° ciclo----" & Ini2 & "-" & Fin2,1
ColoreTesto 2 : Scrivi sRighello : ColoreTesto 0
For r = 1 To 10
Scrivi SiglaRuota(r) & " ",0,0
For n = 90 To 1 Step - 1
If mFreq(2,n,r) > soglia Then Scrivi Format2(n) & " ",0,0
Next
Scrivi
Next
Scrivi
Scrivi "-------------i numeri superfrequenti (freq>" & soglia & ") per ogni ruota-----3° ciclo----" & Ini3 & "-" & Fin3,1
ColoreTesto 2 : Scrivi sRighello : ColoreTesto 0
For r = 1 To 10
Scrivi SiglaRuota(r) & " ",0,0
For n = 90 To 1 Step - 1
If mFreq(3,n,r) > soglia Then Scrivi Format2(n) & " ",0,0
Next
Scrivi
Next
Scrivi
'------------------------------------------------------------------------------
Scrivi "-------------i numeri SUPERASSENTI (freq<2)per ogni ruota-----1° ciclo---" & Ini1 & "-" & Fin1,1
ColoreTesto 2 : Scrivi sRighello : ColoreTesto 1
For r = 1 To 10
Scrivi SiglaRuota(r) & " ",0,0
For n = 90 To 1 Step - 1
If mFreq(1,n,r) <2 Then Scrivi Format2(n) & " ",0,0
Next
Scrivi
Next
Scrivi
ColoreTesto 0
Scrivi "-------------i numeri SUPERASSENTI (freq<2)per ogni ruota-----2° ciclo----" & Ini2 & "-" & Fin2,1
ColoreTesto 2 : Scrivi sRighello : ColoreTesto 1
For r = 1 To 10
Scrivi SiglaRuota(r) & " ",0,0
For n = 90 To 1 Step - 1
If mFreq(2,n,r) <2 Then Scrivi Format2(n) & " ",0,0
Next
Scrivi
Next
Scrivi
ColoreTesto 0
Scrivi "-------------i numeri SUPERASSENTI (freq<2)per ogni ruota-----3° ciclo----" & Ini3 & "-" & Fin3,1
ColoreTesto 2 : Scrivi sRighello : ColoreTesto 1
For r = 1 To 10
Scrivi SiglaRuota(r) & " ",0,0
For n = 90 To 1 Step - 1
If mFreq(3,n,r) <2 Then Scrivi Format2(n) & " ",0,0
Next
Scrivi
Next
Scrivi
'--------------------- vado a vedere per ogni numero in quali ruote erano superfreq 1° ciclo
ReDim mNumFreq1(90,10)
For n = 1 To 90
mNumFreq3(n,0) = n
co1 = 0
For r = 1 To 10
If mFreq(1,n,r) > soglia Then co1 = co1 + 1 : mNumFreq1(n,co1) = r
If co1 > nMaxCo1 Then nMaxCo1 = co1
Next
Next
'--------------------- vado a vedere per ogni numero quali ruote erano superfreq 2° ciclo
ReDim mNumFreq2(90,10)
For n = 1 To 90
mNumFreq3(n,0) = n
co2 = 0
For r = 1 To 10
If mFreq(2,n,r) > soglia Then co2 = co2 + 1 : mNumFreq2(n,co2) = r
If co2 > nMaxCo2 Then nMaxCo2 = co2
Next
Next
'--------------------- vado a vedere per ogni numero quali ruote erano superfreq 3° ciclo
ReDim mNumFreq3(90,10)
For n = 1 To 90
mNumFreq3(n,0) = n
co3 = 0
For r = 1 To 10
If mFreq(3,n,r) > soglia Then co3 = co3 + 1 : mNumFreq3(n,co3) = r
If co3 > nMaxCo3 Then nMaxCo3 = co3
Next
Next
'------------qui creo le terzine di ruote 1° ciclo e verifico le combinaz - Al momento le scrive solo come stringhe di testo...
ColoreTesto 0
Scrivi "-- Ricerca combinazioni >= " & comb & " di superfrequenti (freq>" & soglia & ") nel 1° ciclo ------ " & Ini1 & "-" & Fin1 & " comprese",1
For i = 1 To 8
For y = i + 1 To 9
For z = y + 1 To 10
sFrequenti1 = ""
conta1 = 0
For n = 1 To 90
For r1 = 1 To nMaxCo1 - 2
For r2 = r1 + 1 To nMaxCo1 - 1
For r3 = r2 + 1 To nMaxCo1
If i = mNumFreq1(n,r1) And y = mNumFreq1(n,r2) And z = mNumFreq1(n,r3) Then
sFrequenti1 = sFrequenti1 & Format2(n) & " "
conta1 = conta1 + 1
'ColoreTesto 2
'Scrivi Format2(n) & " "& SiglaRuota(mNumFreq1(n,r1))&"."& SiglaRuota(mNumFreq1(n,r2))&"."& SiglaRuota(mNumFreq1(n,r3))
'Scrivi Format2(n) & " - "& (mNumFreq1(n,r1))&"."& (mNumFreq1(n,r2))&"."& (mNumFreq1(n,r3))
'ColoreTesto 0
End If
Next
Next
Next
Next
If conta1 >= comb Then ' combinazione minima
ColoreTesto 1
Scrivi SiglaRuota(i) & "." & SiglaRuota(y) & "." & SiglaRuota(z) & " " & sFrequenti1
End If
Next
Next
Next
'------------qui creo le terzine di ruote 2° ciclo
ColoreTesto 0
Scrivi "-- Ricerca combinazioni >= " & comb & " di superfrequenti (freq>" & soglia & ") nel 2° ciclo ------ " & Ini2 & "-" & Fin2 & " comprese",1
For i = 1 To 8
For y = i + 1 To 9
For z = y + 1 To 10
sFrequenti2 = ""
conta2 = 0
For n = 1 To 90
For r1 = 1 To nMaxCo2 - 2
For r2 = r1 + 1 To nMaxCo2 - 1
For r3 = r2 + 1 To nMaxCo2
If i = mNumFreq2(n,r1) And y = mNumFreq2(n,r2) And z = mNumFreq2(n,r3) Then
sFrequenti2 = sFrequenti2 & Format2(n) & " "
conta2 = conta2 + 1
'ColoreTesto 2
'Scrivi Format2(n) & " "& SiglaRuota(mNumFreq2(n,r1))&"."& SiglaRuota(mNumFreq2(n,r2))&"."& SiglaRuota(mNumFreq2(n,r3))
'Scrivi Format2(n) & " - "& (mNumFreq2(n,r1))&"."& (mNumFreq2(n,r2))&"."& (mNumFreq2(n,r3))
'ColoreTesto 0
End If
Next
Next
Next
Next
If conta2 >= comb Then ' combinazione minima
ColoreTesto 1
Scrivi SiglaRuota(i) & "." & SiglaRuota(y) & "." & SiglaRuota(z) & " " & sFrequenti2
End If
Next
Next
Next
'------------qui creo le terzine di ruote 3° ciclo
ColoreTesto 0
Scrivi "-- Ricerca combinazioni >=" & comb & " di superfrequenti (freq>" & soglia & ") nel 3° ciclo ------ " & Ini3 & "-" & Fin3 & " comprese",1
For i = 1 To 8
For y = i + 1 To 9
For z = y + 1 To 10
sFrequenti3 = ""
conta3 = 0
For n = 1 To 90
For r1 = 1 To nMaxCo3 - 2
For r2 = r1 + 1 To nMaxCo3 - 1
For r3 = r2 + 1 To nMaxCo3
If i = mNumFreq3(n,r1) And y = mNumFreq3(n,r2) And z = mNumFreq3(n,r3) Then
sFrequenti3 = sFrequenti3 & Format2(n) & " "
conta3 = conta3 + 1
'ColoreTesto 2
'Scrivi Format2(n) & " "& SiglaRuota(mNumFreq3(n,r1))&"."& SiglaRuota(mNumFreq3(n,r2))&"."& SiglaRuota(mNumFreq3(n,r3))
'Scrivi Format2(n) & " - "& (mNumFreq3(n,r1))&"."& (mNumFreq3(n,r2))&"."& (mNumFreq3(n,r3))
'ColoreTesto 0
End If
Next
Next
Next
Next
If conta3 >= comb Then ' combinazione minima
ColoreTesto 1
Scrivi SiglaRuota(i) & "." & SiglaRuota(y) & "." & SiglaRuota(z) & " " & sFrequenti3
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
End Sub