Girovagando per la rete ho trovato uno script (adattato per l'occasione) al fine di poter seguire i risultati ottenuti al Superenalotto sulla base dei numeri ricavati dalla tabella di Gastritico.
In questo modo ad ogni estrazione verificheremo i punteggi ottenuti.
Questo il risultato dello script:
Pronostico derivato dalla Tabella di Gastritico sulla base dei numeri non sortiti alla data del
30.09.2008
------------------------------------------------------------------------------------------------------------------------
N.in gioco < 04.09.10.13.14.17.19.23.24.26.37.40.44.45.46.48.49.50.56.62.64.66.68.69.70.74.75.76.79.82.83.84.86.87.89.90 >
------------------------------------------------------------------------------------------------------------------------
Estr. di gio 02.10.2008 < 02.41.59.68.74.86 > punti ** 3 ** al 01° colpo
e questo lo script:
Sub main()
Dim n(6),nr(36),ne(6)
fin=EstrazioneFin
ini=fin-13
For es=ini To fin
If IndiceMensile(es+1)=1 Then
'------------------------------'numeri in gioco
nr(1)=4
nr(2)=9
nr(3)=10
nr(4)=13
nr(5)=14
nr(6)=17
nr(7)=19
nr(8)=23
nr(9)=24
nr(10)=26
nr(11)=37
nr(12)=40
nr(13)=44
nr(14)=45
nr(15)=46
nr(16)=48
nr(17)=49
nr(18)=50
nr(19)=56
nr(20)=62
nr(21)=64
nr(22)=66
nr(23)=68
nr(24)=69
nr(25)=70
nr(26)=74
nr(27)=75
nr(28)=76
nr(29)=79
nr(30)=82
nr(31)=83
nr(32)=84
nr(33)=86
nr(34)=87
nr(35)=89
nr(36)=90
'-----------------------------
Scrivi "Pronostico derivato dalla Tabella di Gastritico sulla base dei numeri non sortiti alla data del"
Scrivi DataEstrazione(es),1
Scrivi String(120,"-")
OrdinaMatrice nr,+1
Scrivi "N.in gioco < "& StringaNumeri (nr)&" >",1
Scrivi String(120,"-")
nessuno=1
For x=1 To 20
ex=es+x
co=0
If ex>fin Or Cadenza(Distanza(Mese(ex) ,Mese(es)))<>1 Then Exit For '<== per giocare il mese successivo
'If ex>fin Or Distanza(Mese(ex) ,Mese(es))<>0 Then Exit For 'per giocare solo nello stesso mese
For p=1 To 6
a=Estratto(ex,,p,1)
ne(p)=a
For y=1 To 36
If a=nr

Then co=co+1
Next:Next
OrdinaMatrice ne
If co>-1 Then '<=== per vedere tutti i casi anche a zero esiti
'If co>2 Then '<=== per vedere solo i casi positivi togliere apice e metterlo alla riga precedente
ColoreTesto 1
Scrivi "Estr. di "& DataEstrazione(ex,1)&" < "& StringaNumeri(ne) &" > punti ** "&co&" ** al "&format2(x)&"° colpo ",1
ColoreTesto 0
Nessuno=0
'Exit For '<======= se vuoi sospendere la scansione dei 12 colpi al 1° esito +
End If 'x
Next 'chiude x
If co<3 And Nessuno Then ColoreTesto 2 : Scrivi " negativo!" :coloretesto 0
End If
Next
End Sub