Novità

COME DA PROMESSA " IL METODO "

ciao mastro complimenti e grazie per la condivisione
mi dici se ho capito bene? ROVE 56-65 in corso?

rove-56-65.jpg

Ad ogni modo se è così , salvo errori, questo scriptino, che mi sono divertito a fare relativamente al tuo metodo l'ho cercato di ottimizzare per ottenere almeno per le ultime 90 es una % altina di esiti + rispetto ai colpi rimanenti minimi teorici da 1 a 13. I colpi di ricerca configurati sono 22 ma quelli possibili in output sono solo max 13. Nonostante la relativa ipotetica lunga attesa potrebbe tornare utile per eventuali abbinamenti... Ad es. adesso la coppia di ruote con colpi rimanenti minimi teorici e pari a 10, conservando una percentuale di output per il 95%+, sarebbe CAFI 6-60.

Codice: 
Sub Main
   Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
   colpi = 22
   posta(1) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
 
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then ' numeri uguali
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) + 4)
                  aNum(2) = Vert(aNum(1))
                  ImpostaGiocata 1,aNum,Ru,posta,colpi,1
                  Gioca es
               End If
            Next
         Next
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
   Next
   ScriviResoconto
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
 
Ultima modifica:
MIO CARO AMICO MASTRO GINO
VOGLIO RINGRAZIARTI PER LA TUA GENEROSITA'

*DELL'OTTIMO METODO CHE CI HAI DONATO .
COMPLIMENTI ANCORA *.

SEI DAVVERO MOLTO BRAVO E VINCENTE .
TI ELOGIO PUBBLICAMENTE *COME GIUSTAMENTE TI MERITI *

CONTINUA COSI .
ABBIAMO BISOGNO NELLA NOSTRA *GRANDE FAMIGLIA*...
********** DI PERSONE BRAVE COME TE'. ********** ;)
 
Cinzia27 ha scritto:
Innanzitutto, grazie per il metodo, Mastrogino.
Ti risultano questo 5 casi in corso?

mar 09.01.2024 [10367]
G 1: M 60 Ca Fi 12/18
in corso (12° su 18)

sab 20.01.2024 [10374]
G 1: M 88 Fi Ge 5/18
in corso (5° su 18)

mar 23.01.2024 [10375]
G 1: M 80 Ge Mi 4/18
in corso (4° su 18)

mar 23.01.2024 [10375]
G 1: M 80 Mi Na 4/18
in corso (4° su 18)

sab 27.01.2024 [10378]
G 1: M 78 Pa Ro 1/18
in corso (1° su 18)
Clicca per espandere...
esatto
 
lotto_tom75 ha scritto:
ciao mastro complimenti e grazie per la condivisione
mi dici se ho capito bene? ROVE 56-65 in corso?

Vedi l'allegato 2277237

Ad ogni modo se è così , salvo errori, questo scriptino, che mi sono divertito a fare relativamente al tuo metodo l'ho cercato di ottimizzare per ottenere almeno per le ultime 90 es una % altina di esiti + rispetto ai colpi rimanenti minimi teorici da 1 a 13. I colpi di ricerca configurati sono 22 ma quelli possibili in output sono solo max 13. Nonostante la relativa ipotetica lunga attesa potrebbe tornare utile per eventuali abbinamenti... Ad es. adesso la coppia di ruote con colpi rimanenti minimi teorici e pari a 10, conservando una percentuale di output per il 95%+, sarebbe CAFI 6-60.

Codice: 
Sub Main
   Dim Nu(2),Ru(2),aNum(2),posta(1),colpi,es
   colpi = 22
   posta(1) = 1
   Ini = EstrazioneFin - 90
   fin = EstrazioneFin
 
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r2,p1)
               If a = b Then ' numeri uguali
                  k = k + 1
                  Nu(1) = a : Nu(2) = b
                  Ru(1) = r1 : Ru(2) = r2
                  aNum(1) = Fuori90(Nu(1) + Nu(2) + 4)
                  aNum(2) = Vert(aNum(1))
                  ImpostaGiocata 1,aNum,Ru,posta,colpi,1
                  Gioca es
               End If
            Next
         Next
      Next
      Call AvanzamentoElab(1,EstrazioneFin,es)
   Next
   ScriviResoconto
   Scrivi
   Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")
End Sub
Clicca per espandere...
ciao Tom si ti confermo il 56.65. su Ro.Ve.
grazie infinite del listato non vedo l'ora di aprirlo
 
Fidelio@ ha scritto:
MIO CARO AMICO MASTRO GINO
VOGLIO RINGRAZIARTI PER LA TUA GENEROSITA'

*DELL'OTTIMO METODO CHE CI HAI DONATO .
COMPLIMENTI ANCORA *.

SEI DAVVERO MOLTO BRAVO E VINCENTE .
TI ELOGIO PUBBLICAMENTE *COME GIUSTAMENTE TI MERITI *

CONTINUA COSI .
ABBIAMO BISOGNO NELLA NOSTRA *GRANDE FAMIGLIA*...
********** DI PERSONE BRAVE COME TE'. ********** ;)
Clicca per espandere...
grazie molto gentile
 
Ciao, Mastrogino.
Inserisco il mio script.
Dovrebbe coincidere con quello di Tom

Codice: 
'Metodo Mastrogino
Sub main()
Dim n(2),ps(1),ru(2)
ps(1)=1
For es=EstrazioneFin-20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10

ru(1)=r
ru(2)=r1
'If Abs(r1-r)=1 Or Abs(r1-r)=11  Then
'If Abs(r1-r)=1   Then



For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If a=b Then
c=(a*2)
n(1)=Fuori90(c+4)
n(2)=Vert(n(1))
ImpostaGiocata 1,n,ru,ps,22,1

Gioca es
End If
Next
'End If

Next
Next
Next
ScriviResoconto
End Sub
 
Cinzia27 ha scritto:
Ciao, Mastrogino.
Inserisco il mio script.
Dovrebbe coincidere con quello di Tom

Codice: 
'Metodo Mastrogino
Sub main()
Dim n(2),ps(1),ru(2)
ps(1)=1
For es=EstrazioneFin-20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10

ru(1)=r
ru(2)=r1
'If Abs(r1-r)=1 Or Abs(r1-r)=11  Then
'If Abs(r1-r)=1   Then



For p=1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r1,p)
If a=b Then
c=(a*2)
n(1)=Fuori90(c+4)
n(2)=Vert(n(1))
ImpostaGiocata 1,n,ru,ps,22,1

Gioca es
End If
Next
'End If

Next
Next
Next
ScriviResoconto
End Sub
Clicca per espandere...
grazie gentilissima
 
Ad ogni modo se è così , salvo errori, questo scriptino, che mi sono divertito a fare relativamente al tuo metodo l'ho cercato di ottimizzare per ottenere almeno per le ultime 90 es una % altina di esiti + rispetto ai colpi rimanenti minimi teorici da 1 a 13. I colpi di ricerca configurati sono 22 ma quelli possibili in output sono solo max 13. Nonostante la relativa ipotetica lunga attesa potrebbe tornare utile per eventuali abbinamenti... Ad es. adesso la coppia di ruote con colpi rimanenti minimi teorici e pari a 10, conservando una percentuale di output per il 95%+, sarebbe CAFI 6-60.

NELLA RICERCA IN 86 CASI 81 VINCENTI !!
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 13 novembre 2025
    Bari
    32
    65
    71
    85
    34
    Cagliari
    57
    35
    60
    27
    59
    Firenze
    25
    69
    54
    55
    03
    Genova
    02
    18
    53
    83
    79
    Milano
    19
    02
    60
    13
    83
    Napoli
    87
    35
    78
    04
    69
    Palermo
    46
    40
    55
    25
    71
    Roma
    14
    23
    28
    62
    01
    Torino
    78
    08
    04
    03
    63
    Venezia
    41
    17
    16
    49
    42
    Nazionale
    83
    08
    03
    67
    86
    Estrazione Simbolotto
    Torino
    20
    44
    35
    10
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto