Il 1° metodo x Ambetto che va in positivo !!!

[fillotto]

Bisogna trovare due numeri Diametrali a cavallo fra due ruote consecutive
Esempio BA 5° estratto 1 CA 1° estratto 46 quindi giocare sulle 2 ruote trovate
L' AMBETTO .Per comodità qui si giocano per "VISIONE DELLA RESA" 4 ambi ma chiaramente
Voi giocherete L'ambetto che è + remunerativo

Sub Main()
'bisogna trovare due numeri Diametrali  a cavallo fra due ruote consecutive
' Esempio BA 5° estratto 1 CA 1° estratto 46  quindi giocare sulle 2 ruote trovate
'L' AMBETTO per comodità qui si giocano per "VISIONE DELLA RESA" 4 ambi  ma chiaramente
'Voi giocherete  L'ambetto che è + remunerativo   
Dim ruote(2),amb1(2),posta(3),amb2(2),amb3(2),amb4(2)
posta(2) = 1
'posta(2) = 0.2
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",10)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
p1 = 5 'la posizione del della prima ruota qui 5
a = Estratto(es,r1,p1)
p2 = 1'la posizione del della seconda ruota qui 1
b = Estratto(es,r1 + 1,p2)
c = Diametrale(a)
If b = c Then
casi = casi + 1
'qui cominciano le istruzioni x  L'OUTPUT

Scrivi String(50,"=") & " Fillotto",1

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."


Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."

Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ruote(1) = r1 '
ruote(2) = r1 + 1
n1 = a'
n2 = Fuori90(a + 1)
n3 = Fuori90(a - 1)
n4 = Fuori90(b + 1)
n5 = Fuori90(b - 1)
n6 = b

amb1(1) = n1
amb1(2) = n4
ra1 = SerieRitardo(ini,es,amb1,ruote,2)
ColoreTesto 2
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n4 & "  " & " = " & Format2(ra1)
amb2(1) = n1
amb2(2) = n5
ra2 = SerieRitardo(ini,es,amb2,ruote,2)
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n5 & "  " & " = " & Format2(ra2)

amb3(1) = n6
amb3(2) = n2
ra3 = SerieRitardo(ini,es,amb3,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n2 & "  " & " = " & Format2(ra3)

amb4(1) = n6
amb4(2) = n3
ra4 = SerieRitardo(ini,es,amb4,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n3 & "  " & " = " & Format2(ra4)



ColoreTesto 0
ImpostaGiocata 1,amb1,ruote,posta,k,2
ImpostaGiocata 2,amb2,ruote,posta,k,2
ImpostaGiocata 3,amb3,ruote,posta,k,2
ImpostaGiocata 4,amb4,ruote,posta,k,2


Gioca es,True
End If


Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Diametrali a cavallo x Ambetto",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub

 

[lorelai]

Grazie fillotto........posso chiederti come si ottengono le ambate e gli ambi (non so usare listati)...forse si mettono in gioco gli stessi numeri per ambo - ambetto...quindi 1-46---(90-1-2.......45.46.47)...ti ringrazio per la risposta
ciao

 

[fillotto]

E' semplice lorelai mettiamo che trovi a BA come 5° estratto il num 1 e a CA (sempre nella stessa estrazione ) al 1° estratto il n° 46 ovvero il diametrale di 1 allora secondo il metodo dovrai giocare 1 e 46 come ambetto sia a BA che a CA cioè come se giocassi 4 bollette a BA con i seguenti ambi( 1-47 , 1-45 , 46-90 , 46-2) analogamente giocherai ( 1-47 , 1-45 , 46-90 , 46-2) su CA , ma è del tutto evidente che conviene giocare 2 ambetti (1 e 46 ) sia a BA che a CA otterrai un premio maggiore. Lo script di cui sopra dimostra che nelle ultime 1000 estrazioni se si fosse giocato come da metodo utilizzando la giocata AMBETTO di sarebbe andati , se pur di poco in positivo .E' sempre , comunque quello che è successo ......prima hehe prudenza

 

[lorelai]

grazie per la ris 56posta

peccato che la distanza 45 in diagonale è rara...credo che dal 22 ottobre non si sia più presentata..
mi--------11
na 56------

al quinto colpo na 11-55....ciaoooooooo

 

[fillotto]

dimostrazione del vantaggio ambetto

dimostrazione del vantaggio ambetto

http://forum.lottoced.com/attachment.php?attachmentid=8385&stc=1&d=1384364774

 

[pigreko73..]

22/10/2013 CA 54-52 (1°-2°) Dist.Diag.45
22/10/2013 GE 07-09 (1°-3°)

-------------------------------------------
29/10/2013 FI 57-37 (2°-3°) Dist.Diag.45
29/10/2013 GE 82-12 (1°-2°)

-------------------------------------------
31/10/2013 GE 11-64 (3°-5°) Dist.Diag.45
31/10/2013 RO 19-56 (1°-2°)

-------------------------------------------
02/11/2013 NA 44-19 (3°-4°) Dist.Diag.45
02/11/2013 RO 64-89 (2°-5°)

-------------------------------------------
05/11/2013 FI 80-25 (3°-5°) Dist.Diag.45
05/11/2013 NA 70-35 (1°-4°)

-------------------------------------------
09/11/2013 MI 76-55 (3°-4°) Dist.Diag.45
09/11/2013 RO 10-31 (3°-4°)
Ambi ISOTOPI
-------------------------------------------

 

[fillotto]

Invece di 10 colpi ridurre a 3 colpi e la distanza 45 diventa ancora più vantaggiosa , inoltre sempre in 3 colpi è buona anche la distanza 42 .
Ho modificato lo script per provare tutte le distanze(buone x giocare l'ambetto) e potete testare tutte le distanze , ecco lo script modificato.

Sub Main()
'bisogna trovare due numeri  UGUALI  a cavallo fra due ruote consecutive
' Esempio BA 5° estratto 27 CA 1° estratto 27  quindi giocare sulle 2 ruote trovate
'il veribile e il num stesso come Ambetto
Dim ruote(2),amb1(2),posta(3),amb2(2),amb3(2),amb4(2)
posta(2) = 1
'posta(2) = 0.2
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",3)
ics = InputBox("La differenza fra il 5° es della 1^Ruota e il 1° es della 2^ Ruota ?","SCRIVI  LA DIFFERENZA (2-88) ",45)
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9
p1 = 5 'la posizione del della prima ruota qui 5
a = Estratto(es,r1,p1)
p2 = 1'la posizione del della seconda ruota qui 1
b = Estratto(es,r1 + 1,p2)
c = Fuori90(a + ics)
If b = c Then
casi = casi + 1
'qui cominciano le istruzioni x  L'OUTPUT

Scrivi String(50,"=") & " Fillotto",1

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."


Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."

Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ruote(1) = r1 '
ruote(2) = r1 + 1
n1 = a'
n2 = Fuori90(a + 1)
n3 = Fuori90(a - 1)
n4 = Fuori90(b + 1)
n5 = Fuori90(b - 1)
n6 = b

amb1(1) = n1
amb1(2) = n4
ra1 = SerieRitardo(ini,es,amb1,ruote,2)
ColoreTesto 2
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n4 & "  " & " = " & Format2(ra1)
amb2(1) = n1
amb2(2) = n5
ra2 = SerieRitardo(ini,es,amb2,ruote,2)
Scrivi "Ritardo dell'Ambo " & n1 & "  " & n5 & "  " & " = " & Format2(ra2)

amb3(1) = n6
amb3(2) = n2
ra3 = SerieRitardo(ini,es,amb3,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n2 & "  " & " = " & Format2(ra3)

amb4(1) = n6
amb4(2) = n3
ra4 = SerieRitardo(ini,es,amb4,ruote,2)
Scrivi "Ritardo dell'Ambo " & n6 & "  " & n3 & "  " & " = " & Format2(ra4)



ColoreTesto 0
ImpostaGiocata 1,amb1,ruote,posta,k,2
ImpostaGiocata 2,amb2,ruote,posta,k,2
ImpostaGiocata 3,amb3,ruote,posta,k,2
ImpostaGiocata 4,amb4,ruote,posta,k,2


Gioca es,True
End If


Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Estratti a cavallo",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub

 

[fillotto]

ANCORA UNA MODIFICA 125% RENDIMENTO chiedo un Aiuto a BLAKMORE

ANCORA UNA MODIFICA 125% RENDIMENTO chiedo un Aiuto a BLAKMORE

Ancora una modifica sul tema questa volta sempre 1000 estrazioni sempre ruote consecutive sempre 3 colpi stesse posizioni 5 ° prima ruota 1° seconda ruota
la condizione affinchè si giochi è che un numero di una ruota e in una data posizione (condizioni scelte da noi)coincida con con il numero "a" ovvero il 5° di di una prima ruota : fatte diverse prove la combinazione + ottimale è quella indicata facendo girare lo script ma altre due combinazioni (segnalete nel corpo dello script)sono positive,chiedo a Blakmore specialista in queste cose come fare un unico script con le tre condizioni

Sub Main()
'la condizione affinchè si giochi è che un numero di una ruota e in una data posizione (condizioni scelte da noi)coincida con con il numero '"a"ovvero il 5° di di una prima ruota
' per comodità qui si giocano per "VISIONE DELLA RESA" 4 ambi  ma chiaramente
'Voi giocherete  L'ambetto che è + remunerativo
Dim ruote(3),amb1(2),posta(3),amb2(2),amb3(2),amb4(2),rc(1)
posta(2) = 1
'posta(2) = 0.2
ce = InputBox(" estrazione vuoi controllare? ","estrazione",1000)
k = InputBox("per quanti colpi?","colpi di gioco",3)
ruc = InputBox("RUOTA da dove prendere il CORRETORE?","RUOTA CORRETTORE",7)'RUOTA da dove prendere il CORRETORE
PRC = InputBox("Posizione del Correttore(1-5) ?","Posizione del Correttore",3)' miglior risultato ruota 7 pos 3 e 1 pos 2  e 9 pos 4
ini = EstrazioneFin - ce
fin = EstrazioneFin
For es = ini To EstrazioneFin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 9 'la prima ruota può arrivare fino a 9 perchè la 2^ deve essere necessariamente la successiva
p1 = 5 'la posizione del della prima ruota qui 5
a = Estratto(es,r1,p1)'individuviamo il 1^ numero che sarà sempre un quinto estratto che però sarà preso in considerazione
'solo se sarà = al "correttore" posto dove lo vogliamo noi
p2 = 1'la posizione del della seconda ruota qui 1
b = Fuori90(Estratto(es,r1 + 1,p2) + c)
c = Estratto(es,ruc,PRC)
If a = c Then 'se " a" è = a "c" allora ....
casi = casi + 1
'qui cominciano le istruzioni x  L'OUTPUT

Scrivi String(50,"=") & " Fillotto",1

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] [ " & Format2(a) & " ] in " &(p1) & "^ pos."

Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1 + 1) & " - " & StringaEstratti(es,r1 + 1) & _
" ] [ " & Format2(b) & " ] in " &(p2) & "^ pos."'&"Ruota corretrice "&  SiglaRuota(ruc) &" con la pos  "& PRC
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(ruc) & " - " & StringaEstratti(es,ruc) & _
" ] [ " & Format2(a) & " ] in " &(PRC) & "^ pos."


Scrivi String(60,"-") & " caso n°" & casi
'------------------------------------------------------------ caso n°1
ruote(1) = r1 '
ruote(2) = r1 + 1
rc(1) = ruc
n1 = a'
n2 = Fuori90(a + 1)
n3 = Fuori90(a - 1)
n4 = Fuori90(b + 1)
n5 = Fuori90(b - 1)
n6 = b
amb1(1) = n1
amb1(2) = n4

amb2(1) = n1
amb2(2) = n5
amb3(1) = n6
amb3(2) = n2
amb4(1) = n6
amb4(2) = n3


ColoreTesto 0
ImpostaGiocata 1,amb1,ruote,posta,k,2,,1
ImpostaGiocata 2,amb2,ruote,posta,k,2,,1
ImpostaGiocata 3,amb3,ruote,posta,k,2,,1
ImpostaGiocata 4,amb4,ruote,posta,k,2,,1

Gioca es,True
End If
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(20,32) & "Migiori soluzioni x Ambetto",1
Scrivi String(45,32) & "Listato by Fillotto",1
ColoreTesto 0
End Sub