Controllo ultime 18 estrazioni estratti non ripetuti

[oracolotto]

Chiedo ai bravi scripter di questo forum se è possibile avere uno script che vada a controllare, per ogni ruota, le ultime 18 estrazioni e, su queste, estrapoli i numeri non ripetuti nelle successive estrazioni, evidenziando quelli che hanno un ritardo da 6 a 15 ed in aggiunta, se possibile, segnalare gli estratti più sortiti e più ripetuti nelle 18 estrazioni.

Grazie !!!

 

[joe]

Chiedo ai bravi scripter di questo forum se è possibile avere uno script che vada a controllare, per ogni ruota, le ultime 18 estrazioni e, su queste, estrapoli i numeri non ripetuti nelle successive estrazioni, evidenziando quelli che hanno un ritardo da 6 a 15 ed in aggiunta, se possibile, segnalare gli estratti più sortiti e più ripetuti nelle 18 estrazioni.

Grazie !!!

ciao Oracolotto,

Sicuramente hai una idea precisa ed è anche espressa bene.

Tuttavia non è semplice da leggere e capire appieno.

Dovresti fornire un esempio che contenga e renda espliciti,
anche utilizzando numeri di fantasia, i periodi, in cui si eseguono le ricerche.

Mi spiego: "ultime 18" se sono "le ultime" intese nel senso più restrittivo di ultime ...

poi non rimangono estrazioni per controllare se ci sono ritardi da 5 a 15.

Stabilito con precisione cosa si vuole non sembra difficile da fare.

 

[oracolotto]

Buonasera Joe e grazie mille per la tua pronta risposta, sempre disponibile !

Mi scuso se sono stato poco chiaro, sì in senso restrittivi, si prende come blocco di analisi le ultime 18 estrazioni e, come primo controllo si và a vedere gli estratti della 18° se nelle successive 17 e. quanti estratti si sono ripetuti, quante volte ripetuti e quelli che non si sono ripetuti e via di seguito con la 17°, 16° ecc.

Spero di aver contribuito a dare un po' di chiarezza sempre che non abbia chiesto una cosa astrusa e con parametri errati.

Grazie ancora!

 

[joe]

Ok, grazie,

devo leggere quello che hai risposto.

Ma potrò farlo solo in seguito.

 

[oracolotto]

Grazie di nuovo, quando puoi

 

[Reacher]

Chiedo ai bravi scripter di questo forum se è possibile avere uno script che vada a controllare, per ogni ruota, le ultime 18 estrazioni e, su queste, estrapoli i numeri non ripetuti nelle successive estrazioni, evidenziando quelli che hanno un ritardo da 6 a 15 ed in aggiunta, se possibile, segnalare gli estratti più sortiti e più ripetuti nelle 18 estrazioni.

Grazie !!!

Option Explicit
Sub Main
Dim es, r, p, n
Dim riga, contatoreRipetuti
Dim ini, fin
Dim freq(12, 90)

' Definizione del range: ultime 18 estrazioni disponibili
fin = EstrazioneFin
ini = (fin - 18) + 1

' Inizializzazione dell'array delle frequenze a 0
For r = 1 To 12
For n = 1 To 90
freq(r, n) = 0
Next
Next

' Ciclo di lettura dei dati
For es = ini To fin
For r = 1 To 12
If r <> 11 Then ' Salta la ruota Nazionale temporaneamente dal ciclo standard se necessario, o gestiscila
For p = 1 To 5
n = Estratto(es, r, p)
If n > 0 Then
freq(r, n) = freq(r, n) + 1
End If
Next
End If
Next
Next

' --- STAMPA DEI RISULTATI ---
Call Scrivi("ANALISI NUMERI RIPETUTI NELLE ULTIME 18 ESTRAZIONI", True, , 1, 5, 3)
Call Scrivi("Intervallo analizzato: da estr. " & ini & " a estr. " & fin & " (Totale: 18 estrazioni)", , , , 2, 2)
Call Scrivi("")

For r = 1 To 12
If r <> 11 Then
Call Scrivi("--- RUOTA DI " & NomeRuota(r) & " ---", True, , 2, 4, 3)
Call Scrivi("Num. | Presenze/Frequenza", True)
Call Scrivi("-------------------------")

contatoreRipetuti = 0

' Mostra solo i numeri con frequenza maggiore o uguale a 2 (ripetuti)
For n = 1 To 90
If freq(r, n) >= 2 Then
riga = "Numero " & Format2 & " --> Uscito " & freq(r, n) & " volte"
Call Scrivi(riga)
contatoreRipetuti = contatoreRipetuti + 1
End If
Next

If contatoreRipetuti = 0 Then
Call Scrivi("Nessun numero ripetuto in questa ruota nelle ultime 18 estrazioni.")
End If

Call Scrivi("") ' Spazio tra le ruote
End If
Next
End Sub

 

[oracolotto]

Option Explicit
Sub Main
Dim es, r, p, n
Dim riga, contatoreRipetuti
Dim ini, fin
Dim freq(12, 90)

' Definizione del range: ultime 18 estrazioni disponibili
fin = EstrazioneFin
ini = (fin - 18) + 1

' Inizializzazione dell'array delle frequenze a 0
For r = 1 To 12
For n = 1 To 90
freq(r, n) = 0
Next
Next

' Ciclo di lettura dei dati
For es = ini To fin
For r = 1 To 12
If r <> 11 Then ' Salta la ruota Nazionale temporaneamente dal ciclo standard se necessario, o gestiscila
For p = 1 To 5
n = Estratto(es, r, p)
If n > 0 Then
freq(r, n) = freq(r, n) + 1
End If
Next
End If
Next
Next

' --- STAMPA DEI RISULTATI ---
Call Scrivi("ANALISI NUMERI RIPETUTI NELLE ULTIME 18 ESTRAZIONI", True, , 1, 5, 3)
Call Scrivi("Intervallo analizzato: da estr. " & ini & " a estr. " & fin & " (Totale: 18 estrazioni)", , , , 2, 2)
Call Scrivi("")

For r = 1 To 12
If r <> 11 Then
Call Scrivi("--- RUOTA DI " & NomeRuota(r) & " ---", True, , 2, 4, 3)
Call Scrivi("Num. | Presenze/Frequenza", True)
Call Scrivi("-------------------------")

contatoreRipetuti = 0

' Mostra solo i numeri con frequenza maggiore o uguale a 2 (ripetuti)
For n = 1 To 90
If freq(r, n) >= 2 Then
riga = "Numero " & Format2 & " --> Uscito " & freq(r, n) & " volte"
Call Scrivi(riga)
contatoreRipetuti = contatoreRipetuti + 1
End If
Next

If contatoreRipetuti = 0 Then
Call Scrivi("Nessun numero ripetuto in questa ruota nelle ultime 18 estrazioni.")
End If

Call Scrivi("") ' Spazio tra le ruote
End If
Next
End Sub

Grazie Reacher per lo script però non fà quello che chiedo o lo fà in parte segnalando i numeri più sortiti mentre io chiedo, in primis, quelli non ripetuti nelle successive estrazioni, evidenziando quelli che hanno un ritardo da 6 a 15, la segnalazione degli estratti più sortiti e/o quelli più ripetuti nelle 18 estrazioni.