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.
 
lotto_tom75

lotto_tom75

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

👋:)
 
B

boris

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

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

chiedo gentilmente se si può risolvere
 
Imaging

Imaging

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

lotto_tom75

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

Imaging

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

Imaging

Advanced Member >PLATINUM<
boris ha scritto:
uso spaziometria 1.6.34
Clicca per espandere...
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.
 
B

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

lotto_tom75

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

Imaging

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

lotto_tom75

Advanced Premium Member
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. 👋:)
 
Imaging

Imaging

Advanced Member >PLATINUM<
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ì 16 aprile 2024
    Bari
    49
    10
    76
    62
    26
    Cagliari
    42
    80
    16
    39
    65
    Firenze
    58
    22
    11
    86
    40
    Genova
    79
    14
    36
    51
    44
    Milano
    25
    27
    16
    77
    79
    Napoli
    70
    04
    51
    49
    71
    Palermo
    61
    65
    76
    53
    43
    Roma
    70
    86
    68
    80
    47
    Torino
    17
    71
    64
    72
    40
    Venezia
    22
    42
    39
    72
    30
    Nazionale
    83
    37
    81
    57
    78
    Estrazione Simbolotto
    Genova
    10
    14
    28
    18
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto