Salve a tutti...ciao Dj nomade...

[antonio65]

Buonasera, sono nuovo in questo sito(forum) volevo chiedere allegando alcune correzioni riguarda alcuni script...
Lo script che allego è una tecnica matematica inventata da me...sono scarso negli script perchè è da poco che mi sono cimentato in questa "materia" ...chiederei aiuto e collaborazione ...lo script è stato programmato moltiplicando il 1°estratto x4 poi il 2 fino ad arrivare al 5 estratto...qualsiasi ruota, qualsiasi estrazione mensile....la tecnica sarebbe in sintonia
con la funzione For nu= 1To 90 migliori previsioni del passato che questa funzione va a cercare...ora nel programma
penso ci sia un anomalia: se voi eseguite lo script funziona regolare e va alla ricerca degli ambi secondo la mia tecnica...
solo che ricercando gli ambi con 5 numeri per ogni For nu mi da tutti i 5 numeri uguali Esempio: estratto 1(57) estratto 2(57)
estratto 3 (57) estratto 4(57) estratto 5(57) ...il massimo di ambi che ha trovato sono 15 partendo dal 2007 fino ad oggi( sono pochi appunto perchè mi da gli stessi For Nu per ogni estratto...ora si può avere un for Nu diverso pe ogni estratto? grazie a chi mi aiuta:
Sub Main
Dim k(10,90),e1(2),nu1(5)
'es = 7694
For ru1 = 1 To 10
For nu = 1 To 90
co = co + 1

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin

For es = ini To fin
If IndiceMensile(es) = 6 Then
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni

a01 = Estratto(es,ru1,1)
a02 = Estratto(es,ru1,2)
a03 = Estratto(es,ru1,3)
a04 = Estratto(es,ru1,4)
a05 = Estratto(es,ru1,5)

DNA1 =a01*4
DNA2 =a02*4
DNA3 =a03*4
DNA4 =a04*4
DNA5 =a05*4


nu1(1) = Fuori90(Abs(MEN1 - DNA1)/4)
nu1(2) = Fuori90(Abs(MEN2 - DNA2)/4)
nu1(3) = Fuori90(Abs(MEN3 - DNA3)/4)
nu1(4) = Fuori90(Abs(MEN4 - DNA4)/4)
nu1(5) = Fuori90(Abs(MEN5 - DNA5)/4)

' Scrivi " Caso n°" & Format2(co) & " numeri estrazione " & Format2(a01) & " " & Format2(a02) & " " & Format2(a03) & " " & Format2(a04) & " " & Format2(a05)
EliminaRipetuti nu1
'Scrivi nu1(1)& " " & nu1(2) & " " & nu1(3) & " " & nu1(4) & " " & nu1(5) & " " & es
'Scrivi "============================================= ==== ================="
' Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
' Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
est = es + 1
fine = es + 1
For si = est To fine
For v1 = 1 To 4
For v2 = v1 + 1 To 5
e1(1) = Estratto(si,ru1,v1)
e1(2) = Estratto(si,ru1,v2)
ed = 0
For t = 1 To 5
For tt = 1 To 2
If nu1(t) = e1(tt) Then ed = ed + 1
Next
Next
If ed > 1 Then k(ru1,nu) = k(ru1,nu) + 1':Scrivi NomeRuota(ru1) & " " & e1(1) & " " & e1(2) & " " & DNA4 & " " & es
Next'v2
Next'v1
Next'si
End If
co = 0
Next
Next
'Scrivi
Next'ru1
Scrivi
Scrivi " ESTRAZIONI CONTROLLATE " & co
Scrivi
For p1 = 1 To 10
For p2 = 1 To 90
If k(p1,p2) > 6 Then Scrivi NomeRuota(p1) & " AMBI " & k(p1,p2) & " < NUMERO nu DA 1 To 90 > " & p2
Next
Scrivi
Next
End Sub