x chi sa' fare listati

Admin Numero di messaggi : 10362 Data d'iscrizione : 25.01.09

...se ha tempo x farlo
l'ho preso da previsioni 899 ..

Citazione :: Ciao a tutti,metto a disposizione di tutti...il metodo AMBO KILLER di Romeo Torti.Tenete presente che non lo ho comprato e ne aquisito da nessuno,ma semplicemente imparato .Il metodo si basa nel trovare in due ruote un ambo in posizione isotopa che abbia la stessa distanza ciclometrica.Vediamo un esempio:in data 02/07 a BA abbiamo l'ambo 26-20 rispettivamente in 2° e 4° posizione.a RO l'ambo 72-66 sempre in 2° e 4° posizione.Se notiamo il 26 di BA con il 72 di RO rispettivamente in 2° pos hanno una distanza ciclometrica pari a 44 come il 20 di BA con il 66 di RO rispettivamente in 4° posizione.Ora trovata la condizione si procede,facendo la somma diagonale del primo estratto del primo ambo cioè il 26 con il secondo estratto del secondo ambo cioè 66.
26+66=92 ----> 92-90=2 questo è l'abinamento
l'ambata la troviamo moltiplicando x 2 il secondo estratto del 2° ambo
66x2=132---->132-90=42 questa è l'ambata
quindi per le prossime estrazioni la previsione sarà BA-RO 2-42.
A colpo ambata e ambo secco a RO 2-42
spero di aver reso gradito a tutti e sopratutto di esser stato chiaro

_________________
x chi sa' fare listati A252dg

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

Codice:

Sub main()

Dim numeri(10)
Dim ruote(10)
Dim poste(5)
Dim n

For n =EstrazioneFin -20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10
For d=1 To 4
For d1=d+1 To 5
k=Distanza (Estratto (n,r,d),Estratto (n,r1,d))
If k>45 Then k=90-k
k1=Distanza (Estratto (n,r,d1),Estratto (n,r1,d1))
If k1>45 Then k1=90-k1
If k=k1 Then
numeri(1)=Fuori90 (Estratto (n,r,d)+Estratto (n,r1,d1))
numeri(2)=Fuori90 (Estratto (n,r1,d1)*2)
ruote(1)=r
ruote(2)=r1
poste(1)=1
poste(2)=1
ImpostaGiocata 1,numeri,ruote,poste,5
Gioca n
End If
numeri(1)=""
numeri(2)=""
Next
Next
Next
Next
Next
ScriviResoconto

End Sub

Vedi se così va bene......scusa il ritardo ma sono a paese senza internet....sono molto meno frequentante....
ciaociao

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

corretto

_________________
x chi sa' fare listati Image011

Dicono " I numeri, opportunamente torturati, confessano qualsiasi cosa.".

Admin Numero di messaggi : 10362 Data d'iscrizione : 25.01.09

grazieeee tony Very Happy

veramente questi giorni nemmeno io ho aperto di frequente...anche il pc scottava Shocked

stasera si respira un po' meglio

_________________
x chi sa' fare listati A252dg

Numero di messaggi : 1152 Data d'iscrizione : 25.01.09 Età : 56

bello ma dà troppi nr bisogna lavorarci sù peccato chenon ho tempo ...vedremo

Numero di messaggi : 1152 Data d'iscrizione : 25.01.09 Età : 56

Codice:: Sub main()

Dim numeri(10)
Dim ruote(10)
Dim poste(5)
Dim n

For n =EstrazioneFin -20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10
For d=1 To 4
For d1=d+1 To 5
k=Distanza (Estratto (n,r,d),Estratto (n,r1,d))
If k>45 Then k=90-k
k1=Distanza (Estratto (n,r,d1),Estratto (n,r1,d1))
If k1>45 Then k1=90-k1
k2=Fuori90 (Estratto (n,r,d)+Estratto(n,r,d1))
k3=Fuori90 (Estratto (n,r1,d)+Estratto(n,r1,d1))
If k=k1 And k2 <> k3 Then
numeri(1)=Fuori90 (Estratto (n,r,d)+Estratto (n,r1,d1))
numeri(2)=Fuori90 (Estratto (n,r1,d1)*2)
ruote(1)=r
ruote(2)=r1
poste(1)=1
poste(2)=1
ImpostaGiocata 1,numeri,ruote,poste,5
Gioca n
End If
numeri(1)=""
numeri(2)=""
Next
Next
Next
Next
Next
ScriviResoconto

End Sub

Salviamo gli ambi ma diminuiamo i casi così è già meglio pico a tè la palla devono restare solo i 6 ambi positivi affraid

Admin Numero di messaggi : 10362 Data d'iscrizione : 25.01.09

grazie lele ..salvato anche questo

Citazione :: bello ma dà troppi nr bisogna lavorarci sù peccato chenon ho tempo ...vedremo

senza fretta...magari tu e pico ci farete fare il botto Very Happy

_________________
x chi sa' fare listati A252dg

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

Con le limitazioni imposte da Lele ( k3 ) toglie un Ambo ma aumenta fortemente il rendimento del sistema, ottimo.
Per presentare soltanto gli Ambi basta azzerare ( poste(1)=0 ), lasciando le previsioni correnti.
Poi ad impostagiocata aggiungere ai parametri un ( ,1 ) per aumentare ancora il rendimento in quanto significa che al primo ambo uscito fermo quella giocata.
Poi ancora posso limitarmi a solo tre tentativi per cui sostituisco il 5 dell' impostagiocata......

Codice:: Dim numeri(10)
Dim ruote(10)
Dim poste(5)
Dim n

For n =EstrazioneFin -20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10
For d=1 To 4
For d1=d+1 To 5
k=Distanza (Estratto (n,r,d),Estratto (n,r1,d))
If k>45 Then k=90-k
k1=Distanza (Estratto (n,r,d1),Estratto (n,r1,d1))
If k1>45 Then k1=90-k1
k2=Fuori90 (Estratto (n,r,d)+Estratto(n,r,d1))
k3=Fuori90 (Estratto (n,r1,d)+Estratto(n,r1,d1))
If k=k1 And k2 <> k3 Then
numeri(1)=Fuori90 (Estratto (n,r,d)+Estratto (n,r1,d1))
numeri(2)=Fuori90 (Estratto (n,r1,d1)*2)
ruote(1)=r
ruote(2)=r1
poste(1)=0
poste(2)=1
ImpostaGiocata 1,numeri,ruote,poste,3,1
Gioca n
End If
numeri(1)=""
numeri(2)=""
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Proviamo

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

Codice:: gio 16.07.2009 [8091]
G 1: A 34.78 Ca Pa 2/3
in corso (2° su 3)
gio 16.07.2009 [8091]
G 1: A 05.66 Fi Ge 1/3
negativo I1 negativo
gio 16.07.2009 [8091]
G 1: A 10.76 Fi Ge 1/3
negativo I1 negativo
gio 16.07.2009 [8091]
G 1: A 43.76 Fi Ge 2/3
in corso (2° su 3)
gio 16.07.2009 [8091]
G 1: A 29.34 Fi To 2/3
in corso (2° su 3)
gio 16.07.2009 [8091]
G 1: A 56.70 Na Ve 2/3
in corso (2° su 3)
gio 16.07.2009 [8091]
G 1: A 13.34 Pa Ro 2/3
in corso (2° su 3)
gio 16.07.2009 [8091]
G 1: A 53.28 Pa To 2/3
in corso (2° su 3)
sab 18.07.2009 [8092]
G 1: A 64.86 Ba Ro 1/3
in corso (1° su 3)
sab 18.07.2009 [8092]
G 1: A 89.70 Ca Fi 1/3
in corso (1° su 3)
sab 18.07.2009 [8092]
G 1: A 13.28 Ca Fi 1/3
in corso (1° su 3)
sab 18.07.2009 [8092]
G 1: A 08.86 Ca Na 1/3
in corso (1° su 3)
sab 18.07.2009 [8092]
G 1: A 70.40 Fi Ge 1/3
in corso (1° su 3)
sab 18.07.2009 [8092]
G 1: A 67.74 Fi Ve 1/3
in corso (1° su 3)
mar 21.07.2009 [8093]
G 1: A 53.84 Ba Ro 0/3
n.i. (3 colpi)
mar 21.07.2009 [8093]
G 1: A 55.52 Ca Ro 0/3
n.i. (3 colpi)

Per cui rimangono questi Ambi e relative ruote da giocare.

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

Il migliore, incrociato con altri listati .....funzionanti, sembra 53 - 28 a Palermo a colpo, se così fosse ci vediamo al ristorante..........

Very Happy

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

Bene dove esce certo a Cagliari no?

Poi sempre a Cagliari l'Ambo 13 28 come da listato ....te pare sempre a cagliari da listato anche 89 e l'8 ancora ......comunque il pranzo per un soffio....di vento fresco ....alla prossima.

geek

_________________
x chi sa' fare listati Image011

Dicono " I numeri, opportunamente torturati, confessano qualsiasi cosa.".

Admin Numero di messaggi : 32800 Data d'iscrizione : 20.01.09

ottimo lavoro ragazzi!!

dammiil5

_________________

Divertiamoci con il Lotto

Admin Numero di messaggi : 14760 Data d'iscrizione : 26.01.09

COMPLIMENTI flower

_________________
x chi sa' fare listati 2mg6u87

Numero di messaggi : 1152 Data d'iscrizione : 25.01.09 Età : 56

l'unione fà la forza daglie pico dammiil5

Admin Numero di messaggi : 2203 Data d'iscrizione : 25.01.09 Località : Roma

Questa estrazione si presenta meno ricca di convergenze e giocare tutti i risultati mi sembra un poco dispersivo per cui sopprassiedo, a voi la palla.
Very Happy

_________________
x chi sa' fare listati Image011

Dicono " I numeri, opportunamente torturati, confessano qualsiasi cosa.".

» Come fare
» Fare figli
» Vai a fare in quiz
» Vai a fare in quiz
» Non voglio fare il pompiere!!