CAGLIARI SPIA 23---BIS

[rob.]

...anche qui' gli abbinamenti migliori sono uelli Algoritmici....moderazione!!

AlgoPower-by Rob

Data inizio ricerca 20/07/2013
Data fine ricerca 19/07/2014

Condizione di gioco: sortita del n. 23 in qualsiasi posizione
Ruota/e di ricerca condizione CA
Ruota/e di gioco RO
Colpi di gioco 6 (con controllo delle ultime 6 estraz.)

Ruota/e di gioco RO

Ambata/capogioco: 8
Abbinamenti per ambo (da algoritmi):
30 24 5 25 47----> FREQ TOTALE= 238

Abbinamenti per ambo (da numeri abbinati al capogioco):
2 9 43 32 52----> FREQ TOTALE= 180

Operazioni da eseguire

Calcolo capogioco:
1' su CA + 35

Calcolo abbinamenti:
3' su BA - 39
4' su CA - 29
2' su BA - 3' su PA
5' su TO - 4' su NZ
1' su BA - 2

Casi rilevati : 4
Casi favorevoli : 3 (75,0 %)
Casi negativi : 0 (0,0 %)
Casi in gioco : 1
Ambate : 8
Ambi secchi : 12--->SOLO DA ALGORITMI
Attesa media : 2,3 colpi

 

[roy]

ciao a tutti allego lo script con la speranza che sia utile a qualcuno


Sub Main() ColoreTesto 1
Scrivi " METODO ROB SPIA 23 BIS A CAGLIARI GIOCARE AMBATA AMBI SU ROMA --------LISTATO BY ROY - COLPI 6",1
Scrivi
ColoreTesto 0
Dim ruota(1),ruote(2)
Dim ambata(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
Dim poste(1) : Dim posta(2)
poste(1) = 1
posta(2) = 1
ruota(1) = 8
ruote(1) = 8
ruote(2) = 11
r = 2
spia = 23
klp = 6
ini = 8740
ee = 190
fin = EstrazioneFin
ini = EstrazioneFin - ee
For es = ini To fin
If Posizione(es,r,spia) > 0 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO ROB SPIA 23 BIS A CAGLIARI GIOCARE AMBATA AMBI SU ROMA -------- LISTATO BY ROY COLPI 6",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
a = Fuori90(Estratto(es,CA_,1) + 35)
b = Fuori90(90 + Estratto(es,BA_,3) - 39)
c = Fuori90(90 + Estratto(es,CA_,4) - 29)
d = Fuori90(90 + Estratto(es,BA_,2) - Estratto(ES,PA_,3))
e = Fuori90(90 + Estratto(es,TO_,5) - Estratto(ES,NZ_,4))
f = Fuori90(Estratto(es,BA_,1) - 2)

ambata(1) = a
ImpostaGiocata 1,ambata,ruota,poste,klp
ambo1(1) = a
ambo1(2) = b
ImpostaGiocata 2,ambo1,ruote,posta,klp
ambo2(1) = a
ambo2(2) = c
ImpostaGiocata 3,ambo2,ruote,posta,klp
ambo3(1) = a
ambo3(2) = d
ImpostaGiocata 4,ambo3,ruote,posta,klp
ambo4(1) = a
ambo4(2) = e
ImpostaGiocata 5,ambo4,ruote,posta,klp
ambo5(1) = a
ambo5(2) = f
ImpostaGiocata 6,ambo5,ruote,posta,klp

Gioca es,True
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by ROY ***** ",1,3,0
ScriviResoconto
End Sub

 

[rob.]

ciao,al 2° colpo e' uscita solo l'ambata!!

-ciao rob

 

[pistacchio]

Rob...ciao caro, io come sempre ti seguo...ma sta Lottomatica ultimamente mi odia....purtroppo l'ambata nn la gioco e quindi niente vincita. Volevo chiederti ma questa è da continuare? Porto avanti l'80....grazie notte