Novità

E' richiesta un po' folle..si puo' fare questo script?

S

sean69

Member
Buongiorno a tutti..io provo a chiedere gentilmente ,se possibile, uno script molto particolare..
E' possibile,ripeto possibile crearne uno che:

Esempio dal 2018 al 2025 ,solo nei mesi di giugno,mi da' tutte le cinquine frequenti per la sola sorte di Terno ( ambo no) su tutte le coppie di ruote ( Bari-Cagliari, Bari-Cagliari, ecc. fino a Torino-Nazionale e Venezia-Nazionale)?il tutto dovrebbe essere con imputbox (per cambiare gli anni di ricerca ed il mese di ricerca) oppure intercambiabile nel listato manualmente ( forse sarebbe piu' "facile"),poi basta che uno sa' dove cambiare i parametri.

Faccio esempio di cosa dovrebbe visualizzare listato ( messi numeri a caso per farvi capire)
Mese ; Maggio
Anni da Analizzare : 2018-2025
Le 2 ruote analizzate sono : Bari Cagliari
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc

Le 2 ruote analizzate sono : Bari Firenze
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc


fino a


Le 2 ruote analizzate sono : Torino Nazionale
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc

Le 2 ruote analizzate sono : Venezia Nazionale
Cinquina+FRE su 2R
42 70 02 01 11 03 queste sono le presenze
16 32 02 33 67 03
12 16 02 21 12 03
27 86 02 11 71 02
02 86 02 23 14 02
ecc

Non so se e' possibile farlo..spero qualcuno possa aiutarmi..grazie
 
Sub Main
Dim IniAnno, FinAnno, nMese, MinFre

' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1=Gen, 6=Giu, 12=Dic):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))

Call Scrivi("Mese : " & MeseName(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")

' 1. Pre-filtro: Troviamo solo le estrazioni valide per non scansionare l'archivio a vuoto
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0

For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)

Dim r1, r2, i, j, k, drawIdx
Dim n1, n2, n3, x, y, max1, max2, num1, num2
Dim numR(5)

' 2. Ciclo sulle coppie di ruote
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r1 = 11 Then Exit For
If r2 = 11 Then r2 = 12

Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")

' Array per conteggio frequenze numeri e terni (sui 90 interi)
Dim freqNum(90)
Dim freqTerno(90, 90, 90)

For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next

' Scansione veloce solo sulle estrazioni filtrate
For drawIdx = 1 To cDraws
id = aDraws(drawIdx)

' Elabora Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If

' Elabora Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next

' 3. Costruzione e Output delle Cinquine dai Terni frequenti
Dim trovate
trovate = 0

For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then

' Trova i 2 numeri più frequenti per completare la cinquina (esclusi n1, n2, n3)
max1 = -1 : max2 = -1
num1 = 0 : num2 = 0

For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next

' Ordina per stampare a video pulito
Dim Cinq(5)
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)

Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)))
trovate = trovate + 1

If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next

Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub
 
' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa

Sub Main
Dim IniAnno, FinAnno, nMese, MinFre

' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1-12):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))

Call Scrivi("Mese ; " & MeseName(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")

' 1. Pre-filtro: Estrazioni valide
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0

For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)

' 2. Mappatura esatta delle 11 ruote (da 1 a 10 + 12 Nazionale, escludendo l'11 Tutte)
Dim aRuote(11)
Dim i, j, k
For i = 1 To 10
aRuote(i) = i
Next
aRuote(11) = 12

Dim r1, r2, idx1, idx2, drawIdx
Dim n1, n2, n3, x, max1, max2, num1, num2
Dim numR(5)

' 3. Scansione automatica e garantita delle 55 coppie
For idx1 = 1 To 10
For idx2 = idx1 + 1 To 11
r1 = aRuote(idx1)
r2 = aRuote(idx2)

Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")

Dim freqNum(90)
Dim freqTerno(90, 90, 90)

For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next

For drawIdx = 1 To cDraws
id = aDraws(drawIdx)

' Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If

' Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next

Dim trovate
trovate = 0

For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then

max1 = -1 : max2 = -1
num1 = 0 : num2 = 0

For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next

Dim Cinq(5)
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)

Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)))
trovate = trovate + 1

If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next

Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub
 
Ho provato a modificare lo Script perché mi dava errore:

' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa
Sub Main
Dim IniAnno, FinAnno, nMese, MinFre
' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1-12):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))
Call Scrivi("Mese ; " & MeseNome(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")
' 1. Pre-filtro: Estrazioni valide
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0
For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)
' 2. Mappatura esatta delle 11 ruote (da 1 a 10 + 12 Nazionale, escludendo l'11 Tutte)
Dim aRuote(11)
Dim i, j, k
For i = 1 To 10
aRuote(i) = i
Next
aRuote(11) = 12
Dim r1, r2, idx1, idx2, drawIdx
Dim n1, n2, n3, x, max1, max2, num1, num2
Dim numR(5)
Dim Cinq(5)
Dim freqNum(90)
Dim freqTerno(90, 90, 90)
Dim trovate
' 3. Scansione automatica e garantita delle 55 coppie
For idx1 = 1 To 10
For idx2 = idx1 + 1 To 11
r1 = aRuote(idx1)
r2 = aRuote(idx2)
Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")
For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next
For drawIdx = 1 To cDraws
id = aDraws(drawIdx)
' Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
' Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next
trovate = 0
For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then
max1 = -1 : max2 = -1
num1 = 0 : num2 = 0
For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)
Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)))
trovate = trovate + 1
If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next
Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub

Questo è l'putput:

Le 2 ruote analizzate sono : Bari Cagliari
Cinquina+FRE su 2R
01 33 44 52 65 02
02 25 28 52 65 02
03 13 52 65 70 03
09 35 52 59 65 02
11 15 34 52 65 02
ecc

Le 2 ruote analizzate sono : Bari Firenze
Cinquina+FRE su 2R
01 09 22 29 31 02
01 09 31 46 83 02
01 09 31 49 66 02
04 09 20 31 55 02
06 09 31 39 73 02
ecc

Le 2 ruote analizzate sono : Bari Genova
Cinquina+FRE su 2R
02 03 17 55 75 02
02 03 40 41 55 02
03 04 54 55 76 02
03 05 34 55 63 02
03 08 51 53 55 02
ecc

Le 2 ruote analizzate sono : Bari Milano
Cinquina+FRE su 2R
01 03 26 66 69 02
01 26 48 66 77 02
01 26 31 49 66 02
ecc
Non so se è corretto

--------------------------------------------------------------------------------------------------------------------

Quest'altro ha un ouput diverso:
' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa
Sub Main
Dim IniAnno, FinAnno, nMese, MinFre
' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1-12):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))
Call Scrivi("Mese ; " & MeseNome(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")
' 1. Pre-filtro: Estrazioni valide
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0
For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)
' 2. Mappatura esatta delle 11 ruote (da 1 a 10 + 12 Nazionale, escludendo l'11 Tutte)
Dim aRuote(11)
Dim i, j, k
For i = 1 To 10
aRuote(i) = i
Next
aRuote(11) = 12
Dim r1, r2, idx1, idx2, drawIdx
Dim n1, n2, n3, x, max1, max2, num1, num2
Dim numR(5)
Dim Cinq(5)
Dim freqNum(90)
Dim freqTerno(90, 90, 90)
Dim trovate
' 3. Scansione automatica e garantita delle 55 coppie
For idx1 = 1 To 10
For idx2 = idx1 + 1 To 11
r1 = aRuote(idx1)
r2 = aRuote(idx2)
Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")
For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next
For drawIdx = 1 To cDraws
id = aDraws(drawIdx)
' Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
' Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next
trovate = 0
For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then
max1 = -1 : max2 = -1
num1 = 0 : num2 = 0
For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)
Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)) & " (Terno: " & Format2(n1) & " " & Format2(n2) & " " & Format2(n3) & " | Spia: " & Format2(num1) & " " & Format2(num2) & ")")
trovate = trovate + 1
If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next
Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub


1782609923247.png

ecc

Ringrazio Paperino, Pluto e Qui, Quo,Qua per il fattivo aiuto
Se lo script è corretto è merito mio, se è sbagliato rivolgetevi a Paperopoli
 
Ultima modifica:
Questo dovrebbe selezionare le Cinquine più probabili
(Ora modifico la logica: prima scansiono tutti i terni della coppia di ruote raccogliendo i 5 con frequenza più alta (con un inserimento ordinato in un array top-5), poi alla fine calcolo la spia e stampo solo quei 5, in ordine decrescente di frequenza. Aggiungo le nuove variabili in cima alla Sub, come da regola del motore).
' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa
Sub Main
Dim IniAnno, FinAnno, nMese, MinFre
' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1-12):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))
Call Scrivi("Mese ; " & MeseNome(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")
' 1. Pre-filtro: Estrazioni valide
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0
For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)
' 2. Mappatura esatta delle 11 ruote (da 1 a 10 + 12 Nazionale, escludendo l'11 Tutte)
Dim aRuote(11)
Dim i, j, k
For i = 1 To 10
aRuote(i) = i
Next
aRuote(11) = 12
Dim r1, r2, idx1, idx2, drawIdx
Dim n1, n2, n3, x, max1, max2, num1, num2
Dim numR(5)
Dim Cinq(5)
Dim freqNum(90)
Dim freqTerno(90, 90, 90)
Dim trovate
Dim t, freq3, posIns
Dim topF(5), topA(5), topB(5), topC(5)
' 3. Scansione automatica e garantita delle 55 coppie
For idx1 = 1 To 10
For idx2 = idx1 + 1 To 11
r1 = aRuote(idx1)
r2 = aRuote(idx2)
Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")
For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next
For drawIdx = 1 To cDraws
id = aDraws(drawIdx)
' Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
' Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next
trovate = 0
For t = 1 To 5
topF(t) = -1
topA(t) = 0
topB(t) = 0
topC(t) = 0
Next
For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then
freq3 = freqTerno(n1, n2, n3)
If freq3 > topF(5) Then
posIns = 5
Do While posIns > 1 And freq3 > topF(posIns - 1)
topF(posIns) = topF(posIns - 1)
topA(posIns) = topA(posIns - 1)
topB(posIns) = topB(posIns - 1)
topC(posIns) = topC(posIns - 1)
posIns = posIns - 1
Loop
topF(posIns) = freq3
topA(posIns) = n1
topB(posIns) = n2
topC(posIns) = n3
End If
End If
Next
Next
Next
For t = 1 To 5
If topF(t) > -1 Then
n1 = topA(t) : n2 = topB(t) : n3 = topC(t)
max1 = -1 : max2 = -1
num1 = 0 : num2 = 0
For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)
Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(topF(t)) & " (Terno: " & Format2(n1) & " " & Format2(n2) & " " & Format2(n3) & " | Spia: " & Format2(num1) & " " & Format2(num2) & ")")
trovate = trovate + 1
End If
Next
Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub

1782611894442.png

Il sesto numero non fa parte della cinquina — è la frequenza del terno. La cinquina è formata dal Terno più le due Spie (che sarebbero i numeri più frequenti col terno)

PS: Io non faccio Script, non ci capisco nulla, mi affido, totalmente alle AI, quindi non posso garantirti che siano corretti. Magari aspetta opinioni e Script da chi li sa fare. Mi sono intromesso solo perché mi incuriosiva vedere se le AI sarebbero state in grado di correggere (se davvero era da correggere) uno Script di Spaziometria. Scusa l'intromissione. Comunque ti aggiungo le tabelle riguardanti cinquine di Bari-Cagliari

1782615673366.png
1782615713047.png
1782615736766.png
1782615758099.png
1782615779471.png
 
Ultima modifica:
Buongiorno e Buona Domenica,grazie davvero..ottimo lavoro..peccato che gli script di AlessandroPe74 (grazie) diano errore ,sono sicuro che c'e' da correggere qualche virgola (danno entrambi errore sulla riga "Call Scrivi("Mese ; " & MeseName(nMese))" ).Grazie anche all'utente InRicordo .Intelligenza artificiale,la sto studiando,con le giuste domande risolve tante cose ma allo stesso tempo spaventa:sta prendendo il posto dell'uomo,non e' ancora perfetta e per questo fa paura,basta leggere la cronaca e mi fermo qui'..in questo caso ha aiutato In Ricordo ed il risultato e' ottimo:spero qualcuno( no IA , sarebbe soluzione migliore.. ) riesca a correggere quelli di AlessandroPE74 anche per vedere il frutto del suo lavoro.Ancora grazie,sempre gentilissimi

​

 
AlessandroPe74 ha scritto:
' Analisi Cinquine Frequenti (Sorte Terno) su tutte le 55 coppie di ruote
' Scansione globale e automatica
' Ricerca globale sui 90 numeri ottimizzata tramite scansione inversa

Sub Main
Dim IniAnno, FinAnno, nMese, MinFre

' Parametri di input
IniAnno = CInt(InputBox("Inserisci l'anno di inizio ricerca (es. 2018):", "Anno Inizio", 2018))
FinAnno = CInt(InputBox("Inserisci l'anno di fine ricerca (es. 2025):", "Anno Fine", 2025))
nMese = CInt(InputBox("Inserisci il mese da analizzare (1-12):", "Mese", 6))
MinFre = CInt(InputBox("Quante presenze minime per mostrare la cinquina?", "Presenze Minime", 2))

Call Scrivi("Mese ; " & MeseName(nMese))
Call Scrivi("Anni da Analizzare : " & IniAnno & "-" & FinAnno)
Call Scrivi("--------------------------------------------------")

' 1. Pre-filtro: Estrazioni valide
Dim aDraws()
Dim cDraws, id
ReDim aDraws(EstrazioniArchivio)
cDraws = 0

For id = 1 To EstrazioniArchivio
If Anno(id) >= IniAnno And Anno(id) <= FinAnno Then
If Mese(id) = nMese Then
cDraws = cDraws + 1
aDraws(cDraws) = id
End If
End If
Next
ReDim Preserve aDraws(cDraws)

' 2. Mappatura esatta delle 11 ruote (da 1 a 10 + 12 Nazionale, escludendo l'11 Tutte)
Dim aRuote(11)
Dim i, j, k
For i = 1 To 10
aRuote(i) = i
Next
aRuote(11) = 12

Dim r1, r2, idx1, idx2, drawIdx
Dim n1, n2, n3, x, max1, max2, num1, num2
Dim numR(5)

' 3. Scansione automatica e garantita delle 55 coppie
For idx1 = 1 To 10
For idx2 = idx1 + 1 To 11
r1 = aRuote(idx1)
r2 = aRuote(idx2)

Call Scrivi("Le 2 ruote analizzate sono : " & NomeRuota(r1) & " " & NomeRuota(r2))
Call Scrivi("Cinquina+FRE su 2R")

Dim freqNum(90)
Dim freqTerno(90, 90, 90)

For i = 1 To 90
freqNum(i) = 0
For j = 1 To 90
For k = 1 To 90
freqTerno(i, j, k) = 0
Next
Next
Next

For drawIdx = 1 To cDraws
id = aDraws(drawIdx)

' Ruota 1
For k = 1 To 5
numR(k) = Estratto(id, r1, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If

' Ruota 2
For k = 1 To 5
numR(k) = Estratto(id, r2, k)
If numR(k) > 0 Then freqNum(numR(k)) = freqNum(numR(k)) + 1
Next
If numR(1) > 0 Then
Call OrdinaMatrice(numR, 1)
For i = 1 To 3
For j = i + 1 To 4
For k = j + 1 To 5
freqTerno(numR(i), numR(j), numR(k)) = freqTerno(numR(i), numR(j), numR(k)) + 1
Next
Next
Next
End If
Next

Dim trovate
trovate = 0

For n1 = 1 To 88
For n2 = n1 + 1 To 89
For n3 = n2 + 1 To 90
If freqTerno(n1, n2, n3) >= MinFre Then

max1 = -1 : max2 = -1
num1 = 0 : num2 = 0

For x = 1 To 90
If x <> n1 And x <> n2 And x <> n3 Then
If freqNum(x) > max1 Then
max2 = max1
num2 = num1
max1 = freqNum(x)
num1 = x
ElseIf freqNum(x) > max2 Then
max2 = freqNum(x)
num2 = x
End If
End If
Next

Dim Cinq(5)
Cinq(1) = n1 : Cinq(2) = n2 : Cinq(3) = n3 : Cinq(4) = num1 : Cinq(5) = num2
Call OrdinaMatrice(Cinq, 1)

Call Scrivi(Format2(Cinq(1)) & " " & Format2(Cinq(2)) & " " & Format2(Cinq(3)) & " " & Format2(Cinq(4)) & " " & Format2(Cinq(5)) & " " & Format2(freqTerno(n1, n2, n3)))
trovate = trovate + 1

If trovate >= 5 Then Exit For
End If
Next
If trovate >= 5 Then Exit For
Next
If trovate >= 5 Then Exit For
Next

Call Scrivi("ecc")
Call Scrivi("")
Next
Next
End Sub
Clicca per espandere...
Entrambi i listati danno errore 13..si possono sistemare? Grazieerrore13.jpg
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 giugno 2026
    Bari
    46
    42
    63
    90
    08
    Cagliari
    86
    69
    76
    89
    55
    Firenze
    77
    54
    87
    57
    88
    Genova
    70
    65
    44
    76
    58
    Milano
    52
    41
    53
    74
    16
    Napoli
    32
    56
    09
    73
    63
    Palermo
    17
    82
    87
    84
    67
    Roma
    50
    09
    48
    79
    12
    Torino
    81
    43
    75
    21
    38
    Venezia
    15
    72
    65
    74
    60
    Nazionale
    88
    21
    04
    26
    55
    Estrazione Simbolotto
    Napoli
    03
    30
    18
    38
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto