Chi ha uno script del genere?

[Lucio P.]

Un caro saluto a tutti.
Gentilmente qualcuno ha uno script che trovi numeri ripetuti in un certo range a ritroso?

Poiché ho trovato nuovi sviluppi (MOLTO INTERESSANTI) per i “numeri Spia e aggregati da mettere in gioco”, avrei la necessità di avere questo script che cerchi quanto ho chiesto; faccio un esempio:

RUOTA BARI Estrazione 8500

Andando a ritroso di sei colpi oppure nove, range da definire, il numero 53 è uscito tre volte (gruppo3). Potrebbe essere uscito anche quattro volte che, in questo caso, formerebbe un (gruppo 4). Oppure cinque volte in sei estrazioni a ritroso (caso molto raro in sei colpi). Questo numero sarà la “Spia da prendere in considerazione.

Se nei sei colpi successivi e poiché trattasi di meccanismo dinamico (a ogni estrazione si va a ritroso di sei colpi), il numero continua a essere presente non è più preso in considerazione; altrimenti si avrebbe una ripetizione del medesimo.

8500 numero 53 (tre volte uscito in sei colpi a ritroso).
8520 ………… 75
8527 ………… 55
8542 ………… 45
8549 ………… 51
8554 ........... 35
8563 ……….. 78
8576 ……….. 86 etc.

Ringrazio anticipatamente, buona serata.

 

[Roby]

Guarda se questo ti potrebbe andare bene:

Sub Main()
Redim Nu(90,2)
Dim ru(1)
Dim nx(1)
Periodi = 1'<-------------------------numero di periodi
Periodo = 6'<-------------------------durata periodo
ru(1) = InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota
Fin = EstrazioneFin
Ini = Fin - (Periodo * Periodi)+1'<-----------------------Tot estr. esaminate
For Es = Ini To Fin Step Periodo
AvanzamentoElab ini,fin,es
' Tolto Exit For (Joe)
For x = 1 To 90
nx(1) = x
nu(x,1) = x
nu(x,2) = nu(x,2) + SerieFreq(Es,Es + Periodo-1,nx,ru,1)
Next
OrdinaMatrice nu,- 1,2
For x = 1 To 70
rig1 = rig1 + Format2(nu(x,1)) & " "
rig2 = rig2 + Format2(nu(x,2)) & " "
Next
Scrivi "Dalla " & Es & " alla " & Es + Periodo-1 & " Num: " & rig1,1
Scrivi SiglaRuota(ru(1)) & Space(18) & "Pres: " & rig2
Scrivi
Redim Nu (90,2)
rig1 = ""
rig2 = ""
Next
End Sub

 

[Lucio P.]

Grazie parmando, ora provo.

 

[Lucio P.]

Ti ringrazio ma non va bene.
Fa il conteggio solamente delle ultime sei estrazioni; a me interessa tutto l'archivio.
Da un certo punto dell'archivio in poi, supponiamo dall'estrazione 7000 e dinamicamente a ogni estrazione, trova sondando a ritroso di sei colpi oppure nove, tutti i numeri che siano usciti tre volte oppure quattro volte formando così quelli che ho definito (gruppi). E su qualsiasi ruota.

Comunque grazie per la l'interessamento.

Dimenticavo: ci vogliono gli indici in modo da poter andare direttamente all'estrazione e verificare quali numeri aggregati siano i più attendibili su tredici colpi successivi gli eventi spia.

 

[Roby]

Modifica la voce "periodo".