Novità

Metodo SOMMA

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.
 

lotto_tom75

Advanced Premium Member
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.

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

👋:)
 

boris

Advanced Member
buona sera, ringrazio per il script, si fema a

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

chiedo gentilmente se si può risolvere
 

Imaging

Advanced Member >PLATINUM<
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

👋:)
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
 

lotto_tom75

Advanced Premium Member
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

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
 

Imaging

Advanced Member >PLATINUM<
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
Grazie per la disponibilità manca qualcosa credo comando di fine istruzione qualcosa del genere
 

Imaging

Advanced Member >PLATINUM<
uso spaziometria 1.6.34
Prova cliccando sul tasterino formatta script nel quadro elabora script ma credo che qualche residuo di un listato precedente sia rimasto non cancellato quindi cancella bene l'area e rifai il copia incolla della Script in bocca al lupo.
 

boris

Advanced Member
funzia, ....ho fatto attenzione come consigliato, inserito mi accorgo che ho lasciato ... end sub .... finale
scutaemi il disturbo mea culpa
 

lotto_tom75

Advanced Premium Member
Grazie per la disponibilità manca qualcosa credo comando di fine istruzione qualcosa del genere

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:

Imaging

Advanced Member >PLATINUM<
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
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.
 

lotto_tom75

Advanced Premium Member
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.

E che perfezione... sia allora! 😄 Modificato. 👋:)
 

Imaging

Advanced Member >PLATINUM<
Dove è sempre stato. Ho modificato quello sopra. Il pinocchio e i punti esclamativi mi sembrano eccessivi... comunque... Ciao
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto