Richiesta script su fasce di ritardo

[abasul]

Buonasera, chiedo se qualcuno può realizzare uno script sui ritardi per ogni numero compreso in ogni fascia di ritardo. Ad esempio sulla ruota di Bari in data 14-11-2020 nella fascia (30-34) il ritardo visibile sotto il numero 5, sotto il numero 15, il 19, ecc.

 

[Mike58]

Abasul,Chiaro si può fare anche singolarmente, io ho già pronta questa versione con tutte le ruote, e te la posta giusto per non vedere irrisolta la richiesta.

Sub Main
   Dim Ru(1),T,V
   ritroso = CInt(InputBox("quante Estrazioni indietro",,1))
   Ini = EstrazioneFin - 300
   fin = EstrazioneFin - ritroso
   Fine = EstrazioneFin
   fs = CInt(InputBox("Quale fascia di ritardo Minima",,54))
   fsx = CInt(InputBox("Quale fascia di ritardo Massima",,211))
   Scrivi
   SetColorSezione(6)
   Scrivi "Inizio Range : " & GetInfoEstrazione(Ini)
   Scrivi "Fine Range   : " & GetInfoEstrazione(fin)
   Scrivi "Fascie di Ritardo >= a " & fs,1
   Scrivi "Fascie di Ritardo <= a " & fsx,1
   Scrivi
   EndColorSezione
   ResetTimer
   T = Array(T,"Ruota","Presenze Reali","Numeri","Ritardi Relativi Num","Min","Max","Presenza teorica","Scarto","Colpo","VerificaEsito","Ritardo Rp_Gruppo","RsL")
   Call InitTabella(T,,,3,1,"Cambria")
   For r = 1 To 12
      If r = 11 Then r = 12
      Ru(1) = r
      For n = 1 To 90
         Nrit = EstrattoRitardo(r,n,Ini,fin)
         If Nrit >= fs And Nrit <= fsx Then
            k = k + 1
            ReDim Preserve aNum(k)
            aNum(k) = n
            ReDim Preserve pos(k)
            pos(k) = RitPosCrono(n,Ru,fine)
            minGr = MinimoV(pos,1,- 1) ' visualizza il Minimo Rp_Gruppo
            'slr = RitSincDiLiv(n,Ru,fine,k)
         End If
         If Nrit >= fs And Nrit <= fsx Then
            ReDim Preserve NritNum(k)
            NritNum(k) = Nrit
            min = MinimoV(NritNum,1,- 1)
            max = MassimoV(NritNum)
         End If
      Next
      If k > 0 Then
         kk = Round(QuantitaTeoricaCombCompreseTraRit(min,max,1,1,1),2)
         kkk = k - kk
         Call VerificaEsitoTurbo(aNum,Ru,fine,1,1,,,clp,es1)
         'aa = SerieRitardoTurbo(Ini,fin,aNum,Ru,1) ' visualizza anche il ritardo Minimo
         V = Array(V,SiglaRuota(r),k,StringaNumeri(aNum),StringaNumeri(NritNum),min,max,kk,kkk,clp,es1,minGr,slr)
         Call AddRigaTabella(V)
      Else
         vv = Array(vv,SiglaRuota(r),"-","..","..","..","..","..","..","..","..","..","..")
         Call AddRigaTabella(VV)
      End If
      If kkk > 1.20 Then Call SetColoreCella(8,,2)
      k = 0
      kk = 0
      If ScriptInterrotto Then Exit For
   Next
   Call SetTableWidth("100%")
   CreaTabella
   Scrivi
   Scrivi "Script by Mike58",1,,,2,3,,1
   Call Scrivi(TempoTrascorso)
End Sub

 

[abasul]

Grazie Mike58 per questo bellissimo script che ci hai messo a disposizione. Come amante della statististica, ora ti mostro come possa esserci una correlazione tra la statistica sulle fasce di ritardo e quella della legge di Benford. Ruota rilevata ROMA:
i sei numeri della fascia di ritardo 40-44 si presentano nella cifra 4 della Legge di Benford. E' possibile allora che a Roma in pochi colpi può anche uscire l'ambo tra questi sei numeri.