Eccovi un anticipo lo script del metodo sulle ruote di -BA - CA all'undicesima estrazione mensile.
da giocare per 9 colpi. la previsione dal 26.01.2016 è la seguente:61 ambata abbinamenti 1-50-6-47 in bocca al lupo.....
resa del metodo in 15 casi esaminati giocando tutta la cinquina:-
ambi 37- terni 22 -quaterne 10-cinquine 2.-
Sub main()
Scrivi
ColoreTesto 1
Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
Scrivi "programma ideato dal Barone di Aversa"
Scrivi "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="
Scrivi
Dim posta(5)
Dim pst(5)
Dim ruote(10)
Dim rt(10)
Dim ma(10)
Dim mb(10)
posta(1)=1 'posta ambata
pst(2)=1 'posta ambo
pst(3)=1 'posta terno
pst(4)=0.40
pst(5)=0.10
rs=InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",200)
k=CInt(InputBox("Per quante estrazioni deve durare il gioco?","Durata gioco",9))'scelta colpi di gioco
fin=EstrazioneFin 'fine ricerca
ini=EstrazioneFin-rs 'inizio ricerca
For es=ini To fin
If IndiceMensile(es)=11 Then ' scelta indice mensile 11^=undicesima del mese
a=Estratto(es,4,3)
b=Estratto(es,9,5)
c=Estratto(es,5,1)
d=Estratto(es,1,4)
e=Estratto(es,10,5)
f=Estratto(es,10,5)
ColoreTesto 1 :Scrivi "------------------11^estrazione del mese---------------------------Metodo e listato del Barone di Aversa",1
ColoreTesto 2
co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&" "& SiglaRuota (GE_)&" "& StringaEstratti (es,4)&" - "& SiglaRuota (TO_)&" "& StringaEstratti (es,9)&" - "& SiglaRuota (MI_)&" "& StringaEstratti (es,5)&" <<calcolo previsione>>:-"
ColoreTesto 1:Scrivi"<<Ambata(3°GE+14)Abbinamenti(5°TO+25)(1°MI+4)(4°BA+18)(5°VE+26)>>"
Scrivi
i=Fuori90((a)+14) 'ambata
l=Fuori90((b)+25)'abbinamenti
m=Fuori90((c)+4)
n=Fuori90((d)+18)
o=Fuori90((e)+26)
ruote(1)=1 'scelta ruota di gioco
ruote(2)=2
rt(1)=1
rt(2)=2
rt(3)=3
rt(4)=4
rt(5)=5
rt(6)=6
rt(7)=7
rt(8)=8
rt(9)=9
rt(10)=10
ma(1)=i 'ambata in gioco
ImpostaGiocata 1,ma,ruote,posta,k
mb(1)=i
mb(2)=l
mb(3)=m
mb(4)=n
mb(5)=o
ImpostaGiocata 2,mb,ruote,pst,k
ImpostaGiocata 3,mb,rt,pst,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub