quote:Originally posted by matrix916
Salve ho visto l'articolo e dato che anch'io tempo fa, rimasto affascinato da questa metodologia, l'ho studiata ed ho fatto uno script per estrapolare le previsioni eccolo lo metto a disposizione
Saluti a tutti.
Sub main()
Dim poste(5)
Dim ruote(10)
Dim numeri(10)
Dim num(10)
Dim so(6)
Dim di(11)
Dim fig(5)
Dim nume(90)
ritr=0
For es=EstrazioneFin -2000 To EstrazioneFin
For r1= 1 To 10
For e1= 1 To 5
num(e1)=Estratto (es,r1,e1)
num(e1+5)=Estratto (es+1,r1,e1)
Next
For s1= 1 To 6
so(s1)=Fuori90(num(s1)+num(s1+1)+num(s1+2)+num(s1+3)+num(s1+4))
Next
For k1= 1 To 6
di(k1)=num(k1)-num(k1+1)
If di(k1)<1 Then
di(k1)=di(k1)+90
End If
Next
For k2= 7 To 11
di(k2)=so(k2-6)-so(k2-5)
If di (k2)<1 Then
di(k2)=di(k2)+90
End If
Next
sch1=0
For kk=1 To 11
sch1=sch1+di(kk)
Next
sch2=0
For kk2= 1 To 6
sch2=sch2+so(kk2)
Next
If Fuori90(sch1)=90-Fuori90(sch2) Then
Erase numeri
For p1=1 To 5
numeri(p1)=Fuori90(num(p1+5)+sch1)
Next
poste(2)=1
poste(3)=1
ruote(1)=r1
ImpostaGiocata 1,numeri,ruote,poste,10,2
Gioca (es+1)
End If
Next
Next
ScriviResoconto
End Sub