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ì 11 aprile 2025
    Bari
    22
    74
    58
    46
    38
    Cagliari
    41
    49
    31
    65
    79
    Firenze
    53
    48
    09
    28
    62
    Genova
    86
    67
    47
    19
    70
    Milano
    57
    61
    24
    51
    71
    Napoli
    28
    79
    49
    55
    41
    Palermo
    72
    75
    52
    57
    66
    Roma
    12
    80
    04
    15
    51
    Torino
    68
    14
    04
    19
    66
    Venezia
    18
    67
    17
    56
    40
    Nazionale
    15
    18
    86
    55
    27
    Estrazione Simbolotto
    Genova
    24
    30
    07
    14
    34
Indietro
Alto