Lunghetta x A-T su 2 ruote

[flapis]

Questo è un mio listato che paga poco.....5 volte la posta..... ma esce tutte le estrazioni (se giocato a TT, ma non rende, conviene trovarsi le ruote migliori)

                                                    'calcolato sulla ULTIMA quindi si gioca dalla 1°
Sub main()
Dim ruote(10)   
Dim a(10)
Dim poste(5)

        
poste(2)=1        
poste(3)=1 

ruote(2)=2 
ruote(10)=10   

For n=7694 To EstrazioneFin
If IndiceMensile (n+1)=1 Then     

a(1)=Fuori90(Estratto(n,1,3)+12)     
a(2)=Fuori90(Estratto(n,1,3)+73)     
a(3)=Fuori90(Estratto(n,5,3)+22)                        
a(4)=Fuori90(Estratto(n,2,1)+8)                         
a(5)=Fuori90(Estratto(n,7,4)+60)                         
a(6)=Fuori90(Estratto(n,4,2)+70)                         
a(7)=Fuori90(Estratto(n,7,4)+85)                        
a(8)=Fuori90(Estratto(n,5,3)+11)                        
a(9)=Fuori90(Estratto(n,8,4)+82)                        
a(10)=Fuori90(Estratto(n,4,1)+59)                        
ImpostaGiocata 1,a,ruote,poste,10
Gioca n
ColoreTesto 2: SCRIVI"------------------------------------------------------------------------------<<<flapis>>>",1 

End If
Next
ColoreTesto 7:
ScriviResoconto
ColoreTesto 2 : Scrivi "flapis",1
End Sub

=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 64
in corso: 1
casi finali: 63
positivi: 59
negativi: 4
Pronostici generati: 128
Pronostici vincenti: 129 (100,8 %)
Estrazioni di gioco: 631
Tentativi (scontrini giocati): 1262
Vincite (scontrini vincenti): 129 (10,22 %)
Attesa media: 5,41




Resoconto totale giocate
Dettaglio Ruote (Pronostici)

Ruota Vincenti Giocati
----------------------------------
Cagliari 60 ( 9,51 % ) 631
Venezia 69 ( 10,94 % ) 631
Totale 129 ( 10,22 % ) 1262



flapis