COME DA PROMESSA " IL METODO "

[domenico@32]

1" colpo ambetto su nz

 

[Cinzia27]

1) 09.01.2024 10367 Ca Fi 60.06 at 12
2) 20.01.2024 10374 Fi Ge 88.89 at 5
3) 23.01.2024 10375 Ge Mi 80.08 at 4
4) 23.01.2024 10375 Mi Na 80.08 at 4
5) 27.01.2024 10378 Pa Ro 78.87 at 1

 

[lotto_tom75]

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



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.

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

 

[franca46]

metodo la mummia

ve to 90 44 45

ciao un nuovo metodo??

 

[domenico@32]

ciao no metodo di salvo badessa

 

[Fidelio@]

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'. **********

 

[franca46]

ciao no metodo di salvo badessa

Ah ecco, immaginavo giusto

 

[mastrogino]

Palermo Roma 78?

yess

 

[mastrogino]

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)

esatto

 

[mastrogino]

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.

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

ciao Tom si ti confermo il 56.65. su Ro.Ve.
grazie infinite del listato non vedo l'ora di aprirlo

 

[mastrogino]

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'. **********

grazie molto gentile

 

[mastrogino]

Tom interessantissimo il tuo script grazie per il tuo tocco , gia salta all'occhio
che i casi negativi sono pochi

 

[adeleadele]

ciao Tom si ti confermo il 56.65. su Ro.Ve.
grazie infinite del listato non vedo l'ora di aprirlo

Quando esce il 29 esce 56..Roma Firenze 56 posizione 3-5 spero di avere fatto cosa gradita

 

[Cinzia27]

Ciao, Mastrogino.
Inserisco il mio script.
Dovrebbe coincidere con quello di Tom

'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

 

[mastrogino]

Ciao, Mastrogino.
Inserisco il mio script.
Dovrebbe coincidere con quello di Tom

'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

grazie gentilissima

 

[mastrogino]

STASERA CADONO IL
21 A CA 2° C
78 A PA 2° C
87 A RO 2° C

 

[ciccioriccio]

Oggi situazione pa e to 78 che potrebbe essere una buona occasione?

 

[domenico@32]

perdonatemi FI ROMA condizione per giocare la mummia 3

 

[Bazzo]

STASERA CADONO IL
21 A CA 2° C
78 A PA 2° C
87 A RO 2° C

Grazie Mastrogino, non vincevo una pippa da giugno del 2023, da quando ho preso la scellerata decisione di seguire il Maestro con il 41-43, stasera ho preso il 78 e 87 dopo il tuo suggerimento di giocare gli isotopi di ruote consecutive. Un saluto

 

[mastrogino]

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 !!