| Ricevo e volentieri posto.
mas
IL DOPPIO AMBO SCAR (di Adriano Scaravetti)
E' il solito metodo di ricerca di un ambo sortito doppio nel quadro estrazionale.
Lo script e' stato modificato su una base trovata in rete.
Si mette in gioco l'ambata somma dell'ambo e si gioca l'ambo a Tutte con il diametrale dell'ambata.
Troppo semplice ed efficace.
Ecco lo script:
Sub Main()
Scrivi "IL DOPPIO AMBO SCAR di ADRIANO SCARAVETTI"
Dim am(1),ab(4),j(2),ruota(2),ruote(1),posta(1),poste(2), abb(2)
ini=EstrazioneFin-400
fin=EstrazioneFin-300
ruote(1)=11
posta(1)=1 : poste(1)=0 : poste(2)=1
For es=ini To fin
Messaggio "Estrazione: [" & es & "]ª"
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
For r2=r1 + 1 To 12
If r2<>11 Then
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)
If(a=c And b=d) Or (a=d And b=c)Then
ColoreTesto 2
Scrivi String(40,32)
ColoreTesto 0
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r1),3) & _
"" & Space(3) & "" & StringaEstratti(es,r1) & "" & Space(6) & _
"" & Format2(a) & "" & Space(1) & "" & Format2(b) & _
"" & Space(4) & "(" & p1 & "-" & p2 & ")"
Scrivi DataEstrazione(es,1) & "" & Space(2) & _
"[" & es & "]ª" & Space(3) & "" & Left(NomeRuota(r2),3) & _
"" & Space(3) & "" & StringaEstratti(es,r2) & "" & Space(6) & _
"" & Format2(c) & "" & Space(1) & "" & Format2(d) & _
"" & Space(4) & "(" & p3 & "-" & p4 & ")" : Scrivi
a1=Fuori90(a+b) : b1=Fuori90(c+d)
dis1=Distanza(a1,a) : dis2=Distanza(a1,b)
am(1)=a1
abb(1)=(dis1+dis2) : abb(2)=Diametrale(abb(1))
ruota(1)=r1 : ruota(2)=r2
ImpostaGiocata 1,am,ruota,posta,99,1
ImpostaGiocata 5,abb,ruote,poste,99,2
ImpostaInterruzioni 1,5,2
ImpostaInterruzioni 5,1,1
Gioca es
Scrivi String(67,151)
End If
Next
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "",1
Scrivi "",1
ColoreTesto 2
Scrivi "",1
End Sub
Sono metodologie semplici che danno delle buone previsioni e si possono sfruttare con intelligenza sia per conferme sia per giocate.
Scaravetti Adriano, 23 Settembre 2014
|
