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 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto