Novità

terno metodo camaleonte

vengio ha scritto:
Ottimo Abitte, spero tu l'abbia giocata.
Clicca per espandere...


jordan ha scritto:
Per il 43 / 75 : somma 118-90= 28 distanza 32 61+61=122-90=32 32+dist. 32= 64 64:2=32 32-32= 0
ambo 32-0 Dove sbaglio ? grazie.
Clicca per espandere...
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
45 77 33 34 Posizione sinistra 43 e 75
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
69 53 33 34 Posizione destra 88 e 72
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0001 Numeri in gioco : 69.53 su BA TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 69.53.33 su BA TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 69.53.34

questa è la previsione ottenuta con programma di Vengio.
sicuramente il programma prende solo numeri a destra in questo pronostico ora chiedo a Vengio se può modificarlo e farlo per entraambi i laterali.
 
26.11.2019 -- BA - 88.26.64.43.61
28.11.2019 -- BA - 72.29.46.75.61
Numeri ripetuti Isotopi in 2 estrazioni consecutive : 61 e 61 in 5° pos.
Laterali : 43 e 75 in 4° pos.
1° coppia di elementi di somma : 118 e di Distanza : 32
2° coppia di elementi di somma : 122 e di Distanza : 0

Ambo Secco : 77 - 45
1° terno : 77 - 45 - 33
2° terno : 77 - 45 - 34
 
Alberto Anderlini ha scritto:
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
45 77 33 34 Posizione sinistra 43 e 75
26.11.2019 BA 88.26.64.43.61 BA 61 in 5° Posizione
28.11.2019 BA 72.29.46.75.61 BA 61 in 5° Posizione(Ripetuto in estrazione consecutiva)
69 53 33 34 Posizione destra 88 e 72
Estrazione generatrice del pronostico 09714 [143 - 28/11/2019]
G 0001 Numeri in gioco : 69.53 su BA TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0002 Numeri in gioco : 69.53.33 su BA TT per Ambo,Terno
In corso per altre 13 estrazioni
G 0003 Numeri in gioco : 69.53.34

questa è la previsione ottenuta con programma di Vengio.
sicuramente il programma prende solo numeri a destra in questo pronostico ora chiedo a Vengio se può modificarlo e farlo per entraambi i laterali.
Clicca per espandere...
Buongiorno Alberto..scusa..quindi i numeri sono questi da giocare su Bari?Grazie
 
Ciao Ragazzi io penso che le previsioni siano queste 69.53 con 33/34 altra 77.45con 33/34 si potrebbe pensare di fare una riunita. almeno i conteggi mi danno questi buona giornata
 
Mi sono accorto che lo script aveva problemi sulla doppia verifica nella medesima estrazione. si allega di seguito con correzione.
Codice: 
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim y(5)
   Dim nn(5)
   Dim xx(5)
   Dim yy(5)
   Dim Ruotedigioco(12)
   Dim Poste(4)
   'Poste(1) = 3
   Poste(2) = 2
   Poste(3) = 1
   clp = 13
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            w = p - 1
            ww = p + 1
            If w = 0 Then w = 5
            If ww = 6 Then ww = 1
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,ww)
            d = Estratto(es,r,ww)
            e = Estratto(es - 1,r,w)
            f = Estratto(es,r,w)
            If a = b Then
               h = Differenza(c,d)
               i = a + b
               g = i + h
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  xx(1) = j
                  xx(2) = k
                  xx(3) = ss
                  nn(1) = j
                  nn(2) = k
                  yy(1) = j
                  yy(2) = k
                  yy(4) = vv
                  Ruotedigioco(1) = r
                  Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione destra  " & c & " e " & d,1
                  Scrivi String(110,"*"),1
                  ImpostaGiocata 4,nn,Ruotedigioco,Poste,clp
                  ImpostaGiocata 5,xx,Ruotedigioco,Poste,clp
                  ImpostaGiocata 6,yy,Ruotedigioco,Poste,clp
                  Gioca es,1
                  'Scrivi String(110,"*"),1
                  ' _______________________________________________________________
                  l = Differenza(e,f)
                  m = i + l
                  u = Fuori90(m/2)
                  o = Fuori90(Differenza(i,u))
                  q = Fuori90(U + o)
                  s = Fuori90(q + 1)
                  v = Fuori90(q + 2)
                  If pari(e) And pari(f) = True Or dispari(e) And dispari(f) = True Then
                     x(1) = u
                     x(2) = o
                     x(3) = s
                     n(1) = u
                     n(2) = o
                     y(1) = u
                     y(2) = o
                     y(4) = v
                     'Scrivi String(110,"*"),1
                     Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                     ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                     Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione sinistra  " & e & " e " & f,1
                     'Scrivi
                     Scrivi String(110,"*"),1
                     Ruotedigioco(1) = r
                     ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                     ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                     ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
                     Gioca es,1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
 
vengio ha scritto:
Mi sono accorto che lo script aveva problemi sulla doppia verifica nella medesima estrazione. si allega di seguito con correzione.
Codice: 
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim y(5)
   Dim nn(5)
   Dim xx(5)
   Dim yy(5)
   Dim Ruotedigioco(12)
   Dim Poste(4)
   'Poste(1) = 3
   Poste(2) = 2
   Poste(3) = 1
   clp = 13
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            w = p - 1
            ww = p + 1
            If w = 0 Then w = 5
            If ww = 6 Then ww = 1
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,ww)
            d = Estratto(es,r,ww)
            e = Estratto(es - 1,r,w)
            f = Estratto(es,r,w)
            If a = b Then
               h = Differenza(c,d)
               i = a + b
               g = i + h
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  xx(1) = j
                  xx(2) = k
                  xx(3) = ss
                  nn(1) = j
                  nn(2) = k
                  yy(1) = j
                  yy(2) = k
                  yy(4) = vv
                  Ruotedigioco(1) = r
                  Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione destra  " & c & " e " & d,1
                  Scrivi String(110,"*"),1
                  ImpostaGiocata 4,nn,Ruotedigioco,Poste,clp
                  ImpostaGiocata 5,xx,Ruotedigioco,Poste,clp
                  ImpostaGiocata 6,yy,Ruotedigioco,Poste,clp
                  Gioca es,1
                  'Scrivi String(110,"*"),1
                  ' _______________________________________________________________
                  l = Differenza(e,f)
                  m = i + l
                  u = Fuori90(m/2)
                  o = Fuori90(Differenza(i,u))
                  q = Fuori90(U + o)
                  s = Fuori90(q + 1)
                  v = Fuori90(q + 2)
                  If pari(e) And pari(f) = True Or dispari(e) And dispari(f) = True Then
                     x(1) = u
                     x(2) = o
                     x(3) = s
                     n(1) = u
                     n(2) = o
                     y(1) = u
                     y(2) = o
                     y(4) = v
                     'Scrivi String(110,"*"),1
                     Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                     ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                     Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione sinistra  " & e & " e " & f,1
                     'Scrivi
                     Scrivi String(110,"*"),1
                     Ruotedigioco(1) = r
                     ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                     ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                     ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
                     Gioca es,1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
però c'è anche una previsione sempre con i 61 ma con numeri sulla sinistra.
 
vengio ha scritto:
Fammi capire, un'altro problema?
Clicca per espandere...
se vedi l'estrazione di calcolo c'è, oltre alla previsione fatta dal programma il 61 sulla sinistra ha due numeri dispari quindi altra previsione. si possono usare sia i numeri di sinisra che di destra purche entrambi pari o dispari.
26.11.2019 -- BA - 88.26.64.43.61
28.11.2019 -- BA - 72.29.46.75.61
 
salve a tutti, complimenti per la previsione 8-24-23-14 prendendo 2 ambi con 8-24 ma volendo uno script che dia dei risultati corrispondenti al metodo non li trovo secondo i calcoli del metodo sopra descritto, cioè:
70-88--->70+88=ABBIAMO UNA SOMMA 68 CON DISTANZA 18////61+61=122-90=32 SI PRENDE LA SOMMA DEL N°
RIPETUTO CHE E' 32 E SI ADDIZIONA ALLA DISTANZA 18 CIOE' 32+18=50/////50/2=25 ABBIAMO 32-25=7 QUINDI AMBO 25-7; 25+7=32 CON +1+2 ABBIAMO 33-34 PREVISIONE AMBO 25-7 //TERNI 25-7-33/25-7-34 DAL LISTATO NON E' COSI'
O SBAGLIO?
 
non so con gli script,non li uso ma con carta e penna a me risulta così: 88+72=160 somma 16 distanza, 61+61=122 somma 0 distanza, 122+16= 138, 138:2=69, 122-69=53 ambo 69-53
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 07 novembre 2025
    Bari
    87
    44
    86
    59
    51
    Cagliari
    85
    41
    53
    76
    18
    Firenze
    24
    90
    51
    89
    57
    Genova
    04
    39
    77
    13
    23
    Milano
    86
    81
    49
    20
    85
    Napoli
    23
    75
    07
    40
    79
    Palermo
    26
    37
    32
    08
    64
    Roma
    87
    05
    37
    03
    85
    Torino
    66
    16
    28
    09
    37
    Venezia
    30
    73
    32
    49
    26
    Nazionale
    76
    68
    25
    01
    62
    Estrazione Simbolotto
    Torino
    27
    21
    30
    20
    07
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto