lotto_tom75
Advanced Premium Member
Beppignello;n1968166 ha scritto:
Si lo so intendevo lo script
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
lunghette forse interessanti da filtrare ulteriormente insieme...
- Creatore Discussione lotto_tom75
- Data di inizio
Si lo so intendevo lo script
B
Beppignello
Guest
il programma di spaziometria per le lunghette ad ambo ci impiega pochi secondi, ma si ferma ad un ritardo più basso
NA-TO riporta lunghette con il ritardo attuale max a 62
NA-TO riporta lunghette con il ritardo attuale max a 62
Codice:
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
Dim numeri(90),maxnumero(90),ruote(11),comb(9999,2),minim(90,90)
'''''input
finale = InputBox("Estrazione n.",,EstrazioneFin)
numericercati = CInt(InputBox("Lunghetta di n.",,10))
s = CInt(InputBox("Sorte lunghetta ",,2)) '''''' sorte 2 (ambo) 3 (Terno)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''10 ruote
Dim t,ed
ReDim aruote(10)
nomi = ""
t = ScegliRuote(aruote)
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
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' Scrivi t & " Ruote " & StringaNumeri(aruote," - ")
If Int(aruote(1)) = 11 Then
rmin = "0.0.200.140.75.65.45.40.38.35.24.23.20.17.15.15.12.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Else
rmin = "0.0.1075.600.500.450.250.200.180.140.134.123.100.90.80.75.60.58.55.55.55.55.55.55.55.55.55.55.55.55.55"
End If
Inizio = TimeValue(Time)
ReDim maxmax(30)
Call SplitByChar(rmin,".",maxmax)
''''''''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)
' minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
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,finale,,,3950)
' rt = AmboRitardoTurbo(11,numeri(pj),n2,Iniz,Ini)
rita(n2,1) = FormattaStringa(rt,"000")
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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call StatisticaFormazioneTurbo(numeri,aruote,s,retrit,retritmax,RetIncrRitMax,RetFre,EstrazioneIni,finale)
cz = cz + 1
comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & Format2(RetFre) & " " & Primirit
comb(cz,2) = StringaNumeri(numeri,".")
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 Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "Ritardo Freq. Combinazione Lunghetta ",1
Call OrdinaMatrice(comb,- 1,1)
ColoreTesto(0)
If cz = 0 Then
Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
Else
For v = 1 To cz
If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2),1
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & Inizio & " : " & TimeValue(Time),1
End Sub
Ultima modifica di un moderatore:
B
Beppignello
Guest
ciao skygirl
non so che parametri hai dato?
quante ruote hai scelto?
se Tutte, funziona regolarmente a me
se 2 ruote, anche
siccome attualmente lo script dovrebbe essere regolato nel ritardo minimo,
in queste 2 righe If Int(aruote(1)) = 11 Then
rmin = "0.0.200.140.75.65.45.40.38.35.24.23.20.17.15.15.12.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Else
rmin = "0.0.1075.600.500.450.250.200.180.140.134.123.100.90.80.75.60.58.55.55.55.55.55.55.55.55.55.55.55.55.55"
End If
su Tutte usa la prima riga del ritardo minimo che deve considerare, oppure per 2 ruote la riga sotto, che però dovrebbe essere
sistemata fino a trovare un bilanciamento che valga per tutte le coppie di ruote che un utente sceglie.
io ne ho provate alcune, ma non tutte le 45 scelte possibili, escluso la nazionale
dovrei sapere quali ruote hai scelto.
su una settina il ritardo minimo che lo script considera è quella dove compare 200
non so che parametri hai dato?
quante ruote hai scelto?
se Tutte, funziona regolarmente a me
se 2 ruote, anche
siccome attualmente lo script dovrebbe essere regolato nel ritardo minimo,
in queste 2 righe If Int(aruote(1)) = 11 Then
rmin = "0.0.200.140.75.65.45.40.38.35.24.23.20.17.15.15.12.12.11.11.9.9.9.8.7.6.5.5.5.5.5"
Else
rmin = "0.0.1075.600.500.450.250.200.180.140.134.123.100.90.80.75.60.58.55.55.55.55.55.55.55.55.55.55.55.55.55"
End If
su Tutte usa la prima riga del ritardo minimo che deve considerare, oppure per 2 ruote la riga sotto, che però dovrebbe essere
sistemata fino a trovare un bilanciamento che valga per tutte le coppie di ruote che un utente sceglie.
io ne ho provate alcune, ma non tutte le 45 scelte possibili, escluso la nazionale
dovrei sapere quali ruote hai scelto.
su una settina il ritardo minimo che lo script considera è quella dove compare 200
skygirl
Advanced Member >GOLD<
Vorrei sottoporre alla vs. attenzione questa osservazione che mi viene da fare osservando ad occhio le mie lunghette e le lunghette che scaturiscono applicando lo script di Beppignello che restituisce le Lunghette con ritardo minimo 40
lo ho Sviluppate in classe = 7 Per la sorte di..2
da rilevazione a Tutte.......9141 / 31.03.2016
sembra in base alla mia teoria non po' strana
della tendenza dei numeri a concentrarsi che tanto meno questi son concentrati tanto meno producono risultati
prendo ad. es.
Ritardo Freq. Combinazione Lunghetta
0047 / 0047 4335 11.25.28.64.67.68.77
questa invece è l'img della mia lunghetta n. 47 che ha dato luogo al terno osservate la concentrazione dei numeri come vi spiegate questo fatto delle concentrazioni?
la domanda che mi viene in mente è:
è possibile fare uno script che individui tot numeri che hanno alte concentrazioni diciamo nelle ultime tot. estrazioni???
lo ho Sviluppate in classe = 7 Per la sorte di..2
da rilevazione a Tutte.......9141 / 31.03.2016
sembra in base alla mia teoria non po' strana
della tendenza dei numeri a concentrarsi che tanto meno questi son concentrati tanto meno producono risultatiprendo ad. es.
Ritardo Freq. Combinazione Lunghetta
0047 / 0047 4335 11.25.28.64.67.68.77
questa invece è l'img della mia lunghetta n. 47 che ha dato luogo al terno osservate la concentrazione dei numeri come vi spiegate questo fatto delle concentrazioni?
la domanda che mi viene in mente è:
è possibile fare uno script che individui tot numeri che hanno alte concentrazioni diciamo nelle ultime tot. estrazioni???
Ultima modifica:
lotto_tom75
Advanced Premium Member
skygirl;n1968293 ha scritto:Ciao ho provato lo script inserendo una lunghetta di 7 n. e mi da errore, inserisco l'img dell'errore
Ciao beppe mi associo alla richiesta di aiuto di skygirl in quanto anche a me provando a scegliere 3 ruote o una lunghetta con quantità di elementi diversi rispetto ai 10 di default.. da lo stesso identico errore
. Ciononostante, ti rinnovo i miei più sentiti complimenti per le tue straordinarie doti di programmazione! 
Sei davvero bravissimo!
Ultima modifica:
B
Beppignello
Guest
provo a correggere, appena posso lo riposto.
ho messo max dodicina
attenzione perché il ritardo minimo, per velocizzare un po l'elaborazione è molto importante.
nel caso di più ruote fino a lunghette 6,7,8 numeri è ancora accettabile,
nel caso di lunghette da 9-12 numeri i tempi di elaborazione sono sempre molto alti, lavora purtroppo
con sviluppo integrale.
per ragionamento logico, sono sempre da preferire pochi numeri 2-7 per un rendimento nel gioco
con troppi numeri si disperde l'idea di vincita e guadagno.
con 13 numeri in gioco si vinci di più puntando 3 ambi che il terno, e questa regola vige ancora.
se poi ci mettiamo che magari otteniamo lunghette su più ruote, siamo sicuri che andiamo verso
una perdita e facciamo un regalo alla Lottomatica & co.
lo script è sempre da provare, fatemi sapere.
ho messo max dodicina
attenzione perché il ritardo minimo, per velocizzare un po l'elaborazione è molto importante.
nel caso di più ruote fino a lunghette 6,7,8 numeri è ancora accettabile,
nel caso di lunghette da 9-12 numeri i tempi di elaborazione sono sempre molto alti, lavora purtroppo
con sviluppo integrale.
per ragionamento logico, sono sempre da preferire pochi numeri 2-7 per un rendimento nel gioco
con troppi numeri si disperde l'idea di vincita e guadagno.
con 13 numeri in gioco si vinci di più puntando 3 ambi che il terno, e questa regola vige ancora.
se poi ci mettiamo che magari otteniamo lunghette su più ruote, siamo sicuri che andiamo verso
una perdita e facciamo un regalo alla Lottomatica & co.
lo script è sempre da provare, fatemi sapere.
Codice:
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
Dim numeri(90),maxnumero(90),ruote(11),comb(999999,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 dodicina ")
numericercati = ""
Else
Exit Do
End If
Loop
s = CInt(InputBox("Sorte lunghetta ",,2)) '''''' sorte 2 (ambo) 3 (Terno)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''10 ruote
Dim t,ed
ReDim aruote(11)
nomi = ""
t = ScegliRuote(aruote)
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
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' 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 > 1 And t < 6 Then
rmin = "0.0.0.150.150.90.90.90.90.90.90.90.90.90"
End If
End If
If s = 2 Then
If t > 1 And t < 6 Then
rmin = "0.0.150.150.150.150.100.100.90.90.50.50.25.15"
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)
' minim(ia,j) = AmboRitardoTurbo(11,ia,j,EstrazioneIni,finale)
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,"000")
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
retrit = RitardoCombinazioneTurbo(aruote,numeri,s,finale,,,3950)
If retrit > Int(maxmax(numericercati)) Then
cz = cz + 1
comb(cz,1) = FormattaStringa(retrit,"0000") & " / " & FormattaStringa(retritmax,"0000") & " " & FormattaStringa(RetFre,"0000") & " " & Primirit
comb(cz,2) = StringaNumeri(numeri,".")
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 Freq. Ritardi Attuali 1°Capogioco 2° Capogioco Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "Ritardo Combinazione Lunghetta ",1
Call OrdinaMatrice(comb,- 1,1)
ColoreTesto(0)
If cz = 0 Then
Scrivi " NEssuna combinazione nel ritardo minimo di " & maxmax(numericercati),1
Else
For v = 1 To 50
If comb(v,1) <> " " Then Scrivi comb(v,1) & " " & comb(v,2),1
Next
End If
Scrivi:Scrivi:Scrivi "Totale Combinazioni...." & v - 1,1
ColoreTesto(2)
Scrivi "Tempo elaborazione.." & Inizio & " : " & TimeValue(Time),1
End Sub
Ultima modifica di un moderatore:
lotto_tom75
Advanced Premium Member
skygirl;n1968733 ha scritto:Ciao ho provato lo script su Tutte funziona perfettamente ed è velocissimo ho fatto ricerca su lunghetta 7 numeri,
mentre se faccio la ricerca su singola ruota, io ho esaminato VE, mi da questo errore di cui ti posto l'img
Ancora una volta mi trovo a sottolineare quanto riportato da skygirl
Comuqnue... beppe, hai realizzato un S.V. uno Script Velocissimo! Spettacolare! Sul fatto delle lunghette caro beppe consentimi però di dissentire... riguardo alla loro importanza solo fino ad un certo numero di elementi.. La Q di novembre la centrai grazie alla riduzione ulteriore di una lunghetta di ben 49 numeri analizzandola su TUTTE . Ovvero credo fermamente che più l'elastico... si allunghi in modo controllato... e più ovviamente ci sono probabilità che si "spezzi" in senso positivo... magari nel punto (=sorte) intercettata.. da altre analisi complementari... Detto questo.. ho notato anche che il tuo fantastico script da un piccolo errore dello stesso genere rispetto a quello riportato dalla mitica skygirl anche per E in lunghetta su unica ruota...Questo come ulteriore dettaglio di debug per un eventuale sua ulteriore ottimizzazione. Ciao a tutti e due grandissimi!
Ultima modifica:
B
Beppignello
Guest
ciao
devo riguardarlo, ci sono errori, non solo per 1 ruota, ma anche per l'output non ordinato per il ritardo che si ottiene.
appena sistemo, lo posterò.
devo riguardarlo, ci sono errori, non solo per 1 ruota, ma anche per l'output non ordinato per il ritardo che si ottiene.
appena sistemo, lo posterò.
B
Beppignello
Guest
Problematiche con lo script delle Lunghette TomSky
verificato lunghette 2-3-4-5-6-7-8-9-10-11 su Tutte le Ruote Tempi accettabili e funzionante
verificato lunghette 2-3-4-5-6- su 1 Ruota a scelta, Tempi accettabili fino a 5 numeri, poi il tempo è molto lungo perché le combinazioni diventano Milioni da esaminare.
verificato lunghette 2,3,4,5,6,7 su 2 o più ruote, tempi accettabili fino a 6 numeri, poi il tempo è molto lungo perché le combinazioni diventano Milioni da esaminare
opzione Terno
la sorte del terno è legata alla lunghetta che ritardata per ambo.
verificando le lunghette in spaziometria in statistica/su ambo/Lunghette Ritardo Ambo
mi sono accorto che in pochi colpi, sono diverse quelle che generano il terno in uscita.
mi sono detto, se la lunghetta oltre al ritardo dell'ambo interessante, è interessante anche per l'eventuale terno?
quindi a volte può servire elaborare la lunghetta per tale sorte, per vedere se corrisponde per tutte 2 le sorti.
Ritardo Combinazione Lunghetta per sorte terno
0548...... ....8.14.33.49.77
0436...... ....28.32.54.77.88
0279...... ....1.32.47.60.71
0268...... ....14.29.66.68.77
0218...... ....28.32.41.54.88
0216...... ....18.24.38.62.80
0192...... ....8.22.31.49.85
0158...... ....14.51.66.68.77
0157...... ....28.32.41.54.71
0100...... ....8.14.29.66.77
0078...... ....48.60.76.82.88
Ritardo Combinazione Lunghetta per sorte ambo
0089...... ....8.14.33.49.77
0074...... ....48.60.76.82.88
0071...... ....14.51.66.68.77
0070...... ....8.14.29.66.77
0069...... ....14.29.66.68.77
0068...... ....8.22.31.49.85
0067...... ....28.32.41.54.88
0066...... ....18.24.38.62.80
0065...... ....28.32.54.77.88
0064...... ....9.18.62.83.87
0063...... ....53.60.76.82.88
0062...... ....47.53.60.71.82
come si può notare da questo piccolo prospetto
la combinazione in testa è la stessa per tutte le 2 sorti,
ma le altre cambiano in funzione del proprio ritardo e graduatoria
per le lunghette, questo script, fa quello che può, non è adatto per
una ricerca profondo di quelle più in ritardo.
attualmente nel thread nella sezione download, allo studio c'è un algoritmo
apposito per una ricerca delle migliori, ma che attualmente pare che l'opzione
random sia quella più efficace.
pertanto rimando il tutto a tempi migliori, che arriveranno con idee nuove, forse,
ed elaborazioni più sofisticate.
verificato lunghette 2-3-4-5-6-7-8-9-10-11 su Tutte le Ruote Tempi accettabili e funzionante
verificato lunghette 2-3-4-5-6- su 1 Ruota a scelta, Tempi accettabili fino a 5 numeri, poi il tempo è molto lungo perché le combinazioni diventano Milioni da esaminare.
verificato lunghette 2,3,4,5,6,7 su 2 o più ruote, tempi accettabili fino a 6 numeri, poi il tempo è molto lungo perché le combinazioni diventano Milioni da esaminare
opzione Terno
la sorte del terno è legata alla lunghetta che ritardata per ambo.
verificando le lunghette in spaziometria in statistica/su ambo/Lunghette Ritardo Ambo
mi sono accorto che in pochi colpi, sono diverse quelle che generano il terno in uscita.
mi sono detto, se la lunghetta oltre al ritardo dell'ambo interessante, è interessante anche per l'eventuale terno?
quindi a volte può servire elaborare la lunghetta per tale sorte, per vedere se corrisponde per tutte 2 le sorti.
Ritardo Combinazione Lunghetta per sorte terno
0548...... ....8.14.33.49.77
0436...... ....28.32.54.77.88
0279...... ....1.32.47.60.71
0268...... ....14.29.66.68.77
0218...... ....28.32.41.54.88
0216...... ....18.24.38.62.80
0192...... ....8.22.31.49.85
0158...... ....14.51.66.68.77
0157...... ....28.32.41.54.71
0100...... ....8.14.29.66.77
0078...... ....48.60.76.82.88
Ritardo Combinazione Lunghetta per sorte ambo
0089...... ....8.14.33.49.77
0074...... ....48.60.76.82.88
0071...... ....14.51.66.68.77
0070...... ....8.14.29.66.77
0069...... ....14.29.66.68.77
0068...... ....8.22.31.49.85
0067...... ....28.32.41.54.88
0066...... ....18.24.38.62.80
0065...... ....28.32.54.77.88
0064...... ....9.18.62.83.87
0063...... ....53.60.76.82.88
0062...... ....47.53.60.71.82
come si può notare da questo piccolo prospetto
la combinazione in testa è la stessa per tutte le 2 sorti,
ma le altre cambiano in funzione del proprio ritardo e graduatoria
per le lunghette, questo script, fa quello che può, non è adatto per
una ricerca profondo di quelle più in ritardo.
attualmente nel thread nella sezione download, allo studio c'è un algoritmo
apposito per una ricerca delle migliori, ma che attualmente pare che l'opzione
random sia quella più efficace.
pertanto rimando il tutto a tempi migliori, che arriveranno con idee nuove, forse,
ed elaborazioni più sofisticate.
Ultima modifica di un moderatore:
skygirl
Advanced Member >GOLD<
Grazie Beppignello ottimo lavoro
il tuo lavoro mi ha ispirato ho usato lo script che hai fatto per esaminare le mie lunghette e questo di cui abbiamo appena parlato
ho ottenuto questi dati
vediamo se da questi dati esce fuori qualche ambo occhio al 38.55 convergente con la lunghetta n. 50
ottimo lavoroil tuo lavoro mi ha ispirato
ho usato lo script che hai fatto per esaminare le mie lunghette e questo di cui abbiamo appena parlato ho ottenuto questi dati
vediamo se da questi dati esce fuori qualche ambo
occhio al 38.55 convergente con la lunghetta n. 50
Ultima modifica:
B
Beppignello
Guest
riproviamo, ricordo i limiti purtroppo dello script:
Codice:
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
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
s = CInt(InputBox("Sorte lunghetta ",,2)) '''''' sorte 2 (ambo) 3 (Terno)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''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
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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
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
retrit = RitardoCombinazioneTurbo(aruote,numeri,s,finale,,,3950)
If retrit > Int(maxmax(numericercati)) Then
cz = cz + 1
comb(retrit,1) = FormattaStringa(retrit,"0000") & "...... ...." & 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 Combinazione Lunghetta ",1
If numericercati <> 2 Then Scrivi "Ritardo 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
Ultima modifica di un moderatore:
skygirl
Advanced Member >GOLD<
Ho provato lo script e adesso funziona benissimo sia su ruota singola che su Tutte, se su ruota singoli i tempi son lunghetti, nel mio caso ci ha messo con una lunghetta di n.7 - 1:41:29
L'elaborazione su Tutte è invece velocissima.
Mi son divertita un po' ad esaminare diverse lunghetta composte da 7 numeri su Tutte e con piacere ho visto che si sfaldano molto velocemente nell'arco di max 4 colpi danno luogo minimo ad un ambo, nella maggior parte dei casi sfaldano al 1° colpo, ho esaminato dall'estrazione 9117 del 04/02/2016 ad oggi
per farvi un esempio vi allego img degli esiti della lunghetta calcolata all'estrazione del 04/02/2016 che alla data del 06/02/2016 ha dato luogo a due ambi e un terno
La mia proposta è perché non ci mettiamo a lavorare sulle lunghette a Tutte composte da 7 numeri tentando delle riduzioni? che ne pensate?
vi propongo la prox lunghetta ritardataria a Tutte ha ritardo 0044 e la prox estrazione sarà il 2°colpo, come potremmo ridurla?
L'elaborazione su Tutte è invece velocissima.
Mi son divertita un po' ad esaminare diverse lunghetta composte da 7 numeri su Tutte e con piacere ho visto che si sfaldano molto velocemente nell'arco di max 4 colpi danno luogo minimo ad un ambo, nella maggior parte dei casi sfaldano al 1° colpo, ho esaminato dall'estrazione 9117 del 04/02/2016 ad oggi
per farvi un esempio vi allego img degli esiti della lunghetta calcolata all'estrazione del 04/02/2016 che alla data del 06/02/2016 ha dato luogo a due ambi e un terno
La mia proposta è perché non ci mettiamo a lavorare sulle lunghette a Tutte composte da 7 numeri tentando delle riduzioni? che ne pensate?
vi propongo la prox lunghetta ritardataria a Tutte ha ritardo 0044 e la prox estrazione sarà il 2°colpo, come potremmo ridurla?
lotto_tom75
Advanced Premium Member
Ciao beppe, e ciao skyg dunque.. beppe il tuo script è straportentoso molto veloce e opera molto bene sia su tutte che su ruota unica o 2 o più ruote unite. L'unica piccolo problema che mi pare sia rimasto è che non riesce ad analizzare le formazioni (fino max alla 10ina) per sorte di E. Credo che se ci riuscisse (non dando errore come adesso relativo ai numeri cercati) potrebbe essere molto interessante cambiando leggermente punto di vista operativo Un grosso saluto a entrambi e good luck per domani. Per skyg ora guardo se posso aggiungere qualche analisi o meno riguardo la tua splendida 7ina
Mi risulterebbe questo come + interessante
00016 67.73 RA: 73 RS: 272 INCMAX: 0 FQ: 210 RUOTA: Tutte Diff 199 1
ruote + in rit: BAPA
ruote - in rit NANZ
x A in 7 ina
prendendo in considerazione solo le prime due risultanze di ciascun tipo di ordinamento per RA
dunque.. beppe il tuo script è straportentoso molto veloce e opera molto bene sia su tutte che su ruota unica o 2 o più ruote unite. L'unica piccolo problema che mi pare sia rimasto è che non riesce ad analizzare le formazioni (fino max alla 10ina) per sorte di E. Credo che se ci riuscisse (non dando errore come adesso relativo ai numeri cercati) potrebbe essere molto interessante cambiando leggermente punto di vista operativo Un grosso saluto a entrambi e good luck per domani. Per skyg ora guardo se posso aggiungere qualche analisi o meno riguardo la tua splendida 7ina Mi risulterebbe questo come + interessante
00016 67.73 RA: 73 RS: 272 INCMAX: 0 FQ: 210 RUOTA: Tutte Diff 199 1
ruote + in rit: BAPA
ruote - in rit NANZ
x A in 7 ina
prendendo in considerazione solo le prime due risultanze di ciascun tipo di ordinamento per RA
Ultima modifica:
skygirl
Advanced Member >GOLD<
Ciao Beppignello questi numeri del tuo script rappresentano il ritardo max delle lunghette giusto? per 7 numeri non viene indicato come mai? si potrebbe mettere anche il ritardo medio in modo da vedere se il valore attuale del ritardo è vicino o lontano dalla media?
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
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
Ultima modifica:
B
Beppignello
Guest
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.
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.
Ultima modifica di un moderatore:
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 31 ottobre 2025Bari4331778985Cagliari5030774353Firenze2353281172Genova1486372268Milano6214194826Napoli4656421377Palermo4471537374Roma2456905729Torino7202291221Venezia1064376522Nazionale6939080461Estrazione Simbolotto
0915203242
