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