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
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34

Ultimi Messaggi

Indietro
Alto