Novità

Metodo SOMMA

Imaging

Imaging

Advanced Member >PLATINUM<
Raccomando... se giocate cercate di controllarvi e non superate Voi stessi giochiamo per gioco. Divertiamoci.
Ho fatto una ricerca proprio sull'ambo sortito ieri sera appunto 35 - 48
Metodo Somma Spia
Data inizio Ricerca: 5/1/2000
Data fine Ricerca: 25/2/2021
Condizione di gioco: sortita ambo di somma 83
Ruota/e di ricerca condizione: Ca
Ruota/e di Gioco: Ca
Colpi di Gioco: 9


Operazioni da eseguire:

Calcolo Capogioco:
Capogioco: 4° Pa - 4

Calcolo Abbinamenti per ambo:
Abbinamento 1: 2° Pa - 64
Abbinamento 2: 5° Pa + 3° Ge


Statistiche delle Vincite

Casi esaminati: 345
Previsioni Vincenti: 178(51,59%)
Previsioni Negative: 166(48,41%)
Previsioni in Gioco: 1

Ambate vincenti: 178 (100%)
Ambi secchi vincenti: 36 (20,2%)

Tempo Medio di Attesa per il gioco di ambata e ambo: 4,9


- Per i numeri doppi si è fatto il + 1
- Tutte le operazioni matematiche prevedono il fuori 90


Previsione
Condizione rilevata: Ca (35 48)
Ruota di Gioco: Ca
Ambata/Capogioco: 65
Abbinamenti per Ambo: 22 56
***********
E' chiaro quando sortisce la condizione su Ca si fa la previsione nuova. In bocca al lupo.
 
Imaging ha scritto:
Raccomando... se giocate cercate di controllarvi e non superate Voi stessi giochiamo per gioco. Divertiamoci.
Ho fatto una ricerca proprio sull'ambo sortito ieri sera appunto 35 - 48
Metodo Somma Spia
Data inizio Ricerca: 5/1/2000
Data fine Ricerca: 25/2/2021
Condizione di gioco: sortita ambo di somma 83
Ruota/e di ricerca condizione: Ca
Ruota/e di Gioco: Ca
Colpi di Gioco: 9


Operazioni da eseguire:

Calcolo Capogioco:
Capogioco: 4° Pa - 4

Calcolo Abbinamenti per ambo:
Abbinamento 1: 2° Pa - 64
Abbinamento 2: 5° Pa + 3° Ge


Statistiche delle Vincite

Casi esaminati: 345
Previsioni Vincenti: 178(51,59%)
Previsioni Negative: 166(48,41%)
Previsioni in Gioco: 1

Ambate vincenti: 178 (100%)
Ambi secchi vincenti: 36 (20,2%)

Tempo Medio di Attesa per il gioco di ambata e ambo: 4,9


- Per i numeri doppi si è fatto il + 1
- Tutte le operazioni matematiche prevedono il fuori 90


Previsione
Condizione rilevata: Ca (35 48)
Ruota di Gioco: Ca
Ambata/Capogioco: 65
Abbinamenti per Ambo: 22 56
***********
E' chiaro quando sortisce la condizione su Ca si fa la previsione nuova. In bocca al lupo.
Clicca per espandere...

Non sembra malaccio in effetti.. ;)

Codice: 
'Option Explicit
Sub Main

'script x metodo di imaging
'
'Metodo Somma Spia
'Data inizio Ricerca: 5/1/2000
'Data fine Ricerca: 25/2/2021
'Condizione di gioco: sortita ambo di somma 83
'ruota/e di ricerca condizione: Ca
'ruota/e di Gioco: Ca
'Colpi di Gioco: 9
'
'
'Operazioni da eseguire:
'
'Calcolo Capogioco:
'Capogioco: 4° Pa - 4
'
'Calcolo Abbinamenti per ambo:
'Abbinamento 1: 2° Pa - 64
'Abbinamento 2: 5° Pa + 3° Ge



   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",3000)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   For es = Ini To fin
      For R1 = 2 To 2
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
              
               If A+B= 83 Then
                  Dim Valori
                  Valori = Array(0,A,B)
                
                  ambata1 = Fuori90(Estratto(es,PA_,4)-4)
                  ambata2 = Fuori90(Estratto(es,PA_,2)-64)
                  ambata3 = Fuori90(Estratto(es,PA_,5)+ Estratto(es,GE_,3))
                
                
                  ReDim ambataingioco(3)
                  ambataingioco(1) = ambata1
                  ambataingioco(2) = ambata2
                  ambataingioco(3) = ambata3
                  ReDim posta(1)
                  posta(1) = 1
                  ReDim ruota(1)
                  ruota(1) = R1
                  colpi = 9
                  ImpostaGiocata 1,ambataingioco,ruota,posta,colpi
                  Gioca es,1
                  
               End If
               If ScriptInterrotto Then Exit For
            Next
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub

👋:)
 
buona sera, ringrazio per il script, si fema a

Dim es
estrazionivolute = Input Box ........

chiedo gentilmente se si può risolvere
 
lotto_tom75 ha scritto:
Non sembra malaccio in effetti.. ;)

Codice: 
'Option Explicit
Sub Main

'script x metodo di imaging
'
'Metodo Somma Spia
'Data inizio Ricerca: 5/1/2000
'Data fine Ricerca: 25/2/2021
'Condizione di gioco: sortita ambo di somma 83
'ruota/e di ricerca condizione: Ca
'ruota/e di Gioco: Ca
'Colpi di Gioco: 9
'
'
'Operazioni da eseguire:
'
'Calcolo Capogioco:
'Capogioco: 4° Pa - 4
'
'Calcolo Abbinamenti per ambo:
'Abbinamento 1: 2° Pa - 64
'Abbinamento 2: 5° Pa + 3° Ge



   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",3000)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   For es = Ini To fin
      For R1 = 2 To 2
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
             
               If A+B= 83 Then
                  Dim Valori
                  Valori = Array(0,A,B)
               
                  ambata1 = Fuori90(Estratto(es,PA_,4)-4)
                  ambata2 = Fuori90(Estratto(es,PA_,2)-64)
                  ambata3 = Fuori90(Estratto(es,PA_,5)+ Estratto(es,GE_,3))
               
               
                  ReDim ambataingioco(3)
                  ambataingioco(1) = ambata1
                  ambataingioco(2) = ambata2
                  ambataingioco(3) = ambata3
                  ReDim posta(1)
                  posta(1) = 1
                  ReDim ruota(1)
                  ruota(1) = R1
                  colpi = 9
                  ImpostaGiocata 1,ambataingioco,ruota,posta,colpi
                  Gioca es,1
                 
               End If
               If ScriptInterrotto Then Exit For
            Next
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub

👋:)
Clicca per espandere...
Credo, di script non ne capisco molto da rettificare nella previsione deve avere l'Estratto in gioco e poi con gli abbinamenti, in gioco per ambo e non come lunghetta (terzina per estratto) Ottimo il lavoro in ogni caso ma da rettificare Grazie
 
Imaging ha scritto:
Credo, di script non ne capisco molto da rettificare nella previsione deve avere l'Estratto in gioco e poi con gli abbinamenti, in gioco per ambo e non come lunghetta (terzina per estratto) Ottimo il lavoro in ogni caso ma da rettificare Grazie
Clicca per espandere...

Ciao adesso ho il pc e spaziometria impegnati in un altro test... ad ogni modo prova ad aggiungere queste righe sotto la riga...

colpi = 9

Codice: 
ReDim poste(2)
poste(2) = 2

ReDim capogiocoingioco1(1)
capogiocoingioco1(1) = ambata1

e sotto imposta giocata prova ad aggiungere...

Codice: 
'  x verificare capogioco... come estratto
ImpostaGiocata 2,capogiocoingioco1,ruota,posta,colpi
Gioca es,2

' x verificare eventuali esiti di ambo e superiori in terzina...
ImpostaGiocata 3,ambataingioco,ruota,poste,colpi
Gioca es,3
 
lotto_tom75 ha scritto:
Ciao adesso ho il pc e spaziometria impegnati in un altro test... ad ogni modo prova ad aggiungere queste righe sotto la riga...

colpi = 9

Codice: 
ReDim poste(2)
poste(2) = 2

ReDim capogiocoingioco1(1)
capogiocoingioco1(1) = ambata1

e sotto imposta giocata prova ad aggiungere...

Codice: 
'  x verificare capogioco... come estratto
ImpostaGiocata 2,capogiocoingioco1,ruota,posta,colpi
Gioca es,2

' x verificare eventuali esiti di ambo e superiori in terzina...
ImpostaGiocata 3,ambataingioco,ruota,poste,colpi
Gioca es,3
Clicca per espandere...
Grazie per la disponibilità manca qualcosa credo comando di fine istruzione qualcosa del genere
 
funzia, ....ho fatto attenzione come consigliato, inserito mi accorgo che ho lasciato ... end sub .... finale
scutaemi il disturbo mea culpa
 
Imaging ha scritto:
Grazie per la disponibilità manca qualcosa credo comando di fine istruzione qualcosa del genere
Clicca per espandere...

Ciao adesso dovrebbe andare bene. Testato nella sezione script.

Codice: 
'Option Explicit
Sub Main
   'script x metodo di imaging by lottotom75
   '
   'Metodo Somma Spia
   'Data inizio Ricerca: 5/1/2000
   'Data fine Ricerca: 25/2/2021
   'Condizione di gioco: sortita ambo di somma 83
   'ruota/e di ricerca condizione: Ca
   'ruota/e di Gioco: Ca
   'Colpi di Gioco: 9
   '
   '
   'Operazioni da eseguire:
   '
   'Calcolo Capogioco:
   'Capogioco: 4° Pa - 4
   '
   'Calcolo Abbinamenti per ambo:
   'Abbinamento 1: 2° Pa - 64
   'Abbinamento 2: 5° Pa + 3° Ge
   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",3000)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   For es = Ini To fin
      For R1 = 2 To 2
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               'If A > 0 Then
               If A + B = 83 Then
                  Dim Valori
                  Valori = Array(0,A,B)
                  ambata1 = Fuori90(Estratto(es,PA_,4) - 4)
                  ambata2 = Fuori90(Estratto(es,PA_,2) - 64)
                  ambata3 = Fuori90(Estratto(es,PA_,5) + Estratto(es,GE_,3))
                  ReDim ambataingioco(3)
                  ambataingioco(1) = ambata1
                  ambataingioco(2) = ambata2
                  ambataingioco(3) = ambata3
                  ReDim posta(1)
                  posta(1) = 1
                  ReDim ruota(1)
                  ruota(1) = R1
                  colpi = 9
                  ReDim poste2(2)
                  poste2(2) = 2
                  ReDim poste3(3)
                  poste3(3) = 3
                  ReDim capogiocoingioco1(1)
                  capogiocoingioco1(1) = ambata1
               
                 '  x verificare capogioco... come estratto
                  ImpostaGiocata 1,capogiocoingioco1,ruota,posta,colpi

                 ' x verificare eventuali esiti di ambo o superiori in 3ina...
                  ImpostaGiocata 2,ambataingioco,ruota,poste2,colpi
              
                  ' x verificare eventuali esiti di terno in terzina...
                  ImpostaGiocata 3,ambataingioco,ruota,poste3,colpi
                  Gioca es,1
                  Gioca es,2
                  Gioca es,3
                  'End If
               End If
               If ScriptInterrotto Then Exit For
            Next
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
 
Ultima modifica:
lotto_tom75 ha scritto:
Ciao adesso dovrebbe andare bene. Testato nella sezione script.

Codice: 
'Option Explicit
Sub Main
   'script x metodo di imaging by lottotom75
   '
   'Metodo Somma Spia
   'Data inizio Ricerca: 5/1/2000
   'Data fine Ricerca: 25/2/2021
   'Condizione di gioco: sortita ambo di somma 83
   'ruota/e di ricerca condizione: Ca
   'ruota/e di Gioco: Ca
   'Colpi di Gioco: 9
   '
   '
   'Operazioni da eseguire:
   '
   'Calcolo Capogioco:
   'Capogioco: 4° Pa - 4
   '
   'Calcolo Abbinamenti per ambo:
   'Abbinamento 1: 2° Pa - 64
   'Abbinamento 2: 5° Pa + 3° Ge
   Dim es
   estrazionivolute = InputBox("estrazioni","estrazioni",3000)
   fin = EstrazioneFin
   Ini = EstrazioneFin - estrazionivolute
   For es = Ini To fin
      For R1 = 2 To 2
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(es,R1,P1)
               B = Estratto(es,R1,P2)
               'If A > 0 Then
               If A + B = 83 Then
                  Dim Valori
                  Valori = Array(0,A,B)
                  ambata1 = Fuori90(Estratto(es,PA_,4) - 4)
                  ambata2 = Fuori90(Estratto(es,PA_,2) - 64)
                  ambata3 = Fuori90(Estratto(es,PA_,5) + Estratto(es,GE_,3))
                  ReDim ambataingioco(3)
                  ambataingioco(1) = ambata1
                  ambataingioco(2) = ambata2
                  ambataingioco(3) = ambata3
                  ReDim posta(1)
                  posta(1) = 1
                  ReDim ruota(1)
                  ruota(1) = R1
                  colpi = 9
                  ReDim poste(2)
                  poste(2) = 2
                  ReDim capogiocoingioco1(1)
                  capogiocoingioco1(1) = ambata1
                 
                 '  x verificare capogioco... come estratto
                  ImpostaGiocata 1,capogiocoingioco1,ruota,posta,colpi

                 ' x verificare eventuali esiti di estratto o superiori in 3ina...
                  ImpostaGiocata 2,ambataingioco,ruota,posta,colpi
                
                  ' x verificare eventuali esiti di ambo e superiori in terzina...
                  ImpostaGiocata 3,ambataingioco,ruota,poste,colpi
                  Gioca es,1
                  Gioca es,2
                  Gioca es,3
                  'End If
               End If
               If ScriptInterrotto Then Exit For
            Next
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit For
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
      If ScriptInterrotto Then Exit For
   Next
   Call ScriviResoconto
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9")
End Sub
Clicca per espandere...
Va benissimo, senza impegno.....ho dato uno sguardo, sono alle prese con le regressioni numeriche per app. lotto .
Dicevo tanto per essere perfetti la terzina che gioca per estratto dovrebbe essere girata per le giocate per gli ambo secco con il capogio.. e la terzina per ambo agg.... la punta sul terno. Ciao grazie ,ottimo lavoro.
 
Imaging ha scritto:
Va benissimo, senza impegno.....ho dato uno sguardo, sono alle prese con le regressioni numeriche per app. lotto .
Dicevo tanto per essere perfetti la terzina che gioca per estratto dovrebbe essere girata per le giocate per gli ambo secco con il capogio.. e la terzina per ambo agg.... la punta sul terno. Ciao grazie ,ottimo lavoro.
Clicca per espandere...

E che perfezione... sia allora! 😄 Modificato. 👋:)
 
lotto_tom75 ha scritto:
Dove è sempre stato. Ho modificato quello sopra. Il pinocchio e i punti esclamativi mi sembrano eccessivi... comunque... Ciao
Clicca per espandere...
Rinnovo le scuse come si dice ogni riferimento a persone o cose è puramente casuale.....Va bene, ho visto che gli ambi non ci sono si potrebbe allora rimanere una terzina per ambo e terno o No ? Invece di due che ne pensi.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 15 luglio 2025
    Bari
    60
    18
    12
    57
    28
    Cagliari
    20
    26
    81
    55
    18
    Firenze
    28
    59
    46
    83
    81
    Genova
    32
    57
    09
    41
    17
    Milano
    58
    31
    49
    38
    63
    Napoli
    36
    58
    57
    45
    59
    Palermo
    03
    05
    48
    86
    62
    Roma
    47
    18
    01
    23
    79
    Torino
    56
    34
    49
    89
    90
    Venezia
    46
    44
    52
    82
    78
    Nazionale
    16
    36
    15
    13
    60
    Estrazione Simbolotto
    Nazionale
    27
    09
    44
    18
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto