Script da fare con calma

[Duplex]

Tempo fa,qualche anno fa,postai una lunghetta che diede quaterna. Ciò derivava da una mole di numeri esagerata. In effetti,e potete controllare visivamente,se si utilizzano decine 30,60,80 e le cadenze 3,6,8 vengono fuori nelle estrazioni quaterne e cinquine. Es: nell'ultima est del 18/03/25 si nota MI 62-65-80-78 senza calcolare i terni. Ora, troppi numeri da poter giocare,anche in decina,quindi servirebbe uno script che analizzi le frequenze di sortita solo di Q/C di questa massa di numeri su ogni ruota,Nazionale compresa. Ovviamente serve anche l'elenco dei numeri sortiti. E' fattibile uno script del genere? (il totale della massa numerica è composta da 48 numeri).

 

[Duplex]

Niente? Troppo complicato?

 

[InRicordo]

Niente? Troppo complicato?

Complicato è capire cosa intendi. Dici: "...se si utilizzano decine 30,60,80 e le cadenze 3,6,8..."
3 Decine sono 30 numeri, 3 Cadenze sono 27 numeri (alcuni in comune con le decine)
Per un totale di 48 numeri (più del 50% dei 90 del lotto) E certamente è vero che danno ambi, terni, quaterne e perché no, cinquine.
48 numeri danno 1128 ambi, 17296 terni, 194580 quaterne e 1712304 cinquine.
Lasciando perdere ambi e terni rimangono un numero di combinazioni difficilmente gestibili. Hai presente a quanto ammonta, ad esempio, il ritardo teorico di una quaterna, per non parlare di una cinquina? E quanto grande dovrebbe essere il foglio per riportare i risultati?
Quindi immagino che tu non avresti abbastanza tempo per consultare le 1.712.304 righe che riportano le frequenze o quant'altro delle cinquine.
E poi, anche conoscendo le frequenze a cosa ti servirebbero? Sai quante sono le cinquine MAI uscite dalla fondazione del Lotto?
O forse io non ha capito cosa volevi?
Ciao
Baciccia

 

[Duplex]

Si,molto complicato. L'Ai ha generato il codice,ma tempi di elaborazione lunghi tanto da far terminare lo script per eccesso di timeout (ed era su ruota elaborando solo 10 estrazioni). E pensare che nel 1995 esisteva un software che girava in DOS su win 3.1...elaborava qualsiasi massa numerica dall'ambo alla cinquina, fino a 90 numeri, e te li metteva per frequenza, ritardi, su ruota e su tutte. Sono passati 30 anni, i pc sono sempre più potenti, ma a volte non riescono a fare cose....antiche. Scusate la richiesta!

 

[InRicordo]

Si,molto complicato. L'Ai ha generato il codice,ma tempi di elaborazione lunghi tanto da far terminare lo script per eccesso di timeout (ed era su ruota elaborando solo 10 estrazioni). E pensare che nel 1995 esisteva un software che girava in DOS su win 3.1...elaborava qualsiasi massa numerica dall'ambo alla cinquina, fino a 90 numeri, e te li metteva per frequenza, ritardi, su ruota e su tutte. Sono passati 30 anni, i pc sono sempre più potenti, ma a volte non riescono a fare cose....antiche. Scusate la richiesta!

Non ti devi certo scusare. Anche oggi è possibile, per chi lo sa fare, elaborare quantità strabiianti di dati. Io non sono tra questi.
Ma non è solo un problema di elaborazione. Per quanto riguarda quaterne e cinquine le normali statistiche sono impossibili.
Pensa che se prendiamo le estrazioni dal 1939 ad oggi scopriamo che solo una esigua parte delle quaterne e cinquine possibili sono uscite.
Per le cinquine solo poco più di diecimila contro più di un milione e settecentomila. Non esiste statistica. Che, tieni presente, non è che faccia sfracelli neanche con ambi e terni.
Comunque non scoraggiarti e appena ti verrà in mente qualcosa di fattibile chiedi, qualcuno risponderà di certo.
Baciccia

 

[H_Liam]

Salve Duplex, io non sono esperto di Lotto ma come tanti mi ero cimentato a crearmi qualche routine per simulare questo gioco con l’intento di trovare un nesso ( ammesso che esista ) per estrapolare qualcosa di utile dove poi alla fine mi ero arreso perché contro la casualità non esistono metodi Vincenti.
Per pura curiosità ho provato a sviluppare il tuo iter, e vedere se i 48 numeri che hai indicato fossero performanti al punto di ricavare qualche cosa di utile ed ipotizzare un possibile attacco al banco.
Per semplicità ho provato a partire dalle estrazioni del periodo dove tutte le Venus erano in funzione; dalla data del ( 15;09;2009 ) escludendo la ruota Nazionale .
[ solo una premessa, per decine 30-60-80 ] intendi i numeri dal:
30 al 39
60 al 69
80 al 89 ?

Suppongo di sì visto che avevi citato:

MI 62-65-80-78

Bene, ho stilato un veloce codice che ho poi controllato con script ( il codice esegue l’analisi in pochi secondi, mentre lo script necessita di alcuni minuti )
Mi soffermo su questa tua richiesta:

che analizzi le frequenze di sortita solo di Q/C di questa massa di numeri su ogni ruota

I tuoi 48 numeri nel periodo che ho scritto, hanno dato 6 Quaterne con 3 volte 4 punti. ( ruota Tutte )
Hanno dato 1 Cinquina con 2 volte 5 punti. ( ruota tutte )
Possiamo affermare che i risultati siano stati miseri, ( poi se vuoi ti metto le Quartine e la Cinquina ).
Anche passando da tutti i 90 numeri ( invece di 48 ) i dati emersi non sono soddisfacenti:
53 Quaterne con 3 volte 4 punti.
12 Cinquine con 2 volte 5 punti. ( sempre periodo dal 15;09;2009 Nazionale esclusa )
Questo è quanto emerge dal codice e dal verifica esito con script.
Se invece di chiedere :

le frequenze di sortita solo di Q/C di questa massa di numeri

Dovessimo coinvolgere le Quartine per 3 punti, oppure le Cinquine per 3 o 4 punti le presenze subiranno un aumento.

Se poi chiediamo al codice di trovarci le lunghette ( esempio 6 numeri per sorte terno ) oppure 7 numeri per sorte quaterna si potrebbe avere una panoramica sulle presenze più completa!
Tieni presente che fino alle Quartine e Cinquine su 48 numeri , anche gli script sono velocissimi i compilati ancora meglio ; le cose cambiano drasticamente se dovessimo chiedere di sviluppare sestine, settine , ottine e Novine per non parlare delle Decine dove bisogna passare da più di 5.700 miliardi di formazioni da iterare!
Buona serata.
Liam

 

[Duplex]

H_Liam,in effetti mancano le cadenze 3,6,8 in aggiunta alle decine. Cinquine...così,tanto per parlarne con una semplice ricerca visiva......
16/01/25 CA 58 88 03 30 65
01/03/25 GE 78 66 76 81 67
15/03/25 MI 34 23 73 61 68
09/01/25 RM 18 84 43 28 31
14/01/25 TO 76 08 23 61 82

.......... quindi nel periodo che hai considerato,ce ne saranno molte di più. Il vero problema,come hai scritto,sarebbe l'enorme dispendio,impossibile del resto da attuare, giocare combinazioni anche in decine. Forse giocarne qualcuna,a scelta del giocatore. 1 sola decina da 1 euro,qualora partorisse 5 numeri,darebbe una vincita (su TUTTE),di 2190 euro.
Ci vuole il..chiamiamolo... QF ( Quoziente Fortuna),insomma un pò di cu...ccuruccuccù!

 

[salva 57]

Buongiorno a tutti sono salva57
I numeri si possono ridurre
Se si gioca con le tavole infallibili
Si prendono 2 tavole, che possono essere
Quelle che volete voi
E si sviluppano in sistema 5/6/7/8
Oppure con le Più probabili
Provate a giocare
Virtualmente con le estrazioni
Prendete 2 cifre e controllate
Invece se volete giocare più numeri
E semplice prendere i 45 numeri
Pari o dispari
Quante volte a vete visto tutti i 5 numeri
O pari o dispari? Semplice semplice
Certo che una massa numerica
Così sviluppa tante combinazioni
Che purtroppo non sono alla nostra portata, mi spiace

 

[salva 57]

Metodo cifra es di ieri sera
Venezia cifra 7--3
Estratti 75--87--27--38--39
3 numeri di cifra7 75--87--27
2 numeri di cifra 3 38--39
Totale 5 quintali con 36 numeri
Invece il pari dispari ha dato
Su Genova la 5quina dispari
Ge 67--59--19--83--17
Da perdere la testa amici

 

[Duplex]

Salva 57,sarebbe forse meglio orientarsi sulle Terzine Simmetriche,ovviamente,anche qui ci vuole il Q F

 

[H_Liam]

Buon giorno Duplex, a volte partecipare ai post si rivela più difficile di quanto si possa pensare perchè non si riesce a farsi capire.
Non sempre è colpa dello scrivente ma in alcuni casi una parte di colpa l'ha chi legge solo marginalmente le risposte.
Provo a ricapitolare >
Chiedevi:

troppi numeri da poter giocare,anche in decina,quindi servirebbe uno script che analizzi le frequenze di sortita solo di Q/C di questa massa di numeri

In risposta avevo scritto:

I tuoi 48 numeri nel periodo che ho scritto, hanno dato 6 Quaterne con 3 volte 4 punti. ( ruota Tutte )
Hanno dato 1 Cinquina con 2 volte 5 punti. ( ruota tutte )

Mi rispondi che :

H_Liam,in effetti mancano le cadenze 3,6,8 in aggiunta alle decine. Cinquine...così,tanto per parlarne con una semplice ricerca visiva......

Non mancano le cadenze ( quello sulle decine era una premessa se andavano bene dal 30-39/60-69/80-89 a differenza delle decine 31-40/61-70/81-90 )
In effetti avevo analizzato i tuoi 48 numeri indicandoti solo le maggiori frequenze! che come ripeto sono state nell'arco considerato> 6 Quaterne a 3 volte 4 punti e una sola Cinquina con 2 volte 5 punti.
L'esempio visivo che hai postato non è relativo alle frequenze perche le formazioni non vanno oltre le 2 presenze per Quaterna ed una sola presenza per Cinquina.
Se tu avessi chiesto ( non le frequenze ) ma quante Quartine e Cinquine siano presenti nei 48 numeri, ti avrei risposto:
Quartine = 244 con 2 volte 4 punti, più di 5.600 con una sola volta 4 punti.
Cinquine = più di 900 con una volta 5 punti.
Buon weekend.
Liam

 

[salva 57]

A parer mio
Lo si può giocare solo a tutte
Troppe combinazioni di gioco
Fare lunghette
E accontentarsi. Anche di poco

Meglio a me che a loro

 

[Duplex]

H_Liam, non avevo letto bene la tua risposta sulle maggiori frequenze. Tutto chiaro ora!

 

[The Wolf]

Tempo fa,qualche anno fa,postai una lunghetta che diede quaterna. Ciò derivava da una mole di numeri esagerata. In effetti,e potete controllare visivamente,se si utilizzano decine 30,60,80 e le cadenze 3,6,8 vengono fuori nelle estrazioni quaterne e cinquine. Es: nell'ultima est del 18/03/25 si nota MI 62-65-80-78 senza calcolare i terni. Ora, troppi numeri da poter giocare,anche in decina,quindi servirebbe uno script che analizzi le frequenze di sortita solo di Q/C di questa massa di numeri su ogni ruota,Nazionale compresa. Ovviamente serve anche l'elenco dei numeri sortiti. E' fattibile uno script del genere? (il totale della massa numerica è composta da 48 numeri).

controlla questo script se rispetta tutte le regole

Sub Main
Dim es, r, p, q, c
Dim aNumeri(48)
Dim nTrovati, sNumeri, sEsito
Dim k, idNum

' 1. Generazione automatica della massa dei 48 numeri
k = 0
For idNum = 1 To 90
Dim dec, cad
dec = CInt(idNum \ 10)
cad = idNum Mod 10

If (dec = 3 Or dec = 6 Or dec = 8) Or (cad = 3 Or cad = 6 Or cad = 8) Then
k = k + 1
aNumeri(k) = idNum
End If
Next

If k <> 48 Then
MsgBox "Attenzione: i numeri generati sono " & k & " anziché 48. Controlla le regole.", vbCritical
Exit Sub
End If



' --- VISUALIZZAZIONE MASSA DEI 48 NUMERI A MONTE ---
ColoreTesto 2
Scrivi "================================================================================"
Scrivi " MASSA NUMERICA DI ANALISI (Totale Numeri: " & k & ")"
Scrivi " Decine: 30, 60, 80 | Cadenze: 3, 6, 8"
Scrivi "================================================================================"

Dim sElenco, i
sElenco = ""
For i = 1 To 48
sElenco = sElenco & Format2(aNumeri(i)) & " "
If i = 24 Then ' Spezza su due righe per pulizia visiva
Scrivi sElenco
sElenco = ""
End If
Next
Scrivi sElenco
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1

' Intestazione Tabella Risultati
Scrivi " STORICO EVENTI DI QUATERNA E CINQUINA"
Scrivi "--------------------------------------------------------------------------------"
Scrivi " N. | Data | Ruota | Esito | Numeri Sortiti"
Scrivi "--------------------------------------------------------------------------------"

Dim cTotEventi
cTotEventi = 0

' 2. Scansione dell'archivio storico
For es = 3549 To EstrazioniArchivio

If ScriptInterrotto Then
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi "--> Elaborazione interrotta dall'utente.", True
Exit Sub
End If

For r = 1 To 12
If r <> 11 Then
Dim rVera
rVera = r
If r = 12 Then rVera = 11

nTrovati = 0
sNumeri = ""

For p = 1 To 5
Dim nEstratto
nEstratto = Estratto(es, rVera, p)

If Sme_InVettore(nEstratto, aNumeri) Then
nTrovati = nTrovati + 1
sNumeri = sNumeri & Format2(nEstratto) & " "
End If
Next

If nTrovati >= 4 Then
cTotEventi = cTotEventi + 1
If nTrovati = 4 Then sEsito = "QUATERNA" Else sEsito = "CINQUINA"

' Riga compatta allineata
Scrivi FormatSpace(cTotEventi, 4, True) & " | " & _
DataEstrazione(es) & " | " & _
FormatSpace(NomeRuota(rVera), 10, False) & " | " & _
FormatSpace(sEsito, 8, False) & " | " & _
sNumeri
End If
End If
Next
Next

ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi "Scansione completata. Totale eventi trovati: " & cTotEventi
ColoreTesto 0
End Sub

Function Sme_InVettore(n, aVett)
Dim i
Sme_InVettore = False
For i = 1 To UBound(aVett)
If aVett(i) = n Then
Sme_InVettore = True
Exit Function
End If
Next
End Function

 

[Duplex]

Ciao The Wolf, grazie per il listato,lo proverò e ti dirò.

 

[The Wolf]

codice migliorato e integrato
Sub Main
Dim es, r, p, q, c, i, a, b
Dim aNumeri(48)
Dim nTrovati, sNumeri, sEsito
Dim k, idNum
Dim dec, cad
Dim aContaQ(11), aContaC(11)
Dim aFreqNum(90)
Dim sElenco
Dim cTotEventi
Dim rVera
Dim nEstratto
Dim aTrovatiTemp(5)
Dim nTmpCount, jj
Dim aOrdNum(48), aOrdFreq(48)
Dim tmpN, tmpF

' --- Variabili per il metodo previsivo ---
Dim aUltimaUscita(11, 90)
Dim aRitardo(11, 90)
Dim nRuotaIdx, nNumIdx
Dim aTmpNum(48), aTmpRit(48)
Dim tmpS, tmpNN
Dim sRiga

' 1. Generazione automatica della massa dei 48 numeri
k = 0
For idNum = 1 To 90
dec = CInt(idNum \ 10)
cad = idNum Mod 10

If (dec = 3 Or dec = 6 Or dec = 8) Or (cad = 3 Or cad = 6 Or cad = 8) Then
k = k + 1
aNumeri(k) = idNum
End If
Next

If k <> 48 Then
MsgBox "Attenzione: i numeri generati sono " & k & " anziché 48. Controlla le regole.", vbCritical
Exit Sub
End If

' --- Inizializzazione array riepilogo per ruota ---
For i = 1 To 11
aContaQ(i) = 0
aContaC(i) = 0
Next

' --- Inizializzazione array frequenza numeri ---
For i = 1 To 90
aFreqNum(i) = 0
Next

' --- Inizializzazione array ultima uscita (per ritardo) ---
For i = 1 To 11
For jj = 1 To 90
aUltimaUscita(i, jj) = 0
Next
Next

' --- VISUALIZZAZIONE MASSA DEI 48 NUMERI A MONTE ---
ColoreTesto 2
Scrivi "================================================================================"
Scrivi " MASSA NUMERICA DI ANALISI (Totale Numeri: " & k & ")"
Scrivi " Decine: 30, 60, 80 | Cadenze: 3, 6, 8"
Scrivi "================================================================================"

sElenco = ""
For i = 1 To 48
sElenco = sElenco & Format2(aNumeri(i)) & " "
If i = 24 Then
Scrivi sElenco
sElenco = ""
End If
Next
Scrivi sElenco
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1

Scrivi " STORICO EVENTI DI QUATERNA E CINQUINA"
Scrivi "--------------------------------------------------------------------------------"
Scrivi " N. | Data | Ruota | Esito | Numeri Sortiti"
Scrivi "--------------------------------------------------------------------------------"

cTotEventi = 0

' 2. Scansione dell'archivio storico
For es = 3549 To EstrazioniArchivio

If ScriptInterrotto Then
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi "--> Elaborazione interrotta dall'utente.", True
Exit Sub
End If

For r = 1 To 12
If r <> 11 Then
rVera = r
If r = 12 Then rVera = 11

nTrovati = 0
sNumeri = ""
nTmpCount = 0

For p = 1 To 5
nEstratto = Estratto(es, rVera, p)

If Sme_InVettore(nEstratto, aNumeri) Then
nTrovati = nTrovati + 1
sNumeri = sNumeri & Format2(nEstratto) & " "
nTmpCount = nTmpCount + 1
aTrovatiTemp(nTmpCount) = nEstratto
End If
Next

If nTrovati >= 4 Then
cTotEventi = cTotEventi + 1
If nTrovati = 4 Then
sEsito = "QUATERNA"
aContaQ(rVera) = aContaQ(rVera) + 1
Else
sEsito = "CINQUINA"
aContaC(rVera) = aContaC(rVera) + 1
End If

For jj = 1 To nTmpCount
aFreqNum(aTrovatiTemp(jj)) = aFreqNum(aTrovatiTemp(jj)) + 1
aUltimaUscita(rVera, aTrovatiTemp(jj)) = es
Next

Scrivi FormatSpace(cTotEventi, 4, True) & " | " & _
DataEstrazione(es) & " | " & _
FormatSpace(NomeRuota(rVera), 10, False) & " | " & _
FormatSpace(sEsito, 8, False) & " | " & _
sNumeri
End If
End If
Next
Next

' --- RIEPILOGO PER RUOTA ---
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi " RIEPILOGO FREQUENZE PER RUOTA (Quaterne / Cinquine)"
Scrivi "--------------------------------------------------------------------------------"
For i = 1 To 11
Scrivi FormatSpace(NomeRuota(i), 10, False) & " | Quaterne: " & aContaQ(i) & _
" | Cinquine: " & aContaC(i) & " | Totale: " & (aContaQ(i) + aContaC(i))
Next

' --- RIEPILOGO FREQUENZA SINGOLI NUMERI ---
Scrivi "--------------------------------------------------------------------------------"
Scrivi " FREQUENZA DEI 48 NUMERI ALL'INTERNO DEGLI EVENTI Q/C (ordinati per frequenza)"
Scrivi "--------------------------------------------------------------------------------"

For i = 1 To 48
aOrdNum(i) = aNumeri(i)
aOrdFreq(i) = aFreqNum(aNumeri(i))
Next

For a = 1 To 47
For b = 1 To 48 - a
If aOrdFreq(b) < aOrdFreq(b + 1) Then
tmpF = aOrdFreq(b) : aOrdFreq(b) = aOrdFreq(b + 1) : aOrdFreq(b + 1) = tmpF
tmpN = aOrdNum(b) : aOrdNum(b) = aOrdNum(b + 1) : aOrdNum(b + 1) = tmpN
End If
Next
Next

For i = 1 To 48
Scrivi FormatSpace(Format2(aOrdNum(i)), 4, False) & " | Presenze in eventi Q/C: " & aOrdFreq(i)
Next

Scrivi "--------------------------------------------------------------------------------"
Scrivi "Scansione completata. Totale eventi trovati: " & cTotEventi
ColoreTesto 0

' --- METODO PREVISIVO: RITARDO SULLA MASSA DEI 48 NUMERI, PER RUOTA ---
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi " METODO PREVISIVO (Ritardo sulla massa dei 48 numeri, per ruota)"
Scrivi " Ritardo = estrazioni trascorse dall'ultima comparsa in un evento Q/C su quella ruota"
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1

For nRuotaIdx = 1 To 11

For i = 1 To 48
nNumIdx = aNumeri(i)
If aUltimaUscita(nRuotaIdx, nNumIdx) = 0 Then
aRitardo(nRuotaIdx, nNumIdx) = EstrazioniArchivio - 3549 + 1
Else
aRitardo(nRuotaIdx, nNumIdx) = EstrazioniArchivio - aUltimaUscita(nRuotaIdx, nNumIdx)
End If
Next

For i = 1 To 48
aTmpNum(i) = aNumeri(i)
aTmpRit(i) = aRitardo(nRuotaIdx, aNumeri(i))
Next

For a = 1 To 47
For b = 1 To 48 - a
If aTmpRit(b) < aTmpRit(b + 1) Then
tmpS = aTmpRit(b) : aTmpRit(b) = aTmpRit(b + 1) : aTmpRit(b + 1) = tmpS
tmpNN = aTmpNum(b) : aTmpNum(b) = aTmpNum(b + 1) : aTmpNum(b + 1) = tmpNN
End If
Next
Next

Scrivi FormatSpace(NomeRuota(nRuotaIdx), 10, False) & " | Top 10 ritardatari (dalla massa 48): "
sRiga = " "
For i = 1 To 10
sRiga = sRiga & Format2(aTmpNum(i)) & "(" & aTmpRit(i) & ") "
Next
Scrivi sRiga

Next

Scrivi "--------------------------------------------------------------------------------"
Scrivi "NB: il ritardo è calcolato SOLO sulle uscite in eventi di quaterna/cinquina"
Scrivi "trovati nello storico analizzato, non sulle singole estrazioni del numero."
Scrivi "Indicatore statistico di supporto, non garanzia di uscita futura."
ColoreTesto 0
End Sub

Function Sme_InVettore(n, aVett)
Dim i
Sme_InVettore = False
For i = 1 To UBound(aVett)
If aVett(i) = n Then
Sme_InVettore = True
Exit Function
End If
Next
End Function

 

[Rossella35]

Salve , qualche idea di come giocare? o come combinare i numeri? grazie per l'attenzione

 

[vincenzo63]

Ciao WOLF , è possibile modificare lo script , per far in modo che faccia le sue elaborazioni per un numero minore di cadenze e decine da esaminare?..insomma vorrei decidere quali cadenze e decine tenere in considerazione , magari anche solo 2

 

[18k]

io imposterei la soluzione del problema in questo modo.

servono 48 numeri = V voglio giocare combinazioni in classe = esempio 8 (ottine), la garanzia deve essere di 4 punti (quaterna) tenuto conto che vengono estratti 5 numeri per ogni ruota cerco il sistema 48-08-04-05 nei primati sistemi mondiali e trovo che il sistema si sviluppa in 1594 colonne, è un file txt, quindi lo carico nelle formazioni registrate di spaziometria.

se voglio non dipendere da 48 numeri, ma voglio gestire tutti i 90 numeri, se scelgo la matrice 90-24-05-05 di 2483 combinazioni.

le importo in spaziometria nelle formazioni registrate, e ne calcolo i vari ritardi.

quando scelgo un sistema esempio il piu' in ritardo per la sorte 4 o 5, so che ho 24 numeri da giocare e a breve daranno da qualche parte o su qualche ruota la famosa quaterna/cinquina su ruota o su Tutte.

dovrò a questo punto, sviluppare un sistemino di 24 numeri in classe che voglio da 5 a 10, con i numeri attesi per quella sorte.

i sistemi matrice primati sono parecchi, quindi bisogna sapere che cosa si vuole esattamente.




faccio esempio per farmi capire bene:

scelgo 90 numeri, tutti i numeri possibili, la matrice che mi garantisce la cinquina o le sorti minori (quaterna) con le sottomatrici di 17 numeri , quindi per chi capisce di sistemistica, scelgo il sistema 90-17-05 risulta matematicamente garantito al 100% con la rotazione delle 17settine, pari a 22451. le ho importate in spaziometria ed ho lanciato la statistica per vedere le sottomatrici che ritardi hanno.


questa diciassettina è a 2 colpi dal ritardo massimo storico registrato dal 1946 ad oggi, naturalmente i ritardi sono li per essere battuti, quindi non c'è nessuna certezza che entro 2,3 colpi possa uscire la cinquina o la quaterna su tutte, perchè l'elaborazione della statistica l'ho fatta su Tutte le Ruote.
ma se credo o voglio tentare sorti alte è una strada possibile e percorribile solo in questo modo, e matematico.

buona serata.

 

[The Wolf]

Ciao WOLF , è possibile modificare lo script , per far in modo che faccia le sue elaborazioni per un numero minore di cadenze e decine da esaminare?..insomma vorrei decidere quali cadenze e decine tenere in considerazione , magari anche solo 2

buon pomeriggio vincenzo63, ecco il codice con la variante richiesta:
Sub Main
Dim es, r, p, i, a, b
Dim nTrovati, sNumeri, sEsito
Dim k, idNum, dec, cad
Dim sElenco, cTotEventi, rVera, nEstratto
Dim aTrovatiTemp(5)
Dim nTmpCount, jj
Dim tmpN, tmpF

' --- PARAMETRI DI CONFIGURAZIONE TRAMITE INPUTBOX ---
Dim sDecineScelte, sCadenzeScelte

' Richiesta interattiva delle decine
sDecineScelte = InputBox("Inserisci le decine da esaminare separate da virgola (es. 3, 6, 8):" & vbCrLf & "(0 per 1-9, 1 per 10-19, 2 per 20-29, 3 per 30-39, ecc.)", "Configurazione Decine", "3, 6, 8")
If VarType(sDecineScelte) = vbBoolean And sDecineScelte = False Then Exit Sub ' Gestione tasto Annulla

' Richiesta interattiva delle cadenze
sCadenzeScelte = InputBox("Inserisci le cadenze da esaminare separate da virgola (es. 3, 6, 8):", "Configurazione Cadenze", "3, 6, 8")
If VarType(sCadenzeScelte) = vbBoolean And sCadenzeScelte = False Then Exit Sub ' Gestione tasto Annulla
' ---------------------------------------------------

' Array di base (dichiarati dinamici per consentire il ridimensionamento pulito)
Dim aNumeri()
Dim aContaQ(11), aContaC(11)
Dim aFreqNum(90)

' --- Variabili per il metodo previsivo ---
Dim aUltimaUscita(11, 90)
Dim aRitardo(11, 90)
Dim nRuotaIdx, nNumIdx
Dim aTmpNum(), aTmpRit()
Dim tmpS, tmpNN
Dim sRiga, nLimit

' 1. Generazione automatica della massa dei numeri in base alle scelte
k = 0
ReDim aNumeri(90)

For idNum = 1 To 90
dec = CInt(idNum \ 10)
cad = idNum Mod 10

If VerificaFiltro(dec, cad, sDecineScelte, sCadenzeScelte) Then
k = k + 1
aNumeri(k) = idNum
End If
Next

' Ridimensiona gli array alla dimensione reale k
ReDim Preserve aNumeri(k)
ReDim aTmpNum(k)
ReDim aTmpRit(k)

If k = 0 Then
MsgBox "Attenzione: nessun numero soddisfa i criteri inseriti. Controlla le configurazioni.", vbCritical
Exit Sub
End If

' --- Inizializzazioni rapide ---
For i = 1 To 11
aContaQ(i) = 0
aContaC(i) = 0
Next

For i = 1 To 90
aFreqNum(i) = 0
Next

For i = 1 To 11
For jj = 1 To 90
aUltimaUscita(i, jj) = 0
Next
Next

' --- VISUALIZZAZIONE MASSA DEI NUMERI A MONTE ---
ColoreTesto 2
Scrivi "================================================================================"
Scrivi " MASSA NUMERICA DI ANALISI (Totale Numeri: " & k & ")"
Scrivi " Decine esaminate: [" & sDecineScelte & "] | Cadenze esaminate: [" & sCadenzeScelte & "]"
Scrivi "================================================================================"

sElenco = ""
For i = 1 To k
sElenco = sElenco & Format2(aNumeri(i)) & " "
If i Mod 24 = 0 Then
Scrivi sElenco
sElenco = ""
End If
Next
If sElenco <> "" Then Scrivi sElenco
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1

Scrivi " STORICO EVENTI DI QUATERNA E CINQUINA"
Scrivi "--------------------------------------------------------------------------------"
Scrivi " N. | Data | Ruota | Esito | Numeri Sortiti"
Scrivi "--------------------------------------------------------------------------------"

cTotEventi = 0

' 2. Scansione dell'archivio storico
For es = 3549 To EstrazioniArchivio

If ScriptInterrotto Then
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi "--> Elaborazione interrotta dall'utente.", True
Exit Sub
End If

For r = 1 To 12
If r <> 11 Then
rVera = r
If r = 12 Then rVera = 11

nTrovati = 0
sNumeri = ""
nTmpCount = 0

For p = 1 To 5
nEstratto = Estratto(es, rVera, p)

If Sme_InVettore(nEstratto, aNumeri) Then
nTrovati = nTrovati + 1
sNumeri = sNumeri & Format2(nEstratto) & " "
nTmpCount = nTmpCount + 1
aTrovatiTemp(nTmpCount) = nEstratto
End If
Next

If nTrovati >= 4 Then
cTotEventi = cTotEventi + 1
If nTrovati = 4 Then
sEsito = "QUATERNA"
aContaQ(rVera) = aContaQ(rVera) + 1
Else
sEsito = "CINQUINA"
aContaC(rVera) = aContaC(rVera) + 1
End If

For jj = 1 To nTmpCount
aFreqNum(aTrovatiTemp(jj)) = aFreqNum(aTrovatiTemp(jj)) + 1
aUltimaUscita(rVera, aTrovatiTemp(jj)) = es
Next

Scrivi FormatSpace(cTotEventi, 4, True) & " | " & _
DataEstrazione(es) & " | " & _
FormatSpace(NomeRuota(rVera), 10, False) & " | " & _
FormatSpace(sEsito, 8, False) & " | " & _
sNumeri
End If
End If
Next
Next

' --- RIEPILOGO PER RUOTA ---
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi " RIEPILOGO FREQUENZE PER RUOTA (Quaterne / Cinquine)"
Scrivi "--------------------------------------------------------------------------------"
For i = 1 To 11
Scrivi FormatSpace(NomeRuota(i), 10, False) & " | Quaterne: " & aContaQ(i) & _
" | Cinquine: " & aContaC(i) & " | Totale: " & (aContaQ(i) + aContaC(i))
Next

' --- RIEPILOGO FREQUENZA SINGOLI NUMERI ---
Scrivi "--------------------------------------------------------------------------------"
Scrivi " FREQUENZA DEI NUMERI DELLA MASSA ALL'INTERNO DEGLI EVENTI Q/C (ordinati)"
Scrivi "--------------------------------------------------------------------------------"

For i = 1 To k
aTmpNum(i) = aNumeri(i)
aTmpRit(i) = aFreqNum(aNumeri(i))
Next

For a = 1 To k - 1
For b = 1 To k - a
If aTmpRit(b) < aTmpRit(b + 1) Then
tmpS = aTmpRit(b) : aTmpRit(b) = aTmpRit(b + 1) : aTmpRit(b + 1) = tmpS
tmpNN = aTmpNum(b) : aTmpNum(b) = aTmpNum(b + 1) : aTmpNum(b + 1) = tmpNN
End If
Next
Next

For i = 1 To k
Scrivi FormatSpace(Format2(aTmpNum(i)), 4, False) & " | Presenze in eventi Q/C: " & aTmpRit(i)
Next

Scrivi "--------------------------------------------------------------------------------"
Scrivi "Scansione completata. Totale eventi trovati: " & cTotEventi
ColoreTesto 0

' --- METODO PREVISIVO: RITARDO SULLA MASSA, PER RUOTA ---
ColoreTesto 2
Scrivi "--------------------------------------------------------------------------------"
Scrivi " METODO PREVISIVO (Ritardo sulla massa numerica, per ruota)"
Scrivi " Ritardo = estrazioni trascorse dall'ultima comparsa in un evento Q/C su quella ruota"
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto 1

For nRuotaIdx = 1 To 11

For i = 1 To k
nNumIdx = aNumeri(i)
If aUltimaUscita(nRuotaIdx, nNumIdx) = 0 Then
aRitardo(nRuotaIdx, nNumIdx) = EstrazioniArchivio - 3549 + 1
Else
aRitardo(nRuotaIdx, nNumIdx) = EstrazioniArchivio - aUltimaUscita(nRuotaIdx, nNumIdx)
End If
Next

For i = 1 To k
aTmpNum(i) = aNumeri(i)
aTmpRit(i) = aRitardo(nRuotaIdx, aNumeri(i))
Next

For a = 1 To k - 1
For b = 1 To k - a
If aTmpRit(b) < aTmpRit(b + 1) Then
tmpS = aTmpRit(b) : aTmpRit(b) = aTmpRit(b + 1) : aTmpRit(b + 1) = tmpS
tmpNN = aTmpNum(b) : aTmpNum(b) = aTmpNum(b + 1) : aTmpNum(b + 1) = tmpNN
End If
Next
Next

Scrivi FormatSpace(NomeRuota(nRuotaIdx), 10, False) & " | Top 10 ritardatari (dalla massa): "
sRiga = " "
If k < 10 Then nLimit = k Else nLimit = 10

For i = 1 To nLimit
sRiga = sRiga & Format2(aTmpNum(i)) & "(" & aTmpRit(i) & ") "
Next
Scrivi sRiga

Next

Scrivi "--------------------------------------------------------------------------------"
Scrivi "NB: il ritardo è calcolato SOLO sulle uscite in eventi di quaterna/cinquina."
ColoreTesto 0
End Sub

' --- FUNZIONI DI SUPPORTO ---

Function Sme_InVettore(n, aVett)
Dim i
Sme_InVettore = False
For i = 1 To UBound(aVett)
If aVett(i) = n Then
Sme_InVettore = True
Exit Function
End If
Next
End Function

Function VerificaFiltro(dec, cad, sDec, sCad)
Dim bDecTrovata, bCadTrovata
Dim aD, aC, j

bDecTrovata = False
bCadTrovata = False

If Trim(sDec) <> "" Then
aD = Split(sDec, ",")
For j = 0 To UBound(aD)
If CInt(Trim(aD(j))) = dec Then
bDecTrovata = True
Exit For
End If
Next
End If

If Trim(sCad) <> "" Then
aC = Split(sCad, ",")
For j = 0 To UBound(aC)
If CInt(Trim(aC(j))) = cad Then
bCadTrovata = True
Exit For
End If
Next
End If

VerificaFiltro = (bDecTrovata Or bCadTrovata)
End Function