CITAZIONE (mike58 @ 17/10/2023, 19:11)
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
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
Ciao a tutti,
in riferimento allo script bellissimo di Mike ripreso qui del 17-10-2023, ora sono passate solo 5 estrazioni.
Vediamo cosa è successo in questi concorsi.
Utilizzando lo script e mettendo in ordine decrescente per la colonna SommaRit
con le ruote
NA-PA-BA della sede estrazionale di NA, dopo quella data il prodotto dello script era questo per le prime posizioni
script RitA RitB RitC Min_Rit Max_Rit SommaRit Diff_Min-Max Min_Sto
08.09 , 45.46 , 78.79 449 654 650 449 654 1753 205 17245.46 , 78.79 , 86.87 654 650 423 423 654 1727 231 165
45.46 , 78.79 , 85.86 654 650 374 374 654 1678 280 177
45.46 , 60.61 , 78.79 654 359 650 359 654 1663 295 227
26.27 , 45.46 , 78.79 353 654 650 353 654 1657 301 195
05.06 , 45.46 , 78.79 339 654 650 339 654 1643 315 238
45.46 , 78.79 , 79.80 654 650 297 297 654 1601 357 183
In prima posizione spiccava il triambo
con l'ambo 8.9 sortito poi a PA, come ho già segnalato, dopo solo 2 estrazioni.Alla stessa data utilizzando lo stesso script e mettendo in ordine decrescente per la colonna SommaRi per le ruote di GE-MI-TO-VE della sede estrazionale di MI e con lo stesso criterio, il prodotto dello script era questo per le prime 26 posizioni
Tri-Ambi RitA RitB RitC Min_Rit Max_Rit SommaRit Diff_Min-Max Min_Sto
46.47 , 52.53 , 59.60 375 432 359 359 432 1166 73 174
24.25 , 46.47 , 52.53 346 375 432 346 432 1153 86 235
46.47 , 48.49 , 52.53 375 344 432 344 432 1151 88 176
46.47 , 52.53 , 68.69 375 432 333 333 432 1140 99 170
46.47 , 52.53 , 89.90 375 432 333 333 432 1140 99 257
24.25 , 52.53 , 59.60 346 432 359 346 432 1137 86 159
36.37 , 46.47 , 52.53 328 375 432 328 432 1135 104 174
48.49 , 52.53 , 59.60 344 432 359 344 432 1135 88 192
52.53 , 59.60 , 68.69 432 359 333 333 432 1124 99 140
52.53 , 59.60 , 89.90 432 359 333 333 432 1124 99 200
24.25 , 48.49 , 52.53 346 344 432 344 432 1122 88 159
32.33 , 46.47 , 52.53 315 375 432 315 432 1122 117 170
36.37 , 52.53 , 59.60 328 432 359 328 432 1119 104 251
24.25 , 52.53 , 68.69 346 432 333 333 432 1111 99 149
24.25 , 52.53 , 89.90 346 432 333 333 432 1111 99 235
48.49 , 52.53 , 68.69 344 432 333 333 432 1109 99 121
48.49 , 52.53 , 89.90 344 432 333 333 432 1109 99 176
24.25 , 36.37 , 52.53 346 328 432 328 432 1106 104 156
32.33 , 52.53 , 59.60 315 432 359 315 432 1106 117 140
36.37 , 48.49 , 52.53 328 344 432 328 432 1104 104 130
52.53 , 68.69 , 89.90 432 333 333 333 432 1098 99 186
24.25 , 32.33 , 52.53 346 315 432 315 432 1093 117 143
36.37 , 52.53 , 68.69 328 432 333 328 432 1093 104 186
36.37 , 52.53 , 89.90 328 432 333 328 432 1093 104 216
32.33 , 48.49 , 52.53 315 344 432 315 432 1091 117 157
46.47 , 52.53 , 63.64 375 432 281 281 432 1088 151 102
In pratica tutti i 26 triambi con somma ritardi più elevata
avevano l'ambo 52.53 e ieri sera proprio questo ambo è sortito a VE.
In 5 estrazioni due importanti sfaldamenti, niente male per chi avesse fatto queste scelte.
Purtroppo io no, siamo sempre in fase d'osservazione e studio mentre questi ambi vengono estratti, peccato!
Per la sede di RO con le ruote di CA-FI-RO-NAZ attualmente abbiamo questi triambi nelle prime posizioni per somma ritardi:
Ruote analizzate : CA.FI.RO.NZ
Combinazione------ RitA / RitB / RitC MinRit MaxRit SumRit DiffRit MinSto
07.08;15.16;17.18 | 285 / 334 / 300 | 285 |334 | 919 | 49 | 148
15.16;17.18;62.63 | 334 / 300 / 284 | 284 |334 | 918 | 50 | 148
07.08;15.16;62.63 | 285 / 334 / 284 | 284 |334 | 903 | 50 | 178
Questa sede ancora non ha dato ambi, però da tener presente che i dati di questi ambi sono molto inferiori rispetto a quelli precedenti delle altre due sedi, pertanto per questi l'attesa potrebbe essere lunga.
Grazie a Mike che con il suo script ha permesso a chiunque di ottenere questi dati e fare le scelte che ognuno ritiene più opportune.
Ciao a tutti,
Matteo