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.
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
