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
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto