Ringrazio entrambi , non avendo problemi di Ram trovo + funzionale la soluzione di Mike questo lo volevo sapere perchè stavo zompettando da uno script a l'altro per dare una sistemata a qullo che avevo in mente di fare :
Dopo aver visto su questo forum il presente articolo:
Fra le tante pubblicazioni di numerica, le più accreditate sono quelle che si intitolano al nome di Rutilio Benincasa, ed esse sono la meta desiderata avidamente di coloro che si occupano di calcoli lottistici. Eppure, quante pubblicazioni, scarse ed addirittura vuote di contenuto, recano il titolo del grande matematico cosentino, il quale non si sognò mai di compilarle. Le opere del grande studioso calabrese si possono contare sulle dita della mano ed una vera rarità chi ne possiede qualche esemplare. La più grande opera del celebre matematico, che ricordi la storia, quella, appunto, che si intitola: Il Vero Rutilio. Questa rarissima pubblicazione, da tanti appassionati ansiosamente ricercata, non, come taluni possono credere, la guida per rintracciare terni e quaterne. Tutt’altro. Rutilio Benincasa ebbe di mira sempre lo sfruttamento del numero, e della sua natura, essenzialmente sulla ricerca dell’estratto, egli dedicò i suoi migliori studi. Ed ecco perché la più grande opera di questo mago della scienza numerica si intitola a lui stesso in modo semplice e significativo. Il Vero Rutilio, dunque, significa: vera scienza di rintracciare l’estratto .
Per ottenere il gruppo di tre numeri, dai quali si otterrà l’estratto futuro,
si sommano il primo ed il secondo estratto di ogni ultima estrazione del mese alla ruota di Napoli, ed il totale indica il numero dal quale devono scaturire i tre numeri, da rintracciarsi nella tavola riportata qui sotto.
LA TAVOLA DI RUTILIO
1 - 32 42 52 31 - 67 77 87 61 - 40 50 60
2 - 80 90 10 32 - 77 87 07 62 - 54 64 74
3 - 03 13 23 33 - 90 10 20 63 - 86 06 16
4 -28 38 48 34 - 39 49 59 64 - 69 79 89
5 - 38 48 58 35 - 25 35 45 65 - 06 16 26
6 - 14 24 34 36 - 54 64 74 66 - 15 25 35
7 - 18 28 38 37 - 15 25 35 67 - 32 42 52
8 - 40 50 60 38 - 44 54 64 68 - 06 16 26
9 - 21 31 41 39 - 61 71 81 69 - 08 18 28
10 - 47 57 67 40 - 54 64 74 70 - 13 23 33
11 - 90 10 20 41 - 87 07 17 71 - 79 89 09
12 - 44 54 64 42 - 46 56 66 72 - 59 69 79
13 - 67 77 87 43 - 24 34 44 73 - 03 13 23
14 - 72 82 02 44 - 33 43 53 74 - 37 47 57
15 - 43 53 63 45 - 20 30 40 75 - 19 29 39
16 - 63 73 83 46 - 69 79 89 76 - 65 75 85
17 - 68 78 88 47 - 71 81 01 77 - 51 61 71
18 - 31 41 51 48 - 83 03 13 78 - 04 14 24
19 - 55 65 75 49 - 57 67 77 79 - 07 17 27
20 - 88 08 18 50 - 62 72 82 80 - 73 83 03
21 - 65 75 85 51 - 45 55 65 81 - 29 39 49
22 - 44 54 64 52 - 41 51 61 82 - 86 06 16
23 - 39 49 59 53 - 22 32 42 83 - 47 57 67
24 - 67 77 87 54 - 03 13 23 84 - 82 02 12
25 - 64 74 84 55 - 76 86 06 85 - 31 41 51
26 - 61 71 81 56 - 51 61 71 86 - 52 62 72
27 - 19 29 39 57 - 81 01 11 87 - 61 71 81
28 - 32 42 52 58 - 12 22 32 88 - 34 44 54
29 - 84 04 14 59 - 47 57 67 89 - 02 12 22
30 - 62 72 82 60 - 76 86 06 90 - 25 35 45
ES: Il primo e secondo estratto dell’ultima estrazione di agosto del 1930 furono: 82 e 77 che, sommati, formano 69 (82 + 77 = 159; 159 90 = 69). Il 69 nella tavola di Rutilio corrispondeva ai numeri 8,18,28. Alla prima e seconda estrazione di settembre sortì l’ 8 rispettivamente come primo e quarto estratto.
Nel Tentativo di emulare una casa simile sono riuscito a fare questo script:
Codice:
Sub Main
Dim rg(1)
Dim n(1)
Dim ColpiDiRicerca
Dim SommaSpia:Dim a: Dim b
Dim pos(2)
rg(1) = 1
r = 1 'Sulla ruota 1 BA
ColpiDiRicerca = 5
pos(1) = 1
pos(2) = 2
ede = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",78)
em = CInt(InputBox("Quale estrazione mensile?","ESTRAZ MENSILE",1))
SommaSpia = Fuori90(Estratto(es,BA_,pos(1)) + Estratto(es,BA_,pos(2)))
For es = EstrazioneFin - ede To EstrazioneFin
If IndiceMensile(es) = em Then
Scrivi " Numeri e presenze dopo la SommaSpia [ " & Fuori90(Estratto(es,BA_,pos(1)) + Estratto(es,BA_,pos(2))) & " ] del " & DataEstrazione(es) & " in colpi " & ColpiDiRicerca
End If
For i = 1 To 90
n(1) = i
fr = SerieFreq(es + 1,es + ColpiDiRicerca,n,rg,1)
'Parametri:
'1)Inizio Specifica l'inizio del range di analisi se omesso prende il valore 1
'2)Fine Specifica la fine del range di analisi se omesso prende il valore del numero estrazioni In archivio
'3)vetNumeri Vettore contenente i numeri della combinazione
'4)vetRuoteVettore che contiene gli identificativi numerici delel ruote da analizzare
'5)Sorte Sorte da analizzare da 1 a 5 Estratto da 6 a 10 per Estratto determinato
If fr > 0 And IndiceMensile(es) = em Then
Scrivi "il " & FormatSpace(i,5,- 1) & " ha " & fr & " presenze"
End If
Next
Next
End Sub
Se si fa girare si noterà che invece della ruota di napoli si agirà su BA invece dell'ultimo del mese si prende l'indice 1 ma il mio intento è quello di stilare una tabella diciamo aggiornata di BA o CA ecc sulla falsa riga di quanto realizzato da Rutilio con la sola osservazione (LUI) perciò volevo avere +dadi in modo di avere un output non come quello che è venuto:
Numeri e presenze dopo la SommaSpia [ 87 ] del 01.10.2011 in colpi 5
il 8 ha 1 presenze
il 11 ha 1 presenze
il 18 ha 1 presenze
il 24 ha 1 presenze
il 29 ha 1 presenze
il 30 ha 1 presenze
il 39 ha 1 presenze
il 44 ha 1 presenze
il 45 ha 1 presenze
il 46 ha 1 presenze
il 47 ha 2 presenze
il 49 ha 1 presenze
il 51 ha 1 presenze
il 52 ha 1 presenze
il 54 ha 1 presenze
il 67 ha 1 presenze
il 72 ha 1 presenze
il 75 ha 1 presenze
il 76 ha 1 presenze
il 77 ha 1 presenze
il 86 ha 2 presenze
il 88 ha 2 presenze
La domanda è come modificare lo script affinchè per ogni somma mi trovo i tre numeri + frequenti? 
anche se pensavo che si potesse fare diversamente , grazie e buone Feste 
