Novità

L’ambo (quasi) infallibile

vinci

Super Member >GOLD<

Ho trovato in un blog questo metodo che a mio parere sembra interessante.​

Se qualche utente riesce a costruire uno script credo sia una cosa molto utile per tutti.
Grazie

L’ambo (quasi) infallibile​

TEOREMA “pabo 2”​



scelta, a piacimento, una delle 10 ruote;

delimitato il campo operativo di 25 estrazioni, qualunque ne sia l’anno ed il periodo;

due numeri (A e B), sortiti per 2 volte (A e B) in posizione ISOTOPA , e auspicabilmente uniti, anche in senso verticale, tendono a riproporsi per la terza volta, come in effetti e di frequente si riproducono: AMBO PRIMARIO;

ognuno dei 2 numeri fa parte di 2 diverse terzine simmetriche: A, C, D e B, E, F.

oltre all’ambo principale, completeranno la previsione altri 4 ambi – AMBI di SCORTA – formati dalla base di uno dei 2 numeri dell’ambo primario, associato agli elementi residui della terzina simmetrica dell’altro numero , e cioè: A con E, F e B con C, D--.

--------------------------------

1° esempio

4/4 2009: cagliari - * 68 15 (A, B) - 4^/ 5^ posizione

7/4 2009: cagliari- * 68 15 (A, B) - 4^/ 5^ posizione - ISOTOPI

* uniti anche verticalmente

schema: A, B – 68 15 - ambo primario

A(68), C(08), D(38)

B(15), E(45), F(75)

A, E, F - ambi di scorta 68 45 - 68 75

B, C, D - ambi di scorta 15 08 - 15 38

23/4 2009: cagliari - esito: 68 15 - ambo primario



2° esempio

20/6 2009: milano - 85 89 (A, B) - 4^/ 5^ posizione

4/7 2009: milano - 85 89 (A, B) - 4^/ 5^ posizione - ISOTOPI

schema: A, B – 85 89 - ambo primario

A(85), C(25), D(55)

B(89), E(29), F(59)

A, E, F - ambi di scorta 85 29 - 85 59

B, C, D - ambi di scorta 89 25 - 89 55

11/7 2009: milano - esito: 85 59 - ambo di scorta



3° esempio

9/10/2012: bari - 25 84

16/10/2012: bari - 25 84 (simmetrici)

25 84 - ambo primario

- ambi di scorta 25 54 - 25 24

- ambi di scorta 84 55 - 84 85

6/11 2012: bari - esito: 25 84 - ambo primario



4° esempio

2/10/2012: bari - 72 45

4/10/2012: bari - 72 45 (uniti e simmetrici)

72 45 - ambo primario

- ambi di scorta 72 15 - 72 75

- ambi di scorta 45 12 - 45 42

20/10 2012: bari - esito: 72 75 - ambo di scorta

17/11 2012: bari - esito: 45 72 - ambo primario



5° esempio

27/10/2012: bari - 59 06

13/11/2012: bari - 06 59 (uniti, isotopi)

06 59 - ambo primario

- ambi di scorta 06 29 - 06 89

- ambi di scorta 59 36 - 59 66

27/11 2012: bari - esito: 06 89 - ambo di scorta



corollario

anche in assenza di isotopia, il teorema è ugualmente valido, purchè venga salvaguardata la simmetria: in questi casi, infatti, le varie combinazioni danno origine a figure geometriche regolari, quali, ad esempio, rombi, trapezi ed altro-.

-------------------------------

l'impianto è, altresì, congruo, se si dispone di due "buoni" numeri ottenuti con altre metodologie-.

-------------------------------



ad majora ...



by PABO

 
Ciao a Tutti.

Rudivall, Imaging,
Grazie.
Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,H,Clp,Es,Salvo50,Sp
   Dim R1,P1,P2,P7,P8,E1,E2,Ava,Es2,Es3,Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
   Dim Ruo(1),Posta(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,20))
   Ava = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo Isotopo?",Salvo50,25))
   R1 = ScegliRuota
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & "L'Ambo (quasi) Infallibile - Postato da Vinci - Script Salvo50" & Space(5),1,,4,,3,,1
   Posta(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            Es3 = CInt(Es + Ava )
            If Es3 > FIn Then Es3 = FIn
            For Es2 = Es + 1 To Es3
               C = Estratto(Es2,R1,P1)
               D = Estratto(Es2,R1,P2)
               If A > 0 And C > 0 And A = C And B = D Then
                  E = Fuori90(A + 30)
                  F = Fuori90(A + 60)
                  G = Fuori90(B + 30)
                  H = Fuori90(B + 60)
                  'A---B
                  '|   |
                  'C---D
                  '
                  Ambo1(1) = A : Ambo1(2) = B
                  Ambo2(1) = A : Ambo2(2) = G
                  Ambo3(1) = A : Ambo3(2) = H
                  Ambo4(1) = B : Ambo4(2) = E
                  Ambo5(1) = B : Ambo5(2) = F
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P7 = 1 To 5
                     E1 = Estratto(Es,R1,P7)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P8 = 1 To 5
                     E2 = Estratto(Es2,R1,P8)
                     If E2 = C Or E2 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(10) & "Terzine simmetriche derivanti",True
                  Scrivi Space(20) & Format2(A) & Sp & Format2(E) & Sp & Format2(F),True
                  Scrivi Space(20) & Format2(B) & Sp & Format2(G) & Sp & Format2(H),True
                  Scrivi
                  Scrivi Space(19) & "Pronostico",True,,,2
                  Scrivi Space(17) & "Ambo Primario",True
                  Scrivi Space(21) & Format2(A) & Sp & Format2(B),True
                  Scrivi Space(16) & "Ambi di scorta",True
                  Scrivi Space(21) & Format2(A) & Sp & Format2(G),True
                  Scrivi Space(21) & Format2(A) & Sp & Format2(H),True
                  Scrivi Space(21) & Format2(B) & Sp & Format2(E),True
                  Scrivi Space(21) & Format2(B) & Sp & Format2(F),True
                  Ruo(1) = R1
                  ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                  ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                  ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                  ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp
                  ImpostaGiocata 5,Ambo5,Ruo,Posta,Clp
                  Gioca Es2,1,,1
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Vedi se può andare
 
Ciao a Tutti.

Rudivall, Imaging,
Grazie.
Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,E,F,G,H,Clp,Es,Salvo50,Sp
   Dim R1,P1,P2,P7,P8,E1,E2,Ava,Es2,Es3,Caso,Casi
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2)
   Dim Ruo(1),Posta(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,20))
   Ava = CInt(InputBox(" Quante estrazioni avanti per cercare l'ambo Isotopo?",Salvo50,25))
   R1 = ScegliRuota
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & "L'Ambo (quasi) Infallibile - Postato da Vinci - Script Salvo50" & Space(5),1,,4,,3,,1
   Posta(2) = 1
   Sp = " "
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For P1 = 1 To 4
         For P2 = P1 + 1 To 5
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            Es3 = CInt(Es + Ava )
            If Es3 > FIn Then Es3 = FIn
            For Es2 = Es + 1 To Es3
               C = Estratto(Es2,R1,P1)
               D = Estratto(Es2,R1,P2)
               If A > 0 And C > 0 And A = C And B = D Then
                  E = Fuori90(A + 30)
                  F = Fuori90(A + 60)
                  G = Fuori90(B + 30)
                  H = Fuori90(B + 60)
                  'A---B
                  '|   |
                  'C---D
                  '
                  Ambo1(1) = A : Ambo1(2) = B
                  Ambo2(1) = A : Ambo2(2) = G
                  Ambo3(1) = A : Ambo3(2) = H
                  Ambo4(1) = B : Ambo4(2) = E
                  Ambo5(1) = B : Ambo5(2) = F
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P7 = 1 To 5
                     E1 = Estratto(Es,R1,P7)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & FormattaStringa(Es2,"00000") & " del " & DataEstrazione(Es2)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P8 = 1 To 5
                     E2 = Estratto(Es2,R1,P8)
                     If E2 = C Or E2 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(10) & "Terzine simmetriche derivanti",True
                  Scrivi Space(20) & Format2(A) & Sp & Format2(E) & Sp & Format2(F),True
                  Scrivi Space(20) & Format2(B) & Sp & Format2(G) & Sp & Format2(H),True
                  Scrivi
                  Scrivi Space(19) & "Pronostico",True,,,2
                  Scrivi Space(17) & "Ambo Primario",True
                  Scrivi Space(21) & Format2(A) & Sp & Format2(B),True
                  Scrivi Space(16) & "Ambi di scorta",True
                  Scrivi Space(21) & Format2(A) & Sp & Format2(G),True
                  Scrivi Space(21) & Format2(A) & Sp & Format2(H),True
                  Scrivi Space(21) & Format2(B) & Sp & Format2(E),True
                  Scrivi Space(21) & Format2(B) & Sp & Format2(F),True
                  Ruo(1) = R1
                  ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
                  ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
                  ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
                  ImpostaGiocata 4,Ambo4,Ruo,Posta,Clp
                  ImpostaGiocata 5,Ambo5,Ruo,Posta,Clp
                  Gioca Es2,1,,1
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Vedi se può andare
Ho l8+ 6.1 non mi va
 
Ho installato spaziometria adesso vanno grazie .
E' molto diverso da L8+ piano piano spero di capirci qualcosa ha molte funzioni .
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 05 aprile 2025
    Bari
    10
    58
    03
    61
    14
    Cagliari
    04
    67
    36
    85
    87
    Firenze
    70
    45
    80
    62
    06
    Genova
    05
    66
    32
    59
    89
    Milano
    20
    56
    02
    87
    47
    Napoli
    60
    63
    75
    72
    06
    Palermo
    14
    80
    30
    76
    70
    Roma
    73
    42
    36
    79
    08
    Torino
    26
    74
    83
    78
    31
    Venezia
    06
    60
    85
    76
    40
    Nazionale
    44
    11
    71
    06
    37
    Estrazione Simbolotto
    Genova
    26
    14
    36
    31
    44
Indietro
Alto