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ì 27 febbraio 2025
    Bari
    79
    62
    45
    19
    31
    Cagliari
    03
    56
    76
    58
    79
    Firenze
    89
    21
    35
    46
    65
    Genova
    78
    05
    47
    18
    20
    Milano
    31
    46
    04
    40
    33
    Napoli
    53
    78
    04
    36
    90
    Palermo
    38
    30
    84
    41
    22
    Roma
    01
    20
    53
    50
    44
    Torino
    15
    61
    82
    49
    03
    Venezia
    49
    28
    16
    86
    43
    Nazionale
    50
    45
    46
    68
    13
    Estrazione Simbolotto
    Cagliari
    20
    02
    10
    07
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto