Triambi consecutivi grazie a Mike58

« Older Newer »

New Mat

Posted on 17/10/2023, 08:39

Top Member

Group:: Member

Posts:: 3,912

Status:

Buongiorno e grazie ancora Mike,
fermati lì perché lo script è perfetto così.
Hai eliminato tutta la creazione di tabelle che avevamo fatto prima e le cui elaborazioni erano lunghe e poche versatili.
Ora è tutto semplicissimo, con il tuo script a qualsiasi data si riesce a ricavare velocissimamente una tabella excel con la situazione totale perfetta ed a ognuna di esse è possibile aggiungere qualsiasi colonna con qualsiasi tipo di calcolo.

Le tabelle ad una certa data sono indispensabili per capire cosa è successo in passato successivamente alla stessa data operando certe scelte oppure altre: seguendo il criterio ad esempio dei Rit.min storici più bassi oppure quello dei ritardi massimi attuali oppure combinati tra loro oppure ancora seguendo un criterio per fasce di ritardo oppure qualsiasi altra cosa...

Lo script che hai creato è il mezzo più veloce possibile e nello stesso tempo ti permette di fare tante scelte, basta avere la fantasia.

Per questo e per tutto il resto continuerò sempre a ringraziarti, ciao

Matteo

mike58

Posted on 17/10/2023, 10:50

Top Member

Group:: Member

Posts:: 559

Status:

Ottimo Matteo, mi ripeto peccato non poter scrivere direttamente in una cartella esistente , con i miei vecchi esempi funzionava , ma ora forse in w11 mi da errore di libreria persa.... per quei codici che dovrei usare.
Pazienza per questa soluzione.

Tuttavia se hai delle aggiunte o parametri che vuoi far far allo script, tipo somma ritardi, differenza storico con altro magari possiamo farlo scrivere allo script per poi riportarlo in excel.

Ciao

New Mat

Posted on 17/10/2023, 12:59

Top Member

Group:: Member

Posts:: 3,912

Status:

Ciao Mike,
se proprio vogliamo completare quanto accennato, da parte mia nei fogli excel sto aggiungendo

1) una colonna con la somma dei 3 ritardi dei tre ambi;

2) una colonna con la differenza tra la colonna F e la colonna E, cioè tra Max_Rit e Min_Rit attuali; per questo parametro più è piccola la differenza e migliore dovrebbe essere la formazione e con differenza uguale a zero in pratica avremmo gli ambi sincroni.
Di solito a questi ultimi va la mia preferenza poi ognuno può fare le sue scelte.

Ciao ed ancora grazie di tutto,
Matteo

mike58

Posted on 17/10/2023, 15:54

Top Member

Group:: Member

Posts:: 559

Status:

Prova Matteo le 2 colonne richieste

SPOILER (clicca per visualizzare)

Sub Main
Dim MinRit(3),Mat(117480,11)
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) & _
"SumRit = 9" & Chr(13) & "DiffRit = 10" & Chr(13) & "Min_RitStor = 11",,11))
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 Somma Ritardi",1
If col = 10 Then Scrivi "Ordinamento per Diff Rit Min-Max",1
If col = 11 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 ; SommaRit ; Diff_Min-Max ; 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) & "SumRit" & _
Space(1) & "DiffRit" & 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
SumRit = MinRit(1)+MinRit(2)+MinRit(3)
'-----------------------------------------------------
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)
DiffRit = Differenza(min,max)
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) = SumRit
Mat(k,10) = DiffRit
Mat(k,11) = 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 & SumRit & ";"
sRiga = sRiga & DiffRit & ";"
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) & _
" | " & FormatSpace(Mat(x,10),4) & " | " & FormatSpace(Mat(x,11),4)
Next
Scrivi k,1
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub

New Mat

Posted on 17/10/2023, 17:31

Top Member

Group:: Member

Posts:: 3,912

Status:

Ciao Mike,
a prima vista mi sembrava tutto ok poi ho trovato qualcosina che non va.

Con il nuovo script trovo questo

20.21 , 21.22 , 31.32 38 38 38 38 38 114 90 163

Invece con lo script precedente aggiungendo manualmente le due colonne trovo giustamente invece del 90 lo 0 ( zero).

L'ho scoperto subito perché lo avevo già individuato in precedenza essendo in questo momento l'unico triambo su BA-NA-PA con tre ambi sincroni.
Io non ho capito perché dà questo errore, ma credo che tu capirai subito il motivo.
Ottimo lavoro!
Grazie e ciao,
Matteo

mike58

Posted on 17/10/2023, 18:11

Top Member

Group:: Member

Posts:: 559

Status:

Ok Matteo il codice Differenza tra min e max se uguale da 90 in quanto essendo creato per il lotto lo zero non è un numero giocabile.
Ho forzato il codice semplicemente con un if-then
se min = max then diffRit = 0
ciao

SPOILER (clicca per visualizzare)

Sub Main
Dim MinRit(3),Mat(117480,11)
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) & _
"SumRit = 9" & Chr(13) & "DiffRit = 10" & Chr(13) & "Min_RitStor = 11",,11))
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 Somma Ritardi",1
If col = 10 Then Scrivi "Ordinamento per Diff Rit Min-Max",1
If col = 11 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 ; SommaRit ; Diff_Min-Max ; 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) & "SumRit" & _
Space(1) & "DiffRit" & 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
SumRit = MinRit(1) + MinRit(2) + MinRit(3)
'-----------------------------------------------------
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)
DiffRit = Differenza(min,max)
If min = max Then DiffRit = 0
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) = SumRit
Mat(k,10) = DiffRit
Mat(k,11) = 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 & SumRit & ";"
sRiga = sRiga & DiffRit & ";"
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) & _
" | " & FormatSpace(Mat(x,10),4) & " | " & FormatSpace(Mat(x,11),4)
Next
Scrivi k,1
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub

New Mat

Posted on 17/10/2023, 18:40

Top Member

Group:: Member

Posts:: 3,912

Status:

Bravo Mike,
avevo capito che era un problema d'impostazione, ora è perfetto.
Ancora e sempre grazie di tutto, speriamo che qualcuno riesca a guadagnarci qualcosa con qualche bella vincita.
Ciao e buona serata,
Matteo

mike58

Posted on 17/10/2023, 18:51

Top Member

Group:: Member

Posts:: 559

Status:

Bravo Matteo, andare a scovare un Tri-ambo con ritardo sincrono non era facile.
Se Trovi altri filtri che possono facilitare la raccolta vediamo di immetterli.

Ciao una buona serata.

mike58

Posted on 17/10/2023, 19:12

Top Member

Group:: Member

Posts:: 559

Status:

Seguivo questi Ambi sincroni su Ro-MI-Na ruote estratte in contemporanea sulle venus
ed volevo verificarne la possibile sortita
Puntulmente su Roma 70.71

La ricerca non è male.

New Mat

Posted on 17/10/2023, 20:54

Top Member

Group:: Member

Posts:: 3,912

Status:

Bravo Mike,
puntare sugli ambi sincroni è sempre consigliabile ed ora i primi 3 ambi che hai riportato a ritardo attuale 135 credo che siano da seguire anche se in questo momento sto cercando di concentrarmi ed approfondire le indagini per sedi estrattive.
Purtroppo il tempo è sempre avaro, comunque qualcosa si può sempre fare ed i mezzi non mancano.
Ciao e buona serata a tutti,
Matteo

mike58

Posted on 19/10/2023, 13:36

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Matteo, visto che si parla anche di ambi consecutivi sincroni al ritardo, ho fatto uno script che elenca gli ambi consecutivi al ritardo trovato.
Giusto per avere anche sottocchio questa situazione.

SPOILER (clicca per visualizzare)

Sub Main
Dim rc(1),aN(2)
Ini = EstrazioneIni
fin = EstrazioneFin - 1
Scrivi "***** Ambi Consecutivi Sincroni al Ritardo *****",1,,,1,3
T = "Q.tà" & Space(1) & " Rit_Corr" & Space(15) & "Ambi e Ruota" & Space(17) & "|"
Scrivi T,1,,,,,,1
For rit = 700 To 1 Step - 1
For r = 1 To 10
For n1 = 1 To 89
n2 = n1 + 1
a = AmboRitardoTurbo(r,n1,n2,Ini,fin)
If a = rit Then
aN(1) = n1 : aN(2) = n2
rc(1) = a
k = k + 1
riga = riga & SiglaRuota(r) & " - " & StringaNumeri(aN,,1) & " | "
'Scrivi k & vbTab & a & vbTab & SiglaRuota(r) & " - " & n1 & "." & n2
End If
'Next
Next
Next
If k > 2 Then
Scrivi k & vbTab & rc(1) & vbTab & " | " & riga
End If
riga = ""
k = 0
'k = 0
Next
End Sub

New Mat

Posted on 19/10/2023, 21:04

Top Member

Group:: Member

Posts:: 3,912

Status:

Ciao Mike,
ottimo lavoro, alcuni anni fa avevo fatto degli studi su alcuni ambi sortiti nella stessa estrazione, quindi con lo stesso ritardo per poi verificare i successivi ritardi di sortita.
L'avevo fatto per gli ambi in cadenza, per gli ambi in figura e per gli ambi in decina, avevo ricavato alcuni storici, ma ora non saprei da che parte cercarli nella marea di scartoffie e file vari sull'attuale pc ed anche su quello vecchio.
Però non ero riuscito ad approfondire gli ambi consecutivi o meglio ero riuscito per i ritardi attuali, ma per gli storici non riuscii a trovare il tempo per farlo.

Il tuo script è perfetto per tutti gli ambi attuali sincroni, ma c'è qualche possibilità di ricavare i massimi storici per i casi con 3 ambi, 4 ambi, 5 ambi ecc. per la sortita di uno?

Naturalmente in questo momento presterò maggiore attenzione ai casi di ambi consecutivi sincroni per sedi estrazionali.

Non era mia intenzione stuzzicarti e assillarti, ma anche tu ci metti lo zampino.
Grazie già per questo script, ciao e buona serata,
Matteo

Gam73

Posted on 20/10/2023, 08:05

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao mike58 e ciao Matteo,
come vedo gli interventi di spessore non mancano mai.

Ottimo lo script prodotto, stavo cercando anch'io tra i miei listati per aiutare Matteo ma non ci sono riuscito.
Mi permetto di fare un paio di richieste a Mike, se disponibile, per rendere ancora più fruibile l'uso dei dati prodotti.

La prima riguarda la selezione ruota e sarebbe quella di aggiungere l'opzione 1-N ruote.
Mi spiego. Per come impostato, lo script si rivela molto funzionale all'inizio se devo fare una ricerca mirata.
Se però volessi fare una ricerca più ampia, sarebbe interessante aggiungere un input di selezione: "Quante ruote vuoi analizzare?" (1-10).

Se premo 1, allora la ricerca parte per tutte le ruote distinte.
Se premo 2 allora partirà la ricerca tra tutte e 45 le coppie di ruote.
Se premo 3 tra tutti i 120 terni di ruote ecc.
So che il "primo giro" potrebbe essere oneroso in termini di tempi, ma gettato le basi e "registrati" gli storici, poi si potrebbero impostare le ricerche con archivio al di sotto degli storici trovati.

La seconda richiesta riguarda l'inserimento del RdL (Ritardo di Livello) a me tanto caro. Ovvero i ritardi dei singoli ambi già ci si sono, Ordinandoli in ordine crescente si potrebbero trarre altri utili dati.
Ricerca che si potrebbe rielaborare in excel, ma da output sarebbe già pronta.

Ruote analizzate : BA
Combinazione______ RitA / RitB / RitC MinRit MaxRit SumRit DiffRit MinSto
30.31;32.33;70.71 | 154 / 314 / 201 | 154 |314 | 669 | 160 | 153

RdL1 sarebbe (201-154) = 47
RdL2 saerbbe (314-210) = 104

47 è il ritardo dei 2 ambi residui dai primi 3
104 è il ritardo dell'ultimo ambo residuo

Grazie in anticipo per la risposta.
Buona giornata
Saluti

NB: che dici Matteo, una volta riordinati i dati potremmo scrivere una nuova pagina di Lotto sul sito? E riportare gli script definitivi nell'area dedicata, in modo da renderla fruibile anche in futuro?

New Mat

Posted on 20/10/2023, 08:49

Top Member

Group:: Member

Posts:: 3,912

Status:

Ciao Gam,
io credo che sia opportuno fare come dici.
Ma oltre a questo, credo che si possa trasportare dove credi più opportuno per future visioni anche questo post

https://lottogam.forumfree.it/?t=79906509

dove ci sono ottimi interventi.
Io li ho messi in questa sezione per dare una maggiore visibilità per tutti gli interessati.

Adesso anche tu bombardi Mike?
Scherzi a parte credo che anche Mike ci ha fatto l'acquolina e ci stuzzica anche lui.
Ciao a tutti,
Matteo

mike58

Posted on 20/10/2023, 15:30

Top Member

Group:: Member

Posts:: 559

Status:

Ciao Gam, Ciao Matteo per attenermi alla richiesta io lo script con i soli RDL come li vuole Gam, lo posto qui, poi Gam Vedi tu se vuoi metterli nella sezione apposita.
Purtroppo....
per la ricerca ruote singole, coppie , terne non ho ben compreso e per quello che ho compreso per ora non mi sovviene un modus operandi per il costrutto scriptico.
Certo anche i soli Tri-ambi Consecutivi per fare interagire con tutte le ruote senza un Zona Venus o Venus simulate (ruote separate) diventa complicato in termini di tempi di elaborazioni e come dicevo sopra bisogna trovare il modo per rendere fluida una ricerca.

Intanto metto il listato con gli RDL1-2
un saluto.

SPOILER (clicca per visualizzare)

Sub Main
Dim MinRit(3),Mat(117480,13)
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) & _
"SumRit = 9" & Chr(13) & "DiffRit = 10" & Chr(13) & "Min_RitStor = 11" & Chr(13) & "RdL1 By Gam = 12" & Chr(13) & "RdL2 By Gam = 13",,11))
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 Somma Ritardi",1
If col = 10 Then Scrivi "Ordinamento per Diff Rit Min-Max",1
If col = 11 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 ; SommaRit ; Diff_Min-Max ; Min_Sto ; RdL1 ; RdL2 "
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) & "SumRit" & _
Space(1) & "DiffRit" & Space(1) & "MinSto" & Space(1) & "RdL1 by Gam" & Space(1) & "RdL2 By Gam",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
OrdinaMatrice MinRit,1,1
SumRit = MinRit(1) + MinRit(2) + MinRit(3)
'-----------------------------------------------------
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)
DiffRit = Differenza(min,max)
If min = max Then DiffRit = 0
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) = SumRit
Mat(k,10) = DiffRit
Mat(k,11) = sto
Mat(k,12) = MinRit(2) - MinRit(1)
Mat(k,13) = MinRit(3) - MinRit(2)
RdL1 = MinRit(2) - MinRit(1)
RdL2 = MinRit(3) - MinRit(2)

'----------------------------------------------------------------
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 & SumRit & ";"
sRiga = sRiga & DiffRit & ";"
sRiga = sRiga & sto & ";"
sRiga = sRiga & RdL1 & ";"
sRiga = sRiga & RdL2 & ";"

'
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) & _
" | " & FormatSpace(Mat(x,10),4) & " | " & FormatSpace(Mat(x,11),6) & " | " & FormatSpace(Mat(x,12),8) & " | " & FormatSpace(Mat(x,13),4)

Next
Scrivi k,1
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub

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