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ì 03 dicembre 2024
    Bari
    38
    26
    58
    36
    65
    Cagliari
    71
    68
    61
    41
    89
    Firenze
    52
    65
    73
    03
    50
    Genova
    37
    41
    70
    40
    06
    Milano
    62
    28
    70
    06
    39
    Napoli
    25
    50
    49
    60
    52
    Palermo
    06
    55
    68
    11
    86
    Roma
    12
    23
    16
    14
    63
    Torino
    16
    06
    44
    14
    88
    Venezia
    07
    67
    01
    38
    89
    Nazionale
    67
    27
    38
    57
    19
    Estrazione Simbolotto
    Venezia
    42
    15
    08
    05
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto