R
Roby
Guest
...I sommativi...
Dimostrazione di costruzione di un sommativo (Antica arte di far coincidere le cose) :
tempo di analisi : 100 estrazioni
Durata gioco : 9 colpi
Numeri in gioco : una cinquina X Ambo,terno,Quaterna.
Ruote di gioco : Tutte
Esito analisi:
In 100 estrazioni, 2 quaterne, 12 terni, 107 ambi con un guadagno netto di 4.000 euro.
Resoconto
Lo script da far girare così comè, cliccate su ok a tutto.
Dimostrazione di costruzione di un sommativo (Antica arte di far coincidere le cose) :
tempo di analisi : 100 estrazioni
Durata gioco : 9 colpi
Numeri in gioco : una cinquina X Ambo,terno,Quaterna.
Ruote di gioco : Tutte
Esito analisi:
In 100 estrazioni, 2 quaterne, 12 terni, 107 ambi con un guadagno netto di 4.000 euro.
Resoconto
Codice:
+----------------------------------------+
| Prima Giocata : 9394 |
| Ultima Giocata : 9494 |
| Range : 101 |
| Casi giocab perc. : 100% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 101 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 82 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 81,19 % | | BA | | | | | | | BA | | | | | | | BA | | |
| Pronostici totali : 101 | | CA | | | | | | | CA | | | | | | | CA | | |
| Pronostici vinc. : 82 | | FI | | | | | | | FI | | | | | | | FI | | |
| Percentuale pos. : 81,19 % | | GE | | | | | | | GE | | | | | | | GE | | |
| Giocate in corso : 4 | | MI | | | | | | | MI | | | | | | | MI | | |
| Giocate terminate : 97 | | NA | | | | | | | NA | | | | | | | NA | | |
| Bollette giocate : 388 | | PA | | | | | | | PA | | | | | | | PA | | |
| Bollette vincenti : 82 | | RO | | | | | | | RO | | | | | | | RO | | |
| Attesa media : 3 | | TO | | | | | | | TO | | | | | | | TO | | |
| Spesa : 1.225,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 5.320,40 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 4.095,40 € | | TT | | 107| 12| 2| | | TT | | | | | | | TT | | |
| Perc. Rendimento : 334,318 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 78,00 € |
| Estratto su tutte : 186 |
| Ambo su tutte : 107 |
| Terno su tutte : 12 |
| Quaterna su tutte : 2 |
| |
+----------------------------------------+Lo script da far girare così comè, cliccate su ok a tutto.
Codice:
Option Explicit
Sub Main
Dim es,Ini,Fin,r0,r1,nRic,Clp,x,y,j
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim am(10)
Dim nu(5)
Dim na(5)
Dim a,b,c,d,e,co
Dim Importi(2,9)
Dim nprogryn
Dim nprogr(12)
poste(2) = 1
poste(3) = 1
poste(4) = 1
nprogryn = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO",,"1"))
If nprogryn = 1 Then
nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro ",,"1"))
nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 2 Euro ",,"1"))
nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 3 Euro ",,"1"))
nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 4 Euro ",,"1"))
nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 5 Euro ",,"1"))
nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 6 Euro ",,"1"))
nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 7 Euro ",,"2"))
nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 8 Euro ",,"2"))
nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 9 Euro ",,"2"))
Importi(2,1) = nprogr(1)
Importi(2,2) = nprogr(2)
Importi(2,3) = nprogr(3)
Importi(2,4) = nprogr(4)
Importi(2,5) = nprogr(5)
Importi(2,6) = nprogr(6)
Importi(2,7) = nprogr(7)
Importi(2,8) = nprogr(8)
Importi(2,9) = nprogr(9)
End If
x = CInt(InputBox(" Scegli Fisso Base ",,"1"))
y = CInt(InputBox(" Scegli Fisso Base ",,"20"))
j = CInt(InputBox(" Scegli Fisso Base ",,"84"))
r0 = CInt(InputBox(" Scegli la ruota Base ",,"1"))
r1 = 11
nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Ini = EstrazioneFin - nRic
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r0
ruote(1) = r1
a = Estratto(es,r0,1)
b = Estratto(es,r0,2)
c = Estratto(es,r0,3)
d = Estratto(es,r0,4)
e = Estratto(es,r0,5)
'--------------------
am(1) = Fuori90(a + x)
am(2) = Fuori90(b + x)
am(3) = Fuori90(c + x)
am(4) = Fuori90(d + x)
am(5) = Fuori90(e + x)
'---------------------
am(6) = Differenza(a,x)
am(7) = Differenza(b,x)
am(8) = Differenza(c,x)
am(9) = Differenza(d,x)
am(10) = Differenza(e,x)
'----------------------------
nu(1) = Fuori90(am(1) + am(6))
nu(2) = Fuori90(am(2) + am(7))
nu(3) = Fuori90(am(3) + am(8))
nu(4) = Fuori90(am(4) + am(9))
nu(5) = Fuori90(am(5) + am(10))
'------------------------------
na(1) = Fuori90(nu(1) + nu(2))
na(2) = Fuori90(nu(4) + nu(5))
na(3) = Fuori90(Diametrale((nu(3)) + y))
na(4) = Fuori90(na(1) + na(2))
na(5) = Fuori90(Diametrale((nu(3)) + j))
'-----------------------------
co = co + 1
Scrivi String(70,"-")
Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Fissi " & x & y & j,1,,,1
ImpostaGiocata 1,na,ruote,poste,Clp,2
ImpostaProgressione 1,Importi
' Scrivi "puntate eseguite " & Clp
'Scrivi " - .1 colpo - " & Importi(2,1) & " euro x ambo "
'Scrivi " - .2 colpo - " & Importi(2,2) & " euro x ambo"
'Scrivi " - .3 colpo - " & Importi(2,3) & " euro x ambo"
'Scrivi " - .4 colpo - " & Importi(2,4) & " euro x ambo"
'Scrivi " - .5 colpo - " & Importi(2,5) & " euro x ambo"
'Scrivi " - .6 colpo - " & Importi(2,6) & " euro x ambo"
'Scrivi " - .7 colpo - " & Importi(2,7) & " euro x ambo"
'Scrivi " - .8 colpo - " & Importi(2,8) & " euro x ambo"
'Scrivi " - .9 colpo - " & Importi(2,9) & " euro x ambo"
Gioca es,True,,1
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto,False
End Sub
Complimenti! La ciliegina sulla torta sarebbe che riuscisse ad estrapolare solo le righe contenenti:
