Richiesta script, penso semplice...

« Older Newer »

micro_

Posted on 7/3/2019, 09:20

Top Member

Group:: Member

Posts:: 1,292

Status:

Vorrei sottoporre alla vostra attenzione la possibilità di porre una indagine statistica (che credo nessuna abbia mai fatto, e se qualcuno lo ha già fatto me ne scuso per l’ignoranza) con uno script, le sole estrazioni, in ordine cronologico rigorosamente successivo che presentano una caratteristica particolare e ben specifica sul determinato.
Ciò che dovremmo risolvere dovrebbe poi portare ad avere sotto gli occhi il ritardo di quattro o cinque determinati da confrontare con il determinato dell’estrazione precedente.
Quindi previsioni dinamiche che cambiano ad ogni estrazione.

Condizione:

1) Estrazioni (5 estrazioni successive e su unica ruota) con numeri crescenti in ordine di uscita su posizione determinata.

Questi numeri potrebbero partire da n=5 o anche n= 6 (con un’altra possibile statistica) laddove ci sia anche questa condizione

Es.: Genova 4° determinato
16/08/2017 -9-
17/08/2017 -12-
19/08/2017 -22-
22/08/2017 -60-
24/08/2017 -71-

Come si può vedere l'estrazione soddisfa la ricerca da analizzare e le distanze matematiche tra gli estratti, in ordine (3-10-38-11) dovranno essere applicate alle estrazioni successive, a colpo, chiaramente per estratto determinato sul solo 4rto estratto determinato.

Nell’esempio si inizierà a calcolare le distanze al numero 6 (all’estrazione del 26 agosto 2017) per mettere in gioco al 4° determinato di Genova, nella sola estrazione successiva, il 9,il 16,il 44, il 17, in ordine (6+3),(6+10),(6+38),(6+11). Si calcolerà anche il f90 se necessario.

Ci saremmo fermati all’estrazione del 12/09/2017 (dopo 7 estrazioni se il mio calcolo è giusto) avendo messo in gioco grazie al numero 88 il numero 9 (+11 da 88 con f90) uscito al colpo successivo.

Lo script ci dovrebbe dire quindi il ritardo cronologico sui 4 estratti e i numeri da mettere in gioco (n=4) a colpo.

Potremmo anche avere altri casi e cioè 6 numeri in ordine crescente (n=5 giocabili), o anche i casi in ordine decrescente.

Ci sono anche i casi, chiaramente, sulla singola estrazione, in orizzontale, crescente e decrescente ma al momento li metterei da parte per eventuali ulteriori approfondimenti.

Buona giornata a tutti
saluti
micro

[email protected]

Posted on 14/3/2019, 18:02

Junior

Group:: Member

Posts:: 55

Status:

come mai non c'è nessuno interessato?
"se tutti gli uccelli conoscessero il grano....."

micro_

Posted on 14/3/2019, 18:38

Top Member

Group:: Member

Posts:: 1,292

Status:

ciao, speriamo...

deficitario

Posted on 15/3/2019, 14:27

Buongiorno,
ho trobato questo listato , in rete .
Semra che faccia quello che chiede .
Ho aggiunto solo le righe con la xpunta .

SPOILER (clicca per visualizzare)

HTML

Option Explicit
'Richiesta script, penso semplice... di micro_
'https://lottogam.forumfree.it/?t=76466286#newpost
Sub Main
Dim Ini,fin,es,caso
Dim r,p
Dim e1,e2,e3,e4,e5
Dim d1,d2,d3,d4,e0
Dim g1,g2,g3,g4
Dim rit1,rit2,rit3,rit4
'esempio
' Ini = 9360 : fin = 9361
Ini = 09575: fin = EstrazioneFin
caso = 0
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For r = 01 To 11
If r = 11 Then r = 12
For p = 01 To 05
e5 = Estratto(es - 05,r,p)
e4 = Estratto(es - 04,r,p)
e3 = Estratto(es - 03,r,p)
e2 = Estratto(es - 02,r,p)
e1 = Estratto(es - 01,r,p)
If e5 < e4 And e4 < e3 And e3 < e2 And e2 < e1 Then
caso = caso + 01
Call Scrivi(String(125,"-") & " Caso n° " & FormattaStringa(caso,"000"),true)
Call Scrivi(GetInfoEstrazione(es - 05) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 05,r) & " - " & e5 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 04) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 04,r) & " - " & e4 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 03) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 03,r) & " - " & e3 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 02) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 02,r) & " - " & e2 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 01) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 01,r) & " - " & e1 & " - " & p,true)
d1 = Differenza(e5,e4)
d2 = Differenza(e4,e3)
d3 = Differenza(e3,e2)
d4 = Differenza(e2,e1)
Dim xx
For xx = 01 To 09
e0 = Estratto(es + xx,r,p)
Call Scrivi(String(85,"-") & " Colpo n° " & FormattaStringa(xx,"00"),true)
'Call Scrivi(d1 & " " & d2 & " " & d3 & " " & d4,true)
'Call Scrivi(GetInfoEstrazione(es + xx) & " " & SiglaRuota(r) & " " & StringaEstratti(es + xx,r) & " " & e0 & " " & p,true)
g1 = Fuori90(e0 + d1)
g2 = Fuori90(e0 + d2)
g3 = Fuori90(e0 + d3)
g4 = Fuori90(e0 + d4)
rit1 = EstrattoRitardoTurbo(r,g1,EstrazioneIni,es + xx)
rit2 = EstrattoRitardoTurbo(r,g2,EstrazioneIni,es + xx)
rit3 = EstrattoRitardoTurbo(r,g3,EstrazioneIni,es + xx)
rit4 = EstrattoRitardoTurbo(r,g4,EstrazioneIni,es + xx)
Dim aNumeri : aNumeri = Array(00,g1,g2,g3,g4)
Call Scrivi("NUMERI : " & StringaNumeri(aNumeri," - ",true),true)
Call Scrivi("RITARDO : " & rit1 & " - " & rit2 & " - " & rit3 & " - " & rit4,true)
ReDim ru(1) : ru(1) = r
Dim retesito,retcolpi,retestratti,retidestr
ReDim aposizioni(05) : aposizioni(p) = true
Call VerificaEsitoTurbo(aNumeri,ru,(es + 01) + xx,AMBATA_,01,,retesito,retcolpi,retestratti,retidestr)
If retesito <> "" And VerificaEsitoTurbo(aNumeri,ru,(es + 01) + xx,AMBATA_,01,aposizioni) = true Then
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "DETERMINATO IN " & p & "° POSIZIONE",true)
Call ColoreTesto(vbBlack)
ElseIf retesito = "Estratto" Then
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "SEMPLICE",true)
Call ColoreTesto(vbBlack)
ElseIf retesito = "Ambo" Then
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "AMBO",true)
Call ColoreTesto(vbBlack)
Else
Call ColoreTesto(vbBlack)
Call Scrivi(retesito & " " & retestratti & " " & retidestr,true)
Call ColoreTesto(vbBlack)
End If
If(es + 01) + xx > fin Then Exit For
Next
End If
Next
Next
Next
End Sub

micro_

Posted on 15/3/2019, 18:13

Top Member

Group:: Member

Posts:: 1,292

Status:

Un ringraziamento particolare a Deficitario che ha trovato online qualcosa che potrebbe cominciare a dare una visualizzazione di ciò che cercavo.

Ho fatto una prova, andando un po' a ritroso e trovo che lo script evidenzia le condizioni di ricerca, ma poi non dà il risultato, (mi sembra), che pensavo di ottenere.

faccio questo esempio:

ruota di Bari

19/05/2018 30 21 77 60 33
22/05/2018 84 31 36 6 79
24/05/2018 65 57 38 85 47
26/05/2018 38 72 42 8 50
29/05/2018 89 79 46 17 1

cosa dovrebbe dirmi lo script (e questo lo dice)oltre che questi 5 numeri determinati al 2° posto (in grassetto) sono rigorosamente in progressione (le cui distanze, date dai numeri in progressione, sono -10-26-15-7)?

Che scorrendo i numeri sottostanti, sempre al 2ndo determinato di Bari, arrivo ad un ritardo di 61 colpi(calcolato a vista) e che il numero 8 mi dà a colpo il 18, cioè è caduto uno dei 4 numeri giocabili con il numero 8, quindi 18-34-23-15, perchè al numero 8 ho applicato le distanze che mi avevano dato le progressioni dei 5 numeri. In questo caso la dist.10.

20/10/2018 63 18 83 50 70

In questo caso lo script mi dovrebbe dire

Ritardo: 61 colpi.
Estratto determinato 2° posto 18.

Uno storico sul pregresso ci permetterebbe di affrontare il gioco con i tempi dovuti con 4 fagioli (e la loro progressione)contro circa 50 vincenti.

grazie ancora!!

saluti

micro

koala

Posted on 15/3/2019, 19:35

provi questo

SPOILER (clicca per visualizzare)

HTML

Option Explicit
'Richiesta script, penso semplice... di micro_
'https://lottogam.forumfree.it/?t=76466286#newpost
Sub Main
Dim Ini,fin,es,caso
Dim r,p
Dim e1,e2,e3,e4,e5
Dim d1,d2,d3,d4,e0
Dim g1,g2,g3,g4
Dim rit1,rit2,rit3,rit4
'esempio
' Ini = 9360 : fin = 9361
Ini = 9416 : fin = EstrazioneFin
caso = 0
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For r = 01 To 11
If r = 11 Then r = 12
For p = 01 To 05
e5 = Estratto(es - 05,r,p)
e4 = Estratto(es - 04,r,p)
e3 = Estratto(es - 03,r,p)
e2 = Estratto(es - 02,r,p)
e1 = Estratto(es - 01,r,p)
If e5 < e4 And e4 < e3 And e3 < e2 And e2 < e1 Then
caso = caso + 01
Call Scrivi(String(125,"-") & " Caso n° " & FormattaStringa(caso,"000"),true)
Call Scrivi(GetInfoEstrazione(es - 05) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 05,r) & " - " & e5 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 04) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 04,r) & " - " & e4 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 03) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 03,r) & " - " & e3 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 02) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 02,r) & " - " & e2 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 01) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 01,r) & " - " & e1 & " - " & p,true)
d1 = Differenza(e5,e4)
d2 = Differenza(e4,e3)
d3 = Differenza(e3,e2)
d4 = Differenza(e2,e1)
Dim xx
For xx = 01 To 100
e0 = Estratto(es + xx,r,p)
Call Scrivi(String(85,"-") & " Colpo n° " & FormattaStringa(xx,"00"),true)
'Call Scrivi(d1 & " " & d2 & " " & d3 & " " & d4,true)
'Call Scrivi(GetInfoEstrazione(es + xx) & " " & SiglaRuota(r) & " " & StringaEstratti(es + xx,r) & " " & e0 & " " & p,true)
g1 = Fuori90(e0 + d1)
g2 = Fuori90(e0 + d2)
g3 = Fuori90(e0 + d3)
g4 = Fuori90(e0 + d4)
rit1 = EstrattoRitardoTurbo(r,g1,EstrazioneIni,es + xx)
rit2 = EstrattoRitardoTurbo(r,g2,EstrazioneIni,es + xx)
rit3 = EstrattoRitardoTurbo(r,g3,EstrazioneIni,es + xx)
rit4 = EstrattoRitardoTurbo(r,g4,EstrazioneIni,es + xx)
Dim aNumeri : aNumeri = Array(00,g1,g2,g3,g4)
Call Scrivi("NUMERI : " & StringaNumeri(aNumeri," - ",true),true)
Call Scrivi("RITARDO : " & rit1 & " - " & rit2 & " - " & rit3 & " - " & rit4,true)
ReDim ru(1) : ru(1) = r
Dim retesito,retcolpi,retestratti,retidestr
ReDim aposizioni(05) : aposizioni(p) = true
Call VerificaEsitoTurbo(aNumeri,ru,(es + 01) + xx,AMBATA_,01,,retesito,retcolpi,retestratti,retidestr)
ReDim Preserve vinc(100)
If retesito <> "" And VerificaEsitoTurbo(aNumeri,ru,(es + 01) + xx,AMBATA_,01,aposizioni) = true Then
vinc(xx) = vinc(xx) + 01
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "DETERMINATO IN " & p & "° POSIZIONE",true)
Call ColoreTesto(vbBlack)
ElseIf retesito = "Estratto" Then
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "SEMPLICE",true)
Call ColoreTesto(vbBlack)
ElseIf retesito = "Ambo" Then
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "AMBO",true)
Call ColoreTesto(vbBlack)
Else
Call ColoreTesto(vbBlack)
Call Scrivi(retesito & " " & retestratti & " " & retidestr,true)
Call ColoreTesto(vbBlack)
End If
If(es + 01) + xx > fin Then Exit For
Next
End If
Next
Next
Next
Call Scrivi() : Call Scrivi(String(050,"-"),true) : Call Scrivi("RIEPILOGO DISTRIBUZIONE CASI DETERMINATO",true) : Call Scrivi()
For xx = 01 To 100
Call Scrivi("Casi Vincenti " & xx & "° Colpo : " & vinc(xx),true)
Next
End Sub

micro_

Posted on 15/3/2019, 20:06

Top Member

Group:: Member

Posts:: 1,292

Status:

Grazie Koala, mi sembra vada bene., con il riepilogo è perfetto!!

Lo sottopongo al pregresso, ho visto che c'è qualche caso anche a 100 colpi e questo, sinceramente, non me lo aspettavo

ancora i miei ringraziamenti

saluti

micro

micro_

Posted on 15/3/2019, 21:05

Top Member

Group:: Member

Posts:: 1,292

Status:

CITAZIONE (micro_ @ 15/3/2019, 20:06)

ma forse perché lo script non si ferma alla prima vincita del determinato?

esempio, ruota di Torino:

30/04/2015--21- 9- 47 -6- 3
02/05/2015--86- 67- 1 -26- 52
05/05/2015--32- 37- 76- 51- 80
07/05/2015--51- 8- 53- 76- 77
09/05/2015--81 -20- 37 -83- 75-

Nonostante ci siano due distanze uguali (in ordine -20 -25 -25-7) e quindi non quattro ma tre distanze totali

13/10/2015 -6 -53- 1- 58- 61-
15/10/2015 -16- 46- 87- 65 -84-

al 67esimo colpo troviamo il 65 con origine 58 (Dist.7)

lo script certamente lo dice ma ci dice anche del 41 come seconda soluzione a 129 colpi

Alla prossima prova.

thanks!!

micro

panda4

Posted on 15/3/2019, 22:40

adeso si ferma alla prima vincita determinaya

SPOILER (clicca per visualizzare)

HTML

Option Explicit
'Richiesta script, penso semplice... di micro_
'https://lottogam.forumfree.it/?t=76466286#newpost
Sub Main
Dim Ini,fin,es,caso
Dim r,p
Dim e1,e2,e3,e4,e5
Dim d1,d2,d3,d4,e0
Dim g1,g2,g3,g4
Dim rit1,rit2,rit3,rit4
'esempio
' Ini = 9360 : fin = 9361
Ini = 9416 : fin = EstrazioneFin
caso = 0
For es = Ini To fin : Call Messaggio(es) : Call AvanzamentoElab(Ini,fin,es)
For r = 01 To 11
If r = 11 Then r = 12
For p = 01 To 05
e5 = Estratto(es - 05,r,p)
e4 = Estratto(es - 04,r,p)
e3 = Estratto(es - 03,r,p)
e2 = Estratto(es - 02,r,p)
e1 = Estratto(es - 01,r,p)
If e5 < e4 And e4 < e3 And e3 < e2 And e2 < e1 Then
caso = caso + 01
Call Scrivi(String(125,"-") & " Caso n° " & FormattaStringa(caso,"000"),true)
Call Scrivi(GetInfoEstrazione(es - 05) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 05,r) & " - " & e5 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 04) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 04,r) & " - " & e4 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 03) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 03,r) & " - " & e3 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 02) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 02,r) & " - " & e2 & " - " & p,true)
Call Scrivi(GetInfoEstrazione(es - 01) & " " & SiglaRuota(r) & " " & StringaEstratti(es - 01,r) & " - " & e1 & " - " & p,true)
d1 = Differenza(e5,e4)
d2 = Differenza(e4,e3)
d3 = Differenza(e3,e2)
d4 = Differenza(e2,e1)
Dim xx
For xx = 001 To 100
e0 = Estratto(es + xx,r,p)
Call Scrivi(String(85,"-") & " Colpo n° " & FormattaStringa(xx,"00"),true)
'Call Scrivi(d1 & " " & d2 & " " & d3 & " " & d4,true)
'Call Scrivi(GetInfoEstrazione(es + xx) & " " & SiglaRuota(r) & " " & StringaEstratti(es + xx,r) & " " & e0 & " " & p,true)
g1 = Fuori90(e0 + d1)
g2 = Fuori90(e0 + d2)
g3 = Fuori90(e0 + d3)
g4 = Fuori90(e0 + d4)
'rit1 = EstrattoRitardoTurbo(r,g1,EstrazioneIni,es + xx)
'rit2 = EstrattoRitardoTurbo(r,g2,EstrazioneIni,es + xx)
'rit3 = EstrattoRitardoTurbo(r,g3,EstrazioneIni,es + xx)
'rit4 = EstrattoRitardoTurbo(r,g4,EstrazioneIni,es + xx)
Dim aNumeri : aNumeri = Array(00,g1,g2,g3,g4)
Call Scrivi("NUMERI : " & StringaNumeri(aNumeri," - ",true),true)
'Call Scrivi("RITARDO : " & rit1 & " - " & rit2 & " - " & rit3 & " - " & rit4,true)
ReDim ru(1) : ru(1) = r
Dim retesito,retcolpi,retestratti,retidestr
ReDim aposizioni(05) : aposizioni(p) = true
Call VerificaEsitoTurbo(aNumeri,ru,(es + 01) + xx,AMBATA_,01,,retesito,retcolpi,retestratti,retidestr)
ReDim Preserve vinc(100)
If retesito <> "" And VerificaEsitoTurbo(aNumeri,ru,(es + 01) + xx,AMBATA_,01,aposizioni) = true Then
vinc(xx) = vinc(xx) + 01
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "DETERMINATO IN " & p & "° POSIZIONE",true)
Call ColoreTesto(vbBlack)
If retesito <> "" Then Exit For
ElseIf retesito = "Ambo" Then
Call ColoreTesto(vbRed)
Call Scrivi(retesito & " " & retestratti & " " & retidestr & vbTab & "AMBO",true)
Call ColoreTesto(vbBlack)
Else
Call ColoreTesto(vbBlack)
Call Scrivi(retesito & " " & retestratti & " " & retidestr,true)
Call ColoreTesto(vbBlack)
End If
If(es + 01) + xx > fin Then Exit For
Next
End If
Next
Next
Next
Call Scrivi() : Call Scrivi(String(050,"-"),true) : Call Scrivi("RIEPILOGO DISTRIBUZIONE CASI DETERMINATO",true) : Call Scrivi()
For xx = 01 To 100
Call Scrivi("Casi Vincenti " & xx & "° Colpo : " & vinc(xx),true)
Next
End Sub

micro_

Posted on 15/3/2019, 23:00

Top Member

Group:: Member

Posts:: 1,292

Status:

Grazie panda4 a domani x qualche buona notizia

Saluti

micro

micro_

Posted on 16/3/2019, 07:29

Top Member

Group:: Member

Posts:: 1,292

Status:

Ciao Panda, ho verificato il lo script andando a ritroso per mesi. Devo dire che dà dei buoni risultati, specie al 1°, 2° c. e poi dal 6° al 9° colpo, tuttavia ho riscontrato che salta dei casi senza dare la soluzione oppure in alternativa lo script si ferma con l'ambata semplice e non quella determinata.
Caso:

[09419] [ 4 ] 09.01.2018 VE 31.68.45.11.27 - 11 - 4
[09420] [ 5 ] 11.01.2018 VE 53.80.21.33.71 - 33 - 4
[09421] [ 6 ] 13.01.2018 VE 54.62.88.45.25 - 45 - 4
[09422] [ 7 ] 16.01.2018 VE 55.56.21.78.16 - 78 - 4
[09423] [ 8 ] 18.01.2018 VE 10.75.22.89.47 - 89 - 4
------------------------------------------------------------------------------------- Colpo n° 01
NUMERI : 89 - 79 - 10 - 78
0
------------------------------------------------------------------------------------- Colpo n° 02
NUMERI : 44 - 34 - 55 - 33
0
------------------------------------------------------------------------------------- Colpo n° 03
NUMERI : 86 - 76 - 07 - 75
0
------------------------------------------------------------------------------------- Colpo n° 04
NUMERI : 63 - 53 - 74 - 52
Estratto VE .. .. 52 .. .. 9429

qui si ferma al 52, come ambata semplice, quando si dovrebbe fermare all'89 al 35° colpo.

in quest'altro caso, invece, non dà risultati:

[09419] [ 4 ] 09.01.2018 GE 72.08.28.88.60 - 8 - 2
[09420] [ 5 ] 11.01.2018 GE 57.18.84.28.79 - 18 - 2
[09421] [ 6 ] 13.01.2018 GE 89.25.33.07.46 - 25 - 2
[09422] [ 7 ] 16.01.2018 GE 23.36.03.10.21 - 36 - 2
[09423] [ 8 ] 18.01.2018 GE 19.58.85.10.11 - 58 - 2
------------------------------------------------------------------------------------- Colpo n° 01
NUMERI : 18 - 15 - 19 - 30
0
------------------------------------------------------------------------------------- Colpo n° 02
NUMERI : 18 - 15 - 19 - 30
0
------------------------------------------------------------------------------------- Colpo n° 03
NUMERI : 67 - 64 - 68 - 79
0
------------------------------------------------------------------------------------- Colpo n° 04
NUMERI : 29 - 26 - 30 - 41
0

e qui si ferma.

Non capisco quale sia il problema, il risultato dovrebbe darci sempre la scritta in rosso che mi sembra la sola condizione da porre sul listato finale

Comunque grazie ancora!!

saluti

micro

Kanguro1

Posted on 16/3/2019, 14:53

Evidenti errori di battittura .

SPOILER (clicca per visualizzare)

HTML

Option Explicit
'Richiesta script, penso semplice... di micro_
'https://lottogam.forumfree.it/?t=76466286#newpost
Sub Main
Dim Ini,Fin,Es : Ini = EstrazioneFin - 100 : Fin = EstrazioneFin
'esempio
'Ini = 9360 : fin = 9361
Dim R,P,Caso : Caso = 00
For Es = Ini To Fin : Call Messaggio(Es) : Call AvanzamentoElab(Ini,Fin,Es)
For R = 01 To 11
If R = 11 Then R = 12
For P = 01 To 05
Dim E1,E2,E3,E4,E5
E5 = Estratto(Es - 05,R,P) : E4 = Estratto(Es - 04,R,P) : E3 = Estratto(Es - 03,R,P)
E2 = Estratto(Es - 02,R,P) : E1 = Estratto(Es - 01,R,P)
If E5 < E4 And E4 < E3 And E3 < E2 And E2 < E1 Then
Caso = Caso + 01
Dim D1,D2,D3,D4
D1 = Differenza(E5,E4) : D2 = Differenza(E4,E3) : D3 = Differenza(E3,E2) : D4 = Differenza(E2,E1)
Call Scrivi(String(125,"-") & " Caso n° " & FormattaStringa(Caso,"000"),true)
Call Scrivi(GetInfoEstrazione(Es - 05) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 05,R) & " - " & E5 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 04) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 04,R) & " - " & E4 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 03) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 03,R) & " - " & E3 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 02) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 02,R) & " - " & E2 & " - " & P,true)
Call Scrivi(GetInfoEstrazione(Es - 01) & " " & SiglaRuota(R) & " " & StringaEstratti(Es - 01,R) & " - " & E1 & " - " & P,true)
Dim XX,E0
For XX = 000 To 099
E0 = Estratto(Es + XX,R,P)
Call Scrivi(String(60,"-") & " Colpo n° " & FormattaStringa(XX + 01,"00"),true)
Call Scrivi(D1 & " " & D2 & " " & D3 & " " & D4,true)
Call Scrivi(GetInfoEstrazione(Es + XX) & " " & SiglaRuota(R) & " " & StringaEstratti(Es + XX,R) & " - " & E0 & " - " & P,true)
Dim N1,N2,N3,N4
N1 = Fuori90(E0 + D1) : N2 = Fuori90(E0 + D2) : N3 = Fuori90(E0 + D3) : N4 = Fuori90(E0 + D4)
'Dim RIT1,RIT2,RIT3,RIT4
'RIT1 = EstrattoRitardoTurbo(R,N1,EstrazioneIni,Es + XX) : RIT2 = EstrattoRitardoTurbo(R,N2,EstrazioneIni,Es + XX)
'RIT3 = EstrattoRitardoTurbo(R,N3,EstrazioneIni,Es + XX) : RIT4 = EstrattoRitardoTurbo(R,N4,EstrazioneIni,Es + XX)
Dim aNumeri : aNumeri = Array(00,N1,N2,N3,N4)
Call Scrivi("NUMERI IN GIOCO : " & StringaNumeri(aNumeri,"-",true),true)
'Call Scrivi("RITARDO : " & RIT1 & " - " & RIT2 & " - " & RIT3 & " - " & RIT4,true)
ReDim RU(01) : RU(01) = R
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
ReDim aPosizioni(05) : aPosizioni(P) = true
Call VerificaEsitoTurbo(aNumeri,RU,(Es + XX) + 01,AMBATA_,01,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
ReDim Preserve VINC(101)
If RetEsito <> "" And VerificaEsitoTurbo(aNumeri,RU,(Es + XX) + 01,AMBATA_,01,aPosizioni) = true Then
VINC(XX + 01) = VINC(XX + 01) + 01 : Call ColoreTesto(vbRed) : Call Scrivi(FormatSpace(RetEsito,08) & " " & _
FormatSpace(RetEstratti,14) & " " & RetIdEstr & vbTab & "DETERMINATO IN " & P & "° POSIZIONE",true)
Call ColoreTesto(vbBlack)
If RetEsito <> "" And VerificaEsitoTurbo(aNumeri,RU,(Es + XX) + 01,AMBATA_,01,aPosizioni) = true Then Exit For
ElseIf RetEsito = "Estratto" Then
Call ColoreTesto(vbBlack) : Call Scrivi(FormatSpace(RetEsito,08) & " " & FormatSpace(RetEstratti,14) & " " & _
RetIdEstr & vbTab & "SEMPLICE",true) : Call ColoreTesto(vbBlack)
ElseIf RetEsito = "Ambo" Then
Call ColoreTesto(vbBlack) : Call Scrivi(FormatSpace(RetEsito,08) & " " & FormatSpace(RetEstratti,14) & " " & _
RetIdEstr & vbTab & "AMBO",true) : Call ColoreTesto(vbBlack)
Else
Call ColoreTesto(vbBlack) : Call Scrivi("GIOCATA NEGATIVA",true) : Call ColoreTesto(vbBlack)
End If
If(Es + XX) + 01 > Fin Then Exit For
Next
End If
Next
Next
Next
Call Scrivi() : Call Scrivi(String(050,"-"),true) : Call Scrivi("RIEPILOGO DISTRIBUZIONE CASI ESTRATTO DETERMINATO",true) : Call Scrivi()
For XX = 000 To 099 : Call Scrivi("Casi Vincenti al " & XX + 01 & "° Colpo : " & VINC(XX + 01),true) : Next
End Sub

Edited by Kanguro1 - 16/3/2019, 15:40

micro_

Posted on 16/3/2019, 15:08

Top Member

Group:: Member

Posts:: 1,292

Status:

Grazie Kanguro1, lo script, se interpreto bene, prevede un buon numero di uscite entro i 10 colpi

saluti

micro

RIEPILOGO DALLA 8162

RIEPILOGO DISTRIBUZIONE CASI ESTRATTO DETERMINATO

Casi Vincenti al 1° Colpo : 25
Casi Vincenti al 2° Colpo : 28
Casi Vincenti al 3° Colpo : 19
Casi Vincenti al 4° Colpo : 26
Casi Vincenti al 5° Colpo : 21
Casi Vincenti al 6° Colpo : 24
Casi Vincenti al 7° Colpo : 17
Casi Vincenti al 8° Colpo : 21
Casi Vincenti al 9° Colpo : 16
Casi Vincenti al 10° Colpo : 12
Casi Vincenti al 11° Colpo : 17
Casi Vincenti al 12° Colpo : 18
Casi Vincenti al 13° Colpo : 13
Casi Vincenti al 14° Colpo : 18
Casi Vincenti al 15° Colpo : 17
Casi Vincenti al 16° Colpo : 16
Casi Vincenti al 17° Colpo : 9
Casi Vincenti al 18° Colpo : 15
Casi Vincenti al 19° Colpo : 11
Casi Vincenti al 20° Colpo : 11
Casi Vincenti al 21° Colpo : 8
Casi Vincenti al 22° Colpo : 7
Casi Vincenti al 23° Colpo : 11
Casi Vincenti al 24° Colpo : 8
Casi Vincenti al 25° Colpo : 7
Casi Vincenti al 26° Colpo : 13
Casi Vincenti al 27° Colpo : 10
Casi Vincenti al 28° Colpo : 4
Casi Vincenti al 29° Colpo : 13
Casi Vincenti al 30° Colpo : 9
Casi Vincenti al 31° Colpo : 5
Casi Vincenti al 32° Colpo : 2
Casi Vincenti al 33° Colpo : 4
Casi Vincenti al 34° Colpo : 3
Casi Vincenti al 35° Colpo : 6
Casi Vincenti al 36° Colpo : 6
Casi Vincenti al 37° Colpo : 6
Casi Vincenti al 38° Colpo : 5
Casi Vincenti al 39° Colpo : 7
Casi Vincenti al 40° Colpo : 8
Casi Vincenti al 41° Colpo : 6
Casi Vincenti al 42° Colpo : 3
Casi Vincenti al 43° Colpo : 3
Casi Vincenti al 44° Colpo : 5
Casi Vincenti al 45° Colpo : 3
Casi Vincenti al 46° Colpo : 3
Casi Vincenti al 47° Colpo : 3
Casi Vincenti al 48° Colpo :
Casi Vincenti al 49° Colpo : 2
Casi Vincenti al 50° Colpo : 2
Casi Vincenti al 51° Colpo : 1
Casi Vincenti al 52° Colpo : 5
Casi Vincenti al 53° Colpo : 1
Casi Vincenti al 54° Colpo : 2
Casi Vincenti al 55° Colpo :
Casi Vincenti al 56° Colpo : 2
Casi Vincenti al 57° Colpo : 1
Casi Vincenti al 58° Colpo : 4
Casi Vincenti al 59° Colpo : 3
Casi Vincenti al 60° Colpo : 4
Casi Vincenti al 61° Colpo : 3
Casi Vincenti al 62° Colpo : 4
Casi Vincenti al 63° Colpo : 1
Casi Vincenti al 64° Colpo : 2
Casi Vincenti al 65° Colpo : 4
Casi Vincenti al 66° Colpo : 4
Casi Vincenti al 67° Colpo : 3
Casi Vincenti al 68° Colpo : 2
Casi Vincenti al 69° Colpo : 1
Casi Vincenti al 70° Colpo :
Casi Vincenti al 71° Colpo : 1
Casi Vincenti al 72° Colpo : 2
Casi Vincenti al 73° Colpo :
Casi Vincenti al 74° Colpo : 1
Casi Vincenti al 75° Colpo :
Casi Vincenti al 76° Colpo :
Casi Vincenti al 77° Colpo :
Casi Vincenti al 78° Colpo :
Casi Vincenti al 79° Colpo :
Casi Vincenti al 80° Colpo : 2
Casi Vincenti al 81° Colpo : 1
Casi Vincenti al 82° Colpo : 1
Casi Vincenti al 83° Colpo :
Casi Vincenti al 84° Colpo :
Casi Vincenti al 85° Colpo : 1
Casi Vincenti al 86° Colpo :
Casi Vincenti al 87° Colpo :
Casi Vincenti al 88° Colpo :
Casi Vincenti al 89° Colpo : 2
Casi Vincenti al 90° Colpo : 1
Casi Vincenti al 91° Colpo :
Casi Vincenti al 92° Colpo : 1
Casi Vincenti al 93° Colpo :
Casi Vincenti al 94° Colpo : 1
Casi Vincenti al 95° Colpo : 2
Casi Vincenti al 96° Colpo : 1
Casi Vincenti al 97° Colpo :
Casi Vincenti al 98° Colpo :
Casi Vincenti al 99° Colpo :
Casi Vincenti al 100° Colpo : 1

Kanguro1

Posted on 16/3/2019, 15:17

Listato da ricopiare .
Ancora errori di calcolo .
7351

micro_

Posted on 16/3/2019, 15:42

Top Member

Group:: Member

Posts:: 1,292

Status:

quindi 36 casi, a partire da:

[09499] [ 84] 14.07.2018 NA 86.78.87.09.01 - 1 - 5
[09500] [ 85] 17.07.2018 NA 14.11.35.52.04 - 4 - 5
[09501] [ 86] 19.07.2018 NA 27.60.43.49.15 - 15 - 5
[09502] [ 87] 21.07.2018 NA 82.19.20.09.44 - 44 - 5
[09503] [ 88] 24.07.2018 NA 50.57.40.08.62 - 62 - 5

con il riepilogo

RIEPILOGO DISTRIBUZIONE CASI ESTRATTO DETERMINATO

Casi Vincenti al 1° Colpo : 5
Casi Vincenti al 2° Colpo : 4
Casi Vincenti al 3° Colpo : 5
Casi Vincenti al 4° Colpo : 2
Casi Vincenti al 5° Colpo :
Casi Vincenti al 6° Colpo : 1
Casi Vincenti al 7° Colpo : 1
Casi Vincenti al 8° Colpo : 1
Casi Vincenti al 9° Colpo :
Casi Vincenti al 10° Colpo : 1
Casi Vincenti al 11° Colpo : 2
Casi Vincenti al 12° Colpo :
Casi Vincenti al 13° Colpo : 1
Casi Vincenti al 14° Colpo : 2
Casi Vincenti al 15° Colpo :
Casi Vincenti al 16° Colpo : 1
Casi Vincenti al 17° Colpo :
Casi Vincenti al 18° Colpo :
Casi Vincenti al 19° Colpo : 2
Casi Vincenti al 20° Colpo :
Casi Vincenti al 21° Colpo :
Casi Vincenti al 22° Colpo :
Casi Vincenti al 23° Colpo :
Casi Vincenti al 24° Colpo :
Casi Vincenti al 25° Colpo :
Casi Vincenti al 26° Colpo :
Casi Vincenti al 27° Colpo : 1
Casi Vincenti al 28° Colpo :
Casi Vincenti al 29° Colpo :
Casi Vincenti al 30° Colpo : 1
Casi Vincenti al 31° Colpo : 1
Casi Vincenti al 32° Colpo :
Casi Vincenti al 33° Colpo :
Casi Vincenti al 34° Colpo :
Casi Vincenti al 35° Colpo :
Casi Vincenti al 36° Colpo :
Casi Vincenti al 37° Colpo :
Casi Vincenti al 38° Colpo :
Casi Vincenti al 39° Colpo :
Casi Vincenti al 40° Colpo :
Casi Vincenti al 41° Colpo :
Casi Vincenti al 42° Colpo :
Casi Vincenti al 43° Colpo :
Casi Vincenti al 44° Colpo :
Casi Vincenti al 45° Colpo :
Casi Vincenti al 46° Colpo :
Casi Vincenti al 47° Colpo :
Casi Vincenti al 48° Colpo :
Casi Vincenti al 49° Colpo :
Casi Vincenti al 50° Colpo : 1
Casi Vincenti al 51° Colpo :
Casi Vincenti al 52° Colpo :
Casi Vincenti al 53° Colpo :
Casi Vincenti al 54° Colpo :
Casi Vincenti al 55° Colpo :
Casi Vincenti al 56° Colpo :
Casi Vincenti al 57° Colpo :
Casi Vincenti al 58° Colpo :
Casi Vincenti al 59° Colpo :
Casi Vincenti al 60° Colpo :
Casi Vincenti al 61° Colpo :
Casi Vincenti al 62° Colpo :
Casi Vincenti al 63° Colpo :
Casi Vincenti al 64° Colpo :
Casi Vincenti al 65° Colpo :
Casi Vincenti al 66° Colpo :
Casi Vincenti al 67° Colpo :
Casi Vincenti al 68° Colpo :
Casi Vincenti al 69° Colpo :
Casi Vincenti al 70° Colpo :
Casi Vincenti al 71° Colpo :
Casi Vincenti al 72° Colpo :
Casi Vincenti al 73° Colpo :
Casi Vincenti al 74° Colpo :
Casi Vincenti al 75° Colpo :
Casi Vincenti al 76° Colpo :
Casi Vincenti al 77° Colpo :
Casi Vincenti al 78° Colpo :
Casi Vincenti al 79° Colpo :
Casi Vincenti al 80° Colpo :
Casi Vincenti al 81° Colpo :
Casi Vincenti al 82° Colpo :
Casi Vincenti al 83° Colpo :
Casi Vincenti al 84° Colpo :
Casi Vincenti al 85° Colpo :
Casi Vincenti al 86° Colpo :
Casi Vincenti al 87° Colpo :
Casi Vincenti al 88° Colpo :
Casi Vincenti al 89° Colpo :
Casi Vincenti al 90° Colpo :
Casi Vincenti al 91° Colpo :
Casi Vincenti al 92° Colpo :
Casi Vincenti al 93° Colpo :
Casi Vincenti al 94° Colpo :
Casi Vincenti al 95° Colpo :
Casi Vincenti al 96° Colpo :
Casi Vincenti al 97° Colpo :
Casi Vincenti al 98° Colpo :
Casi Vincenti al 99° Colpo :
Casi Vincenti al 100° Colpo :
Casi Vincenti al 101° Colpo

20 replies since 7/3/2019, 09:20 704 views