lunghette forse interessanti da filtrare ulteriormente insieme...

[Joe91]

Forse x le settine non dovresti considerare quelle con meno di 45 a tutte.

Comunque 17 25 28 29 38 55 62 ha un ritardo a TUTTE di 44.

Quindi per 2 ruote rende bassi (molto bassi) i tuoi risultati.

Ad esempio 6.21.26.42.60.70.71 a Firenze e Napoli unite

arrivano a 267 estrazioni di ritardo per Ambo.

 

[skygirl]

Ciao a tutti, sul forum esiste uno script che mi restituisca, dopo aver scelto un tot di numeri da me scelti, il ritardo che quella lunghetta da me scelta ha in quel momento? mi sarebbe utile uno script per poter inserire i numeri delle formazioni presenti nel 3D "8.ina studio" e vedere che ritardo hanno quelle lunghette.
Scusate se inserisco la richiesta qui, ma era attinente con l'argomento ritardo delle lunghette



Beppignello sicuramente mi son spiegata male, la mia domanda era intorno a che ritardo mediamente si sfaldano le 7.ine e le 6.ine e le 8.ine?

ho visto le 7.ine intorno al 0047 come ritardo tendono a sfaldarsi, mentre le 6.ine intorno a 0067 come ritardo però ripeto la mia è un'analisi molto superficiale per cui chiedevo a voi conferme

thanks

 

[lotto_tom75]

ciao skygirl

io ottengo queste lunghette con 7 numeri

Lunghette con ritardo minimo 35 Sviluppate in classe = 7 Per la sorte di..2
da rilevazione sulle Ruote ..Tutte 9143 / 05.04.2016
Nelle 10 ruote--unite dal 1945 ad oggi:
080 Estrazioni per 6 numeri. Registrato il 02/01/1971
103 Estrazioni per 5 numeri. Registrato il 02/01/1971
155 Estrazioni per 4 numeri. Registrato il 06/12/1969
288 Estrazioni per 3 numeri. Registrato il 14/12/2002
630 Estrazioni per 2 numeri. Registrato il 29/12/1984
Ritardo Combinazione Lunghetta
0044...... ....43.53.60.67.73.82.88
0039...... ....24.41.47.53.54.71.82
0038...... ....28.38.39.41.55.60.88
0037...... ....23.28.39.41.55.60.88
0036...... ....43.53.60.63.67.82.83




quando non esce nulla è perché il ritardo della lunghetta è minore di 35, questo ritardo è preimpostato come ritardo minimo. è stampato in alto all'output.

quindi probabilmente alla data che hai richiesto la situazione non c'erano lunghette con ritardo superiore a 35.

---------------------------------

ciao joe91

vedo che lavori sulle lunghette che hanno ra >= rx su alcune ruote.
e non tanto sul ritardo attuale.

era una delle osservazioni che avevo fatto nell'altro post, perché controllando nei sistemi della jolla ed altri, elaborandoli ho visto che non raggiungono mai come ritardo max storico, valori alti come nelle
ricerche proposte da Nikor.(Quasi fossero delle lunghette interne ai sistemi più ordinate ed armoniose di molte altre) .

ciò nonostante, per un gioco eventuale a ruota, o per una ricerca più mirata, penso sia un modo giusto
di offrire all'utente, queste informazioni precise che hai fornito.

Concordo al 1000% con l'ultima cosa che hai detto beppe
E in questo credo aiuti molto lo script che analizza l'incmax
Per il resto... attendo quando e se riesci a risolvere anche il discorso analisi per E con il tuo script superveloce per il quale ti rinnovo i complimenti!

 

[Beppignello]

ciao lottotom

per la sorte dell'estratto, con lunghe da 10 numeri, su ruota o su tutte mi sembra a prima vista esagerato, comunque spero che
lo script non vada in errore, da qualche parte, perché si può passare da ritardo 0 a ritardo alto in funzione di quanti numeri e di quante ruote
uno sceglie.

appena posso o fine settimana.

 

[skygirl]

io allego le img dei dati analizzati con lo script di Beppignello

Uscito ambo 88.67 MI la 7.ina aveva ritardo 0044
si può notare che l'ambo era presente nel riepilogo derivante dallo script di Beppignello

 

[i legend]

Ciao tom
Buon lavoro a tutti

 

[Joe91]

x chi ha voglia di controllare :

13.14.40.46.48.49.53.56.57.72 per Ambo ...SOLO x Palermo e Torino.

A Roma & Nazionale SOLO terzi determinati.

Risultato :
Estrazione generatrice del pronostico 09143 [ 41 - 05/04/2016]
G 0001 Numeri in gioco : 13.14.40.46.48.49.53.56.57.72 su PA TO per Ambo
N. [13.14.40.46.48.49.53.56.57.72 ] [PA] [.. .. .. .. ..] C. 1 09144 [ 42 - 07/04/2016]
N. [13.14.40.46.48.49.53.56.57.72 ] [TO] [.. .. .. .. ..] C. 1 09144 [ 42 - 07/04/2016]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 13.14.40.46.48.49.53.56.57.72 su RO NZ per ED3
N. [13.14.40.46.48.49.53.56.57.72 ] [RO] [.. .. .. .. ..] C. 1 09144 [ 42 - 07/04/2016]
V N. [13.14.40.46.48.49.53.56.57.72 ] [NZ] [.. .. 49 72 ..] C. 1 Ambo 09144 [ 42 - 07/04/2016]
Interrotta per raggiunta durata

Chiusa a colpo con la caduta dell' Estratto Determinato (+ Ambo) .

 

[Beppignello]

riposto lo script

premessa:

le combinazioni(Lunghette) che vengono esposte generalmente per ambo, riportano ora anche i ritardo Minimo e Massimo per la sorte dell'Estratto.

avviene in modo automatico, perché oltre ai dati precedenti riguardanti l'ambo e la combinazione, ora viene messo Rmin Rmax Estratti

non serve specificare la sorte per l'estratto.

Ho ragionato nella preparazione delle modifiche, che oltre a sapere la combinazione ed il ritardo per ambo, è utile sapere la stessa combinazione quanto ritarda per estratto, per capire se può essere prossima a fornire in uscita qualche estratto.

4 Ruote 1 - 3 - 5 - 6
Lunghette con ritardo minimo 200 Sviluppate in classe = 4 Per la sorte di..2
da rilevazione sulle Ruote ..Bari : Firenze : Milano : Napoli : 9144 / 07.04.2016
Nelle 10 ruote--unite dal 1945 ad oggi:
080 Estrazioni per 6 numeri. Registrato il 02/01/1971
103 Estrazioni per 5 numeri. Registrato il 02/01/1971
155 Estrazioni per 4 numeri. Registrato il 06/12/1969
288 Estrazioni per 3 numeri. Registrato il 14/12/2002
630 Estrazioni per 2 numeri. Registrato il 29/12/1984
Ritardo Rmin Rmax Estratti Combinazione Lunghetta
0287...... ....000 / 008...........8.14.31.70
0269...... ....000 / 007...........51.77.85.89
0253...... ....001 / 009...........16.21.49.51
0246...... ....001 / 010...........21.31.70.82
0241...... ....000 / 010...........8.24.26.60
0234...... ....000 / 010...........38.51.52.77
0233...... ....000 / 009...........23.41.60.79
0232...... ....000 / 007...........14.22.37.70
0227...... ....000 / 009...........16.51.52.77
0217...... ....000 / 009...........5.6.35.71
0214...... ....001 / 011...........24.26.41.60
0211...... ....002 / 011...........48.70.72.87
0210...... ....001 / 008...........21.33.51.71
0209...... ....000 / 008...........12.28.65.78
0206...... ....001 / 008...........21.31.49.51
0203...... ....001 / 012...........16.21.51.59
0202...... ....000 / 009...........22.55.59.73
0201...... ....003 / 007...........14.28.37.70


questo è un esempio casuale fatto.

si può notare che l'ultima combinazione 14 28 37 70 sulle 4 ruote nei prossimi 4 colpi dovrebbe fornire almeno 1 estratto.

considerazione : è chiaro che 4 ruote sono molte, ma tutto dipende dalla ricerca che stiamo facendo, a livello personale.

Option Explicit
Sub Main
                ''''''' variante e modifica   B E P P I G N E L L O
                Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
                Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,nomi,pres,freq,f,piuruote,ritmin,ritardomax
                Dim numeri(90),maxnumero(90),ruote(11),comb(9999,2),minim(90,90)
                '''''input
                finale = InputBox("Estrazione n.",,EstrazioneFin)
                Do While numericercati = 0
                               numericercati = CInt(InputBox("Lunghetta di n.",,7))
                               If numericercati >= 12 Then
                                               MsgBox("Max possibile Undicina ")
                                               numericercati = 0
                               Else
                                               Exit Do
                               End If
                Loop
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                '''''10 ruote
                Dim t,ed
                ReDim aruote(11)
                nomi = ""
                Do While t = 0
                               t = ScegliRuote(aruote)
                               If t >= 5 Then
                                               MsgBox("Max possibile 4 Ruote  ")
                                               t = 0
                               Else
                                               Exit Do
                               End If
                Loop
                If Int(aruote(1)) = 11 Then
                               aruote(1) = 11
                               nomi = NomeRuota(aruote(1))
                Else
                               For ed = 1 To t
                                               nomi = nomi & NomeRuota(aruote(ed)) & " : "
                               Next
                End If
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                Do While s = 0
                               s = CInt(InputBox("Sorte lunghetta ",,2))
                               If s > 0 Then
                                               If s = 1 And numericercati > 5 Then
                                                               MsgBox("Max 5 numeri x sorte Estratto ")
                                                               s = 0
                                               End If
                                               If s = 1 And t > 4 Then
                                                               MsgBox("Max 3 Ruote x sorte Estratto ")
                                                               s = 0
                                               End If
                               Else
                                               Exit Do
                               End If
                Loop
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                Scrivi t & "   Ruote  " & StringaNumeri(aruote," - ")
                If Int(aruote(1)) = 11 Then
                               If s = 2 Then
                                               rmin = "0.0.230.135.80.60.45.35.30.25.25.20.17.13"
                               Else
                                               rmin = "0.0.200.140.75.65.45.40.38.35.24.23.20.16"
                               End If
                               ReDim maxmax(13)
                               Call SplitByChar(rmin,".",maxmax)
                End If
                If Int(aruote(1)) <> 11 Then
                               If s = 3 Then
                                               If t > 0 And t < 5 Then
                                                               rmin = "0.0.0.150.150.90.90.90.90.90.90.70.70.70"
                                               End If
                               End If
                               If s = 2 Then
                                               If t > 0 And t < 5 Then
                                                               rmin = "0.0.550.300.200.150.140.130.70.60.50.50.25.15"
                                               End If
                               End If
                               If s = 1 Then
                                               If t > 0 And t <= 4 Then
                                                               rmin = "0.0.15.8.5.5.1.1.0.0.0.0.0.0"
                                               End If
                               End If
                               ReDim maxmax(13)
                               Call SplitByChar(rmin,".",maxmax)
                End If
                Inizio = TimeValue(Time)
                ''''''''numeri
                For i = 1 To numericercati
                               maxnumero(i) = 90 + i - numericercati
                Next
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                ''''
                ReDim nr(3) 'memorizza il ritardo minimo dei 4005 ambi sulle ruote individuate
                For ia = 1 To 89
                               For j =(ia + 1) To 90
                                               nr(1) = ia : nr(2) = j
                                               minim(ia,j) = RitardoCombinazioneTurbo(aruote,nr,2,finale,,,3950)
                                               xt = xt + 1
                                               Messaggio(xt & "  -  " & numericercati)
                               Next
                Next
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                n = 1
                numeri(n) = 1
                'inizia la ricerca dei numeri
                Do
                               fine = 1
                               n = n + 1
                               numeri(n) = numeri(n - 1) + 1
                               xl = xl + 1
                               Messaggio("Attendere,Fino a 11 numeri(tempi 1 minuti circa,oltre durata 'n ore').." & xl)
                               '               Call AvanzamentoElab(1,99,xl)
                               If ScriptInterrotto Then Exit Do
                               Do
                                               If ScriptInterrotto Then Exit Do
                                               If numeri(n) > maxnumero(n) Then
                                                               Do
                                                                              n = n - 1
                                                                              If n = 0 Then
                                                                                              fine = 0
                                                                                              Exit Do
                                                                              End If
                                                                              numeri(n) = numeri(n) + 1
                                                                              If ScriptInterrotto Then Exit Do
                                                               Loop Until numeri(n) <= maxnumero(n)
                                                               '''''
                                               End If
                                               ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                               ''''' per la sorte delL'AMBO valorizza ritardo ed esclude lunghetta se il ritardo minore del minimo
                                               If n > 1 Then
                                                               fineciclo = 1
                                                               AmbiRitardovalido = 0
                                                               For jk = 1 To(n - 1)
                                                                              ritardoattuale = minim(numeri(jk),numeri(n))
                                                                              If Int(ritardoattuale) < Int(maxmax(numericercati)) Then
                                                                                              Exit For
                                                                              Else
                                                                                              AmbiRitardovalido = AmbiRitardovalido + 1
                                                                              End If
                                                               Next
                                                               If AmbiRitardovalido =(n - 1) Then
                                                                              If n = numericercati Then
                                                                                              ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                                                                              ''''''trova per i 2 capogiochi i primi ambi ritardatari
                                                                                              If s = 2 And numericercati = 2 Then
                                                                                                              Iniz = EstrazioneIni
                                                                                                              Ini = finale
                                                                                                              Primirit = "   | "
                                                                                                              For pj = 1 To 2
                                                                                                                             ReDim rita(90,2)
                                                                                                                             For n2 = 1 To 90
                                                                                                                                             If Int(numeri(pj)) <> Int(n2) Then
                                                                                                                                                             nr(1) = numeri(pj) : nr(2) = n2
                                                                                                                                                             rt = RitardoCombinazioneTurbo(aruote,nr,s,finale,,,3950)
                                                                                                                                                             rita(n2,1) = FormattaStringa(rt,"0000")
                                                                                                                                                             rita(n2,2) = n2
                                                                                                                                             End If
                                                                                                                             Next
                                                                                                                             Call OrdinaMatrice(rita,- 1,1)
                                                                                                                             For o = 1 To 6
                                                                                                                                             If rita(o,1) <> "" Then
                                                                                                                                                             Primirit = Primirit & rita(o,1) & "-"
                                                                                                                                             End If
                                                                                                                             Next
                                                                                                                             Primirit = Primirit & "   |"
                                                                                                              Next
                                                                                              End If
                                                                                              ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                                                                              '''''calcola ritardo lunghetta
                                                                                              Call StatisticaFormazioneTurbo(numeri,aruote,1,ritmin,ritardomax,,,3950,finale)
                                                                                              retrit = RitardoCombinazioneTurbo(aruote,numeri,s,finale,,,3950)
                                                                                              If retrit > Int(maxmax(numericercati)) Then
                                                                                                              cz = cz + 1
                                                                                                              comb(retrit,1) = FormattaStringa(retrit,"0000") & "......     ...." &  FormattaStringa(ritmin,"000") & " / " & FormattaStringa(ritardomax,"000") & "..........." & StringaNumeri(numeri,".")
                                                                                                              comb(retrit,2) = retrit
                                                                                              End If
                                                                                              numeri(n) = numeri(n) + 1
                                                                              Else
                                                                                              fineciclo = 0
                                                                              End If
                                                               Else
                                                                              numeri(n) = numeri(n) + 1
                                                                              fineciclo = 1
                                                               End If
                                               Else
                                                               fineciclo = 0
                                               End If
                                               ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                               If fine = 0 Then Exit Do End If
                               Loop Until fineciclo = 0
                Loop Until fine = 0
                ColoreTesto(2)
                Scrivi "Lunghette con ritardo minimo " & maxmax(numericercati) & "    Sviluppate in classe = " & numericercati & "    Per la sorte di.." & s,1
                Scrivi "da rilevazione sulle Ruote .." & nomi & "    " & finale & " / " & DataEstrazione(finale),1
                ColoreTesto(1)
                Scrivi "Nelle 10 ruote--unite dal 1945 ad oggi:"
                Scrivi " 080 Estrazioni per 6 numeri. Registrato il 02/01/1971"
                Scrivi " 103 Estrazioni per 5 numeri. Registrato il 02/01/1971"
                Scrivi " 155 Estrazioni per 4 numeri. Registrato il 06/12/1969"
                Scrivi " 288 Estrazioni per 3 numeri. Registrato il 14/12/2002"
                Scrivi " 630 Estrazioni per 2 numeri. Registrato il 29/12/1984"
                ColoreTesto(0)
                If numericercati = 2 Then Scrivi "Ritardo           Rmin  Rmax Estratti   Combinazione Lunghetta ",1
                If numericercati <> 2 Then Scrivi "Ritardo          Rmin  Rmax Estratti   Combinazione Lunghetta ",1
                Call         OrdinaMatrice(comb,- 1,2)
                ColoreTesto(0)
                If cz = 0 Then
                               Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
                Else
                               For v = 1 To 30
                                               Scrivi comb(v,1)
                               Next
                End If
                Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
                ColoreTesto(2)
                Scrivi "Tempo elaborazione.." & Inizio & "  :  " & TimeValue(Time),1
End Sub

 

[Beppignello]

Ricordo che lo script, quando si protrae per parecchio tempo, in quanto abbiamo avviato una elaborazione di lunghetta con tanti numeri, si può interrompere pigiando STOP, in qualsiasi momento proporrà ciò che ha elaborato fino a quel momento.

fatemi sapere se funziona più o meno correttamente.

prossimamente metterò qualche informazione nuova suggerita da Joe91



ciao

 

[lotto_tom75]

Ciao tom
Buon lavoro a tutti

Ciao grandissimo!!!

 

[lotto_tom75]

Ricordo che lo script, quando si protrae per parecchio tempo, in quanto abbiamo avviato una elaborazione di lunghetta con tanti numeri, si può interrompere pigiando STOP, in qualsiasi momento proporrà ciò che ha elaborato fino a quel momento.

fatemi sapere se funziona più o meno correttamente.

prossimamente metterò qualche informazione nuova suggerita da Joe91



ciao

Ciao grande beppe! Innanzitutto buona domenica inoltrata... poi ti devo dire che ho provato il tuo fantastico script e adesso non da più errore nemmeno se si mette sorte di E solo che i tempi si allungano in modo sostanziale rispetto a quando si ricerca per A o superiori... Ad ogni modo io ho provato ad implementarvi anche la tabella "colorata" per potervi immettere gruppi numerici di partenza voluti anzichè sempre e solo tutti i 90 ma purtroppo non vi sono evidentemente riuscito visto che nonostante il programma non segnali errori continua imperterrito a valutare tutti i 90 anzichè il gruppo ristretto immesso.

Ti allego il pezzo di codice con il quale speravo si potesse implementare questa nuova piccola funzionalità al fine di poter provare ad inserirlo tu in modo più funzionale.

Grazie grandissimo!

Option Explicit
Sub Main
''''''' variante e modifica   B E P P I G N E L L O
Dim numericercati,n,i,fine,fineciclo,xl,s,finale,retrit,retritmax,r,ct,w,rmin,j,jk,ia,k,xt,AmbiRitardovalido,ritardoattuale,rminn,cz,v
Dim RetIncrRitMax,RetFre,Inizio,Iniz,Ini,pj,n2,rt,o,Primirit,nomi,pres,freq,f,piuruote,ritmin,ritardomax
Dim maxnumero(90),ruote(11),comb(9999,2),minim(90,90)

'Dim numeri(90)

'''''input


'PROVA INTEGRAZIONE TABELLA X IMMISSIONE numeri VOLUTI    
    
Dim quantitanumeriscelti
ReDim numeri(0)
quantitanumeriscelti = ScegliNumeri(numeri)

'FINE PROVA INTEGRAZIONE TABELLA...


finale = InputBox("Estrazione n.",,EstrazioneFin)

'....

Non ho capito una cosa beppe...

Facendo girare questo script x Q in 10ina su TUTTE dopo pochissimi minuti riporta questo:

1 Ruote 11 Lunghette con ritardo minimo 24 Sviluppate in classe = 10 Per la sorte di..4 da rilevazione sulle Ruote ..Tutte 9145 / 09.04.2016 Nelle 10 ruote--unite dal 1945 ad oggi: 080 Estrazioni per 6 numeri. Registrato il 02/01/1971 103 Estrazioni per 5 numeri. Registrato il 02/01/1971 155 Estrazioni per 4 numeri. Registrato il 06/12/1969 288 Estrazioni per 3 numeri. Registrato il 14/12/2002 630 Estrazioni per 2 numeri. Registrato il 29/12/1984


Lunghette con ritardo minimo 24 Sviluppate in classe = 10 Per la sorte di..4
da rilevazione sulle Ruote ..Tutte 9145 / 09.04.2016
Nelle 10 ruote--unite dal 1945 ad oggi:
080 Estrazioni per 6 numeri. Registrato il 02/01/1971
103 Estrazioni per 5 numeri. Registrato il 02/01/1971
155 Estrazioni per 4 numeri. Registrato il 06/12/1969
288 Estrazioni per 3 numeri. Registrato il 14/12/2002
630 Estrazioni per 2 numeri. Registrato il 29/12/1984
Ritardo Rmin Rmax Estratti Combinazione Lunghetta
1272...... ....000 / 001...........9.29.33.62.66.73.77.80.82.88
0959...... ....000 / 001...........2.16.27.30.38.39.41.50.64.88
0836...... ....000 / 001...........2.16.27.30.38.39.41.50.58.64


Ma se dall'altro tuo post nell'altro thread nella sezione download al momento al 10ina + in ritardo x Q su TUTTE sembrerebbe essere questa...

0037 7-8-15-25-26-38-49-71-82-90 ra 4538

lo script sopra a cosa si riferisce quando riporta come ultima decina xQ su TUTTE questa...

Ritardo Rmin Rmax Estratti Combinazione Lunghetta

1272...... ....000 / 001...........9.29.33.62.66.73.77.80.82.88


???


Grazie!

 

[Beppignello]

Ma se dall'altro tuo post nell'altro thread nella sezione download al momento al 10ina + in ritardo x Q su TUTTE sembrerebbe essere questa...

0037 7-8-15-25-26-38-49-71-82-90 ra 4538

lo script sopra a cosa si riferisce quando riporta come ultima decina xQ su TUTTE questa...

Ritardo Rmin Rmax Estratti Combinazione Lunghetta

1272...... ....000 / 001...........9.29.33.62.66.73.77.80.82.88


???

ciao
due sono i tipi di analisi e di ricerche completamente diversi tra loro:

1) è ricercare la lunghetta più ritardata, vedi sezione download, alla quale era in studio il procedimento o la metodologia di ricerca
da impostare per andare a scovarla
2) è quello che riescono a fare attualmente gli strumenti che avevamo a disposizione.

- statistica/suAmbi/ritardi lunghette per ambo
- script Denis-LuigiB ed eventualmente variante Beppignello
- script Random suggerito da Nikor

Tutte e 3 hanno impostato una metodologia inefficace e non combaciante tra loro.
in altre parole arrivano ad individuare le lunghette in ritardo fino ad un certo punto, sicuramente più basso del reale.

indipendentemente dalla sorte della lunghetta, che si richiede.


In attesa di vedere LuigiB, cosa ha trovato, come efficacia, e che cosa modificherà all'interno di spaziometria, con le idee nuove venute a galla nella sez.download.

ho pensato che lo script con modifica Beppignello, nato principalmente per la sorte dell'ambo

Vedendo in modo arretrato spaziometria e le lunghette che propone nella sez.statistica, realizza spesso oltre all'ambo in pochi colpi, 1,2,3,4 spesso escono anche terni e a volte quaterne

sulle lunghette che intercetta per la sorte dell'ambo, si perché spaziometria le lunghette che propone sono quelle in ritardo per l'ambo, ho fatto la medesima modifica.

posso impostare la sorte del terno e quaterna e vedere i ritardi delle lunghette per la sorte superiore ?

ecco dunque la risposta alla tua domanda in rosso sopra citata:

Lo script sopra a cosa si riferisce quando riporta come ultima decina x Q su Tutte?

la lunghetta 09 29 33 62 66 73 77 80 82 88 e tra le più ritardatarie per la sorte dell'ambo e per quaterna ritardata da 1272.
se ci fossero state più lunghette diverse avresti forse potuto fare distinzione tra loro dal ritardo..


Per una parzializzazione dei 90 numeri, se è per ricercare veramente la lunghetta più ritardataria, ti dico che non sarà possibile, perché escludendo qualche numero, viene a mancare il presupposto base

 

[Beppignello]

Se invece vuoi avere una indagine tabellata di una lunghetta con dei dati che ritieni opportuni, del tipo , script TomSky, quello che ho postato
per skygirl, dove riporta tutta una serie di dati o quello che tabella sulla medesima riga, la situazione ritardi della lunghetta per ogni ruota da BA-NZ, allora tutto è possibile e fattibile, basta sapere quali dati privilegi nelle tue scelte e che vorresti avere a disposizione.

Numeri richiesti o inseriti.............07.08.15.25.26.38.49.71.82.90
1° corda Misurazione Ritardo............30 39 15 19 26 41 11 13 07 31
2° corda Misurazione Presenze...........00 00 02 00 00 00 01 01 02 00
Sviluppo della combinazione in classe...4 Comb.di Numeri 4
Ritardi calcola per la sorte di.........2 Ambo
Presenze Periodo dal......al............1/08.01.1871 - 9148/16.04.2016
Per Estratti Determinati Ruota Tutte ...SI
Ordinamento riepilogo per colonna n.....3
------b-y---R-u-b-i-n-o- Mod --B-e-p-p-i-g-n-e-l-l-o----

N u m e r i	Ruota	R.Corr	R.Stor	IncrCr	Freq	Tot.Rp.	Rp1	Rp2	Rp3	Rp4	Rp5	Rp6	Rp7	Rp8	Rp9	Rp10	Rp11	Rp12	Rp13	Rp14	Rp15	P r e s e n z e	R i t a r d i	Ed1	Ed2	Ed3	Ed4	Ed5
07 15 26 71	FI	394	394	104	74	8	122	11	174	63	85	13	22	49	127	75	12	81	41	6	290	02 01	30 15 26 13	16	26	13	19	15
07 26 38 71	FI	394	394	97	63	8	124	9	174	63	99	22	174	2	81	88	48	40	27	124	51	01	30 26 41 13	63	26	13	19	30
07 15 26 49	FI	376	376	89	61	8	17	122	2	183	36	112	13	177	22	75	12	40	82	287	9	02 01	30 15 26 11	16	11	18	21	15
15 26 49 90	FI	313	313	26	62	11	157	11	36	140	119	42	19	9	140	0	49	6	56	0	33	02 01	15 26 11 31	16	11	18	21	15
15 26 71 90	FI	280	280	25	73	10	202	45	131	106	20	34	19	9	86	53	73	40	0	30	2	02 01	15 26 13 31	16	26	13	19	15
08 26 71 82	FI	277	277	83	93	9	1	0	45	70	16	39	74	158	79	175	4	66	29	95	35	01 02	39 26 13 07	15	24	7	19	39
07 08 15 71	FI	277	277	41	82	8	2	236	200	135	36	49	78	48	72	15	123	55	9	230	0	02 01	30 39 15 13	16	57	13	19	15
08 15 26 71	FI	277	277	37	77	6	2	116	131	158	79	85	86	7	70	25	22	72	2	94	2	02 01	39 15 26 13	16	26	13	19	15
08 26 49 82	FI	250	250	17	77	10	28	46	70	16	39	233	102	6	7	142	66	29	115	15	52	01 02	39 26 11 07	15	11	7	20	39

 

[Beppignello]

se vuoi provare questo, fammi sapere

Option Explicit
Sub Main
 Dim aruote,aCol,r,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,min,aRetRitardi,aRetIdEstr,nrt,y,ct,tt,la,ki,yy,rae,re,j
 Dim clsSvil,nClasseSvil
 Dim i,ii,finale,nRuoteSel
 Set clsSvil = GetMotoreSviluppoIntegrale
 ReDim anumeri(90),comb(2600000,2)
 ScegliNumeri(anumeri)
 nClasseSvil = CInt(InputBox("Sviluppo in Classe ",,10))
 nRuoteSel = SelRuote(aruote)
 s = CInt(InputBox("Sorte ",,2))
 min = CInt(InputBox("Ritardo Minimo richiesto..",,1))
 finale = InputBox("Situazione all..estrazione n.",,EstrazioneFin)
 Scrivi "Situazione aggiornata : " & finale & " / " & DataEstrazione(finale) & "             |SkyLottoTom|  ",1
 ColoreTesto(2)
 Scrivi "Numeri selezionati :    " & StringaNumeri(anumeri,"."),1
 ColoreTesto(1)
 nrt = ""
 For r = 1 To nRuoteSel
  Scrivi "Ruote Selezionate :" & NomeRuota(aruote(r)),1
  nrt = nrt & SiglaRuota(aruote(r)) & " - "
 Next
 Scrivi "--------------------------------------------------------------",1
 ColoreTesto(0)
 ReDim atitoli(33),avalori(33)
 ' preimposto i titoli delle colonne
 atitoli(1) = "N u m e r i"
 atitoli(2) = "Ruota"
 atitoli(3) = "R.Corr"
 atitoli(4) = "R.Stor"
 atitoli(5) = "IncrCr"
 atitoli(6) = "  Freq  "
 atitoli(7) = " "
 atitoli(8) = "Rp1"
 atitoli(9) = "Rp2"
 atitoli(10) = "Rp3"
 atitoli(11) = "Rp4"
 atitoli(12) = "Rp5"
 atitoli(13) = "Rp6"
 atitoli(14) = "Rp7"
 atitoli(15) = "Rp8"
 atitoli(16) = "Rp9"
 atitoli(17) = "Rp10"
 atitoli(18) = "Rp11"
 atitoli(19) = "Rp12"
 atitoli(20) = "Rp13"
 atitoli(21) = "Rp14"
 atitoli(22) = "Rp15"
 atitoli(25) = " Ed1"
 atitoli(26) = " Ed2"
 atitoli(27) = " Ed3"
 atitoli(28) = " Ed4"
 atitoli(29) = " Ed5"
 atitoli(30) = " RaE"
 atitoli(31) = " ERp1"
 atitoli(32) = " ERp2"
 atitoli(33) = " ERp3"
 ' ' inizializzo la tabella
 SetTableWidth("95%")
 Call InitTabella(atitoli,2,"center",1.45,5,"CAMBRIA")
 Call clsSvil.InitSviluppoIntegrale(anumeri,nClasseSvil)
 Do While clsSvil.GetCombSviluppo(aCol)
  ii = ii + 1
  Messaggio(ii & "    " & i)
  Call StatisticaFormazioneTurbo(aCol,aruote,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,3950,finale)
  i = i + 1
  comb(i,1) = RetRit
  comb(i,2) = StringaNumeri(aCol," ")
  ''''''''''''''''''''''''''''''''''''''
  '  Scrivi FormattaStringa(i,"00000") & "  .....    " & StringaNumeri(aCol," ") & "......" & RetRit & " / " & RetRitMax
  ''''''''''''''''''''''''''''''''''''''
  Call ElencoRitardi(aCol,aruote,s,3950,finale,aRetRitardi,aRetIdEstr)
  y = UBound(aRetRitardi)
  ct = ct + 1
  avalori(1) = StringaNumeri(aCol,".")
  avalori(2) = nrt
  avalori(3) = RetRit
  avalori(4) = RetRitMax
  avalori(5) = RetIncrRitMax
  avalori(6) = RetFre
  If y >= 2 Then
   avalori(8) = aRetRitardi(y - 1)
  Else
   avalori(8) = 0
  End If
  If y >= 3 Then
   avalori(9) = aRetRitardi(y - 2)
  Else
   avalori(9) = 0
  End If
  If y >= 4 Then
   avalori(10) = aRetRitardi(y - 3)
  Else
   avalori(10) = 0
  End If
  If y >= 5 Then
   avalori(11) = aRetRitardi(y - 4)
  Else
   avalori(11) = 0
  End If
  If y >= 6 Then
   avalori(12) = aRetRitardi(y - 5)
  Else
   avalori(12) = 0
  End If
  If y >= 7 Then
   avalori(13) = aRetRitardi(y - 6)
  Else
   avalori(13) = 0
  End If
  If y >= 8 Then
   avalori(14) = aRetRitardi(y - 7)
  Else
   avalori(14) = 0
  End If
  If y >= 9 Then
   avalori(15) = aRetRitardi(y - 8)
  Else
   avalori(15) = 0
  End If
  If y >= 10 Then
   avalori(16) = aRetRitardi(y - 9)
  Else
   avalori(16) = 0
  End If
  If y >= 11 Then
   avalori(17) = aRetRitardi(y - 10)
  Else
   avalori(17) = 0
  End If
  If y >= 12 Then
   avalori(18) = aRetRitardi(y - 11)
  Else
   avalori(18) = 0
  End If
  If y >= 13 Then
   avalori(19) = aRetRitardi(y - 12)
  Else
   avalori(19) = 0
  End If
  If y >= 14 Then
   avalori(20) = aRetRitardi(y - 13)
  Else
   avalori(20) = 0
  End If
  If y >= 15 Then
   avalori(21) = aRetRitardi(y - 14)
  Else
   avalori(21) = 0
  End If
  If y >= 16 Then
   avalori(22) = aRetRitardi(y - 15)
  Else
   avalori(22) = 0
  End If
  '''''------------------------------------------------------------------------------------------
  ''''calcola ritardo estr.determinato nelle 5 posizioni
  avalori(25) = ""
  avalori(26) = ""
  avalori(27) = ""
  avalori(28) = ""
  avalori(29) = ""
  ReDim ed(5)
  For ki = 1 To 5
   ed(ki) = 9999
  Next
  For ki = 1 To 5
   ReDim aPos(5)
   aPos(ki) = True
   re = RitardoCombinazioneTurbo(aruote,aCol,1,finale,aPos,,3950)
   If re > 0 Then
    If re < Int(ed(ki)) Then
     ed(ki) = re
    End If
   Else
    If re = 0 Then
     ed(ki) = 0
    End If
   End If
   aPos(ki) = False
  Next
  avalori(25) = ed(1)
  avalori(26) = ed(2)
  avalori(27) = ed(3)
  avalori(28) = ed(4)
  avalori(29) = ed(5)
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  ''''''''ultimi 3 ritardi per estratto
  rae = RitardoCombinazioneTurbo(aruote,aCol,1,finale,,,3950)
  avalori(30) = rae
  Call ElencoRitardi(aCol,aruote,1,3950,finale,aRetRitardi,aRetIdEstr)
  y = UBound(aRetRitardi)
  avalori(31) = aRetRitardi(y - 1)
  avalori(32) = aRetRitardi(y - 2)
  avalori(33) = aRetRitardi(y - 3)
  '''''------------------------------------------------------------------------------------------
  Call AddRigaTabella(avalori,Bianco_,"center",1)
  Call SetColoreCella(2,RGB(254,249,180),vbBlack)
  Call SetColoreCella(3,RGB(238,213,111),vbBlue)
  Call SetColoreCella(7,RGB(53,2,204),vbBlue)
  Call SetColoreCella(23,RGB(53,2,204),vbBlue)
  Call SetColoreCella(24,RGB(53,2,204),vbBlue)
  Call SetColoreCella(30,RGB(255,205,155),vbBlue)
 Loop
 Scrivi "Totale combinazioni  " & i
 Call CreaTabella(3,,,500)
End Sub
Function SelRuote(aRuote)
 Dim t,k,bTutte
 bTutte = False
 t = ScegliRuote(aRuote)
 For k = 1 To t
  If aRuote(k) = TT_ Then
   bTutte = True
   Exit For
  End If
 Next
 If bTutte Then
  ReDim aRuote(10)
  For k = 1 To 10
   aRuote(k) = k
  Next
  SelRuote = 10
 Else
  SelRuote = t
 End If
End Function

 

[lotto_tom75]

se vuoi provare questo, fammi sapere

Option Explicit
Sub Main
Dim aruote,aCol,r,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,min,aRetRitardi,aRetIdEstr,nrt,y,ct,tt,la,ki,yy,rae,re,j
Dim clsSvil,nClasseSvil
Dim i,ii,finale,nRuoteSel
Set clsSvil = GetMotoreSviluppoIntegrale
ReDim anumeri(90),comb(2600000,2)
ScegliNumeri(anumeri)
nClasseSvil = CInt(InputBox("Sviluppo in Classe ",,10))
nRuoteSel = SelRuote(aruote)
s = CInt(InputBox("Sorte ",,2))
min = CInt(InputBox("Ritardo Minimo richiesto..",,1))
finale = InputBox("Situazione all..estrazione n.",,EstrazioneFin)
Scrivi "Situazione aggiornata : " & finale & " / " & DataEstrazione(finale) & " |SkyLottoTom| ",1
ColoreTesto(2)
Scrivi "Numeri selezionati : " & StringaNumeri(anumeri,"."),1
ColoreTesto(1)
nrt = ""
For r = 1 To nRuoteSel
Scrivi "Ruote Selezionate :" & NomeRuota(aruote(r)),1
nrt = nrt & SiglaRuota(aruote(r)) & " - "
Next
Scrivi "--------------------------------------------------------------",1
ColoreTesto(0)
ReDim atitoli(33),avalori(33)
' preimposto i titoli delle colonne
atitoli(1) = "N u m e r i"
atitoli(2) = "Ruota"
atitoli(3) = "R.Corr"
atitoli(4) = "R.Stor"
atitoli(5) = "IncrCr"
atitoli(6) = " Freq "
atitoli(7) = " "
atitoli(8) = "Rp1"
atitoli(9) = "Rp2"
atitoli(10) = "Rp3"
atitoli(11) = "Rp4"
atitoli(12) = "Rp5"
atitoli(13) = "Rp6"
atitoli(14) = "Rp7"
atitoli(15) = "Rp8"
atitoli(16) = "Rp9"
atitoli(17) = "Rp10"
atitoli(18) = "Rp11"
atitoli(19) = "Rp12"
atitoli(20) = "Rp13"
atitoli(21) = "Rp14"
atitoli(22) = "Rp15"
atitoli(25) = " Ed1"
atitoli(26) = " Ed2"
atitoli(27) = " Ed3"
atitoli(28) = " Ed4"
atitoli(29) = " Ed5"
atitoli(30) = " RaE"
atitoli(31) = " ERp1"
atitoli(32) = " ERp2"
atitoli(33) = " ERp3"
' ' inizializzo la tabella
SetTableWidth("95%")
Call InitTabella(atitoli,2,"center",1.45,5,"CAMBRIA")
Call clsSvil.InitSviluppoIntegrale(anumeri,nClasseSvil)
Do While clsSvil.GetCombSviluppo(aCol)
ii = ii + 1
Messaggio(ii & " " & i)
Call StatisticaFormazioneTurbo(aCol,aruote,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,3950,finale)
i = i + 1
comb(i,1) = RetRit
comb(i,2) = StringaNumeri(aCol," ")
''''''''''''''''''''''''''''''''''''''
' Scrivi FormattaStringa(i,"00000") & " ..... " & StringaNumeri(aCol," ") & "......" & RetRit & " / " & RetRitMax
''''''''''''''''''''''''''''''''''''''
Call ElencoRitardi(aCol,aruote,s,3950,finale,aRetRitardi,aRetIdEstr)
y = UBound(aRetRitardi)
ct = ct + 1
avalori(1) = StringaNumeri(aCol,".")
avalori(2) = nrt
avalori(3) = RetRit
avalori(4) = RetRitMax
avalori(5) = RetIncrRitMax
avalori(6) = RetFre
If y >= 2 Then
avalori(8) = aRetRitardi(y - 1)
Else
avalori(8) = 0
End If
If y >= 3 Then
avalori(9) = aRetRitardi(y - 2)
Else
avalori(9) = 0
End If
If y >= 4 Then
avalori(10) = aRetRitardi(y - 3)
Else
avalori(10) = 0
End If
If y >= 5 Then
avalori(11) = aRetRitardi(y - 4)
Else
avalori(11) = 0
End If
If y >= 6 Then
avalori(12) = aRetRitardi(y - 5)
Else
avalori(12) = 0
End If
If y >= 7 Then
avalori(13) = aRetRitardi(y - 6)
Else
avalori(13) = 0
End If
If y >= 8 Then
avalori(14) = aRetRitardi(y - 7)
Else
avalori(14) = 0
End If
If y >= 9 Then
avalori(15) = aRetRitardi(y - 8)
Else
avalori(15) = 0
End If
If y >= 10 Then
avalori(16) = aRetRitardi(y - 9)
Else
avalori(16) = 0
End If
If y >= 11 Then
avalori(17) = aRetRitardi(y - 10)
Else
avalori(17) = 0
End If
If y >= 12 Then
avalori(18) = aRetRitardi(y - 11)
Else
avalori(18) = 0
End If
If y >= 13 Then
avalori(19) = aRetRitardi(y - 12)
Else
avalori(19) = 0
End If
If y >= 14 Then
avalori(20) = aRetRitardi(y - 13)
Else
avalori(20) = 0
End If
If y >= 15 Then
avalori(21) = aRetRitardi(y - 14)
Else
avalori(21) = 0
End If
If y >= 16 Then
avalori(22) = aRetRitardi(y - 15)
Else
avalori(22) = 0
End If
'''''------------------------------------------------------------------------------------------
''''calcola ritardo estr.determinato nelle 5 posizioni
avalori(25) = ""
avalori(26) = ""
avalori(27) = ""
avalori(28) = ""
avalori(29) = ""
ReDim ed(5)
For ki = 1 To 5
ed(ki) = 9999
Next
For ki = 1 To 5
ReDim aPos(5)
aPos(ki) = True
re = RitardoCombinazioneTurbo(aruote,aCol,1,finale,aPos,,3950)
If re > 0 Then
If re < Int(ed(ki)) Then
ed(ki) = re
End If
Else
If re = 0 Then
ed(ki) = 0
End If
End If
aPos(ki) = False
Next
avalori(25) = ed(1)
avalori(26) = ed(2)
avalori(27) = ed(3)
avalori(28) = ed(4)
avalori(29) = ed(5)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''ultimi 3 ritardi per estratto
rae = RitardoCombinazioneTurbo(aruote,aCol,1,finale,,,3950)
avalori(30) = rae
Call ElencoRitardi(aCol,aruote,1,3950,finale,aRetRitardi,aRetIdEstr)
y = UBound(aRetRitardi)
avalori(31) = aRetRitardi(y - 1)
avalori(32) = aRetRitardi(y - 2)
avalori(33) = aRetRitardi(y - 3)
'''''------------------------------------------------------------------------------------------
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(2,RGB(254,249,180),vbBlack)
Call SetColoreCella(3,RGB(238,213,111),vbBlue)
Call SetColoreCella(7,RGB(53,2,204),vbBlue)
Call SetColoreCella(23,RGB(53,2,204),vbBlue)
Call SetColoreCella(24,RGB(53,2,204),vbBlue)
Call SetColoreCella(30,RGB(255,205,155),vbBlue)
Loop
Scrivi "Totale combinazioni " & i
Call CreaTabella(3,,,500)
End Sub
Function SelRuote(aRuote)
Dim t,k,bTutte
bTutte = False
t = ScegliRuote(aRuote)
For k = 1 To t
If aRuote(k) = TT_ Then
bTutte = True
Exit For
End If
Next
If bTutte Then
ReDim aRuote(10)
For k = 1 To 10
aRuote(k) = k
Next
SelRuote = 10
Else
SelRuote = t
End If
End Function

Ciao beppe dunque l'ho provato e devo dire che almeno nelle prime prove che ho fatto:

E' ottimo fino al momento di elaborare le analisi richieste perchè a quel punto anche se sembra parta speditissimo... mostrando due numeri di estrazioni progressive identiche che scorrono molto velocemente purtroppo i tempi non sono altrettanto brevi e non si può nemmeno interrompere per vedere a che ritardo sia giunto per impostarlo in ricerche successive come dato di partenza e velocizzare ulteriormente il tutto per tentativi. Ad ogni modo riesce senza errori a partire con le analisi per qualsiasi tipo di lunghetta e ruota voluta quindi risolti i problemi della mancata possibilità di fare un'interruzione "necessaria" e quello di velocizzare ulterioremente il tutto direi che ci sei quasi! Grande!

 

[Beppignello]

prova questo script, ed auguri per ridurre le grandi lunghette, i tempi più di così con lo script non si riescono a ridurre.

limiti di spaziometria e dello script.
tiene conto di 2.600.000 combinazioni in memoria nella matrice comb

il ritardo minimo è il dato più importante che devi gestire tu, più basso è più terrà buone le combinazioni e ti sicuro che su miliardi di combinazioni è facile raggiungere 2600000 valide

la sorte non aumenta il tempo di elaborazione, anzi più si sale terno,quaterna,cinquina, in teoria dovrebbe diminuire, rispetto alla richiesta per estratto e per ambo, che sono le più frequenti e probabili sorti.


ho messo l'interruzione e uscita dal programma

Option Explicit
Sub Main
                Dim aruote,aCol,r,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,min,aRetRitardi,aRetIdEstr,nrt,y,ct,tt,la,ki,yy,rae,re,j,a
                Dim clsSvil,nClasseSvil
                Dim i,ii,finale,nRuoteSel,leggi,u,uu,rix,rr,maxmax
                Set clsSvil = GetMotoreSviluppoIntegrale
                ReDim anumeri(90),comb(2600000,2)
                ScegliNumeri(anumeri)
                nClasseSvil = CInt(InputBox("Sviluppo in Classe ",,10))
                nRuoteSel = SelRuote(aruote)
                s = CInt(InputBox("Sorte  2,3,4,5, ",,2))
                min = CInt(InputBox("Ritardo Minimo richiesto..",,25))
                finale = InputBox("Situazione all..estrazione n.",,EstrazioneFin)
                Scrivi "Situazione aggiornata : " & finale & " / " & DataEstrazione(finale) & "             |LottoTomLunghetteSvil|  ",1
                ColoreTesto(2)
                Scrivi "Numeri selezionati :    " & StringaNumeri(anumeri,".") & "     Sviluppati in classe " & nClasseSvil,1
                Scrivi "Per la sorte..." & s & "      Ritardo Minimo Richiesto...." & min,1
                ColoreTesto(1)
                nrt = ""
                For r = 1 To nRuoteSel
                               Scrivi "Ruote Selezionate :" & NomeRuota(aruote(r)),1
                               nrt = nrt & SiglaRuota(aruote(r)) & " - "
                Next
                Scrivi "--------------------------------------------------------------",1
                ColoreTesto(0)
                Call clsSvil.InitSviluppoIntegrale(anumeri,nClasseSvil)
                Do While clsSvil.GetCombSviluppo(aCol)
                                ii = ii + 1
                               Messaggio(ii & "    " & i & "     Rmin.." & min)
                               If ScriptInterrotto Then Exit Do
                               '               Call StatisticaFormazioneTurbo(aCol,aruote,s,RetRit,RetRitMax,RetIncrRitMax,RetFre,3950,finale)
                               RetRit = RitardoCombinazioneTurbo(aruote,aCol,s,finale,,,3950)
                               If RetRit > Int(min) Then
                                               i = i + 1
                                               comb(i,1) = RetRit
                                               comb(i,2) = StringaNumeri(aCol," ")
                                               If RetRit > maxmax Then
                                               maxmax = RetRit
                                               End If
                                               ''''''''''''''''''''''''''''''''''''''
                               '''             Scrivi FormattaStringa(i,"00000") & "  .....    " & StringaNumeri(aCol," ") & "....Rit.." & RetRit & " / " & RetRitMax
                                               ''''''''''''''''''''''''''''''''''''''
                               End If
                Loop
                Scrivi "Totale combinazioni  " & i
                Scrivi "Ritardo MaxMax......." & maxmax,1
               
                Call OrdinaMatrice(comb,-1,1)
                For a = 1 To 100
                If Int(comb(a,1)) > 0 Then
                Scrivi FormattaStringa(comb(a,1),"00000") & "............" & comb(a,2)    
                End If
                Next
End Sub
Function SelRuote(aRuote)
                Dim t,k,bTutte
                bTutte = False
                t = ScegliRuote(aRuote)
                For k = 1 To t
                               If aRuote(k) = TT_ Then
                                               bTutte = True
                                               Exit For
                               End If
                Next
                If bTutte Then
                               ReDim aRuote(10)
                               For k = 1 To 10
                                               aRuote(k) = k
                               Next
                               SelRuote = 10
                Else
                               SelRuote = t
                End If
End Function

 

[lotto_tom75]

Testato e lo sto tuttora mettendo a dura prova... provando a rilevare la 10ina + in ritardo x Q su TUTTE partendo da un gruppo particolare ristretto rispetto i 90 (di 60 elementi) rilevato. Devo dire che per adesso anche per E fino alla 6ina su ruota unica è abbastanza veloce! Si parla di molto meno di un ora... A volte anche pochi minuti... Ottimo! Sei un grande! La cosa che ti chiedo però è perchè l'altro tuo script, da cui questo credo discenda..., con 90 numeri x Q in 10ina ci mette pochi minuti per mostrare l'output (anche se non assoluto...) e questo con meno numeri (es. 60) ci mette molto di più a parità di sorte e lunghetta ricercata? Mentre ti sto scrivendo sta già elaborando da ca 30 minuti... Detto questo.. ribadisco OTTIMO lavoro beppe! Grazie! Spettacolare

 

[Beppignello]

Se ti riferisci allo script che ho usato per rilevare la decina per sorte quaterna di cui risulto' ancora Vergine con 5190 concorsi dalla 3950, Non l'ho mai postato , perche' partiva con creazione lunghette
Random per poi ripassare il tutto con metodologia che e' spiegata nella sez. Download.
Ed è sulla falsa riga orrispondente a Nikor Che dice che opzione Random genera Lunghette molto diverse tra loro e quindi da ritenersi piu' veloci ed idonee per una elaborazione di alcuni miliardi di combinazioniintegeali o ridotto che sia.

C'erano comunque voluti 3 ore e mezzo per arrivare alla prima lunghetta Vergine.
E poi ho stoppato il programma perche a video metto il ritmin che si aggiorna al rialzo in modo che si veda

In altre parole ho creato almeno 6 7 script diversi per arrivare a quel risultato .

Quello nuovo che ha fatto oggi Luigi Mi sembra molto veloce fino alla decina, non ho ancora provato le lunghe superiori e sorti superiori all ambo.

Domani lo proverò

Ciao

 

[lotto_tom75]

Ok grazie beppignello per le tue delucidazioni .

In merito poi all'argomento del thread, ora mi risulterebbe questa decina particolarmente interessante (ovviamente non certa) per A su TUTTE (o meglio sulle prime 6 ruote) entro 3 colpi. 07-19-24-27-30-57-58-62-66-74. Io ho già una piccola teoria in fase di test per cercare di rilevare l'A + interessante tra i 45 generabili e anche per cercare di rintracciare le ruote + probabili ma prima di eventualmente condividerla mi piacerebbe sapere i vostri eventuali punti di vista al riguardo, se possibile, (senza quindi alcuna influenza in tal senso). Grazie

 

[Beppignello]

FI-TT 19 24 30 57 74


Tutte / Nz 07 19 27 30 x ambo