fillotto
Advanced Member >PLATINUM<
Quante volte abbiamo visto quei "script sommativi" in cui si dimostrava che per tot cicli che da tot estrazioni si è avuto l'esito di ambi terni e anche sorti superiori?
Quando poi si va a giocare ,pensando che il trend continui,puntualmente al 99% si blocca tutto !!!
Quindi mi sono chiesto e se si ragionasse in modo inverso? cioè se invece di rilevare queste frequenze che chiaramente hanno all'apparenza un che di miracoloso , si andassero a riscontrare i ritardi questi risconti avrebbero a parere di voi esperti un che di statisticamente più valido?
Allo scopo con l'aiuto di excel ho riscontrato questa situazione sulla ruota di BA
In 14 cicli di 9 (120 es) estrazioni giocando 6 num non ho riscontrato non un ambo ma addirittura mai un estratto!!
Chiedo quindi ai vari Rubino & C. lumi, allego lo script con output esplicativo
Quando poi si va a giocare ,pensando che il trend continui,puntualmente al 99% si blocca tutto !!!
Quindi mi sono chiesto e se si ragionasse in modo inverso? cioè se invece di rilevare queste frequenze che chiaramente hanno all'apparenza un che di miracoloso , si andassero a riscontrare i ritardi questi risconti avrebbero a parere di voi esperti un che di statisticamente più valido?
Allo scopo con l'aiuto di excel ho riscontrato questa situazione sulla ruota di BA
In 14 cicli di 9 (120 es) estrazioni giocando 6 num non ho riscontrato non un ambo ma addirittura mai un estratto!!
Chiedo quindi ai vari Rubino & C. lumi, allego lo script con output esplicativo
Codice:
Sub Main()
Dim rt(1) 'la ruota dove voglio giocare è una (1)
Dim nr(10) ' i nr in gioco sono max 10
Dim pta(3) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo((2) è di 1 euro
pta(3) = 0.50 'la puntata sul terno((3) è di 0.5 euro
start = InputBox("inserire il numero di partenza dei cicli ...",,8699)
dal = start
z = InputBox("inserisci la ruota dove vuoi giocare 1=BA 2=CA ecc ...",,1)
rt(1) = z ' la ruota dove SI GIOCA che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9
a = InputBox("La PRIMA ruota di ricerca ?",,3)
aa = InputBox("Posizione della PRIMA ruota di ricerca ?",,4)
aaa = InputBox("Digita l' adattaore da abbinare alla PRIMA ruota di ricerca","adattatore 1^ RUOTA ",38)
b = InputBox("La SECONDA ruota di ricerca ?",,3)
bb = InputBox("Posizione della SECONDA ruota di ricerca ?",,5)
bbb = InputBox("Digita l' adattaore da abbinare alla SECONDA ruota di ricerca","adattatore 2^ RUOTA ",70)
c = InputBox("La TERZA ruota di ricerca ?",,4)
cc = InputBox("Posizione della TERZA ruota di ricerca ?",,4)
ccc = InputBox("Digita i 2 adattaori da abbinare alla TERZA ruota di ricerca","adattatore 3^ RUOTA ",37)
d = InputBox("La QUARTA ruota di ricerca ?",,5)
dd = InputBox("Posizione della QUARTA ruota di ricerca ?",,2)
ddd = InputBox("Digita i 2 adattaori da abbinare alla QUARTA ruota di ricerca","adattatore 4^ RUOTA ",33)
e = InputBox("La QUINTA ruota di ricerca ?",,8)
ee = InputBox("Posizione della QUINTA ruota di ricerca ?",,2)
eee = InputBox("Digita l'adattaore da abbinare alla QUINTA ruota di ricerca","adattatore 5^ RUOTA ",14)
f = InputBox("La SESTA ruota di ricerca ?",,8)
ff = InputBox("Posizione della SESTA ruota di ricerca ?",,3)
fff = InputBox("Digita l'adattaore da abbinare alla SESTA ruota di ricerca","adattatore 6^ RUOTA ",33)
For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcoli ci avalliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
Scrivi "Ai 6 num MADRE prelevati dall'estr generatrice " & " " & n & " : " & Estratto(n,a,aa) & " " & Estratto(n,b,bb) & " " & Estratto(n,c,cc) & " " & Estratto(n,d,dd) & " " & Estratto(n,e,ee) & " " & Estratto(n,f,ff)&" "&" aggiungeremo gli adattatori sottonotati"
Scrivi " quindi al " & aa & "°" & " di " & SiglaRuota(a) & "( " & Estratto(n,a,aa)& ")"& " aggiungeremo l' adattatore " & " " & aaa
Scrivi " al " & bb & "°" & " di " & SiglaRuota(b) & "( " & Estratto(n,b,bb)& ")"& " aggiungeremo l' adattatore " & " " & bbb
Scrivi " al " & cc & "°" & " di " & SiglaRuota(c) & "( " & Estratto(n,c,cc)& ")"& " aggiungeremo l' adattatore " & " " & ccc
Scrivi " al " & dd & "°" & " di " & SiglaRuota(d) & "( " & Estratto(n,d,dd)& ")"& " aggiungeremo l' adattatore " & " " & ddd
Scrivi " al " & ee & "°" & " di " & SiglaRuota(e) & "( " & Estratto(n,e,ee)& ")"& " aggiungeremo l' adattatore " & " " & eee
Scrivi " al " & ff & "°" & " di " & SiglaRuota(f) & "( " & Estratto(n,f,ff)& ")"& " aggiungeremo l' adattatore " & " " & fff
ng = 0
nr(1) = Fuori90(Estratto(n,a,aa) + aaa)
nr(2) = Fuori90(Estratto(n,b,bb) + bbb)
nr(3) = Fuori90(Estratto(n,c,cc) + ccc)
nr(4) = Fuori90(Estratto(n,d,dd) + ddd)
nr(5) = Fuori90(Estratto(n,e,ee) + eee)
nr(6) = Fuori90(Estratto(n,f,ff) + fff)
EliminaRipetuti nr
Call ImpostaGiocata(1,nr,rt,pta,k,3) ' imposto la giocata e la stoppo all'uscita del terno = 3
Gioca n,,,1
Next
ScriviResoconto
End Sub
