Salve Franca,
in effetti non c'è corrispondenza in quanto il listato di Maxma62
comprende anche la nazionale, speriamo che legga (Max) e possa
intervenire per fugare ogni dubbio!
piocola
p.s. forse ho trovato, mi sembra che questo ora funzioni
(somma solo le 10 ruote da Bari a Venezia) con gioco su tutte
(le 10 ruote!):
Sub main()
Dim ruote(1),nu1(5),poste(5)
poste(2)=3
oste(3)=1.2
oste(4)=0.5
oste(5)=0.2
For es=EstrazioneFin-100 To EstrazioneFin
'If IndiceMensile(es)=1 Then 'x una estr. mensile
Scrivi : Scrivi String(73,"•"),1
Scrivi "gioc. 1 = somme / gioc. 2 = vert. / gioc. 3 = diam.dec / gioc. 4 = diam. "
Scrivi String(73,"-")
n1=Fuori90(Estratto(es,1,1)+Estratto(es,2,1)+Estratto(es,3,1)+Estratto(es,4,1)+Estratto(es,5,1)+Estratto(es,6,1)+Estratto(es,7,1)+Estratto(es,8,1)+Estratto(es,9,1)+Estratto(es,10,1)) 'deve essere tutto su 1 riga
n2=Fuori90(Estratto(es,1,2)+Estratto(es,2,2)+Estratto(es,3,2)+Estratto(es,4,2)+Estratto(es,5,2)+Estratto(es,6,2)+Estratto(es,7,2)+Estratto(es,8,2)+Estratto(es,9,2)+Estratto(es,10,2)) 'deve essere tutto su 1 riga
n3=Fuori90(Estratto(es,1,3)+Estratto(es,2,3)+Estratto(es,3,3)+Estratto(es,4,3)+Estratto(es,5,3)+Estratto(es,6,3)+Estratto(es,7,3)+Estratto(es,8,3)+Estratto(es,9,3)+Estratto(es,10,3)) 'deve essere tutto su 1 riga
n4=Fuori90(Estratto(es,1,4)+Estratto(es,2,4)+Estratto(es,3,4)+Estratto(es,4,4)+Estratto(es,5,4)+Estratto(es,6,4)+Estratto(es,7,4)+Estratto(es,8,4)+Estratto(es,9,4)+Estratto(es,10,4)) 'deve essere tutto su 1 riga
n5=Fuori90(Estratto(es,1,5)+Estratto(es,2,5)+Estratto(es,3,5)+Estratto(es,4,5)+Estratto(es,5,5)+Estratto(es,6,5)+Estratto(es,7,5)+Estratto(es,8,5)+Estratto(es,9,5)+Estratto(es,10,5)) 'deve essere tutto su 1 riga
ruote(1)=11
k=13
ng=0
nu1(1)=n1
nu1(2)=n2
nu1(3)=n3
nu1(4)=n4
nu1(5)=n5
ng=ng+1
ImpostaGiocata ng,nu1,ruote,poste,k 'giocata 1
nu1(1)=Vert(n1)
nu1(2)=Vert(n2)
nu1(3)=Vert(n3)
nu1(4)=Vert(n4)
nu1(5)=Vert(n5)
ng=ng+1
ImpostaGiocata ng,nu1,ruote,poste,k 'giocata 2
nu1(1)=DiametraleD(n1)
nu1(2)=DiametraleD(n2)
nu1(3)=DiametraleD(n3)
nu1(4)=DiametraleD(n4)
nu1(5)=DiametraleD(n5)
ng=ng+1
ImpostaGiocata ng,nu1,ruote,poste,k 'giocata 3
nu1(1)=Diametrale(n1)
nu1(2)=Diametrale(n2)
nu1(3)=Diametrale(n3)
nu1(4)=Diametrale(n4)
nu1(5)=Diametrale(n5)
ng=ng+1
ImpostaGiocata ng,nu1,ruote,poste,k 'giocata 4
Gioca es
'End If ' x una estr. mensile
Next
ScriviResoconto
End Sub
**********
il rendimento complessivo si abbassa di qualche punto ....
=======================================
Resoconto complessivo di 4 giocate
=======================================
Resoconto totale giocate
Risultati generali
Casi esaminati: 404
in corso: 52
casi finali: 352
positivi: 336
negativi: 16
Pronostici generati: 404
Pronostici vincenti: 957 (236,9 %)
Estrazioni di gioco: 4888
Tentativi (scontrini giocati): 4888
Vincite (scontrini vincenti): 957 (19,58 %)
Attesa media: 7,01
Resoconto totale giocate
Dettaglio Ruote (Pronostici)
Ruota Vincenti Giocati
--------------------------------
Tutte 957 ( 19,58 % ) 4888
Totale 957 ( 19,58 % ) 4888
Resoconto totale giocate
Resoconto economico
Sorte Spese [€] Real. Vincite [€] -6% Guadagno [€]
-----------------------------------------------------------------
Ambata 0,00 0 0,00 0,00 0,00
Ambo 14.664,00 1128 8.740,00 8.215,60 -6.448,40
Terno 5.865,60 30 1.620,00 1.522,80 -4.342,80
Quaterna 2.444,00 1 1.200,00 1.128,00 -1.316,00
Cinquina 977,60 0 0,00 0,00 -977,60
E.Det.1 0,00 0 0,00 0,00 0,00
E.Det.2 0,00