x rubino x favore

[Roby]

con lo script è possibile
1)scegliere l'archivio 10elottoserale o 10elotto5minuti
2)effettuare la statistica entro quanti colpi dopo l'uscita del nr.spia
3)quanti numeri vuoi avere in output

4) lo script esegue la verifica degli esiti ottenuti della combinazione in 1500 estrazioni per il 5 minuti
mentre dal giugno 2009 (8077) per quello serale.

per dare una indicazione di quanti punti significativi si sono ottenuti.

Attenzione però, i punteggi ottenuti non sono relativi al solo colpo successivo ma bensì
a più colpi di gioco.

lo scopo è quello che se una combinazione ha dato 0,-1,-2 punti rispetto al massimo,
cioè la teoria o filosofia di base è che dovrebbe essere propensa a darne altri, si agisce preferendo la frequenza o la regolarità.

pertanto non serve sempre cambiare numeri in continuo,

ma fare una scelta vagliata ed attenta
di quelle con ottimi punteggi per essere rigiocate intere o parziali con qualche numero in meno in modo di avvicinarsi a punteggi di

terno su 3,4,5
quaterna su 4,5,6
cinquina su 5,6,7
sestina su 6,7,8
settina su 7,8,9
ottina su 8,9,10
novina su 9,10
decina su 9


ciao

 

[antoR]

Scusa Rubino, lo script mi da errore all' " incrocio(90), mi dice impossibile utilizzare parentesi per la chiamta routine sub, linea 6 colonna 21

 

[keeper]

è errata la formattazione per questo da errore

 

[keeper]

con il permesso di rubino ho risistemato

Sub Main
Dim Inizio,Fine,idEstr,pt2,pt1,pt0,pt3
Dim k,EntroColpi,e,ee,c,quanti,totest
Dim nBase,nUscito,presenzespia
Dim nUscite
ReDim aPresenze(90,90),Incrocio(90)
Dim RetRit,RetRitMax,RetFreq
gioco = InputBox("1 = 10eLotto serale 2 = 10eLotto5Minuti",,1)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
quanti = CInt(InputBox("Quanti numeri frequenti vuoi?",,7))
''''imposta archivio
Call ImpostaArchivio10ELotto(Int(gioco))
If gioco = 1 Then Inizio = 8077 Else Inizio = EstrazioneFin- 1500
Fine = EstrazioneFin
totest = Fine-Inizio
ColoreTesto(1)
If Int(gioco) = 1 Then
Scrivi " Namescript (SpiaefrequentiRubinoV2) by(LuigiB - mod.Rubino) "
Scrivi " Archivio impostato su 10 E LOTTO SERALE " & " Frequenti quantità " &quanti,1
Scrivi " n.estrazioni esaminate " &totest& " Entro colpi n." &EntroColpi
Scrivi " dal.n. al n. " &Inizio& "/" &Fine
End If
If Int(gioco) = 2 Then
Scrivi " Archivio impostato su 1O E LOTTO 5 MINUTI " & " Frequenti quantità " &quanti,1
Scrivi " Ultime estrazioni esaminate " &totest& " Entro colpi n." &EntroColpi
End If
Scrivi " Situazione Frequenti nei colpi successivi all'estrazione del nr.spia ",1
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr =k+c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
If quanti< 11 Then
pt3=quanti- 3
pt2=quanti- 2
pt1=quanti- 1
pt0=quanti
Else
pt0= 10
pt1= 9
pt2= 8
pt3= 7
End If
ReDim aTitoli(10)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numeri Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Frequenza"
aTitoli(5) = "% fav.Spia"
aTitoli(6) = "% fav.numeri Freq."
aTitoli(7) = "Punti" &pt3
aTitoli(8) = "Punti" &pt2
aTitoli(9) = "Punti" &pt1
aTitoli(10) = "Punti" &pt0
Call InitTabella(aTitoli,3,"center",1.5,1)
For nBase= 1 To 90
ReDim aValori(10)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
ReDim aV(0)
Call SplitByChar(aValori(2)," ",aV)
aValori(3) =nUscite
''''controlla presenze totali spia nel range di estrazioni
ReDim aN(1)
aN(1) =aValori(1)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
presenzespia=RetFreq
''''controlla frequenze totali della quantità di numeri
ReDim aN(1)
aN(1) =aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
''''controlla frequenze totali della quantità di numeri
f = UBound(aV) - 1
ReDim aVn(f)
For e= 0 To f
aVn(e) =aV(e)
Next
aValori(7) = 0
aValori(8) = 0
aValori(9) = 0
aValori(10) = 0
fpt3 = SerieFreqDL(Inizio,Fine,aVn,pt3)
aValori(7) = fpt3
fpt2 = SerieFreqDL(Inizio,Fine,aVn,pt2)
aValori(8) = fpt2
fpt1 = SerieFreqDL(Inizio,Fine,aVn,pt1)
aValori(9) = fpt1
fpt0 = SerieFreqDL(Inizio,Fine,aVn,pt0)
aValori(10) = fpt0
aValori(4) = presenzespia
aValori(5) = Round(nUscite/totest * 100,2)
aValori(6) = Round(nUscite/presenzespia * 100,2)
Call AddRigaTabella(aValori)
If aValori(7) > 0 Then Call SetColoreCella(7,vbRed,vbWhite)
If aValori(8) > 0 Then Call SetColoreCella(8,vbGreen,vbBlack)
If aValori(9) > 0 Then Call SetColoreCella(9,vbYellow,vbBlack)
If aValori(10)> 0 Then Call SetColoreCella(10,vbYellow,vbBlack)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq (nBase,aPresenze,nUscite,quanti,Incrocio)
Dim k
ReDim aOrd(90,2)
nfre = ""
For k= 1 To 90
aOrd(k,1) =Format2(k)
aOrd(k,2) =aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
For q = 1 To Int(quanti)
nfre = nfre &aOrd(q,1) & " "
tfre = tfre +aOrd(q,2)
Next
''
''' GetNumeroPiuFreq = aOrd(1,1)
GetNumeroPiuFreq= nfre
''''nUscite = aOrd(1,2)
nUscite= tfre
End Function

 

[keeper]

x rubino non mi colora le celle punti 4 5 6 7 e rimango 0

 

[Roby]

La formattazione crea questi errori su queste 2 righe:

Call SplitByChar(aValori(2),"",aV)

tra i due apici bisogna fare una spazio, che ha perso nel copia / incolla



e l'altra è questa in fondo

nfre = nfre &aOrd(q,1) & ""

tra i due apici bisogna fare una spazio, che ha perso nel copia / incolla



poi vedo che funziona tutto.


non mi ricordo come si deve copiare lo script in modo corretto nel forum senza far perdere la corretta formattazione.
me lo spiegate?

---

 

[keeper]

ti ho risposto nella funzione download per quanto riuarda il codice. poi ho apportato le modifiche funziona il tutto faccio qualche prova. secondo me correggimi se sbaglio dovremmo legare la ricerca anche alla fascia di orario perchè ho notato che in determinati orari i numeri sono sempre gli stessi ci sono delle terzine che sono puntuali e poi se provi ad analizzare ad es. 12 estr. cioè un ora di gioco ci sono combinazioni che si ripetono spesso

 

[keeper]

ti psoto una cosa sempre riguardo alla frequenza relativa stamani i numeri sono 13 41 44 59 83
Num;Estrazione;Numeri;Ritardo;Sortita;Estratti;
1;20 - 07/01/2012;13.15.17.35.38.40.44.53.58.61.63.64.66.68.69.70.76.79.82.83;19;3;13 44 83 ;
2;53 - 07/01/2012;09.13.16.26.27.28.31.44.47.51.53.58.68.69.71.72.74.78.80.83;32;3;13 44 83 ;
3;63 - 07/01/2012;04.08.13.16.25.28.29.36.43.47.53.57.59.65.68.73.75.83.86.90;9;3;13 59 83 ;
4;67 - 07/01/2012;13.25.26.28.30.32.35.40.41.42.46.54.56.58.59.64.69.83.84.90;3;4;13 41 59 83 ;
5;79 - 07/01/2012;04.07.10.11.13.35.38.41.43.44.45.48.52.53.57.58.61.67.77.79;11;3;13 41 44 ;
6;83 - 07/01/2012;03.08.13.22.28.32.34.39.40.41.43.44.46.50.51.60.63.78.80.88;3;3;13 41 44 ;
7;98 - 07/01/2012;03.05.07.12.13.19.23.28.29.33.37.41.43.44.60.71.73.82.87.90;14;3;13 41 44 ;
se vedi le terzine ricavate dai 4 numeri si ripetono sempre

 

[keeper]

forse nello scritp ancora cìè qualcosa che non funziona non compare la colonna dove dovrebbero esserci i -1 comne dalla tua foto che hai allegato o forse hai già effettuato una modifica?

 

[keeper]

entro quanti colpi
mi consigli

 

[Roby]

ciao keeper

per quanto riguarda lo script, è quello che ho postato, non ho altre versioni.

per quanto riguarda adattarlo a determinati orari o range di estrazioni, si potrebbe anche fare.
bisogna solo chiedere a LuigiB come si può esaminare il progressivo n.estrazione del giorno, chiedendogli
ciome si chiama questo campo o se c'è qualche funzione come Indice Estrazione.
Non so come abbia preparato esattamente l'archivio.
quello che vedo interrogando le estrazioni, non c'è l'orario ma un numero progressivo.

comunque sia, è vero spesso a parità di ora intorno alle 10:00, ho riscontrato anch'io, che spesso escono sempre dei
numeri che vedi caso, anche i giorni successivi, fanno la loro comparsa a coppie o anche a terni o quaterne.

infatti so che quando entro in ricevitoria, devo giocare il 55 53 79 e qualche altro numero.

comunque ho visto che spesso la tua cinquina evidenziata da spesso ambo-terno, abbastanza regolarmente.
infatti il giorno successivo al tuo post sopra, è uscita addirittura la cinquina, 5 su 5, è un buon risultato.


nella serie o tabellina che si ottiene dallo script, però non si ottiene nulla vicino alla tua cinquina rilevata probabilmente
dall'esperienza visiva o da qualche altra fonte.


quindi se mi dici come l'hai ottenuta, vediamo quali sono le differenze d'impostazione e dopo magari modifichiamo lo script
o ne facciamo un'altro.


quindi

cosa hai fatto a livello pratico per ottenere la tua cinquina?

chiediamo a luigi come si può parzializzare una giornata di estrazioni in range dal progressivo (x). al progressivo .


poi vediamo cosa fare

 

[keeper]

allora la mia cinquina la rilevo da qui

NUM	FREQ. RELATIVA
1	4.5
2	4.5
3	4.5
4	4.5
5	4.5
6	4.5
7	4.5
8	4.5
9	4.5
10	4.6
11	4.6
12	4.5
13	4.4
14	4.5
15	4.5
16	4.5
17	4.5
18	4.5
19	4.5
20	4.6
21	4.5
22	4.5
23	4.5
24	4.5
25	4.5
26	4.5
27	4.5
28	4.5
29	4.5
30	4.5
31	4.5
32	4.5
33	4.5
34	4.5
35	4.5
36	4.5
37	4.4
38	4.5
39	4.5
40	4.6
41	4.4
42	4.5
43	4.6
44	4.5
45	4.5
46	4.5
47	4.5
48	4.5
49	4.5
50	4.5
51	4.5
52	4.5
53	4.5
54	4.5
55	4.5
56	4.5
57	4.5
58	4.5
59	4.4
60	4.5
61	4.5
62	4.5
63	4.5
64	4.5
65	4.6
66	4.5
67	4.5
68	4.5
69	4.5
70	4.5
71	4.5
72	4.5
73	4.5
74	4.5
75	4.5
76	4.5
77	4.5
78	4.5
79	4.5
80	4.5
81	4.5
82	4.5
83	4.4
84	4.5
85	4.6
86	4.5
87	4.5
88	4.5
89	4.5
90	4.5

quelli che hanno 4,4 ovvero medi aestrattiva sono i più frequenti
tu mi dirai che i numeri non sono costanti in quanto possono avere un ritardo maggiore o minore ma cmq se si allontananto dal range nel tempo recuperano in sintesi tot n.estrazioni / n. di volte estratto

 

[keeper]

cmq devo darti il link

 

[Roby]

scusa ma che frequenza relativa è?

su quale range d'estrazioni?

da......a.........

1 giornata o parte di una giornata?


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

sono stato ora in ricevitoria, niente da fare......

però c'era uno che ha fatto 8 su 10 uguale 1500€

ha giocato una sequenza parziale di 2 decine
la ventina e la trentina.

controllando un po di estrazioni attualmente, vedo
che se si prendono 20 numeri consecutivi
si generano spesso da 5 a 8 punti.

con inserimento formule 7,8 pari e 2,3 dispari

esempio:
20 22 24 26 28 30 32 34 36 38 ....... 7,8 numeri
21 23 25 27 29 31 33 35 37 39 ....... 2,3 numeri

sviluppando un sistema di 20nr con riduzione in questo modo

gar.7 veloce 7p3d


1: 1 2 3 4 5 6 8 10 12 14
2: 2 4 6 7 8 11 12 14 15 16
3: 2 3 4 6 8 10 11 13 16 18
4: 4 6 7 8 9 10 12 14 16 19
5: 2 4 6 10 12 15 16 17 18 19
6: 4 5 6 8 11 12 13 14 16 20
7: 1 2 4 8 10 14 15 16 17 20
8: 2 3 7 8 9 10 12 14 18 20
9: 2 4 6 7 11 12 14 15 18 20
10: 1 2 4 6 7 8 9 16 18 20
11: 1 2 10 11 12 13 14 16 18 20
12: 5 6 8 10 12 14 15 17 18 20
13: 4 8 9 10 12 13 16 17 18 20
14: 1 3 4 6 12 14 16 18 19 20
15: 2 4 5 8 13 14 16 18 19 20


gar.7 max rappresentatività 7p3d

1: 1 2 3 4 5 6 8 10 12 14
2: 1 2 3 4 6 7 8 16 18 20
3: 1 2 3 9 10 12 14 16 18 20
4: 1 2 4 6 10 11 12 13 16 18
5: 1 2 4 6 10 14 15 16 17 20
6: 1 2 4 8 10 11 14 18 19 20
7: 1 2 6 8 12 13 14 15 18 20
8: 1 4 5 6 12 14 16 18 19 20
9: 1 4 6 8 9 10 12 17 18 20
10: 1 4 7 8 10 12 13 14 16 20
11: 2 3 4 6 10 12 15 18 19 20
12: 2 3 4 8 10 11 12 16 17 20
13: 2 3 4 8 10 13 14 15 16 18
14: 2 3 6 8 11 12 14 16 18 19
15: 2 4 5 6 7 9 10 12 16 20
16: 2 4 5 6 8 9 14 16 17 18
17: 2 4 5 10 12 13 14 17 18 20
18: 2 4 6 7 8 12 14 17 19 20
19: 2 4 7 11 12 14 15 16 18 20
20: 2 4 8 9 12 13 16 18 19 20
21: 2 5 6 8 10 11 13 14 16 20
22: 2 6 7 8 10 12 15 16 17 18
23: 3 4 6 8 9 10 14 16 19 20
24: 4 5 6 7 8 10 14 15 18 20


max rappr. gar.7 con 2 fisse formula 8p2d

1: 1 2 3 4 6 8 10 12 14 16
2: 2 4 5 6 7 8 10 12 18 20
3: 2 4 6 8 9 11 14 16 18 20
4: 2 4 10 12 13 14 15 16 18 20


max rappr. gar.8 con 2 fisse formula 8p2d
1: 1 2 3 4 6 8 10 12 14 20
2: 1 2 4 5 6 8 10 16 18 20
3: 1 2 4 6 7 12 14 16 18 20
4: 2 3 4 5 8 12 14 16 18 20
5: 2 3 4 6 9 10 12 16 18 20
6: 2 4 5 6 10 11 12 14 16 20
7: 2 4 6 7 8 9 10 14 16 20
8: 2 4 6 7 8 10 11 12 18 20
9: 2 4 6 8 9 12 13 14 18 20
10: 2 4 6 8 10 12 13 15 16 20
11: 2 4 6 8 10 14 15 17 18 20
12: 2 4 6 8 11 14 16 18 19 20
13: 2 4 8 10 12 14 16 17 19 20

 

[keeper]

ciao rubino swegui questi per oggi
37.41.44.59.83

 

[keeper]

scusa ma che frequenza relativa è?

su quale range d'estrazioni?

da......a.........

1 giornata o parte di una giornata?


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

sono stato ora in ricevitoria, niente da fare......

però c'era uno che ha fatto 8 su 10 uguale 1500€

ha giocato una sequenza parziale di 2 decine
la ventina e la trentina.

controllando un po di estrazioni attualmente, vedo
che se si prendono 20 numeri consecutivi
si generano spesso da 5 a 8 punti.

con inserimento formule 7,8 pari e 2,3 dispari

esempio:
20 22 24 26 28 30 32 34 36 38 ....... 7,8 numeri
21 23 25 27 29 31 33 35 37 39 ....... 2,3 numeri

sviluppando un sistema di 20nr con riduzione in questo modo

gar.7 veloce 7p3d


1: 1 2 3 4 5 6 8 10 12 14
2: 2 4 6 7 8 11 12 14 15 16
3: 2 3 4 6 8 10 11 13 16 18
4: 4 6 7 8 9 10 12 14 16 19
5: 2 4 6 10 12 15 16 17 18 19
6: 4 5 6 8 11 12 13 14 16 20
7: 1 2 4 8 10 14 15 16 17 20
8: 2 3 7 8 9 10 12 14 18 20
9: 2 4 6 7 11 12 14 15 18 20
10: 1 2 4 6 7 8 9 16 18 20
11: 1 2 10 11 12 13 14 16 18 20
12: 5 6 8 10 12 14 15 17 18 20
13: 4 8 9 10 12 13 16 17 18 20
14: 1 3 4 6 12 14 16 18 19 20
15: 2 4 5 8 13 14 16 18 19 20


gar.7 max rappresentatività 7p3d

1: 1 2 3 4 5 6 8 10 12 14
2: 1 2 3 4 6 7 8 16 18 20
3: 1 2 3 9 10 12 14 16 18 20
4: 1 2 4 6 10 11 12 13 16 18
5: 1 2 4 6 10 14 15 16 17 20
6: 1 2 4 8 10 11 14 18 19 20
7: 1 2 6 8 12 13 14 15 18 20
8: 1 4 5 6 12 14 16 18 19 20
9: 1 4 6 8 9 10 12 17 18 20
10: 1 4 7 8 10 12 13 14 16 20
11: 2 3 4 6 10 12 15 18 19 20
12: 2 3 4 8 10 11 12 16 17 20
13: 2 3 4 8 10 13 14 15 16 18
14: 2 3 6 8 11 12 14 16 18 19
15: 2 4 5 6 7 9 10 12 16 20
16: 2 4 5 6 8 9 14 16 17 18
17: 2 4 5 10 12 13 14 17 18 20
18: 2 4 6 7 8 12 14 17 19 20
19: 2 4 7 11 12 14 15 16 18 20
20: 2 4 8 9 12 13 16 18 19 20
21: 2 5 6 8 10 11 13 14 16 20
22: 2 6 7 8 10 12 15 16 17 18
23: 3 4 6 8 9 10 14 16 19 20
24: 4 5 6 7 8 10 14 15 18 20


max rappr. gar.7 con 2 fisse formula 8p2d

1: 1 2 3 4 6 8 10 12 14 16
2: 2 4 5 6 7 8 10 12 18 20
3: 2 4 6 8 9 11 14 16 18 20
4: 2 4 10 12 13 14 15 16 18 20


max rappr. gar.8 con 2 fisse formula 8p2d
1: 1 2 3 4 6 8 10 12 14 20
2: 1 2 4 5 6 8 10 16 18 20
3: 1 2 4 6 7 12 14 16 18 20
4: 2 3 4 5 8 12 14 16 18 20
5: 2 3 4 6 9 10 12 16 18 20
6: 2 4 5 6 10 11 12 14 16 20
7: 2 4 6 7 8 9 10 14 16 20
8: 2 4 6 7 8 10 11 12 18 20
9: 2 4 6 8 9 12 13 14 18 20
10: 2 4 6 8 10 12 13 15 16 20
11: 2 4 6 8 10 14 15 17 18 20
12: 2 4 6 8 11 14 16 18 19 20
13: 2 4 8 10 12 14 16 17 19 20

ma 13 14 20 colonne sono troppe questo è un handicap in ricevitoria si rischia di non poter giocare e come facciamo a decidere la decina. cmq dalla mia esperienza visiva posso dirti che di ogni decina sortiscono mediamente da 2 a 4 numeri mentre se di una decina sortiscono + di una è un caso eccezionale. inoltre ogni domenica mattina la decina che si comporta bene è la settantina oppure una terzina presente nella prima parte della mattinata è 1.2.3 oppure 1.2.4 1.5.90

 

[keeper]

per quanto riguarda la frequenza relativa è applicata a totale delle estrazioni diviso il numero di volte sortito (X)
es. in due mesi tot.est.13678 (dal 11.11.11 al 09.01.2012)/ 3159 presenze del n.83 = 4,33

 

[keeper]

ciao rubino ho girato a luigi le tue richieste
Sub Main

Call ImpostaArchivio10ELotto (2)

For k = 1 To EstrazioniArchivioDL
Scrivi IndiceAnnualeDL( k)
Next
End Sub

"esatto keeper dovete basarvi sul numero dell'estrazione.
Nel caso del 10 e lotto 5 minut pero la funzione da usare ha un nome che potrebbe confondere le idee
si chiama infatti IndiceAnnualeDL
se fate scorrere questo preve script noterete che in output vengono messi i numeeri identificativi delle estrazioni
essi partono da 1 e si fermano a 200 e rotti poi al giorno successivo ricomincia da 1.
Ora sta a voi ricordarvi che la prima estrazione p quella delle 7.05 e l'ultima è quella di mezzanotte.
Considerate pure che da un certo punto in poi le estrazioni giornaliere sono diventate di piu... ora non ricordo bene
quindi il numero che identifica l'ultima estrazione giornaliera che prima era 204 ora è 228"

 

[Roby]

statistica parzializzabile per range orario (dal n. al n.) intermedio della giornata

statistica parzializzabile per range orario (dal n. al n.) intermedio della giornata

ciao Keeper

prova lo script che ho modificato
la statistica adesso è possibile parzializzarla per orario (dal n. al n. intermedio di giornata x più giornate)

se voglio esaminare una statistica di 1500 estrazioni
se voglio esaminare il progressivo di giornata dal n.49 al 75 che vuol dire dalle ore 4 del mattino alle 6 del mattino


è da provare

Sub Main
 Dim Inizio,Fine,idEstr,pt2,pt1,pt0,pt3
 Dim k,EntroColpi,e,ee,c,quanti,totest
 Dim nBase,nUscito,presenzespia
 Dim nUscite,kini,kfin,Orarin,Orarfi,gioco,kein
 ReDim aPresenze(90,90),Incrocio(90)
 Dim RetRit,RetRitMax,RetFreq
 gioco = InputBox("1 = 10eLotto serale       2 = 10eLotto5Minuti",,1)
 EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
 quanti = CInt(InputBox("Quanti numeri frequenti vuoi?",,7))
 If gioco = 1 Then
  Orarin = 0
  Orarfi = 288
 Else
  Orarin = 49
  Orarfi = 75
 End If
 kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
 kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario  a n. ",,Orarfi))
 kein = CInt(InputBox(" solo x 10Lotto5M quanti giorni Estrazione indietro?",,500))
 ''''imposta archivio
 Call ImpostaArchivio10ELotto(Int(gioco))
 If gioco = 1 Then
  Inizio = 8077
  Fine = EstrazioneFin
 Else
  Fine = EstrazioniArchivioDL
  Inizio = Fine - kein
 End If
 totest = Fine - Inizio
 ColoreTesto(1)
 If Int(gioco) = 1 Then
  Scrivi " Namescript (SpiaefrequentiRubinoV2)    by(LuigiB - mod.Rubino) "
  Scrivi " Archivio impostato su 10 E LOTTO SERALE   " & " Frequenti quantità " & quanti,1
  Scrivi " n.estrazioni esaminate " & totest & "   Entro colpi n." & EntroColpi
  Scrivi " dal.n.     al n.     " & Inizio & "/" & Fine
 End If
 If Int(gioco) = 2 Then
  Scrivi " Archivio impostato su 1O E LOTTO 5 MINUTI " & " Frequenti quantità " & quanti,1
  Scrivi " dal.n.     al n.     " & Inizio & "/" & Fine
  OrEda = kin / 12
  OrEa = kfi / 12
  Scrivi " Ultime estrazioni esaminate " & totest & "   Entro colpi n." & EntroColpi & "     Range Orario :" & " ( " & Int(OrEda) & " : " & Int(OrEa) & " )" & " estr.n." & kin & " : " & kfi
 End If
 Scrivi " Situazione Frequenti nei colpi successivi all'estrazione del nr.spia ",1
 '''''-'-------------------------------------------------------------------------------------------
 For k = Inizio To Fine
  If IndiceAnnualeDL(k) >= kin And IndiceAnnualeDL(k) <= kfi Then
   'Scrivi k & " " & IndiceAnnuale(k) & "--" & kin & "--" & kfi
   Call Messaggio(Format2(k) & " " & DataEstrazioneDL(k) & "  range orario:    " & kini & " : " & kfin)
   For e = 1 To 20
    nBase = EstrattoDL(k,e)
    For c = 1 To EntroColpi
     idEstr = k + c
     For ee = 1 To 20
      nUscito = EstrattoDL(idEstr,ee)
      aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
     Next
    Next
   Next
  End If
  Call AvanzamentoElab(Inizio,Fine,k)
  If ScriptInterrotto Then Exit For
 Next
 '''''-'-------------------------------------------------------------------------------------------
 If quanti < 11 Then
  pt3 = quanti - 3
  pt2 = quanti - 2
  pt1 = quanti - 1
  pt0 = quanti
 Else
  pt0 = 10
  pt1 = 9
  pt2 = 8
  pt3 = 7
 End If
 ReDim aTitoli(10)
 aTitoli(1) = "Numero Spia"
 aTitoli(2) = "Numeri Piu Freq"
 aTitoli(3) = "Uscite"
 aTitoli(4) = "Frequenza"
 aTitoli(5) = "% fav.Spia"
 aTitoli(6) = "% fav.numeri Freq."
 aTitoli(7) = "Punti" & pt3
 aTitoli(8) = "Punti" & pt2
 aTitoli(9) = "Punti" & pt1
 aTitoli(10) = "Punti" & pt0
 Call InitTabella(aTitoli,3,"center",1.5,1)
 For nBase = 1 To 90
  ReDim aValori(10)
  aValori(1) = nBase
  aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
  ReDim aV(0)
  Call SplitByChar(aValori(2)," ",aV)
  aValori(3) = nUscite
  ''''controlla presenze totali spia nel range di estrazioni
  ReDim aN(1)
  aN(1) = aValori(1)
  Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
  presenzespia = RetFreq
  ''''controlla frequenze totali della quantità di numeri
  ReDim aN(1)
  aN(1) = aValori(2)
  Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
  ''''controlla frequenze totali della quantità di numeri
  f = UBound(aV) - 1
  ReDim aVn(f)
  For e = 0 To f
   aVn(e) = aV(e)
  Next
  aValori(7) = 0
  aValori(8) = 0
  aValori(9) = 0
  aValori(10) = 0
  fpt3 = SerieFreqDL(Inizio,Fine,aVn,pt3)
  aValori(7) = fpt3
  fpt2 = SerieFreqDL(Inizio,Fine,aVn,pt2)
  aValori(8) = fpt2
  fpt1 = SerieFreqDL(Inizio,Fine,aVn,pt1)
  aValori(9) = fpt1
  fpt0 = SerieFreqDL(Inizio,Fine,aVn,pt0)
  aValori(10) = fpt0
  aValori(4) = presenzespia
  aValori(5) = Round(nUscite/totest*100,2)
  If presenzespia > 0 Then aValori(6) = Round(nUscite/presenzespia*100,2)
  Call AddRigaTabella(aValori)
  If aValori(7) > 0 Then Call SetColoreCella(7,vbRed,vbWhite)
  If aValori(8) > 0 Then Call SetColoreCella(8,vbGreen,vbBlack)
  If aValori(9) > 0 Then Call SetColoreCella(9,vbYellow,vbBlack)
  If aValori(10) > 0 Then Call SetColoreCella(10,vbYellow,vbBlack)
 Next
 Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite,quanti,Incrocio)
 Dim k
 ReDim aOrd(90,2)
 nfre = ""
 For k = 1 To 90
  aOrd(k,1) = Format2(k)
  aOrd(k,2) = aPresenze(nBase,k)
 Next
 Call OrdinaMatrice(aOrd,- 1,2)
 For q = 1 To Int(quanti)
  nfre = nfre & aOrd(q,1) & " "
  tfre = tfre + aOrd(q,2)
 Next
 ''
 ''' GetNumeroPiuFreq = aOrd(1,1) 
 GetNumeroPiuFreq = nfre
 ''''nUscite = aOrd(1,2)
 nUscite = tfre
End Function

 

[mauro21]

ciao rubino x favore mi riusciresti a postare una 20ina di numeri statistacamente piu frequenti al 10 e lotto ti ringrazio di cuore lo so che su di te posso sempre contare