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
    giovedì 05 novembre 2026
    Bari
    76
    65
    54
    69
    19
    Cagliari
    51
    45
    32
    85
    07
    Firenze
    25
    34
    49
    51
    41
    Genova
    78
    84
    73
    48
    65
    Milano
    50
    01
    28
    32
    20
    Napoli
    02
    35
    64
    90
    38
    Palermo
    03
    24
    76
    43
    62
    Roma
    78
    35
    02
    74
    26
    Torino
    04
    21
    68
    15
    39
    Venezia
    68
    50
    17
    87
    41
    Nazionale
    45
    48
    22
    32
    05
    Estrazione Simbolotto
    Torino
    44
    10
    02
    20
    37
Indietro
Alto