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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto