| Ricevo e volentieri posto
mas
2AMBI-DU-1R (di Adriano Scaravetti)
Quando in una Ruota ci sono nella stessa estrazione 2 ambi a distanza uguale o somma uguale, allora si puo' ricavare una certa previsione.
Ecco lo script:
Scrivi "2Ambi-DU-1R"
Scrivi "=================by ScaraLab"
Sub main()
Dim am(2),n(4),abb(6),nume(2)
Dim ruota(1),posta(1),post1(2),post2(4)
posta(1)=1 : post1(2)=1 : post2(2)=1
eg=48 'estrazioni della giocata
ini=EstrazioneFin-3049
fin=EstrazioneFin-50
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
ca=0
For p=1 To 4
For q=p+1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,q)
For p1=1 To 4
For q1=p1+1 To 5
If p1=p Or p1=q Or q1=p Or q1=q Then
Else
If p1>p Then
c=Estratto (es,r,p1)
d=Estratto (es,r,q1)
If Distanza(a,b)=Distanza(c,d) Then
If a<b And c>d Then
n1=Fuori90 (a+c)
n2=Fuori90 (b+d)
End If
If a<b And c<d Then
n1=Fuori90 (a+d)
n2=Fuori90 (b+c)
End If
If a>b And c>d Then
n1=Fuori90 (a+d)
n2=Fuori90 (b+c)
End If
If a>b And c<d Then
n1=Fuori90 (a+c)
n2=Fuori90 (b+d)
End If
If n1=n2 Then
ca=ca+1
If ca=1 Then
ruota(1)=r
am(1)=n1
am(2)=Diametrale (n1)
If SerieRitardo(es-17,es-1,am,ruota,1)=0 Then
n(1)=a
n(2)=b
n(3)=c
n(4)=d
OrdinaMatrice n,+1
abb(1)=n(3)
abb(2)=n(4)-1
abb(3)=n(4)
abb(4)=Fuori90(n(4)+1)
Scrivi DataEstrazione (es)&" "& Left(NomeRuota (r),2)&_
" "&a&"."&b&"."&c&"."&d&" - "&" Somma Comune: "&n1&"/"&n2
Scrivi Join (am)&" "& Join (abb)
abb(5)=am(1)
abb(6)=am(2)
ImpostaGiocata 1,am,ruota,posta,eg,1
' ImpostaGiocata 2,am,ruota,post1,eg,2
co=3
For x=1 To 4
co=co+1
nume(1)=am(1)
nume(2)=abb(x)
' ImpostaGiocata co,nume,ruota,post1,eg,2
Next
' ImpostaGiocata co+1,abb,ruota,post2,eg,2
Gioca es
Scrivi
Erase abb
End If
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Ecco l'output:
2Ambi-DU-1R
=================by ScaraLab
24.09.1983 Ro 90.40.33.83 - Somma Comune: 33/33
33 78 83 89 90 1
sab 24.09.1983 [5881]
G 1: M 33.78 Ro 8/48
M 78 su Ro 8° colpo [5889/19.11.1983]
E' facile calcolare la previsione e lo script la fornira'.
Puo' essere utile giocare solo 6 colpi dove sortono piu' del 50 % delle previsioni, oppure aspettare quelle previsioni che vanno oltre un certo valore di ritardo e poi metterle in gioco.
Lo script fornisce previsioni che servono alle vostre conferme.
Scaravetti Adriano, 22, settembre 2014
|
