Novità

A GENTIL RICHIESTA...

miki55

miki55

Advanced Member >PLATINUM PLUS<
Signori, sono alla ricerca di uno script dei
MAX RITARDI MINIMI PER AMBO
su una, due e tre ruote.
Qualcuno può darmi una mano?
Ciao e grazie
 
Ciao Miki,

a naso ... consiglierei di provare a cercare sul suo sito o a qualcuno dei frequentatori

o chiedere direttamente a Gam.

E' probabile che qualcosa ci sia.

Sempre a spanne un biambo a tutte ... 50 Estrazioni.

:)
 
Circa 2 anni fa provai a fare la ricerca in oggetto su 2 ruote, non ho lo script perché mi avvalgo di altre routine personali…
Prima di mettere qualche dato è bene specificare alcune incongruenze che ci potrebbero essere per causa ( estrazioni mancanti su alcuni comparti ) come ad esempio meglio escludere la ( ruota nazionale , ancora giovane ) e tenere presente che i comparti di ( Cagliari – Genova ) erano stati aggiunti dal 1939 formando le 10 ruote!

… avevo trovato questi, Ambo su 2 ruote con ritardo minimo del ( Max.- Storico ):

Cagliari – Genova – Ambo [ 43-72 ] – Min.- 341 colpi! ( ruote inserite dal 1939 )

Napoli – Palermo – Ambo [ 08-86 ] – Min. - 381 colpi!

Napoli – Venezia – Ambo [ 33-35 ] – Min. – 387 colpi!

Roma – Venezia – Ambo [ 42-64 ] – Min. – 388 colpi!

( il valore colpi è riferito al numero di estrazioni in cui l’esito non si era verificato )!

Con lo stesso iter si possono sapere i ritardi per un solo comparto , oppure per 3 comparti , basta avere il tempo di stilare la bozza di ricerca …
Nikor.
 
Ultima modifica:
miki55 ha scritto:
Ciao Tom. Puoi passarmelo x favore, così me lo studio un pochino...
Grazie
Clicca per espandere...

Codice: 
Option Explicit
Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   Private aRighe
   Private nQNumPerRiga
   Private aPuntatore
   Private nSviluppate
   Function InitSviluppo(aNumeri,Classe)
      nQNumeri = AlimentArrayNumDaSvil(aNumeri)
      nCombInt = Combinazioni(nQNumeri,Classe)
      nClasse = Classe
      nSviluppate = 0
      If nCombInt > 0 Then
         Call AlimentaArrayRighe
         Call InitArrayPuntatore
      End If
      InitSviluppo = nCombInt
   End Function
   Function GetQuantitaNumeriDaSvil
      GetQuantitaNumeriDaSvil = nQNumeri
   End Function
   Function GetStringaNumDaSvil
      Dim s,k
      s = ""
      For k = 1 To UBound(aBNumDaSvil)
         If aBNumDaSvil(k) Then
            s = s & Format2(k) & "."
         End If
      Next
      GetStringaNumDaSvil = RimuoviLastChr(s,".")
   End Function
   Private Sub InitArrayPuntatore
      Dim k
      ReDim aPuntatore(nClasse)
      For k = 1 To nClasse - 1
         aPuntatore(k) = 1
      Next
      aPuntatore(k) = 0
   End Sub
   Function GetComb(aComb)
      Dim nTmp,K,nPuntatore
      nPuntatore = nClasse
      nTmp = aPuntatore(nPuntatore) + 1
      Do While nTmp > nQNumPerRiga
         nPuntatore = nPuntatore - 1
         If nPuntatore <= 0 Then Exit Do
         nTmp = aPuntatore(nPuntatore) + 1
      Loop
      If nPuntatore > 0 Then
         For K = nPuntatore To nClasse
            aPuntatore(K) = nTmp
         Next
         ReDim aComb(nClasse)
         For K = 1 To nClasse
            aComb(K) = aRighe(K,aPuntatore(K))
         Next
         nSviluppate = nSviluppate + 1
         GetComb = True
      Else
         GetComb = False
      End If
   End Function
   Function GetQuantitaSviluppate
      GetQuantitaSviluppate = nSviluppate
   End Function
   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil = ArrayNumeriToBool(aNumeri)
      For k = 1 To 90
         If aBNumDaSvil(k) Then
            q = q + 1
         End If
      Next
      AlimentArrayNumDaSvil = q
   End Function
   Private Sub AlimentaArrayRighe
      Dim nRiga,k,aNumeri
      Call ArrayBNumToArrayNum(aBNumDaSvil,aNumeri)
      nQNumPerRiga =(nQNumeri - nClasse) + 1
      ReDim aRighe(nClasse,nQNumPerRiga)
      For nRiga = 1 To nClasse
         'i = 0
         For k = nRiga To(nRiga + nQNumPerRiga) - 1 '(nQNumeri - nClasse) + nRiga
            ' i = i + 1
            ' i = (k - nRiga )+1
            aRighe(nRiga,(k - nRiga) + 1) = aNumeri(k)
         Next
      Next
   End Sub
   Sub OutputARighe
      Dim k,j,s
      For k = 1 To nClasse
         s = ""
         For j = 1 To nQNumPerRiga
            s = s & Format2(aRighe(k,j)) & "."
         Next
         Call Scrivi(Format2(k) & ") " & RimuoviLastChr(s,"."))
      Next
   End Sub
End Class
Sub Main
   Dim clSvi
   Dim nClasse
   Dim nSorte
   Dim k,j
   Dim sNumeri
   Dim idComb
   Dim nInizio,nFine
   Dim idValoreDaAna
   Dim sValoreUsato
   Dim CombTot
   Dim aRuote
   Set clSvi = New clsSviluppo
   Dim quantirisultati
   Dim Col_Ord
   Dim Tipo_Ord
   Dim QNS
   ReDim aNum(0)
   QNS = ScegliNumeri(aNum)
   nClasse = ScegliEsito(2,1,90)
   Call ScegliRuote(aRuote)
   nSorte = ScegliSorte
   idValoreDaAna = ScegliValoreDaAnalizzare(sValoreUsato)
   Col_Ord = CInt(InputBox("Colonna da ordinare (freq= 2; Rit= 3; RitMax= 4; Diff= 5; Incmax= 6).","colonna da ordinare ",3))
   Tipo_Ord = CInt(InputBox("Ordinamento (Crescente > 0 1; Decresc = 0).","Ordinamento ",1))
   nInizio = EstrazioneIni
   nFine = EstrazioneFin
   If nClasse > 0 And nSorte > 0 And nSorte <= nClasse And idValoreDaAna > 0 Then
      Call Messaggio("Sviluppo combinazioni di classe " & nClasse)
      CombTot = clSvi.InitSviluppo(aNum,nClasse)
      Call Messaggio("Lunghette totali da analizzare " & CombTot)
      ReDim aCombMigliori(CombTot,6)
      Call Messaggio("Statistica combinazioni in corso ")
      ReDim aCol(nClasse)
      Do While clSvi.GetComb(aCol) = True
         Call AnalisiComb(aCol,aRuote,nSorte,aCombMigliori,nInizio,nFine,idValoreDaAna)
         k = k + 1
         If k Mod 1 = 0 Then
            Call Messaggio("Statistica combinazioni in corso " & k & " di " & CombTot)
            Call AvanzamentoElab(1,CombTot,k)
            If ScriptInterrotto Then Exit Do
         End If
      Loop
      Call Messaggio("")
      Call Scrivi("Combinazioni di classe " & nClasse & " analizzate per punti " & nSorte & " sulle ruote " & GetRuoteUsate(aRuote))
      Call Scrivi("La seguente lista mostra le prime " & quantirisultati & " Combinazioni In Base al valore di " & sValoreUsato)
      Call Scrivi("Range analizzato " & GetInfoEstrazione(nInizio) & " fino a " & GetInfoEstrazione(nFine))
      Call Scrivi("Estrazioni analizzate totali : " &(nFine + 1) - nInizio)
      Call Scrivi
      For k = 1 To UBound(aCombMigliori)
         ReDim ADati(6)
         ADati(1) = aCombMigliori(k,4)
         ADati(2) = aCombMigliori(k,1)
         ADati(3) = aCombMigliori(k,2)
         ADati(4) = aCombMigliori(k,3)
         ADati(5) = aCombMigliori(k,5)
         ADati(6) = aCombMigliori(k,6)
         Dim ccolonna
         Dim contatore
         contatore = contatore + 1
         Dim diff
         If ADati(5) <= 10 Then
            Call Scrivi("formazione: " & ADati(1) & " -" & " FQ " & ADati(2) & " -" & " RA " & ADati(3) & " -" & " RS " & ADati(4) & " -" & diff & " <font color=red bgcolor=yellow>" & ADati(5) & " -" & " INCMAX " & ADati(6) & "</font>" & " -" & " contatore " & contatore)
         Else
            Call Scrivi("formazione: " & ADati(1) & " -" & " FQ " & ADati(2) & " -" & " RA " & ADati(3) & " -" & " RS " & ADati(4) & " - DIFF " & ADati(5) & " -" & " INCMAX " & ADati(6) & " -" & " contatore " & contatore)
         End If
      Next
      Call Scrivi
      Call Scrivi("Tempo trascorso: " & TempoTrascorso)
      Call Scrivi
   Else
      MsgBox "Selezionare la classe di sviluppo e la Sorte , " & _
      "si ricorda che la Sorte non puo essere maggiore della classe di sviluppo " & _
      "e che bisogna scegliere quale valore statistico considerare per " & _
      "alimentare la lista delle prime N Combinazioni desiderate da mostrare in output "
   End If
End Sub
Sub AnalisiComb(aNum,aRuote,Sorte,aCombMig,nInizio,nFine,idValoreDaAna)
   Dim k,j
   Dim Rit
   Dim RitMax
   Dim Freq
   Dim Valore
   Dim diff
   Dim RetIncrRitMax
   Call StatisticaFormazioneTurbo(aNum,aRuote,Sorte,Rit,RitMax,RetIncrRitMax,Freq,nInizio,nFine)
   diff = RitMax - Rit
   Select Case idValoreDaAna
   Case 1
      Valore = Freq
   Case 2
      Valore = Rit
   Case 3
      Valore = RitMax
   End Select
   For k = 1 To UBound(aCombMig)
      If Valore >= aCombMig(k,0) Then
         For j = UBound(aCombMig) To(k + 1) Step - 1
            aCombMig(j,0) = aCombMig(j - 1,0)
            aCombMig(j,1) = aCombMig(j - 1,1)
            aCombMig(j,2) = aCombMig(j - 1,2)
            aCombMig(j,3) = aCombMig(j - 1,3)
            aCombMig(j,4) = aCombMig(j - 1,4)
            aCombMig(j,5) = aCombMig(j - 1,5)
            aCombMig(j,6) = aCombMig(j - 1,6)
         Next
         aCombMig(k,0) = Valore
         aCombMig(k,1) = Freq
         aCombMig(k,2) = Rit
         aCombMig(k,3) = RitMax
         aCombMig(k,4) = StringaNumeri(aNum)
         aCombMig(k,5) = diff
         aCombMig(k,6) = RetIncrRitMax
         Exit For
      End If
   Next
End Sub
Function ScegliSorte()
   ReDim aVoci(4)
   aVoci(0) = "Estratto"
   aVoci(1) = "Ambo"
   aVoci(2) = "Terno"
   aVoci(3) = "Quaterna"
   aVoci(4) = "Cinquina"
   ScegliSorte = ScegliOpzioneMenu(aVoci,1,"Scegli Sorte") + 1
End Function
Function ScegliValoreDaAnalizzare(sValore)
   ReDim aVoci(4)
   Dim i
   aVoci(0) = "Frequenza"
   aVoci(1) = "Ritardo"
   aVoci(2) = "Ritardo massimo"
   aVoci(3) = "Differenza Aurea"
   aVoci(4) = "IncMax"
   i = ScegliOpzioneMenu(aVoci,1,"Quale valore considerare per l'ordinamento ? ")
   sValore = aVoci(i)
   ScegliValoreDaAnalizzare = i + 1
End Function
Function GetRuoteUsate(aRuote)
   Dim k
   Dim s
   For k = 1 To UBound(aRuote)
      s = s & SiglaRuota(aRuote(k)) & " "
   Next
   GetRuoteUsate = Trim(s)
End Function
 
Non Lo so se esatto ma il riardo minimo potremmo anche così estrapolarlo

script per spaziometria vbscript

Codice: 
Sub Main
   Dim aN(2)
   Dim Ru(1),er(12)
   Ini = EstrazioneIni
   fin = EstrazioneFin '- 1
   fine = EstrazioneFin
   rit = CInt(InputBox("Quale Ritardo Minimo Considerato Max3",,110))
   qt = CInt(InputBox("Quante ruote",,3))
   ResetTimer
   Scrivi "Verifica Ambi Per Ritardo =< a  " & rit & " Su Min 3 Ruote " & " *** Project By Miky55 *** Script By Mike58 *** ",1,,,1,3,,1
   Scrivi
   ReDim T(20)
   For x = 1 To 11
      If x = 11 Then x = 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(14) = "Min1"
   T(15) = "Min2"
   T(16) = "Min3"
   T(17) = "Ruote"
   T(18) = "Q.tà Ruote"
   T(19) = "RitMax"
   T(20) = "VerificaEsito"
   Call InitTabella(T,6,,3,0,"Arial Black")
   '-------------------------------------------
   For n = 1 To 89
      For n2 = n + 1 To 90
         aN(1) = n
         aN(2) = n2
         '-------------------------------------------
         ReDim V(20)
         V(1) = StringaNumeri(aN,,1)
         For r = 1 To 11
            If r = 11 Then r = 12
            Ru(1) = r
            er(r) = SerieRitardo(Ini,fin,aN,Ru,2)
            V(r + 1) = er(r)
            If er(r) <= rit Then
               k = k + 1
               'rigaR = rigaR & SiglaRuota(r) & " "
               ReDim Preserve Rut(k)
               Rut(k) = r
            End If
         Next
         Call OrdinaMatrice(er,1,1)
         st = SerieStorico(Ini,fin,aN,Rut,2)
         Call VerificaEsito(aN,Rut,fine,2,,,esito,,esa)
         V(14) = er(1)
         V(15) = er(2)
         V(16) = er(3)
         V(17) = StringaRuote(Rut) 'rigaR
         V(18) = k
         V(19) = st
         V(20) = esa
         If er(3) <= rit And Differenza(er(3),er(1)) < 20 And k = qt Then
            'If k = qt Then
            Call AddRigaTabella(V,,,3,1,"Arial Black")
            '------------------------------------------
            For xx = 1 To 13
               If V(xx) = er(1) Then Call SetColoreCella((xx),2,4)
               If V(xx) = er(2) Then Call SetColoreCella((xx),4,2)
               If V(xx) = er(3) Then Call SetColoreCella((xx),3,2)
               If V(xx) >= rit And V(xx) < er(3) Then Call SetColoreCella((xx),7,5)
               Call SetColoreCella(14,2,4)
               Call SetColoreCella(15,4,2)
               Call SetColoreCella(16,3,2)
               Call SetColoreCella(1,,2)
            Next
         End If
         k = 0
         rigaR = ""
      Next
   Next
   Call SetTableWidth("100%")
   Scrivi "Tempo di Elaborazione.... " & TempoTrascorso,1
   Call CreaTabella(16)
End Sub

Oppure molto + veloce script in Vbnet per LottoProjectLb (SpazioLight)

Codice: 
Class Script
    Sub Main
        Dim T() , V() as string
        dim rit,x,n,n2,r,k,st ,gt  as integer
        Dim Ru(1),er(11),ero(11) ,aN(2) ,Rut() as integer
        dim Ini as integer  = 1
        dim fin as integer = Estrazioniarchivio ' - 1
        'fine = EstrazioneFin
        rit = CInt(InputBox("Quale Ritardo Minimo Considerato Max3",,110))
        gt = CInt(InputBox("Quante ruote",,3))
        Scrivi ("Verifica Ambi Per Ritardo =< a  " & rit & " Su Min 3 Ruote " & " *** Project By Miky55 *** Script By Mike58 *** ",1)
        Scrivi (space(50) & "cliccare sulla colonna per ordinamento",1)
        t = {"Ambi","Ba","Ca","Fi","Ge","Mi","Na","Pa","Ro","To","Ve","Nz","Min1","Min2","Min3","Ruote","Q.tà Ruote","Rit Sto"}
        call inittabella(t)
        '-------------------------------------------
        For n = 1 To 89
            For n2 = n + 1 To 90
                aN(1) = n
                aN(2) = n2
                '-------------------------------------------
                For r = 1 To 11
                    Ru(1) = r
                    er(r) = SerieRitardo(aN,Ru,2,fin,,,ini)
                    ero(r) = serieritardo(an,ru,2,fin,,,ini)
                    If er(r) <= rit Then
                        k = k + 1
                        'rigaR = rigaR & SiglaRuota(r) & " "
                        ReDim Preserve Rut(k)
                        Rut(k) = r
                    End If
                Next
                Call Ordinavettore (ero,1,11,1)
                st = SerieStorico(an,ru,2,ini,fin)
                If ero(3) <= rit And Differenza(ero(3),ero(1)) < 20 and k = gt Then
call messaggiolista("Ruota : " & arrayruotetostring(rut) & space(20) & formattasecondi(seconditrascorsi),coloreverde)
call avanzamentoelab(n,n2,r)
                    v = {stringanumeri(an),er(1),er(2),er(3),er(4),er(5),er(6),er(7),er(8),er(9),er(10),er(11),ero(1),ero(2),ero(3),arrayruotetostring(rut),k,st}
                    
                    Call AddRigaTabella(V)
                    '------------------------------------------
                    For xx as integer  = 1 To 11
                        If V(xx) = ero(1) Then Call SetColoreCellarighe ((xx),colorerosso,coloregiallo )
                        If V(xx) = ero(2) Then Call SetColoreCellarighe ((xx),coloregiallo,colorerosso)
                        If V(xx) = ero(3) Then Call SetColoreCellarighe ((xx),coloreverde,colorerosso)
                        'If V(xx) >= rit And V(xx) < er(3) Then Call SetColoreCellarighe((xx),coloremagenta ,colorebianco )
                        Call SetColoreCellarighe (12,colorerosso,coloregiallo )
                        Call SetColoreCellarighe (13,coloregiallo,colorerosso)
                        Call SetColoreCellarighe (14,coloreverde ,colorerosso)
                        Call SetColoreCellarighe (0,,colorerosso)
                        Call SetColoreCellatitolo (12,colorerosso,coloregiallo )
                        Call SetColoreCellatitolo (13,coloregiallo,colorerosso)
                        Call SetColoreCellatitolo (14,coloreverde ,colorerosso)
                        Call SetColoreCellatitolo (0,,colorerosso)
                        Call SetColoreCellatitolo (17,,coloreblu)
                        call setcolorecellarighe  (17,,coloreblu)
                    Next
                End If
                k = 0
                'rigaR = ""
            Next
        Next
        'Call SetTableWidth("100%")
        Scrivi ("Tempo di Elaborazione.... " & formattasecondi(seconditrascorsi))
        Call CreaTabella()
    End Sub
End Class


Verifica Ambi Per Ritardo =< a 110 Su Min 3 Ruote *** Project By Miky55 *** Script By Mike58 ***
cliccare sulla colonna per ordinamento
Tempo di Elaborazione.... 00:00:14

Ambi​
Ba​
Ca​
Fi​
Ge​
Mi​
Na​
Pa​
Ro​
To​
Ve​
Nz​
Min1​
Min2​
Min3 6​
Ruote​
Q.tà Ruote​
Rit Sto​
33.90​
4​
260​
5​
490​
190​
851​
620​
4​
602​
850​
584​
4​
4​
5​
Ba.Fi.Rm​
3​
390​
19.87​
798​
897​
496​
546​
294​
2​
1​
615​
456​
5​
524​
1​
2​
5​
Na.Pa.Ve​
3​
640​
25.79​
349​
937​
196​
183​
1288​
259​
5​
4​
1315​
1210​
7​
4​
5​
7​
Pa.Rm.Nz​
3​
669​
46.84​
151​
541​
7​
8​
160​
272​
399​
1070​
2​
519​
320​
2​
7​
8​
Fi.Ge.To​
3​
757​
 
Nikor ha scritto:
Circa 2 anni fa provai a fare la ricerca in oggetto su 2 ruote, non ho lo script perché mi avvalgo di altre routine personali…
Prima di mettere qualche dato è bene specificare alcune incongruenze che ci potrebbero essere per causa ( estrazioni mancanti su alcuni comparti ) come ad esempio meglio escludere la ( ruota nazionale , ancora giovane ) e tenere presente che i comparti di ( Cagliari – Genova ) erano stati aggiunti dal 1939 formando le 10 ruote!

… avevo trovato questi, Ambo su 2 ruote con ritardo minimo del ( Max.- Storico ):

Cagliari – Genova – Ambo [ 43-72 ] – Min.- 341 colpi! ( ruote inserite dal 1939 )

Napoli – Palermo – Ambo [ 08-86 ] – Min. - 381 colpi!

Napoli – Venezia – Ambo [ 33-35 ] – Min. – 387 colpi!

Roma – Venezia – Ambo [ 42-64 ] – Min. – 388 colpi!

( il valore colpi è riferito al numero di estrazioni in cui l’esito non si era verificato )!

Con lo stesso iter si possono sapere i ritardi per un solo comparto , oppure per 3 comparti , basta avere il tempo di stilare la bozza di ricerca …
Nikor.
Clicca per espandere...
Avevo postato questi dati , e specificato che non posso postare script che non sono compatibili con i vostri software in uso perchè mi avvalgo di un DataBase particolare con particolare linguaggio non compatibile con i vostri.
Mi pare che la richiesta fosse relativa al ritardo Minimo dei ( Max. Precedenti ) ebbene se su 2 comparti attivi dal 1871 avevo postato colpi = a 381 su ( Napoli/Palermo ) vien da sè che su 3 comparti il valore teorico dovrebbe diminuire!!!
In effetti su 3 comparti si scende dall'ultimo valore postato dal bravo Mike58.
Buon lavoro e buon prosieguo , nel caso servano verifiche fatemi un fischio....

Nikor.
 
Ciao Nikor, se ti va prova a verificare in vbnet lo script su 2 ruote come ritardo minimo.

Codice: 
Class Script
    Sub Main
        Dim T() , V() As String
        Dim rit,x,n,n2,r,k,st ,gt,RitM   As Integer
        Dim Ru(1),er(11),ero(11) ,aN(2) ,Rut() As Integer
        Dim Ini As Integer  = 1
        Dim fin As Integer = EstrazioniArchivio ' - 1
        'fine = EstrazioneFin
        rit = CInt(InputBox("Quale Ritardo Minimo Considerato Max3",,30))
        gt = CInt(InputBox("Quante ruote",,2))
        Scrivi ("Verifica Ambi Per Ritardo =< a  " & rit & " Su Min " & gt & " Ruote " & " *** Project By Miky55 *** Script By Mike58 *** ",1)
        Scrivi (Space(50) & "cliccare sulla colonna per ordinamento",1)
        T = {"Ambi","Ba","Ca","Fi","Ge","Mi","Na","Pa","Ro","To","Ve","Nz","Min1","Min2","Min3","Ruote","Q.tà Ruote","Rit Sto"," Rit Min aTTuale "}
        Call InitTabella(T)
        '-------------------------------------------
        For n = 1 To 89
            For n2 = n + 1 To 90
                aN(1) = n
                aN(2) = n2
                '-------------------------------------------
                For r = 1 To 11
                    Ru(1) = r
                    er(r) = SerieRitardo(aN,Ru,2,fin,,,Ini)
                    ero(r) = SerieRitardo(aN,Ru,2,fin,,,Ini)
                    If er(r) <= rit Then
                        k = k + 1
                        'rigaR = rigaR & SiglaRuota(r) & " "
                        ReDim Preserve Rut(k)
                        Rut(k) = r
                    End If
                Next
                Call OrdinaVettore (ero,1,11,1)
                st = SerieStorico(aN,Rut,2,Ini,fin)
                RitM = SerieRitardo(aN,Rut,2,fin,,,Ini)
                If ero(2) <= rit And Differenza(ero(3),ero(1)) < 20 And k = gt Then
Call MessaggioLista("Ruota : " & ArrayRuoteToString(Rut) & Space(20) & FormattaSecondi(SecondiTrascorsi),ColoreVerde)
Call AvanzamentoElab(n,n2,r)
                    V = {StringaNumeri(aN),er(1),er(2),er(3),er(4),er(5),er(6),er(7),er(8),er(9),er(10),er(11),ero(1),ero(2),ero(3),ArrayRuoteToString(Rut),k,st,RitM }
                    
                    Call AddRigaTabella(V)
                    '------------------------------------------
                    For xx As Integer  = 1 To 11
                        If V(xx) = ero(1) Then Call SetColoreCellaRighe ((xx),ColoreRosso,ColoreGiallo )
                        If V(xx) = ero(2) Then Call SetColoreCellaRighe ((xx),ColoreGiallo,ColoreRosso)
                        If V(xx) = ero(3) Then Call SetColoreCellaRighe ((xx),ColoreVerde,ColoreBianco )
                        'If V(xx) >= rit And V(xx) < er(3) Then Call SetColoreCellarighe((xx),coloremagenta ,colorebianco )
                        Call SetColoreCellaRighe (12,ColoreRosso,ColoreGiallo )
                        Call SetColoreCellaRighe (13,ColoreGiallo,ColoreRosso)
                        Call SetColoreCellaRighe (14,ColoreVerde ,ColoreBianco)
                        Call SetColoreCellaRighe (0,,ColoreRosso)
                        Call SetColoreCellaTitolo (12,ColoreRosso,ColoreGiallo )
                        Call SetColoreCellaTitolo (13,ColoreGiallo,ColoreRosso)
                        Call SetColoreCellaTitolo (14,ColoreVerde ,ColoreBianco )
                        Call SetColoreCellaTitolo (0,,ColoreRosso)
                        Call SetColoreCellaTitolo (17,,ColoreBlu)
                        Call SetColoreCellaRighe  (17,,ColoreBlu)
                    Next
                End If
                k = 0
                'rigaR = ""
            Next
        Next
        'Call SetTableWidth("100%")
        Scrivi ("Tempo di Elaborazione.... " & FormattaSecondi(SecondiTrascorsi))
        Call CreaTabella()
    End Sub
End Class

Verifica Ambi Per Ritardo =< a 30 Su Min 2 Ruote *** Project By Miky55 *** Script By Mike58 ***
cliccare sulla colonna per ordinamento
Tempo di Elaborazione.... 00:00:11

Ambi​
Ba​
Ca​
Fi​
Ge​
Mi​
Na​
Pa​
Ro​
To​
Ve​
Nz​
Min1​
Min2​
Min3​
Ruote​
Q.tà Ruote​
Rit Sto​
Rit Min aTTuale ​
2.36​
30​
1663​
245​
25​
55​
35​
1040​
55​
187​
674​
940​
25​
30​
35​
Ba.Ge​
2​
1051​
25​
4.22​
345​
312​
17​
24​
484​
55​
1726​
35​
1069​
774​
529​
17​
24​
35​
Fi.Ge​
2​
1098​
17​
4.61​
120​
917​
17​
37​
18​
89​
98​
183​
79​
278​
33​
17​
18​
33​
Fi.Mi​
2​
661​
17​
6.84​
558​
347​
100​
64​
162​
21​
400​
27​
467​
495​
37​
21​
27​
37​
Na.Rm​
2​
733​
21​
11.29​
175​
793​
18​
22​
36​
100​
836​
198​
343​
115​
543​
18​
22​
36​
Fi.Ge​
2​
1767​
18​
 
Ciao Mike, mi sa tanto che l'inghippo nasce dal primo post :
La richiesta era
miki55 ha scritto:
Signori, sono alla ricerca di uno script dei
MAX RITARDI MINIMI PER AMBO
su una, due e tre ruote.
Qualcuno può darmi una mano?
Ciao e grazie
Clicca per espandere...
Io questo scritto [ MAX RITARDI MINIMI PER AMBO ] lo interpreto come il minimo valore dei massimi Storici!
Il ritardo Minimo Storico per un Ambo su 3 comparti , scende sotto le 300 estrazioni dal 1871.

... poi se ho inteso male pazienza...
Nikor.
 
Mi scuso e chiudo qui questo mio intervento considerando che farsi capire sul forum è sempre più difficile e lo scrivo con un pizzico di rammarico e dispiacere…

Sappiamo che su 2 comparti il valore minimo di ritardo per Ambo sarà = a [ Ø ] perché sono estratti 10 Ambi che si formano con 5 numeri! su 2 comparti saranno 20 Ambi e 30 Ambi su 3 comparti!

Il valore di ritardo attuale ( RC ) può variare a seconda della terna di ruote in esame!

La richiesta fatta al 1° post recita un valore MAX RITARDI MINIMO PER AMBO !!!
*************************************************************
Concludo scrivendo che su 3 Ruote questo valore conosciuto è = 274!
Si era verificato sui comparti di [ Firenze/Napoli/Roma ] con l’Ambo 54-68.
*****************************************************************
... quando si innesca un contraddittorio solo per il piacere di far dispetto a qualcuno si devono scrivere dati veritieri e dimostrare il contrario ... oppure nel caso di incomprensioni ( specificare con esempi ) di cosa si stia ricercando!

Tolgo il disturbo, ma non solo da questo thread , non intendo più partecipare a nessuna discussione attiva e mi limiterò solo a monitorare le mie personali analisi.
Non credo ci sia altro da aggiungere...
Nikor.
 
Io penso che quando uno come Miki

scrive Max ... Max abbia un significato.

Penso anche lo si possa assimilare a Storico.

Quindi Minimo-Massimo sia leggibile come "Storico-basso"

Poi naturalmente "a ruota" / "a tutte" in "coppie di ruote" / "Terne" / ecc ...

Così pure di una formazione singola oppure di 2 Ambi / 3 Ambi / ....

porta alla creazione di altrettante tavole di risultati.

Io questa mattina ho trovato questo:

miki.jpg

Si legge più o meno così:

Ci sono 5 Ambi sempre caduti (dal 1945 ad oggi) entro le 130 estrazioni.

Di questi ho riportato anche i ritardi attuali e lo storico.

Sottolineo che poche estrazioni fa ... 2 di questi erano sincroni!

Dunque si hanno davanti circa 120 estrazioni entro le quali ci si aspetta qualcosa.

O la caduta ... o il superamento dello storico attualmente consolidato.

S.E.&O.

:) Joe
 
il mio ritardo minimo storico su 3 ruote estrapolato mi risulta così.
Non metto lo script tanto è inutile.
anche io continuo per la mia strada.
Le interpretazioni sono e possono essere tante e diverse.

30 casi 00:08:12

Casi ​
Ambo ​
Ruote ​
Rit_Sto 6​
Rit_Att ​
freq ​
Pres ​
19​
39.89​
Ba.Mi.Pa​
218​
79​
65​
65​
29​
64.89​
Ba.To.Ve​
233​
93​
68​
68​
2​
2.8​
Ge.Na.Rm​
245​
206​
60​
60​
3​
2.8​
Na.Pa.Rm​
245​
206​
63​
63​
7​
9.57​
Fi.Na.To​
246​
128​
75​
75​
10​
15.25​
Fi.Mi.Rm​
249​
72​
60​
60​
 
su 2 ruote

12 00:02:12


Casi ​
Ambo ​
Ruote ​
Rit_Sto 6​
incr ​
Rit_Att ​
freq ​
pres ​
3​
13.47​
Ge.Mi​
290​
0​
35​
47​
47​
12​
53.58​
Mi.Ve​
316​
0​
8​
49​
49​
11​
51.61​
Pa.To​
317​
0​
60​
44​
44​
9​
43.49​
Na.Ve​
318​
0​
247​
42​
42​
1​
6.44​
Fi.Ge​
319​
0​
96​
47​
47​
7​
27.79​
Fi.Mi​
319​
0​
249​
49​
49​
2​
12.79​
Ba.Fi​
322​
0​
35​
47​
47​
4​
17.87​
Fi.Pa​
324​
0​
98​
40​
40​
6​
19.48​
Fi.To​
324​
0​
126​
46​
46​
5​
18.66​
To.Ve​
325​
0​
2​
46​
46​
8​
40.68​
Fi.To​
325​
0​
275​
45​
45​
10​
49.72​
Mi.Pa​
327​
0​
240​
40​
40​
 
Ciao Mike, non c'è ombra di dubbio che i dati che hai postato sono esatti ( ne ho presi 2 a campione e collimano) ...
Allora dove sta l'inghippo?
Subito svelato perchè tu non sei partito da tutto l'Archivio Storico!
Mentre nel mio primo intervento avevo scritto:
Nikor ha scritto:
… avevo trovato questi, Ambo su 2 ruote con ritardo minimo del ( Max.- Storico ):

Cagliari – Genova – Ambo [ 43-72 ] – Min.- 341 colpi! ( ruote inserite dal 1939 )

Napoli – Palermo – Ambo [ 08-86 ] – Min. - 381 colpi!

Napoli – Venezia – Ambo [ 33-35 ] – Min. – 387 colpi!

Roma – Venezia – Ambo [ 42-64 ] – Min. – 388 colpi!
Clicca per espandere...
Notando che avevo fatto esplicito riferimento ai 2 comparti dal 1939 era plausibile che per le altre coppie l'analisi era su tutto il range .
Anche per le 3 ruote ( postate in precedenza ) l'analisi è stata condotta su Tutto l'Archivio.
Nikor ha scritto:
*************************************************************
Concludo scrivendo che su 3 Ruote questo valore conosciuto è = 274!
Si era verificato sui comparti di [ Firenze/Napoli/Roma ] con l’Ambo 54-68.
*****************************************************************
Clicca per espandere...
Abbiamo cosi svelato l'arcano , questo è successo solo perchè mancava nella richiesta l'esplicita voce ( su quale range si doveva effettuare la ferifica)!
... ora se tu con le tue routine vorrai ferificare vedrai che i dati che avevo postato sono esatti , sempre a meno di non avere nel mio DataBase qualche incongruenza...
Buona serata, da Nikor.
 
Si !!! Nikor hai ragione sull'inizio archivio.
Io sono partito dalla estraz 3950 dalla quale tutte le ruote risultano estratte in modo da avere un dato equivalente per le 10 ruote.
come si può vedere anche senza la ruota nazioanale.

Il tuo dato è anche'esso corretto con l'archizio inizio 1

1 00:04:59


Casi ​
Ambo ​
Ruote ​
Rit_Sto ​
incr ​
Rit_Att ​
freq ​
pres ​
1​
43.72​
Ca.Ge​
341​
0​
20​
46​
46​


Ma lasciamo stare qui la discussione.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto