Novità

Listato per 2 Ambate e 5 Ambi su due ruote.

A

Azione2

Junior Member
Un saluto al forum e a tutti gli utenti.
Chiederei un listato possibilmente che fornisce::)

2 Ambate e 5 ambi su due ruote .

procedimento: Dalla somma degli estratti in orizzontale, bisogna trovare due valori ripetuti (uguali) su ruota. Scegliere maggiormente quelli su ruote contigue e possibilmente isotopi (per limitare le previsioni). Colpi max 12. Le ambate escono molto prima, ma noi cerchiamo l'ambo.

Esempio ruote contigue ma somma degli estratti non isotopa:

7 aprile 2012

ruote CA/ FI

CA I + IV e II+ V = 4

FI I + III e IV+V = 71

fare la somma
4+4=8 (1^ ambata)

71+71= 52 (fuori 90 2^ ambata)

formazione ambi:

1 ambo 4-8
2 ambo 4-52
3 ambo 71-8
4 ambo 71-52
5 ambo 52-8 da giocare sulle ruote ricavate

esito ambo 4-8 su firenze AL (6° COLPO);


Esempio ruote contigue somma isotopa:

2 febbraio 2012

NA/PA

SOMMA 42 E 58

AMBI 42-84;42-26,58-84;58-26; 26-84

ESITO 26-84 AL 10 COLPO SU PA ( 58 AMBATA AL 5 COLPO)


Con un listato forse la ricerca sarebbe molto più facile.
Chiedo la cortesia e gentilezza di coloro che sono capaci di farlo.
Grazie
Azione2
 
Azione2 ha scritto:
Un saluto al forum e a tutti gli utenti.
Chiederei un listato possibilmente che fornisce::)

2 Ambate e 5 ambi su due ruote .

procedimento: Dalla somma degli estratti in orizzontale, bisogna trovare due valori ripetuti (uguali) su ruota. Scegliere maggiormente quelli su ruote contigue e possibilmente isotopi (per limitare le previsioni). Colpi max 12. Le ambate escono molto prima, ma noi cerchiamo l'ambo.

Esempio ruote contigue ma somma degli estratti non isotopa:

7 aprile 2012

ruote CA/ FI

CA I + IV e II+ V = 4

FI I + III e IV+V = 71

fare la somma
4+4=8 (1^ ambata)

71+71= 52 (fuori 90 2^ ambata)

formazione ambi:

1 ambo 4-8
2 ambo 4-52
3 ambo 71-8
4 ambo 71-52
5 ambo 52-8 da giocare sulle ruote ricavate

esito ambo 4-8 su firenze AL (6° COLPO);


Esempio ruote contigue somma isotopa:

2 febbraio 2012

NA/PA

SOMMA 42 E 58

AMBI 42-84;42-26,58-84;58-26; 26-84

ESITO 26-84 AL 10 COLPO SU PA ( 58 AMBATA AL 5 COLPO)


Con un listato forse la ricerca sarebbe molto più facile.
Chiedo la cortesia e gentilezza di coloro che sono capaci di farlo.
Grazie
Azione2
Clicca per espandere...


previsione in gioco

RO/TO

AMBATE 52 - 48

AMBI 52-71; 71-48; 48-24; 52-48; 71-52

1 COLPO NEG. (8/5/2012)
 
Credo sia uguale a questo
Ciauz

Codice: 
'http://www.youtube.com/watch?v=ceUH3McD-Bg&feature=related
'http://www.youtube.com/watch?v=-I-QIMPiCPg&feature=related

Sub main() 
Dim ruote(5),ruotee(5)
Dim nr(5),ab(2),num(2),n(4),amb(2) 
Dim posta(2) 
Dim poste(2) 
Dim poste1(3) 
'----------------- 
posta(1)=1 
posta(2)=1 
poste(2)=1 
 

Scrivi 
Scrivi 
ColoreTesto 2 
Scrivi String(40," ")&"****** L'AMBO CON VALORE RIPETUTO SU RUOTA ****** ",1 
ColoreTesto 0 
Scrivi 
Scrivi 
ColoreTesto 1 
Scrivi String(70,"=")&"listato da DjNomade",1 
ColoreTesto 0 
t=0
rs= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•DjNomade•",2))
If rs= False Then Exit Sub
For es= EstrazioneFin-rs To EstrazioneFin 
AvanzamentoElab EstrazioneFin-rs,EstrazioneFin, es 
For r=1 To 10  
For p1=1 To 3 
For p2=p1+1 To 5 
For p3=2 To 4   
For p4=p3+1 To 5 

For p5=1 To 3  
For p6=p5+1 To 5 
For p7=2 To 4  
For p8=p7+1 To 5 
a1=Estratto(es,r,p1) : a2=Estratto(es,r,p2):a3=Estratto(es,r,p3) : a4=Estratto(es,r,p4):
sa = Fuori90(a1+a2) :sa1=Fuori90(a3+a4)
For r1=r+1 To 11 
If r1=11 Then r1=12
b1=Estratto(es,r1,p5) : b2=Estratto(es,r1,p6):b3=Estratto(es,r1,p7) : b4=Estratto(es,r1,p8)
sb = Fuori90 (b1+b2) :sb1 = Fuori90 (b3+b4)
If sa=sa1 And sb=sb1 Then


'If (a1<>a3 And a2<>a4 )Or (a1<>a4 And a2<>a3)Or(a1=a3 and a2<>a4) Or (a2=a4 And a1<>a3)Or (a1=a4 And a2<>a3)Or (a2=a3 And a1<>a4)Then
'If (p1=p3 and p2<>p4)Or (p2=p4 And p1<>p3) Then

If  (p1<>p3 And p2<>p4)Or(p2<>p4 And p1<>p3) Then

If  (a1=a3 And a2<>a4)Or(a2=a4 And a1<>a3)Or(a1<>a3 And a2<>a4)Or(a2<>a3 And a4<>a3) Then

If  (p5<>p7 And p6<>p8)Or(p6<>p8 And p5<>p7) Then

If  (b1=b3 And b2<>b4)Or(b2=b4 And b1<>b3)Or(b1<>b3 And b2<>b4)Or(b2<>b3 And b4<>b3) Then
'------------- 





t=t+1
'------------- 
ruote(1)=r 'imposta ruote 
ruote(2)=r1 

ruotee(1)=r 'imposta ruote 
ruotee(2)=r1 
ruotee(3)=11 
Scrivi "---------------------------------------------------------------Giocata n° "&t
Scrivi DataEstrazione(es)&" "& SiglaRuota (r)&" " & StringaEstratti(es,r),1 
Scrivi DataEstrazione(es)&" "& SiglaRuota (r1)&" " & StringaEstratti(es,r1),1 
Scrivi 
Scrivi SiglaRuota (r)&" " & Format2(a1)&"-"& Format2(a2)&" -" & Format2(a3)&"-"& Format2(a4),1 
Scrivi SiglaRuota (r1)&" " & Format2(b1)&"-"& Format2(b2)&" -" & Format2(b3)&"-"& Format2(b4),1
Scrivi" [Somma: "& Format2(sa)&"] ** [Somma: "& Format2(sa1)&"]",1
Scrivi" [Somma: "& Format2(sb)&"] ** [Somma: "& Format2(sb1)&"]",1

 
nr(1)=sa
nr(2)=sb
ImpostaGiocata 1,nr,ruote,posta,15,3


amb(1)=sa
amb(2)=Fuori90(sa*2)
ImpostaGiocata 2,amb,ruotee,poste,15,3

amb(1)=sa
amb(2)=Fuori90(sb*2)
ImpostaGiocata 3,amb,ruotee,poste,15,3


amb(1)=sa
amb(2)=Fuori90(sa+sb)
ImpostaGiocata 4,amb,ruotee,poste,15,3

amb(1)=sb
amb(2)=Fuori90(sa*2)
ImpostaGiocata 5,amb,ruotee,poste,15,3


amb(1)=sb
amb(2)=Fuori90(sb*2)
ImpostaGiocata 6,amb,ruotee,poste,15,3

amb(1)=sb
amb(2)=Fuori90(sa+sb)
ImpostaGiocata 7,amb,ruotee,poste,15,3


'ImpostaInterruzioni 1,1,2
Gioca es 
End If 
 End If 

' Next
End If:
End If
End If
 Next : Next : Next : Next : Next: Next: Next: Next: Next: Next: Next
ScriviResoconto 'scrive il resoconto totale di tutte le giocate effettuate 
ColoreTesto 1 
Scrivi String(40," ")&"****** L'AMBO CON VALORE RIPETUTO SU RUOTA ****** ",1 
Scrivi String(70,"=")&"listato da DjNomade",1 
ColoreTesto 0 
End Sub
 
DjNomade ha scritto:
Credo sia uguale a questo
Ciauz

Codice: 
'http://www.youtube.com/watch?v=ceUH3McD-Bg&feature=related
'http://www.youtube.com/watch?v=-I-QIMPiCPg&feature=related

Sub main() 
Dim ruote(5),ruotee(5)
Dim nr(5),ab(2),num(2),n(4),amb(2) 
Dim posta(2) 
Dim poste(2) 
Dim poste1(3) 
'----------------- 
posta(1)=1 
posta(2)=1 
poste(2)=1 
 

Scrivi 
Scrivi 
ColoreTesto 2 
Scrivi String(40," ")&"****** L'AMBO CON VALORE RIPETUTO SU RUOTA ****** ",1 
ColoreTesto 0 
Scrivi 
Scrivi 
ColoreTesto 1 
Scrivi String(70,"=")&"listato da DjNomade",1 
ColoreTesto 0 
t=0
rs= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•DjNomade•",2))
If rs= False Then Exit Sub
For es= EstrazioneFin-rs To EstrazioneFin 
AvanzamentoElab EstrazioneFin-rs,EstrazioneFin, es 
For r=1 To 10  
For p1=1 To 3 
For p2=p1+1 To 5 
For p3=2 To 4   
For p4=p3+1 To 5 

For p5=1 To 3  
For p6=p5+1 To 5 
For p7=2 To 4  
For p8=p7+1 To 5 
a1=Estratto(es,r,p1) : a2=Estratto(es,r,p2):a3=Estratto(es,r,p3) : a4=Estratto(es,r,p4):
sa = Fuori90(a1+a2) :sa1=Fuori90(a3+a4)
For r1=r+1 To 11 
If r1=11 Then r1=12
b1=Estratto(es,r1,p5) : b2=Estratto(es,r1,p6):b3=Estratto(es,r1,p7) : b4=Estratto(es,r1,p8)
sb = Fuori90 (b1+b2) :sb1 = Fuori90 (b3+b4)
If sa=sa1 And sb=sb1 Then


'If (a1<>a3 And a2<>a4 )Or (a1<>a4 And a2<>a3)Or(a1=a3 and a2<>a4) Or (a2=a4 And a1<>a3)Or (a1=a4 And a2<>a3)Or (a2=a3 And a1<>a4)Then
'If (p1=p3 and p2<>p4)Or (p2=p4 And p1<>p3) Then

If  (p1<>p3 And p2<>p4)Or(p2<>p4 And p1<>p3) Then

If  (a1=a3 And a2<>a4)Or(a2=a4 And a1<>a3)Or(a1<>a3 And a2<>a4)Or(a2<>a3 And a4<>a3) Then

If  (p5<>p7 And p6<>p8)Or(p6<>p8 And p5<>p7) Then

If  (b1=b3 And b2<>b4)Or(b2=b4 And b1<>b3)Or(b1<>b3 And b2<>b4)Or(b2<>b3 And b4<>b3) Then
'------------- 





t=t+1
'------------- 
ruote(1)=r 'imposta ruote 
ruote(2)=r1 

ruotee(1)=r 'imposta ruote 
ruotee(2)=r1 
ruotee(3)=11 
Scrivi "---------------------------------------------------------------Giocata n° "&t
Scrivi DataEstrazione(es)&" "& SiglaRuota (r)&" " & StringaEstratti(es,r),1 
Scrivi DataEstrazione(es)&" "& SiglaRuota (r1)&" " & StringaEstratti(es,r1),1 
Scrivi 
Scrivi SiglaRuota (r)&" " & Format2(a1)&"-"& Format2(a2)&" -" & Format2(a3)&"-"& Format2(a4),1 
Scrivi SiglaRuota (r1)&" " & Format2(b1)&"-"& Format2(b2)&" -" & Format2(b3)&"-"& Format2(b4),1
Scrivi" [Somma: "& Format2(sa)&"] ** [Somma: "& Format2(sa1)&"]",1
Scrivi" [Somma: "& Format2(sb)&"] ** [Somma: "& Format2(sb1)&"]",1

 
nr(1)=sa
nr(2)=sb
ImpostaGiocata 1,nr,ruote,posta,15,3


amb(1)=sa
amb(2)=Fuori90(sa*2)
ImpostaGiocata 2,amb,ruotee,poste,15,3

amb(1)=sa
amb(2)=Fuori90(sb*2)
ImpostaGiocata 3,amb,ruotee,poste,15,3


amb(1)=sa
amb(2)=Fuori90(sa+sb)
ImpostaGiocata 4,amb,ruotee,poste,15,3

amb(1)=sb
amb(2)=Fuori90(sa*2)
ImpostaGiocata 5,amb,ruotee,poste,15,3


amb(1)=sb
amb(2)=Fuori90(sb*2)
ImpostaGiocata 6,amb,ruotee,poste,15,3

amb(1)=sb
amb(2)=Fuori90(sa+sb)
ImpostaGiocata 7,amb,ruotee,poste,15,3


'ImpostaInterruzioni 1,1,2
Gioca es 
End If 
 End If 

' Next
End If:
End If
End If
 Next : Next : Next : Next : Next: Next: Next: Next: Next: Next: Next
ScriviResoconto 'scrive il resoconto totale di tutte le giocate effettuate 
ColoreTesto 1 
Scrivi String(40," ")&"****** L'AMBO CON VALORE RIPETUTO SU RUOTA ****** ",1 
Scrivi String(70,"=")&"listato da DjNomade",1 
ColoreTesto 0 
End Sub
Clicca per espandere...

_____

in effetti quasi ci siamo, ma io desidero avere come risultato solo alcune formazioni numeriche. Faccio un esempio di quello che chiedo.
Previsione calcolata il 3 maggio 2012

Ruote
ro-to somma comune 71 e 24
calcoli 71+71 con fuori 90= 52
calcoli 24+24=48

ambate 52 e 24

ambi 71 e 52
ambi 71 e 48
ambi 24 e 52
ambi 24 e 48
ambi 52 e 48


Infine, chiedo gentilmente, se fosse possibile avere solo le ruote consecutive da mettere in gioco come risultato con somme isotope, altrimenti avremmo tante previsioni come risultato.
Grazie della disponibilita'
Azione2
 
Vedi ora
Ciauz

Codice: 
'http://forum.lottoced.com/f8/listato-per-2-ambate-e-5-ambi-su-due-ruote-94035/
Sub main() 
Dim ruote(5),ruotee(5)
Dim nr(5),ab(2),num(2),n(4),amb(2) 
Dim posta(2) 
Dim poste(2) 
Dim poste1(3) 
'----------------- 
posta(1)=1 
posta(2)=1 
poste(2)=1 
 

Scrivi 
Scrivi 
ColoreTesto 2 
Scrivi String(40," ")&"****** L'AMBO CON VALORE RIPETUTO SU RUOTA X AZIONE2****** ",1 
ColoreTesto 0 
Scrivi 
Scrivi 
ColoreTesto 1 
Scrivi String(70,"=")&"listato da DjNomade",1 
ColoreTesto 0 
t=0
rs= CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?","•DjNomade•",20))
If rs= False Then Exit Sub
For es= EstrazioneFin-rs To EstrazioneFin 
AvanzamentoElab EstrazioneFin-rs,EstrazioneFin, es 
For r=1 To 10  
For p1=1 To 3 
For p2=p1+1 To 5 
For p3=2 To 4   
For p4=p3+1 To 5 

For p5=1 To 3  
For p6=p5+1 To 5 
For p7=2 To 4  
For p8=p7+1 To 5 
a1=Estratto(es,r,p1) : a2=Estratto(es,r,p2):a3=Estratto(es,r,p3) : a4=Estratto(es,r,p4):
sa = Fuori90(a1+a2) :sa1=Fuori90(a3+a4)
 r1=r+1  
If r=10 Then r1=12
b1=Estratto(es,r1,p5) : b2=Estratto(es,r1,p6):b3=Estratto(es,r1,p7) : b4=Estratto(es,r1,p8)
sb = Fuori90 (b1+b2) :sb1 = Fuori90 (b3+b4)
If sa=sa1 And sb=sb1 Then


'If (a1<>a3 And a2<>a4 )Or (a1<>a4 And a2<>a3)Or(a1=a3 and a2<>a4) Or (a2=a4 And a1<>a3)Or (a1=a4 And a2<>a3)Or (a2=a3 And a1<>a4)Then
'If (p1=p3 and p2<>p4)Or (p2=p4 And p1<>p3) Then

If  (p1<p3 And p2<>p4)Or(p2<>p4 And p1<p3) Then

If  (a1=a3 And a2<>a4)Or(a2=a4 And a1<>a3)Or(a1<>a3 And a2<>a4)Or(a2<>a3 And a4<>a3) Then

If  (p5<p7 And p6<>p8)Or(p6<>p8 And p5<p7) Then

If  (b1=b3 And b2<>b4)Or(b2=b4 And b1<>b3)Or(b1<>b3 And b2<>b4)Or(b2<>b3 And b4<>b3) Then
'------------- 





t=t+1
'------------- 
ruote(1)=r 'imposta ruote 
ruote(2)=r1 

ruotee(1)=r 'imposta ruote 
ruotee(2)=r1 
ruotee(3)=11 
Scrivi "---------------------------------------------------------------Giocata n° "&t
Scrivi DataEstrazione(es)&" "& SiglaRuota (r)&" " & StringaEstratti(es,r),1 
Scrivi DataEstrazione(es)&" "& SiglaRuota (r1)&" " & StringaEstratti(es,r1),1 
Scrivi 
Scrivi SiglaRuota (r)&" " & Format2(a1)&"-"& Format2(a2)&" -" & Format2(a3)&"-"& Format2(a4),1 
Scrivi SiglaRuota (r1)&" " & Format2(b1)&"-"& Format2(b2)&" -" & Format2(b3)&"-"& Format2(b4),1
Scrivi" [Somma: "& Format2(sa)&"] ** [Somma: "& Format2(sa1)&"]",1
Scrivi" [Somma: "& Format2(sb)&"] ** [Somma: "& Format2(sb1)&"]",1

 
nr(1)=Fuori90(sa*2)
nr(2)=Fuori90(sb*2)
ImpostaGiocata 1,nr,ruote,posta,15,3


amb(1)=sa
amb(2)=Fuori90(sa*2)
ImpostaGiocata 2,amb,ruotee,poste,15,3

amb(1)=sa
amb(2)=Fuori90(sb*2)
ImpostaGiocata 3,amb,ruotee,poste,15,3


amb(1)=sa
amb(2)=Fuori90(sa+sb)
'ImpostaGiocata 4,amb,ruotee,poste,15,3

amb(1)=sb
amb(2)=Fuori90(sa*2)
ImpostaGiocata 4,amb,ruotee,poste,15,3


amb(1)=sb
amb(2)=Fuori90(sb*2)
ImpostaGiocata 5,amb,ruotee,poste,15,3

amb(1)=Fuori90(sa*2)
amb(2)=Fuori90(sb*2)
ImpostaGiocata 6,amb,ruotee,poste,15,3


'ImpostaInterruzioni 1,1,2
Gioca es 
End If 
 End If 


End If:
End If
End If
 Next : Next : Next : Next : Next: Next: Next: Next: Next: Next:
ScriviResoconto 'scrive il resoconto totale di tutte le giocate effettuate 
ColoreTesto 1 
Scrivi String(40," ")&"****** L'AMBO CON VALORE RIPETUTO SU RUOTA X AZIONE2****** ",1 
Scrivi String(70,"=")&"listato da DjNomade",1 
ColoreTesto 0 
End Sub
 
Listato per 2 ambate e 5 Ambi su due ruote. Ambo secco

Listato per 2 ambate e 5 Ambi su due ruote. Ambo secco

Azione2 ha scritto:
_____

in effetti quasi ci siamo, ma io desidero avere come risultato solo alcune formazioni numeriche. Faccio un esempio di quello che chiedo.
Previsione calcolata il 3 maggio 2012

Ruote
ro-to somma comune 71 e 24
calcoli 71+71 con fuori 90= 52
calcoli 24+24=48

ambate 52 e 24

ambi 71 e 52
ambi 71 e 48
ambi 24 e 52
ambi 24 e 48
ambi 52 e 48


Infine, chiedo gentilmente, se fosse possibile avere solo le ruote consecutive da mettere in gioco come risultato con somme isotope, altrimenti avremmo tante previsioni come risultato.
Grazie della disponibilita'
Azione2
Clicca per espandere...

**********
**********

Al 7° colpo, come da previsione su ROMA il 19 maggio 2012, abbiamo 24 48 AMBO. Niente male.;)
Saluti Azione2.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 08 novembre 2025
    Bari
    47
    72
    08
    22
    76
    Cagliari
    56
    51
    36
    17
    53
    Firenze
    21
    11
    71
    89
    19
    Genova
    90
    32
    12
    80
    01
    Milano
    10
    57
    72
    21
    17
    Napoli
    59
    01
    76
    09
    61
    Palermo
    75
    10
    80
    24
    25
    Roma
    87
    86
    09
    32
    17
    Torino
    55
    21
    23
    46
    30
    Venezia
    18
    20
    13
    32
    84
    Nazionale
    19
    18
    05
    86
    08
    Estrazione Simbolotto
    Torino
    42
    29
    30
    11
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto