Triambi consecutivi grazie a Mike58

« Older Newer »

New Mat

Posted on 13/10/2023, 18:49

Top Member

Group:: Member

Posts:: 3,896

Status:

Ciao a tutti,
grazie a Mike 58 per lo script che lui ha fatto in questo post

https://lottogam.forumfree.it/?t=79935992#newpost

è stato possibile creare velocemente tutti i possibili triambi composti da tre ambi consecutivi qualsiasi.

Purtroppo trattandosi di oltre 117000 triambi non è possibile caricarli tutti in un unica tabella per ricavare ritardi attuali e storici di ciascun triambo facilmente gestibili; ho dovuto spezzare l'intera tabella in 6 tronconi di circa 19000, raccogliere i dati di ciascuna e poi riunirli.

Questa ricerca per ora l'ho concentrata a partire dal 2009 limitata a ciascuna sede estrazionale; vediamo alcuni dati
per le ruote di BA-NA-PA:

MINIMO STORICO = 85 per la sortita di uno dei tre ambi su una delle tre ruote. ( Vi riporterò appena possibile i tre ambi )

MAX STO = 584

CASO ATTUALE con ritardo più elevato RC. 446 con gli ambi 8.9 // 45.46 // 78.79 se poi aggiungiamo anche

l'ambo 86.87 il ritardo ATT. scende a 420

Se invece prendiamo singolarmente ciascuna delle tre ruote ricaviamo su PALERMO

MAX STO = 2047

Con un RIT. ATTUALE di 1913 abbiamo in questo momento questi tre ambi

PA = 9.10 // 55.56 //65.66

Nessuna altra ruota nel periodo considerato ha mai superato il ritardo attuale.
Anche in questo caso se aggiungiamo

l'ambo 62.63 il ritardo attuale scende a 1684.

Nota Bene: spezzare le tabelle e poi raccogliere e riassumere i dati è stato un po' laborioso e potrei aver fatto qualche errore.
Sarei grato se qualcuno riuscisse eventualmente a correggere questi errori.

Cercherò di estendere lo stesso lavoro alle altre due sedi estrazionali.
Ciao a tutti,

Matteo

New Mat

Posted on 13/10/2023, 21:31

Top Member

Group:: Member

Posts:: 3,896

Status:

Ciao a tutti,
completo i dati mancanti a cui ho accennato in precedenza.
Ho già detto che dal 2009 per le ruote di BA-NA-PA:

MINIMO STORICO = 85 per la sortita di uno dei tre ambi su una delle tre ruote

Questo minimo è del triambo

33.34//60.61//64.65

che finora non aveva mai superato appunto le 85 estraz. per la sortita di uno dei tre su una delle tre ruote.

Ora però ci troviamo con un

RITARDO ATT. = 90 estraz.

Se questi tre ambi continueranno a comportarsi come avvenuto finora uno di loro potrebbe sortire a breve su una delle tre ruote.
Staremo a vedere, ciao a tutti,
Matteo

mike58

Posted on 15/10/2023, 17:56

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Matteo, un saluto.
Sempre approfondite le tue analisi, e penso anche che sia un bel lavoraccio ricavarne i dati con l'utilizzo dei programmi predefiniti nelle funzioni.

Cercando di capire cosa vuoi estrapolare mi è venuto fuori uno script per spaziometria che oltre a elaborare i triambi consecutivi ne raccoglie i relativi ritardi e storici,
ed il ritardo corrente e storico del gruppo.

Il tutto ordinato per storico minimo ( lo script può gestire anche altro) con una visualizzazione di 30 elementi o superiore.

prova a vedere se ti è utile.

SPOILER (clicca per visualizzare)

Sub Main
Dim MinRit(3),Mat(117480,8)
Dim A(2)
Dim B(2)
Dim C(2)
vx = CInt(InputBox("Quanti ne visualizzo","Max 117480",30))
ReDim Ru(0)
ScegliRuote(Ru)
ResetTimer
Scrivi Space(10) & "Ruote analizzate : " & StringaRuote(Ru),1,,,1
Scrivi Space(2) & "Combinazione" & Space(6) & "RitA / RitB / RitC" & Space(2) & "MinRit" & Space(1) & "MinSto",1,,,,,,1
Ini = 8117
fin = EstrazioneFin
For n1 = 1 To 88
n2 = n1 + 1
For n3 = n1 + 1 To 89
n4 = n3 + 1
For n5 = n3 + 1 To 90
n6 = n5 + 1
A(1) = n1 : A(2) = n2
B(1) = n3 : B(2) = n4
C(1) = Fuori90(n5) : C(2) = Fuori90(n6)
k = k + 1
srA = SerieRitardoTurbo(Ini,fin,A,Ru,2)
srB = SerieRitardoTurbo(Ini,fin,B,Ru,2)
srC = SerieRitardoTurbo(Ini,fin,C,Ru,2)
'-----------------------------------------------------
MinRit(1) = srA : MinRit(2) = srB : MinRit(3) = srC
'-----------------------------------------------------
Call AddNumeriToGruppoStatistico(A,Ru)
Call AddNumeriToGruppoStatistico(B,Ru)
Call AddNumeriToGruppoStatistico(C,Ru)
Call StatisticaGruppoFormazioniTurbo(2,ritt,sto,fre,sgruppo,Ini,fin)
'-----------------------------------------------------------------------------
min = MinimoV(MinRit,1,- 1)
max = MassimoV(MinRit)
Call Messaggio("Terni... " & k)
Call AvanzamentoElab(100,117480,k)
'------------------------------------
Mat(k,1) = StringaNumeri(A,,1)
Mat(k,2) = StringaNumeri(B,,1)
Mat(k,3) = StringaNumeri(C,,1)
Mat(k,4) = MinRit(1)
Mat(k,5) = MinRit(2)
Mat(k,6) = MinRit(3)
Mat(k,7) = min
Mat(k,8) = sto
'---------------------------------
Next
Next
If ScriptInterrotto Then Exit For
Next
Call OrdinaMatrice(Mat,1,8)
For x = 1 To vx
Scrivi Mat(x,1) & ";" & Mat(x,2) & ";" & Mat(x,3) & " | " & FormatSpace(Mat(x,4),4) & " / " & FormatSpace(Mat(x,5),4) & " / " & _
FormatSpace(Mat(x,6),4) & " | " & FormatSpace(Mat(x,7),4) & " |" & FormatSpace(Mat(x,8),4) & " | "
Next
Scrivi k,1
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub

Ruote analizzate : BA.NA.PA
Combinazione RitA / RitB / RitC MinRit MinSto
33.34;60.61;64.65 | 129 / 358 / 91 | 91 |84 |
54.55;59.60;90.01 | 20 / 120 / 150 | 20 |85 |
12.13;23.24;59.60 | 67 / 168 / 120 | 67 |86 |
23.24;68.69;83.84 | 168 / 277 / 92 | 92 |87 |
47.48;58.59;68.69 | 33 / 31 / 277 | 31 |87 |
50.51;59.60;90.01 | 108 / 120 / 150 | 108 |88 |
18.19;59.60;90.01 | 137 / 120 / 150 | 120 |90 |
09.10;13.14;59.60 | 101 / 3 / 120 | 3 |90 |
18.19;76.77;90.01 | 137 / 233 / 150 | 137 |91 |
32.33;59.60;90.01 | 163 / 120 / 150 | 120 |91 |
26.27;52.53;80.81 | 352 / 185 / 159 | 159 |91 |
09.10;40.41;59.60 | 101 / 22 / 120 | 22 |91 |
09.10;36.37;59.60 | 101 / 13 / 120 | 13 |91 |
59.60;67.68;70.71 | 120 / 177 / 6 | 6 |91 |
13.14;52.53;59.60 | 3 / 185 / 120 | 3 |92 |
59.60;83.84;87.88 | 120 / 92 / 165 | 92 |92 |
48.49;50.51;90.01 | 96 / 108 / 150 | 96 |92 |
07.08;39.40;74.75 | 40 / 212 / 7 | 7 |93 |
24.25;50.51;59.60 | 290 / 108 / 120 | 108 |93 |
23.24;38.39;68.69 | 168 / 277 / 277 | 168 |93 |
01.02;21.22;59.60 | 15 / 38 / 120 | 15 |93 |
13.14;59.60;90.01 | 3 / 120 / 150 | 3 |94 |
53.54;70.71;76.77 | 106 / 6 / 233 | 6 |94 |
13.14;19.20;59.60 | 3 / 25 / 120 | 3 |94 |
13.14;59.60;78.79 | 3 / 120 / 649 | 3 |94 |
07.08;74.75;83.84 | 40 / 7 / 92 | 7 |94 |
12.13;59.60;60.61 | 67 / 120 / 358 | 67 |94 |
05.06;37.38;38.39 | 338 / 195 / 277 | 195 |94 |
24.25;48.49;50.51 | 290 / 96 / 108 | 96 |95 |
17.18;18.19;59.60 | 163 / 137 / 120 | 120 |95 |
117480
Tempo di elaborazione : 00:02:11

New Mat

Posted on 15/10/2023, 18:39

Top Member

Group:: Member

Posts:: 3,896

Status:

Ciao Mike,

ottimo lavoro e sempre grazie!!!
In questo momento non ho il tempo per un commento completo, conto di farlo al più presto.

Per ora dico solo che di solito mi piace avere tutta la situazione generale a vista d'occhio per poi successivamente andare nei particolari con ricerche più mirate.
Ancora non so neanche io fin dove voglio arrivare, le idee sono tante.
Comunque il tuo script è fondamentale per fare queste selezioni con un numero maggiore di formazioni facilmente modificabili.
Il tuo è uno script molto versatile, sicuramente credo che possa anche mettermi le formazioni in ordine di ritardi attuali maggiori con le tue opportune modifiche a cui fai cenno.
Appena posso aggiungerò altro, per ora mi premeva rispondere subito al tuo regalo,
ciao e ancora grazie,
Matteo

New Mat

Posted on 15/10/2023, 22:04

Top Member

Group:: Member

Posts:: 3,896

Status:

Ciao Mike,
ho provato lo script, ma mi dà errore a questa riga

Call AddNumeriToGruppoStatistico(A,Ru)

Deve esserci qualcosa che forse si è perso oppure sono io imbranato.
Ciao e grazie,
Matteo

mike58

Posted on 16/10/2023, 07:22

Top Member

Group:: Member

Posts:: 559

Status:

BUonGiorno a Tutti
Cioa Matteo, la riga apparentemente è corretta, poi l'ho anche ricopiata dal forum e non mi da nessun errore.

Questo mi fa pensare che tu non abbia l'ultima versione 1.6.54 nella quale sono state apportate delle modifiche e magari anche a quel codice.

Se è così scaricala o da questo forum o l'altro Ced, vai a scaricare l'ultima versione ci sono dei vantaggi, aggiornamenti Estrazioni superEnalotto e lotto.
che prima in altre versioni non erano funzionanti.

Ciao una buona giornata

New Mat

Posted on 16/10/2023, 09:00

Top Member

Group:: Member

Posts:: 3,896

Status:

Ciao Mike,
sì hai ragione, non ho la versione aggiornata di Spaziometria: ho solo la 1.6.32.
Mi sono fermato a quella perché all'epoca facevo un uso limitato di questo programma, poi successivamente ho sempre letto di problemi di altri utenti ogni volta che si cambiava sistema operativo e si reinstallava il programma.

Ho preferito fermarmi a quella versione per non trovarmi un problema che poi non saprei risolvere.

In passato ho sempre utilizzato L8+ ed altri programmi specifici in mio possesso della vecchia scuola Lottoamatori di tanti anni fa, che non sono mai stati in vendita e neanche disponibili per tutti, grazie all'amicizia con gli autori.

Con questi mezzi ed anche con altre successive mie rielaborazioni in excel di solito ho trovato la soluzione per tante ricerche.

Ultimamente Spaziometria ho iniziato ad utilizzarlo un po' per quello che riguarda gli script.

Per ora non voglio rischiare che mi si blocchi; a me interessa solo il lotto e per aggiornare l'archivio vado avanti con un semplice copia ed incolla.
Ti ringrazio per il tuo impegno ed i tuoi consigli, buona giornata anche a te,
ciao,
Matteo

mike58

Posted on 16/10/2023, 09:23

Top Member

Group:: Member

Posts:: 559

Status:

Matteo, scusa se insisto, io problemi nell'installare nuove versioni non ne ho mai avuti e se qualche volta, qualche problema c'è stato con le poche conoscenze, ho sempre risolto.

Io uso principalmente spaziometria e come puoi vedere con gli script (palestra per la mente) pezzi di programmi si arriva facilmente a risultanze di analisi più sbrigative.

Io seguo il programma e ho cambiato più volte sia computer che sistemi operativi e grossi problemi non ne ho mai avuti.

Purtroppo senza il programma aggiornato non posso esserti di aiuto per ulteriore analisi complesse, perchè magari faccio uso negli script di codici rivisti e aggiornati, nonchè più performanti

New Mat

Posted on 16/10/2023, 17:37

Top Member

Group:: Member

Posts:: 3,896

Status:

Ciao Mike,
per non rischiare nulla ho installato il nuovo Spaziometria sul mio portatile, anche se questo è più lento.
Naturalmente lo script funziona regolarmente e non avevo dubbi.
Ottima anche la visualizzazione ricavata nel post precedente.

Ora senza volerti sovraccaricare, ma solo per parlare di lotto e spiegare agli amici che leggono cosa si potrebbe ancora fare da soli o con script:

1) ottimo sarebbe in generale ottenere tabelle excel;

2) visto che abbiamo già la possibilità di incrementare le formazioni anche superiori a 30, sempre ottimo sarebbe poter scegliere anche l'ordine di MinRit crescente o decrescente.

Cose naturalmente modificabili a piacere con excel, che ci permetterebbe anche di ricavare una colonna con la somma dei ritardi dei tre ambi.

Non si tratta di mie richieste per caricarti di lavoro, ma spiego queste cose solo per dire che si tratta di modi di ricerca che utilizzo di solito in generale per le formazioni che più m'interessano.

In questo modo le possibilità d'indagine si ampliano di molto e chiunque abbia tempo a disposizione e voglia può andare avanti da solo.

Si possono cercare tante cose e io così mi diverto senza necessariamente giocare, anzi gioco il meno possibile.

Grazie ancora per tutto quello che fai e per i mezzi che metti a disposizione di tutti, senza i quali potremmo fare ben poco.
Ciao,

Matteo

mike58

Posted on 16/10/2023, 17:53

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Matteo penso che scrivere il file direttamente da script in excel può essere possibile.
L'ho già fatto in passato , devo solo rispolverarlo.
Certo con lo script si potrebbe automatizzare il tipo di ordinamento e la colonna specifica a quello che vogliamo ordinare, ma senza voler togliere nulla al tuo divertimento di ricerca , penso come palestra per la mia mente di fare esportare le risultanze in excel.
Ci provo.

New Mat

Posted on 16/10/2023, 18:06

Top Member

Group:: Member

Posts:: 3,896

Status:

Comunque sia possiamo sempre prendere il formato testo ottenibile con lo script e trasformarlo da noi in excel, l'abbiamo sempre fatto.
Ciao,
Matteo

mike58

Posted on 16/10/2023, 20:31

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Matteo, tranquillo lo script ordina le colonne volute e l'ascendenza voluta, e scrive anche tutte le 117480 righe sia in video che in excel
in excel non ho messo ordinamento in quanto poi questo lo decidi tu.
Prova dovrebbe funzionare in tutto.

SPOILER (clicca per visualizzare)

Sub Main
Dim MinRit(3),Mat(117480,9)
Dim sRiga,sFilecsv
Dim A(2)
Dim B(2)
Dim C(2)
' vx = CInt(InputBox("Quanti ne visualizzo","Max 117480",30))
minx = CInt(InputBox("Quale ordinamento" & Chr(13) & Chr(13) & "Ascendente = 1" & Chr(13) & "Discendente = -1",,1))
col = CInt(InputBox("Quale colonna ordino" & Chr(13) & Chr(13) & "Min_RitCorr = 7" & Chr(13) & "Max_RitCorr = 8" & Chr(13) & "Min_RitStor = 9",,9))
If col = 7 Then Scrivi "Ordinamento per Min_Ritardo Corrente",1
If col = 8 Then Scrivi "Ordinamento per Max_Ritardo Corrente",1
If col = 9 Then Scrivi "Ordinamento per Min_Ritardo Storico ",1
If minx = 1 Then Scrivi "Ordinamneto Ascendente",1
If minx = - 1 Then Scrivi "Ordinamento Discendente",1
'---------------------------------------------------------
' prepara il file csv
sFilecsv = GetDirectoryAppData & "temp\Analisi.csv"
Call EliminaFile(sFilecsv)
' scrive i titoli delle colonne nel file csv
sRiga = "Tri-Ambi ; RitA ; RitB ; RitC ; Min_Rit ; Max_Rit ; Min_Sto"
Call ScriviFile(sFilecsv,sRiga,False)
'-----------------------------------------------------------
ReDim Ru(0)
ScegliRuote(Ru)
ResetTimer
Scrivi Space(10) & "Ruote analizzate : " & StringaRuote(Ru),1,,,1
Scrivi Space(2) & "Combinazione" & Space(6) & "RitA / RitB / RitC" & Space(2) & "MinRit" & Space(1) & "MaxRit" & Space(1) & "MinSto",1,,,,,,1
Ini = 8117
fin = EstrazioneFin
For n1 = 1 To 88
n2 = n1 + 1
For n3 = n1 + 1 To 89
n4 = n3 + 1
For n5 = n3 + 1 To 90
n6 = n5 + 1
A(1) = n1 : A(2) = n2
B(1) = n3 : B(2) = n4
C(1) = Fuori90(n5) : C(2) = Fuori90(n6)
k = k + 1
srA = SerieRitardoTurbo(Ini,fin,A,Ru,2)
srB = SerieRitardoTurbo(Ini,fin,B,Ru,2)
srC = SerieRitardoTurbo(Ini,fin,C,Ru,2)
'-----------------------------------------------------
MinRit(1) = srA : MinRit(2) = srB : MinRit(3) = srC
'-----------------------------------------------------
Call AddNumeriToGruppoStatistico(A,Ru)
Call AddNumeriToGruppoStatistico(B,Ru)
Call AddNumeriToGruppoStatistico(C,Ru)
Call StatisticaGruppoFormazioniTurbo(2,ritt,sto,fre,sgruppo,Ini,fin)
'-----------------------------------------------------------------------------
min = MinimoV(MinRit,1,- 1)
max = MassimoV(MinRit)
Call Messaggio("Terni... " & k)
Call AvanzamentoElab(100,117480,k)
'------------------------------------
Mat(k,1) = StringaNumeri(A,,1)
Mat(k,2) = StringaNumeri(B,,1)
Mat(k,3) = StringaNumeri(C,,1)
Mat(k,4) = MinRit(1)
Mat(k,5) = MinRit(2)
Mat(k,6) = MinRit(3)
Mat(k,7) = min
Mat(k,8) = max
Mat(k,9) = sto
'----------------------------------------------------------------
sRiga = StringaNumeri(A,,1) & " , " & StringaNumeri(B,,1) & " , " & StringaNumeri(C,,1) & ";"
sRiga = sRiga & MinRit(1) & ";"
sRiga = sRiga & MinRit(2) & ";"
sRiga = sRiga & MinRit(3) & ";"
sRiga = sRiga & Min & ";"
sRiga = sRiga & Max & ";"
sRiga = sRiga & sto & ";"
Call ScriviFile(sFilecsv,sRiga,False)
'---------------------------------------------------------------
Next
Next
If ScriptInterrotto Then Exit For
Next
'----------------------------------------------------
Call CloseFileHandle(sFilecsv)
Call LanciaFile(sFilecsv)
Call OrdinaMatrice(Mat,minx,col)
For x = 1 To 117480
Scrivi Mat(x,1) & ";" & Mat(x,2) & ";" & Mat(x,3) & " | " & FormatSpace(Mat(x,4),4) & " / " & FormatSpace(Mat(x,5),4) & " / " & _
FormatSpace(Mat(x,6),4) & " | " & FormatSpace(Mat(x,7),4) & " |" & FormatSpace(Mat(x,8),4) & " | " & FormatSpace(Mat(x,9),4)
Next
Scrivi k,1
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub

New Mat

Posted on 16/10/2023, 21:54

Top Member

Group:: Member

Posts:: 3,896

Status:

E' uno script che io trovo spettacolare!!!

Complimentissimi Mike!!!

Io credevo che Spaziometria avrebbe troncato le oltre 117000 formazioni, invece le ho trovate tutte in un unica tabella che con excel puoi ordinare a tuo piacimento come avrei sperato, ma non credevo assolutamente potesse accadere.

Ora è un giochetto da bambini anche per me aggiungere un ultima colonna per ottenere anche la somma dei ritardi dei tre ambi.

Tra l'altro questo è un nuovo parametro a cui non avevo pensato: tu con lo script hai ricavato il ritardo minimo di ciascun ambo sulle tre ruote, cosa non facilmente ottenibile.
Se poi aggiungiamo la mia colonna somma di questi ritardi minimi, come detto sopra, otteniamo ancora qualcosa di più del solito.

Spero che tutti comprendano il significato di tutto ciò e possano utilizzare questo script al meglio.

Ancora un grosso grazie Mike, c' è veramente da divertirsi e per giunta lo script è velocissimo.

Veramente non ho parole ed io non sono uno di quelli arrivati da poco a questo gioco, ormai parliamo di divertimenti pluridecennali.

Ciao e buona notte,
Matteo

mike58

Posted on 17/10/2023, 07:39

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Matteo un grazie per l'apprezzamento , a volte mi diverto anch'io a mettere insieme quello che bravi programmatori attenti alle richieste degli amatori del lotto hanno messo e mettono a disposizione, se poi anche le richieste progettuali sono ben congeniate e definite, tutto è più facile.

Purtroppo una pecca c'è nel tuo entusiasmo una volta elaborato e creato il file excel , e fatte delle aggiunte personali quali Somme , Medie e quanto altro , dopo rielaborazione per cambio nuove estrazioni , andrai a perdere tutto il lavoro e aggiunte fatte manualmente.

Devo vedere se si riesce ad allacciare e scrivere nello stesso foglio e solo in colonne e righe stabilite senza andarea toccare i possibili calcoli aggiunti.

Anni fà ho fatto anche questo , ma francamente ora non ricordo come prodedere, devo rifare un rispolvero.

Se riesco bene ...

Ciao

mike58

Posted on 17/10/2023, 08:18

Top Member

Group:: Member

Posts:: 559

Status:

Matteo per lo scritto sopra circa l'istanziare in automatico la cartella su dove scrivere , purtroppo gli esempi e le prove non vanno a buon fine.

Purtroppo con gli esempi a mia disposizione mi viene fuori un errore di Libreria non presente, in passato questi esempi funzionavano ora sicuramente qualcosa e parlo di librerie qualcosa è andato perso.

Purtroppo ( mi ripeto) questa via non è percorribile.

Mi spiace

71 replies since 13/10/2023, 18:49 1605 views