STATISTICHE IN L8 ULTIMI 105 CASI
FORSE HAI VISTO LE STATISTICHE NON DI L8?
QUI MI FERMO ALLA 1° VINCITA DI AMBATA
=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali
Casi esaminati: 105 -----
in corso: 0
casi finali: 105
positivi: 89 -----
negativi: 16 -----
Pronostici generati: 210
Pronostici vincenti: 93 (44,3 %)
Estrazioni di gioco: 643
Tentativi (scontrini giocati): 1286
Vincite (scontrini vincenti): 93 (7,23 %)
Attesa media: 5,02
93 Ambate vinte qualcuno vincita allo stesso colpo in due ruote
QUI INVECE CONTINUO A GIOCARE PER TUTTI I 13 CONCORSI
=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali
Casi esaminati: 105
in corso: 1
casi finali: 104
positivi: 88
negativi: 16
Pronostici generati: 210
Pronostici vincenti: 173 (82,4 %)
Estrazioni di gioco: 1355
Tentativi (scontrini giocati): 2710
Vincite (scontrini vincenti): 173 (6,38 %)
Attesa media: 6,57
173 Ambate vinte
CIAO PER CHI ASPETTAVA IL LISTATO AMBO CICLOMETRICO.
'Metodo AMBO CICLOMETRICO DIST.38 di esselotto
' programmato da esselotto
'ricerca due ambi uniti isotopi di stessa
'distanza ciclometrica 38
Sub main()
Dim ruote(1)
Dim rt(3),pt(5),ptt(5),pte(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),ns1(6),ns2(6),ns3(6),ns4(6),ns5(6)
pt(1)=1 : ptt(2)=1 : pte(3)=1 ' pt e la posta giocata per ambata ptt e quella dell' ambo pte del terno
ruote(1)=11
clp=13
co=0
ini=EstrazioneFin -200
fin=EstrazioneFin
For es=ini To fin
For r=1 To 9
rt(1)=r
For p=1 To 4
pp =p+1
a=Estratto (es,r,p)
b=Estratto (es,r,pp)
di1=Distanza (a,b)
If di1=38 Then
For rr=r+ 1 To 10
rt(2)=rr
c=Estratto (es,rr,p)
d=Estratto (es,rr,pp)
di2=Distanza (c,d)
If di2=di1 Then ' se sono uguali
' calcolo il pronostico
so1=Fuori90(a+b+c+d):
am=Fuori90(so1+di1)
am=Diametrale (am):am=DiametraleD (am)
co=co+1
Scrivi "Previsione Nr "& co &"................................................"
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" ["& a &"_"& b &"] "
Scrivi DataEstrazione (es)&" "& SiglaRuota (rr)&" "& StringaEstratti (es,rr)&" ["& c &"_"& d &"] "
nu(1)=am
ImpostaGiocata 1,nu,rt,pt,clp,1 'mi fermo 1° ambata vinta
'--------------------------------------------------------------------------------
Gioca es
End If
Next
End If
Next
Next
Next
ScriviResoconto
Scrivi "°°°esselotto°°°"
End Sub