Novità

Domandina agli esperti

ananda

ananda

Advanced Member >PLATINUM PLUS<
Salve. Guardando il tabellone analitico, come si fa a sapere la data di ultima uscita di un ambo di una coppia sincrona dal ritardo 40 in poi? C'è uno script che può aiutarmi?
Grazie
 
ananda ha scritto:
Salve. Guardando il tabellone analitico, come si fa a sapere la data di ultima uscita di un ambo di una coppia sincrona dal ritardo 40 in poi? C'è uno script che può aiutarmi?
Grazie
Clicca per espandere...

Ciao ananda non intendi questo vero?


nonintendiquestovero.jpg

nell'esempio non ci sono coppie sincrone ma è tanto per capire... 👋 :)
 
Ciao tom. SI credo di sì. Come sai le coppie sincrone spesso si sfaldano con l'uscita di uno dei due numeri. A volte però esce l'ambo. Ecco vorrei sapere, ad esempio adesso, da quante estrazioni non esce un ambo di questo tipo, dal ritardo 40 in su.
Spero di essere stato chiaro.
In che senso non ci sono coppie sincrone? Quelle cerchiate non sono coppie sincrone? o_O A meno che tu non intenda con coppie sincrone quelle sula stessa riga ma su due ruote diverse. Una doppia coppia insomma... Allora in questo caso qui non ci sono. Io intendo i sincroni di 2° livello. Insomma le coppie che hai evidenziato tu.
Grazie
 
ananda ha scritto:
Ciao tom. SI credo di sì. Come sai le coppie sincrone spesso si sfaldano con l'uscita di uno dei due numeri. A volte però esce l'ambo. Ecco vorrei sapere, ad esempio adesso, da quante estrazioni non esce un ambo di questo tipo, dal ritardo 40 in su.
Spero di essere stato chiaro.
In che senso non ci sono coppie sincrone? Quelle cerchiate non sono coppie sincrone? o_O A meno che tu non intenda con coppie sincrone quelle sula stessa riga ma su due ruote diverse. Una doppia coppia insomma... Allora in questo caso qui non ci sono. Io intendo i sincroni di 2° livello. Insomma le coppie che hai evidenziato tu.
Grazie
Clicca per espandere...

Si intendevo quelle.

Ad ogni modo per rilevare la data del ritardo voluto (ra >= 40 ecc...) ti ho leggermente modificato questo spettacolare script di ilegend che mi pare lui abbia chiamato "tabellone analitico intelligente" o qualcosa di simile... aggiungendovi appunto solo la data di estrazione accanto ad ogni ritardo del tabellone. Guarda un pò se ti può essere utile.

Codice: 
Option Explicit
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni by lotto_tom75
' NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI
' CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA
Sub Main
   If MessaggioInfo = False Then Exit Sub
   Dim aColRibb
   Dim PiuRitRu,RitRu,MaxRitTT,Ub
   ReDim aRuVer(0) ' scelgo le ruote su cui effettuare le analisi
   Call ScegliMyRuote(aRuVer)
   Ub = UBound(aRuVer) :If Ub < 1 Then Exit Sub
   ReDim aRit(Ub,2)
   ReDim aNumEstr(Ub,90)
   Call ResetTimer
   Call GetMaxRitTab(aRuVer,aRit,PiuRitRu,RitRu,MaxRitTT)
   aColRibb = RGB(236,235,246)
   Dim spTit:If Ub = 11 Then spTit = 195 : Else spTit = 194
   Scrivi FormatSpace("  Numeri più ritardatari per ruota  ( NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI, CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA)",spTit),1,,RGB(40,148,255),vbWhite,2.5
   Call SetColorSezione(aColRibb)
   If Ub <= 6 Then
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   Else
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,6,aRit,PiuRitRu,RitRu,MaxRitTT)
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,7,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   End If
   Call SetColorSezione(RGB(255,255,245))
   '
   Call GetTestoTab(aRuVer)
   Call GetOutPutTabelloneAnalitico(Ub,aRuVer,MaxRitTT,aRit)
   Call GetTestoTab(aRuVer)
   Scrivi "         Elaborato in : " & TempoTrascorso,1,,,RGB(128,0,0)
End Sub
Function MessaggioInfo()
   MessaggioInfo = True
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & " NON MODIFICARE DA SE I PARAMETRI" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni versione beta 0_1")
   If Quest = 7 Then MessaggioInfo = False
End Function
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e di Verifica") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub
Sub GetMaxRitTab(aRuVer,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim R
   MaxRitTT = 0
   For R = 1 To UBound(aRuVer)
      NumPiuRit = PiuRitardatarioTurbo(EstrazioneFin,aRuVer(R))
      RitRu = EstrattoRitardoTurbo(aRuVer(R),NumPiuRit,EstrazioneFin - 350,EstrazioneFin)
      aRit(R,1) = NumPiuRit
      aRit(R,2) = RitRu
      If MaxRitTT < RitRu Then MaxRitTT = RitRu
   Next
End Sub
Sub GetRibbonPiuRitardatari(acolrib,aRuVer,Lb,Ub,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim i,R,Ucs,k
   Dim aCol(2),aColRu(2),aColNu(2),aColTit(2)
   Scrivi Space(1),,0,,,4
   k = 0
   For i = Lb To Ub
      k = k + 2
      If pari(i) Then
         aColTit(1) =(RGB(140,140,198) - k*7)
         aColTit(2) =(RGB(241,241,248) - k*7)
      Else
         aColTit(1) = RGB(153,193,30) - k*7
         aColTit(2) = RGB(255,255,255) - k*7
      End If
      Scrivi " " & FormatSpace("Ruota",10) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("Estr",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("RcMx",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi Space(1),,0,,,4
   For R = Lb To Ub
      If aRit(R,2) <> MaxRitTT Then
         Ucs = 0
         aCol(1) = RGB(255,255,255)
         aCol(2) = RGB(250,37,96)
         aColRu(1) = RGB(255,255,255)
         aColRu(2) = RGB(0,64,128)
         aColNu(1) = RGB(255,255,245)
         aColNu(2) = RGB(0,64,0)
      Else
         Ucs = 1
         aCol(1) = RGB(250,37,96)
         aCol(2) = RGB(255,255,255)
         aColRu(1) = aCol(1)
         aColRu(2) = aCol(2)
         aColNu(1) = aCol(1)
         aColNu(2) = aCol(2)
      End If
      Scrivi " " & FormatSpace(NomeRuota(aRuVer(R)),10) & " ",Ucs,0,aColRu(1),aColRu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,1),4,1) & " ",Ucs,0,aColNu(1),aColNu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,2),4,1) & " ",Ucs,0,aCol(1),aCol(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi
End Sub
Sub GetTestoTab(aRuVer)
   Dim R,p
   Scrivi "    |   |",,0,RGB(236,235,247)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(236,235,247)
   Next
   Scrivi " ",,,RGB(254,248,182)
   Scrivi "---------CONC-----------|R.C|",,0,RGB(235,234,244)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(6) & SiglaRuota(aRuVer(R)) & Space(6) & "|",,0,RGB(235,234,244)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   Scrivi "    |   |",,0,RGB(234,233,241)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(234,233,241)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub
Sub GetOutPutTabelloneAnalitico(ub,aRuVer,MaxRitTT,aRit)
   ReDim aNum(ub,90)
   Dim IdEstr,nRigo,R,Pres,m,qt,Se,nEstr,p,E,qNr,sca
   Dim scaLim
   Dim aColC(2)
   Dim Ini:Ini = EstrazioneFin - MaxRitTT
   nRigo = - 1
   For IdEstr = EstrazioneFin To Ini Step - 1
      nRigo = nRigo + 1
      'Scrivi GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(IdEstr) ,1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:m = 0
      qt = Round(QuantitaTeoricaCombAlRitX(nRigo),5)
      For R = 1 To ub
         If dispari(R) Then aColC(1) = vbWhite:aColC(2) = RGB(0,101,149):Else aColC(1) = vbWhite:aColC(2) = RGB(38,40,37)
         m = m + 1
         Se = "":nEstr = 0
         For p = 1 To 5
            E = Estratto(IdEstr,aRuVer(R),p)
            ' metodo raccolta numeri di Joe91
            If aNum(R,E) = 0 Then
               ' cekko i numeri appena estratti e non li riutilizzo nell output
               aNum(R,E) = 1
               E = Format2(E)
               Pres = Pres + 1 ' PRESENZE TOTALI RUOTE
               nEstr = nEstr + 1 ' NUMERI PRESENTI NELLA RUOTA SINGOLA
            Else
               E = ".."
            End If
            Se = Se & E & " "
         Next
         Se = RimuoviLastChr(Se," ")
         If nEstr > qt And nRigo <> aRit(R,2) Then
            aColC(1) = RGB(209,209,236)
         ElseIf nRigo = aRit(R,2) Then
            aColC(1) = RGB(255,196,196)
         End If
         Scrivi Se,,0,aColC(1),aColC(2)
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNr = Round(qt*ub,3)
      sca = Round(Pres - qNr,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNr,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca <= 3 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub

Questa versione invece ti evidenzia in giallo il numero di elementi voluti a partire dal ritardo minimo voluto, che viene a sua volta evidenziato in giallo e scritta rossa nella colonna dei ritardi.

Codice: 
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni ed evidenziazione in giallo della quantità dei numeri voluti a partire dal ritardo voluto by lotto_tom75

Option Explicit
' NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI
' CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA
Sub Main
   If MessaggioInfo = False Then Exit Sub
  
   Dim Valorediritardovoluto
   Valorediritardovoluto = CInt(InputBox("ritardo voluto ",,40))
  
   Dim qualenumerodielementivuoievidenziare
   qualenumerodielementivuoievidenziare = CInt(InputBox("quale numero di elementi vuoi evidenziare in giallo (da 1 a 5) ",,2))
  
   Dim aColRibb
   Dim PiuRitRu,RitRu,MaxRitTT,Ub
   ReDim aRuVer(0) ' scelgo le ruote su cui effettuare le analisi
   Call ScegliMyRuote(aRuVer)
   Ub = UBound(aRuVer) :If Ub < 1 Then Exit Sub
   ReDim aRit(Ub,2)
   ReDim aNumEstr(Ub,90)
   Call ResetTimer
   Call GetMaxRitTab(aRuVer,aRit,PiuRitRu,RitRu,MaxRitTT)
   aColRibb = RGB(236,235,246)
   Dim spTit:If Ub = 11 Then spTit = 195 : Else spTit = 194
   Scrivi FormatSpace("  Numeri più ritardatari per ruota  ( NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI, CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA)",spTit),1,,RGB(40,148,255),vbWhite,2.5
   Call SetColorSezione(aColRibb)
   If Ub <= 6 Then
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   Else
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,6,aRit,PiuRitRu,RitRu,MaxRitTT)
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,7,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   End If
   Call SetColorSezione(RGB(255,255,245))
   '
   Call GetTestoTab(aRuVer)
   Call GetOutPutTabelloneAnalitico(Ub,aRuVer,MaxRitTT,aRit,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   Call GetTestoTab(aRuVer)
   Scrivi "         Elaborato in : " & TempoTrascorso,1,,,RGB(128,0,0)
End Sub
Function MessaggioInfo()
   MessaggioInfo = True
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & " NON MODIFICARE DA SE I PARAMETRI" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni versione beta 0_1")
   If Quest = 7 Then MessaggioInfo = False
End Function
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e di Verifica") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub
Sub GetMaxRitTab(aRuVer,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim R
   MaxRitTT = 0
   For R = 1 To UBound(aRuVer)
      NumPiuRit = PiuRitardatarioTurbo(EstrazioneFin,aRuVer(R))
      RitRu = EstrattoRitardoTurbo(aRuVer(R),NumPiuRit,EstrazioneFin - 350,EstrazioneFin)
      aRit(R,1) = NumPiuRit
      aRit(R,2) = RitRu
      If MaxRitTT < RitRu Then MaxRitTT = RitRu
   Next
End Sub
Sub GetRibbonPiuRitardatari(acolrib,aRuVer,Lb,Ub,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim i,R,Ucs,k
   Dim aCol(2),aColRu(2),aColNu(2),aColTit(2)
   Scrivi Space(1),,0,,,4
   k = 0
   For i = Lb To Ub
      k = k + 2
      If pari(i) Then
         aColTit(1) =(RGB(140,140,198) - k*7)
         aColTit(2) =(RGB(241,241,248) - k*7)
      Else
         aColTit(1) = RGB(153,193,30) - k*7
         aColTit(2) = RGB(255,255,255) - k*7
      End If
      Scrivi " " & FormatSpace("Ruota",10) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("Estr",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("RcMx",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi Space(1),,0,,,4
   For R = Lb To Ub
      If aRit(R,2) <> MaxRitTT Then
         Ucs = 0
         aCol(1) = RGB(255,255,255)
         aCol(2) = RGB(250,37,96)
         aColRu(1) = RGB(255,255,255)
         aColRu(2) = RGB(0,64,128)
         aColNu(1) = RGB(255,255,245)
         aColNu(2) = RGB(0,64,0)
      Else
         Ucs = 1
         aCol(1) = RGB(250,37,96)
         aCol(2) = RGB(255,255,255)
         aColRu(1) = aCol(1)
         aColRu(2) = aCol(2)
         aColNu(1) = aCol(1)
         aColNu(2) = aCol(2)
      End If
      Scrivi " " & FormatSpace(NomeRuota(aRuVer(R)),10) & " ",Ucs,0,aColRu(1),aColRu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,1),4,1) & " ",Ucs,0,aColNu(1),aColNu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,2),4,1) & " ",Ucs,0,aCol(1),aCol(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi
End Sub
Sub GetTestoTab(aRuVer)
   Dim R,p
   'Scrivi "    |   |",,0,RGB(236,235,247)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(236,235,247)
   Next
   Scrivi " ",,,RGB(254,248,182)
   Scrivi "---------CONC-----------|R.C|",,0,RGB(235,234,244)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(6) & SiglaRuota(aRuVer(R)) & Space(6) & "|",,0,RGB(235,234,244)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   'Scrivi "    |   |",,0,RGB(234,233,241)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(234,233,241)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub
Sub GetOutPutTabelloneAnalitico(ub,aRuVer,MaxRitTT,aRit,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   ReDim aNum(ub,90)
   Dim IdEstr,nRigo,R,Pres,m,qt,Se,nEstr,p,E,qNr,sca
   Dim scaLim
   Dim aColC(2)
   Dim Ini:Ini = EstrazioneFin - MaxRitTT
   nRigo = - 1
   For IdEstr = EstrazioneFin To Ini Step - 1
      nRigo = nRigo + 1
      'Scrivi GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(IdEstr),1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      If Valorediritardovoluto = nRigo Then
      Scrivi FormattaStringa(nRigo,"000"),True,0,vbYellow,vbRed,5   'RGB(237,254,205),RGB(128,0,0),5
      Else
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      End If
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:m = 0
      qt = Round(QuantitaTeoricaCombAlRitX(nRigo),5)
      For R = 1 To ub
         If dispari(R) Then aColC(1) = vbWhite:aColC(2) = RGB(0,101,149):Else aColC(1) = vbWhite:aColC(2) = RGB(38,40,37)
         m = m + 1
         Se = "":nEstr = 0
         For p = 1 To 5
            E = Estratto(IdEstr,aRuVer(R),p)
            ' metodo raccolta numeri di Joe91
            If aNum(R,E) = 0 Then
               ' cekko i numeri appena estratti e non li riutilizzo nell output
               aNum(R,E) = 1
               E = Format2(E)
               Pres = Pres + 1 ' PRESENZE TOTALI RUOTE
               nEstr = nEstr + 1 ' NUMERI PRESENTI NELLA RUOTA SINGOLA
            Else
               E = ".."
            End If
            Se = Se & E & " "
         Next
         Se = RimuoviLastChr(Se," ")
         If nEstr > qt And nRigo <> aRit(R,2) Then
            aColC(1) = RGB(209,209,236)
         ElseIf nRigo = aRit(R,2) Then
            aColC(1) = RGB(255,196,196)
         End If
        
         If nEstr = qualenumerodielementivuoievidenziare And nRigo  >=  Valorediritardovoluto   Then
         Scrivi Se,,0,vbYellow,vbRed,2
         Else
       Scrivi Se,,0,aColC(1),aColC(2)
       End If
        
        
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNr = Round(qt*ub,3)
      sca = Round(Pres - qNr,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNr,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca <= 3 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub

👋:)
 
Ultima modifica:
lotto_tom75 ha scritto:
Ad ogni modo per rilevare la data del ritardo voluto (ra >= 40 ecc...) ti ho leggermente modificato questo spettacolare script di ilegend che mi pare lui abbia chiamato "tabellone analitico intelligente" o qualcosa di simile... aggiungendovi appunto solo la data di estrazione accanto ad ogni ritardo del tabellone. Guarda un pò se ti può essere utile.
Clicca per espandere...
Ciao Tom
non scrivo mai il mio nome sugli script.
Non lo ritengo importante.
Ma se viene modificato ritengo sia corretto scrivere,
"modificato da : " nuovo autore"
Spero che tu sia in accordo con me .
Buona notte a tutti.
 
lotto_tom75 ha scritto:
Si intendevo quelle.

Ad ogni modo per rilevare la data del ritardo voluto (ra >= 40 ecc...) ti ho leggermente modificato questo spettacolare script di ilegend che mi pare lui abbia chiamato "tabellone analitico intelligente" o qualcosa di simile... aggiungendovi appunto solo la data di estrazione accanto ad ogni ritardo del tabellone. Guarda un pò se ti può essere utile.

Codice: 
Option Explicit
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni by lotto_tom75
' NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI
' CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA
Sub Main
   If MessaggioInfo = False Then Exit Sub
   Dim aColRibb
   Dim PiuRitRu,RitRu,MaxRitTT,Ub
   ReDim aRuVer(0) ' scelgo le ruote su cui effettuare le analisi
   Call ScegliMyRuote(aRuVer)
   Ub = UBound(aRuVer) :If Ub < 1 Then Exit Sub
   ReDim aRit(Ub,2)
   ReDim aNumEstr(Ub,90)
   Call ResetTimer
   Call GetMaxRitTab(aRuVer,aRit,PiuRitRu,RitRu,MaxRitTT)
   aColRibb = RGB(236,235,246)
   Dim spTit:If Ub = 11 Then spTit = 195 : Else spTit = 194
   Scrivi FormatSpace("  Numeri più ritardatari per ruota  ( NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI, CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA)",spTit),1,,RGB(40,148,255),vbWhite,2.5
   Call SetColorSezione(aColRibb)
   If Ub <= 6 Then
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   Else
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,6,aRit,PiuRitRu,RitRu,MaxRitTT)
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,7,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   End If
   Call SetColorSezione(RGB(255,255,245))
   '
   Call GetTestoTab(aRuVer)
   Call GetOutPutTabelloneAnalitico(Ub,aRuVer,MaxRitTT,aRit)
   Call GetTestoTab(aRuVer)
   Scrivi "         Elaborato in : " & TempoTrascorso,1,,,RGB(128,0,0)
End Sub
Function MessaggioInfo()
   MessaggioInfo = True
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & " NON MODIFICARE DA SE I PARAMETRI" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni versione beta 0_1")
   If Quest = 7 Then MessaggioInfo = False
End Function
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e di Verifica") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub
Sub GetMaxRitTab(aRuVer,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim R
   MaxRitTT = 0
   For R = 1 To UBound(aRuVer)
      NumPiuRit = PiuRitardatarioTurbo(EstrazioneFin,aRuVer(R))
      RitRu = EstrattoRitardoTurbo(aRuVer(R),NumPiuRit,EstrazioneFin - 350,EstrazioneFin)
      aRit(R,1) = NumPiuRit
      aRit(R,2) = RitRu
      If MaxRitTT < RitRu Then MaxRitTT = RitRu
   Next
End Sub
Sub GetRibbonPiuRitardatari(acolrib,aRuVer,Lb,Ub,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim i,R,Ucs,k
   Dim aCol(2),aColRu(2),aColNu(2),aColTit(2)
   Scrivi Space(1),,0,,,4
   k = 0
   For i = Lb To Ub
      k = k + 2
      If pari(i) Then
         aColTit(1) =(RGB(140,140,198) - k*7)
         aColTit(2) =(RGB(241,241,248) - k*7)
      Else
         aColTit(1) = RGB(153,193,30) - k*7
         aColTit(2) = RGB(255,255,255) - k*7
      End If
      Scrivi " " & FormatSpace("Ruota",10) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("Estr",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("RcMx",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi Space(1),,0,,,4
   For R = Lb To Ub
      If aRit(R,2) <> MaxRitTT Then
         Ucs = 0
         aCol(1) = RGB(255,255,255)
         aCol(2) = RGB(250,37,96)
         aColRu(1) = RGB(255,255,255)
         aColRu(2) = RGB(0,64,128)
         aColNu(1) = RGB(255,255,245)
         aColNu(2) = RGB(0,64,0)
      Else
         Ucs = 1
         aCol(1) = RGB(250,37,96)
         aCol(2) = RGB(255,255,255)
         aColRu(1) = aCol(1)
         aColRu(2) = aCol(2)
         aColNu(1) = aCol(1)
         aColNu(2) = aCol(2)
      End If
      Scrivi " " & FormatSpace(NomeRuota(aRuVer(R)),10) & " ",Ucs,0,aColRu(1),aColRu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,1),4,1) & " ",Ucs,0,aColNu(1),aColNu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,2),4,1) & " ",Ucs,0,aCol(1),aCol(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi
End Sub
Sub GetTestoTab(aRuVer)
   Dim R,p
   Scrivi "    |   |",,0,RGB(236,235,247)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(236,235,247)
   Next
   Scrivi " ",,,RGB(254,248,182)
   Scrivi "---------CONC-----------|R.C|",,0,RGB(235,234,244)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(6) & SiglaRuota(aRuVer(R)) & Space(6) & "|",,0,RGB(235,234,244)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   Scrivi "    |   |",,0,RGB(234,233,241)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(234,233,241)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub
Sub GetOutPutTabelloneAnalitico(ub,aRuVer,MaxRitTT,aRit)
   ReDim aNum(ub,90)
   Dim IdEstr,nRigo,R,Pres,m,qt,Se,nEstr,p,E,qNr,sca
   Dim scaLim
   Dim aColC(2)
   Dim Ini:Ini = EstrazioneFin - MaxRitTT
   nRigo = - 1
   For IdEstr = EstrazioneFin To Ini Step - 1
      nRigo = nRigo + 1
      'Scrivi GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(IdEstr) ,1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:m = 0
      qt = Round(QuantitaTeoricaCombAlRitX(nRigo),5)
      For R = 1 To ub
         If dispari(R) Then aColC(1) = vbWhite:aColC(2) = RGB(0,101,149):Else aColC(1) = vbWhite:aColC(2) = RGB(38,40,37)
         m = m + 1
         Se = "":nEstr = 0
         For p = 1 To 5
            E = Estratto(IdEstr,aRuVer(R),p)
            ' metodo raccolta numeri di Joe91
            If aNum(R,E) = 0 Then
               ' cekko i numeri appena estratti e non li riutilizzo nell output
               aNum(R,E) = 1
               E = Format2(E)
               Pres = Pres + 1 ' PRESENZE TOTALI RUOTE
               nEstr = nEstr + 1 ' NUMERI PRESENTI NELLA RUOTA SINGOLA
            Else
               E = ".."
            End If
            Se = Se & E & " "
         Next
         Se = RimuoviLastChr(Se," ")
         If nEstr > qt And nRigo <> aRit(R,2) Then
            aColC(1) = RGB(209,209,236)
         ElseIf nRigo = aRit(R,2) Then
            aColC(1) = RGB(255,196,196)
         End If
         Scrivi Se,,0,aColC(1),aColC(2)
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNr = Round(qt*ub,3)
      sca = Round(Pres - qNr,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNr,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca <= 3 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub

Questa versione invece ti evidenzia in giallo il numero di elementi voluti a partire dal ritardo minimo voluto, che viene a sua volta evidenziato in giallo e scritta rossa nella colonna dei ritardi.

Codice: 
'tabellone analitico intelligente by ilegend
' modificato con aggiunta data estrazioni ed evidenziazione in giallo della quantità dei numeri voluti a partire dal ritardo voluto by lotto_tom75

Option Explicit
' NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI
' CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA
Sub Main
   If MessaggioInfo = False Then Exit Sub
 
   Dim Valorediritardovoluto
   Valorediritardovoluto = CInt(InputBox("ritardo voluto ",,40))
 
   Dim qualenumerodielementivuoievidenziare
   qualenumerodielementivuoievidenziare = CInt(InputBox("quale numero di elementi vuoi evidenziare in giallo (da 1 a 5) ",,2))
 
   Dim aColRibb
   Dim PiuRitRu,RitRu,MaxRitTT,Ub
   ReDim aRuVer(0) ' scelgo le ruote su cui effettuare le analisi
   Call ScegliMyRuote(aRuVer)
   Ub = UBound(aRuVer) :If Ub < 1 Then Exit Sub
   ReDim aRit(Ub,2)
   ReDim aNumEstr(Ub,90)
   Call ResetTimer
   Call GetMaxRitTab(aRuVer,aRit,PiuRitRu,RitRu,MaxRitTT)
   aColRibb = RGB(236,235,246)
   Dim spTit:If Ub = 11 Then spTit = 195 : Else spTit = 194
   Scrivi FormatSpace("  Numeri più ritardatari per ruota  ( NON SI GARANTISCE CHE I DATI RIPORTATI SIANO ESATTI, CHI L UTILIZZA LO FA SOTTO LA PROPRIA RESPONSABILITA)",spTit),1,,RGB(40,148,255),vbWhite,2.5
   Call SetColorSezione(aColRibb)
   If Ub <= 6 Then
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   Else
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,1,6,aRit,PiuRitRu,RitRu,MaxRitTT)
      Call GetRibbonPiuRitardatari(aColRibb,aRuVer,7,Ub,aRit,PiuRitRu,RitRu,MaxRitTT)
   End If
   Call SetColorSezione(RGB(255,255,245))
   '
   Call GetTestoTab(aRuVer)
   Call GetOutPutTabelloneAnalitico(Ub,aRuVer,MaxRitTT,aRit,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   Call GetTestoTab(aRuVer)
   Scrivi "         Elaborato in : " & TempoTrascorso,1,,,RGB(128,0,0)
End Sub
Function MessaggioInfo()
   MessaggioInfo = True
   Dim Quest
   Quest = MsgBox("Verificare che i dati riportati siano esatti" & vbCrLf & "Non se ne garantisce la correttezza" & vbCrLf & " NON MODIFICARE DA SE I PARAMETRI" & vbCrLf & "Vuoi proseguire?",4 + 64,"Informazioni versione beta 0_1")
   If Quest = 7 Then MessaggioInfo = False
End Function
Sub ScegliMyRuote(aRuVer)
   ReDim aVoci(10)
   ReDim aVociSel(10)
   Dim k,m
   For k = 0 To 10
      m = m + 1
      If m = 11 Then m = 12
      aVoci(k) = NomeRuota(m)
   Next
   m = 0
   If ScegliDaLista(aVoci,aVociSel,"Seleziona Ruota/e di Verifica") >= 0 Then
      For k = 0 To UBound(aVoci)
         If aVociSel(k) Then
            m = m + 1
            ReDim Preserve aRuVer(m)
            aRuVer(m) = k + 1
            If aRuVer(m) = 11 Then aRuVer(m) = 12
         End If
      Next
   End If
End Sub
Sub GetMaxRitTab(aRuVer,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim R
   MaxRitTT = 0
   For R = 1 To UBound(aRuVer)
      NumPiuRit = PiuRitardatarioTurbo(EstrazioneFin,aRuVer(R))
      RitRu = EstrattoRitardoTurbo(aRuVer(R),NumPiuRit,EstrazioneFin - 350,EstrazioneFin)
      aRit(R,1) = NumPiuRit
      aRit(R,2) = RitRu
      If MaxRitTT < RitRu Then MaxRitTT = RitRu
   Next
End Sub
Sub GetRibbonPiuRitardatari(acolrib,aRuVer,Lb,Ub,aRit,NumPiuRit,RitRu,MaxRitTT)
   Dim i,R,Ucs,k
   Dim aCol(2),aColRu(2),aColNu(2),aColTit(2)
   Scrivi Space(1),,0,,,4
   k = 0
   For i = Lb To Ub
      k = k + 2
      If pari(i) Then
         aColTit(1) =(RGB(140,140,198) - k*7)
         aColTit(2) =(RGB(241,241,248) - k*7)
      Else
         aColTit(1) = RGB(153,193,30) - k*7
         aColTit(2) = RGB(255,255,255) - k*7
      End If
      Scrivi " " & FormatSpace("Ruota",10) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("Estr",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace("RcMx",4) & " ",1,0,aColTit(1),aColTit(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi Space(1),,0,,,4
   For R = Lb To Ub
      If aRit(R,2) <> MaxRitTT Then
         Ucs = 0
         aCol(1) = RGB(255,255,255)
         aCol(2) = RGB(250,37,96)
         aColRu(1) = RGB(255,255,255)
         aColRu(2) = RGB(0,64,128)
         aColNu(1) = RGB(255,255,245)
         aColNu(2) = RGB(0,64,0)
      Else
         Ucs = 1
         aCol(1) = RGB(250,37,96)
         aCol(2) = RGB(255,255,255)
         aColRu(1) = aCol(1)
         aColRu(2) = aCol(2)
         aColNu(1) = aCol(1)
         aColNu(2) = aCol(2)
      End If
      Scrivi " " & FormatSpace(NomeRuota(aRuVer(R)),10) & " ",Ucs,0,aColRu(1),aColRu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,1),4,1) & " ",Ucs,0,aColNu(1),aColNu(2)
      Scrivi " ",,0,acolrib
      Scrivi " " & FormatSpace(aRit(R,2),4,1) & " ",Ucs,0,aCol(1),aCol(2)
      Scrivi "      ",,0,acolrib
   Next
   Scrivi
   Scrivi
End Sub
Sub GetTestoTab(aRuVer)
   Dim R,p
   'Scrivi "    |   |",,0,RGB(236,235,247)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(236,235,247)
   Next
   Scrivi " ",,,RGB(254,248,182)
   Scrivi "---------CONC-----------|R.C|",,0,RGB(235,234,244)
   For R = 1 To UBound(aRuVer)
      Scrivi Space(6) & SiglaRuota(aRuVer(R)) & Space(6) & "|",,0,RGB(235,234,244)
   Next
   Scrivi "  Q.N |  Q.T   | SCT ",,,RGB(254,247,158)
   'Scrivi "    |   |",,0,RGB(234,233,241)
   For R = 1 To UBound(aRuVer)
      'Scrivi Space(14) & "|",,0,RGB(234,233,241)
   Next
   Scrivi "                     ",,,RGB(254,245,139)
End Sub
Sub GetOutPutTabelloneAnalitico(ub,aRuVer,MaxRitTT,aRit,Valorediritardovoluto,qualenumerodielementivuoievidenziare)
   ReDim aNum(ub,90)
   Dim IdEstr,nRigo,R,Pres,m,qt,Se,nEstr,p,E,qNr,sca
   Dim scaLim
   Dim aColC(2)
   Dim Ini:Ini = EstrazioneFin - MaxRitTT
   nRigo = - 1
   For IdEstr = EstrazioneFin To Ini Step - 1
      nRigo = nRigo + 1
      'Scrivi GetInfoEstrazione(IdEstr)
      Scrivi GetInfoEstrazione(IdEstr),1,0,RGB(235,235,255)
      Scrivi "|",,0,vbWhite,RGB(89,89,89)
      If Valorediritardovoluto = nRigo Then
      Scrivi FormattaStringa(nRigo,"000"),True,0,vbYellow,vbRed,5   'RGB(237,254,205),RGB(128,0,0),5
      Else
      Scrivi FormattaStringa(nRigo,"000"),,0,RGB(237,254,205),RGB(128,0,0)
      End If
      Scrivi "|",1,0,vbWhite,,3
      Pres = 0:m = 0
      qt = Round(QuantitaTeoricaCombAlRitX(nRigo),5)
      For R = 1 To ub
         If dispari(R) Then aColC(1) = vbWhite:aColC(2) = RGB(0,101,149):Else aColC(1) = vbWhite:aColC(2) = RGB(38,40,37)
         m = m + 1
         Se = "":nEstr = 0
         For p = 1 To 5
            E = Estratto(IdEstr,aRuVer(R),p)
            ' metodo raccolta numeri di Joe91
            If aNum(R,E) = 0 Then
               ' cekko i numeri appena estratti e non li riutilizzo nell output
               aNum(R,E) = 1
               E = Format2(E)
               Pres = Pres + 1 ' PRESENZE TOTALI RUOTE
               nEstr = nEstr + 1 ' NUMERI PRESENTI NELLA RUOTA SINGOLA
            Else
               E = ".."
            End If
            Se = Se & E & " "
         Next
         Se = RimuoviLastChr(Se," ")
         If nEstr > qt And nRigo <> aRit(R,2) Then
            aColC(1) = RGB(209,209,236)
         ElseIf nRigo = aRit(R,2) Then
            aColC(1) = RGB(255,196,196)
         End If
       
         If nEstr = qualenumerodielementivuoievidenziare And nRigo  >=  Valorediritardovoluto   Then
         Scrivi Se,,0,vbYellow,vbRed,2
         Else
       Scrivi Se,,0,aColC(1),aColC(2)
       End If
       
       
         Scrivi "|",,0,vbWhite,RGB(89,89,89)
      Next
      qNr = Round(qt*ub,3)
      sca = Round(Pres - qNr,2)
      If sca > 0 Then sca = "+" & sca
      Scrivi "  " & Format2(Pres) & "  ",1,0,RGB(211,250,245)
      Scrivi "|",,0
      Scrivi FormatSpace(qNr,6,1) & "  ",,0,RGB(255,217,217)
      Scrivi "|",,0
      If sca < 0 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(255,117,117),vbWhite
      ElseIf sca >= 0 And sca <= 3 Then
         Scrivi FormatSpace(sca,5,1),,,RGB(171,171,214),vbWhite
      Else
         Scrivi FormatSpace(sca,5,1),1,,RGB(145,223,147)
      End If
   Next
End Sub

👋:)
Clicca per espandere...
Grazie mille Tom e Legend.
Spero di capirci qualcosa.
Buona giornata.🌞🌞🌞
 
Ho eseguito lo script. A quanto vedo mi restituisce il tabellone analitico evidenziando le coppie sincrone su ogni ruota. O sbaglio?
 
Mi sono spiegato male. Quello che chiedevo era: dal ritardo 40 in poi, quando è stata l'ultima volta che è uscito un ambo sincrono? Per ambo sincrono intendo una coppia di numeri sincroni su una ruota, come ad esempio l'attuale 27.77 a TO.
Per esempio se domani esce l'ambo 27.77 a TO, il contatore si azzera.
Inoltre sarebbe interessante sapere il valore teorico di uscita di un ambo sincrono da un certo ritardo in poi.
Tempo fa lessi un post di Mat che parlava proprio di questo.
Grazie

ananda ha scritto:
Salve. Guardando il tabellone analitico, come si fa a sapere la data di ultima uscita di un ambo di una coppia sincrona dal ritardo 40 in poi? C'è uno script che può aiutarmi?
Clicca per espandere...
 
Ultima modifica:
Ecco il post di cui parlavo,, in cui intervieni anche tu Tom.

AMBI da ritardo 48 in sù

Ciao a tutti, riporto una statistica interessante, che richiede poco dispendio economico per il gioco del lotto, sperando però che l'esito avvenga comunque in tempi brevi. Qualche anno fa avevo riportato qualcosa di simile per una fascia di ritardo diversa, ma simile, che poi si sfaldò. In...
forum.lottoced.com
 
Ciao a tutti,
x Ananda
il post a cui ti riferisci a suo tempo lo scrissi io.
Per la situazione attuale della fascia di ritardo da 40 in sù allego file pdf con tutte le sortite d'ambo sulle 10 ruote che chiedi dal 01/01/1946.
L'ultimo ambo è sortito a CA con i numeri 31-84 che erano entrambi a ritardo 50.
Nella tabella le prime 5 colonne riportano i numeri sortiti alle date indicate, le altre 5 colonne sono i rispettivi ritardi alla sortita degli estratti.
Con la colonna Rit ci sono i ritardi tra una sortita e l'altra alle 10 ruote.
Con l'ultima colonna ci sono la quantità di numeri in gioco quando sono avvenuti gli sfaldamenti.
Ciao a tutti,
Matteo
 

Allegati

Ciao ananda, adesso forse ho capito cosa ti necessiterebbe.. ovvero una sorta di script verificatore per gli eventuali sfaldamenti in ambo delle coppie sincrone di liv2 più ritardate e con ra minimo di 40 estrazioni... Spero che qualche scripter con la S maiuscola come Mike o lo stesso legend possa aiutarti. 👋🙂
 
Ciao Mat. Un piacere leggerti.
Grazie per il documento.
Ad Aprile-Maggio ho fatto 2 ambi secchi seguendo questa tua ricerca.
Mat ha scritto:
Ciao a tutti,
x Ananda
il post a cui ti riferisci a suo tempo lo scrissi io.
Per la situazione attuale della fascia di ritardo da 40 in sù allego file pdf con tutte le sortite d'ambo sulle 10 ruote che chiedi dal 01/01/1946.
L'ultimo ambo è sortito a CA con i numeri 31-84 che erano entrambi a ritardo 50.
Nella tabella le prime 5 colonne riportano i numeri sortiti alle date indicate, le altre 5 colonne sono i rispettivi ritardi alla sortita degli estratti.
Con la colonna Rit ci sono i ritardi tra una sortita e l'altra alle 10 ruote.
Con l'ultima colonna ci sono la quantità di numeri in gioco quando sono avvenuti gli sfaldamenti.
Ciao a tutti,
Matteo
Clicca per espandere...
 
lotto_tom75 ha scritto:
Ciao ananda, adesso forse ho capito cosa ti necessiterebbe.. ovvero una sorta di script verificatore per gli eventuali sfaldamenti in ambo delle coppie sincrone di liv2 più ritardate e con ra minimo di 40 estrazioni... Spero che qualche scripter con la S maiuscola come Mike o lo stesso legend possa aiutarti. 👋🙂
Clicca per espandere...
Speriamo. Grazie Tom ☀️
Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.
 
ananda ha scritto:
Speriamo. Grazie Tom ☀️
Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.
Clicca per espandere...

Più che difficile direi impossibile !

Anche perchè ha già scritto Matteo che saluto e ringrazio.

21/12/1946 MI 81.11 Rit 44
27/12/1947 VE 86.20 Rit 46
08/05/1948 CA 32.26 Rit 69
09/10/1948 GE 20.30 Rit 48
01/10/1949 RO 18.81 Rit 51
25/08/1951 BA 74.90 Rit 42
29/08/1953 FI 63.50 Rit 46
... omesso ...
03/09/2022 FI 10.47 Rit 42
06/09/2022 RO 39.68 Rit 77
24/09/2022 FI 19.78 Rit 45
18/10/2022 MI 37.77 Rit 45
26/11/2022 GE 87.26 Rit 54
09/03/2023 VE 78.41 Rit 60
16/03/2023 MI 18.53 Rit 57
05/10/2023 PA 70.68 Rit 55
17/10/2023 RO 28.01 Rit 46
28/10/2023 CA 31.84 Rit 51

In corso ...

MI 51.44 RC 45
NA 60.32 RC 49
NA 15.47 RC 44
PA 25.41 RC 46
PA 47.06 RC 43
RO 84.73 RC 55
TO 27.77 RC 62

Agg. al 03/11/2023

Tutto da verificare.

:)
 
Ciao a tutti,
x Ananda
hai detto <<Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.>>
Come ho già detto, nella penultima colonna del file, con Rit. ci sono incolonnati tutti i ritardi registrati dall' 01/01/1946 nelle sortite di questi ambi.
Attualmente abbiamo ritardo 4, perché sono passate 4 estrazioni dall'ultima sortita d'ambo su CA tra tutte le 10 ruote.
I tre ritardi precedenti sono in successione 99-6-6.

In questo momento gli ambi giocabili sono
Milano
44.51 (ritardo 46)

Napoli
15.47 (ritardo 45)
32.60 (ritardo 50)

Palermo
06.47 (ritardo 44)
25.41 (ritardo 47)

Roma
73.84 (ritardo 56)

Torino
27.77 (ritardo 63)

Le ruote con ritardo più elevato sono:
Torino rit. 1411
Bari rit. 1216

Si tratta di ritardi lontani dai massimi storici a ruota.

Anche se la ruota Nazionale l'avevo esclusa dal file si potrebbe darci un pochino d'attenzione per il ritardo attuale pari a 1313 estraz. ed inoltre il precedente ritardo pari a 1098: due ritardi consecutivi elevati.

Se poi interessa conoscere una fascia attualmente in evidenza a ruota e con una quantità di casi nettamente più elevata, abbiamo nella fascia da ritardo 25 in sù due ruote con ritardi elevati:
BARI con ritardo 595
TORINO " " 462
Max storico a ruota dal 1871 abbiamo VE con 684 estraz.

Non si tratta di ritardi attuali eccezionali però si potrebbe anche ipotizzare un gioco con le due ruote di BA e TO fino alla sortita di un ambo.
Sarebbe un gioco ristretto e quindi l'attesa potrebbe anche durare più delle speranze.
Comunque per chi fosse interessato, in questo momento per il concorso di domani questi sono gli ambi giocabili:

BARI
45.88 (ritardo 28)
41.58 (ritardo 34)

TORINO
88.89 (ritardo 34)
61.76 (ritardo 35)
27.77 (ritardo 63)

Spero di aver chiarito qualcosa, un saluto a tutti,
Matteo
 
joe ha scritto:
Più che difficile direi impossibile !

Anche perchè ha già scritto Matteo che saluto e ringrazio.

21/12/1946 MI 81.11 Rit 44
27/12/1947 VE 86.20 Rit 46
08/05/1948 CA 32.26 Rit 69
09/10/1948 GE 20.30 Rit 48
01/10/1949 RO 18.81 Rit 51
25/08/1951 BA 74.90 Rit 42
29/08/1953 FI 63.50 Rit 46
... omesso ...
03/09/2022 FI 10.47 Rit 42
06/09/2022 RO 39.68 Rit 77
24/09/2022 FI 19.78 Rit 45
18/10/2022 MI 37.77 Rit 45
26/11/2022 GE 87.26 Rit 54
09/03/2023 VE 78.41 Rit 60
16/03/2023 MI 18.53 Rit 57
05/10/2023 PA 70.68 Rit 55
17/10/2023 RO 28.01 Rit 46
28/10/2023 CA 31.84 Rit 51

In corso ...

MI 51.44 RC 45
NA 60.32 RC 49
NA 15.47 RC 44
PA 25.41 RC 46
PA 47.06 RC 43
RO 84.73 RC 55
TO 27.77 RC 62

Agg. al 03/11/2023

Tutto da verificare.

:)
Clicca per espandere...
Ciao Joe. Io ci ho provato...
Comunque devo avere qualche buco in archivio perchè ho altre coppie!
Grazie
 
Ciao Joe,
sono giusti i ritardi che riporti; i miei ritardi sono alla data del 04/11/2023.
Ciao,
Matteo
 
Mat ha scritto:
Ciao a tutti,
x Ananda
hai detto <<Pensi sia difficile? Mi basterebbe sapere a quando risale l'ultimo ritardo di sfaldamento in ambo.>>
Come ho già detto, nella penultima colonna del file, con Rit. ci sono incolonnati tutti i ritardi registrati dall' 01/01/1946 nelle sortite di questi ambi.
Attualmente abbiamo ritardo 4, perché sono passate 4 estrazioni dall'ultima sortita d'ambo su CA tra tutte le 10 ruote.
I tre ritardi precedenti sono in successione 99-6-6.

In questo momento gli ambi giocabili sono
Milano
44.51 (ritardo 46)

Napoli
15.47 (ritardo 45)
32.60 (ritardo 50)

Palermo
06.47 (ritardo 44)
25.41 (ritardo 47)

Roma
73.84 (ritardo 56)

Torino
27.77 (ritardo 63)

Le ruote con ritardo più elevato sono:
Torino rit. 1411
Bari rit. 1216

Si tratta di ritardi lontani dai massimi storici a ruota.

Anche se la ruota Nazionale l'avevo esclusa dal file si potrebbe darci un pochino d'attenzione per il ritardo attuale pari a 1313 estraz. ed inoltre il precedente ritardo pari a 1098: due ritardi consecutivi elevati.

Se poi interessa conoscere una fascia attualmente in evidenza a ruota e con una quantità di casi nettamente più elevata, abbiamo nella fascia da ritardo 25 in sù due ruote con ritardi elevati:
BARI con ritardo 595
TORINO " " 462
Max storico a ruota dal 1871 abbiamo VE con 684 estraz.

Non si tratta di ritardi attuali eccezionali però si potrebbe anche ipotizzare un gioco con le due ruote di BA e TO fino alla sortita di un ambo.
Sarebbe un gioco ristretto e quindi l'attesa potrebbe anche durare più delle speranze.
Comunque per chi fosse interessato, in questo momento per il concorso di domani questi sono gli ambi giocabili:

BARI
45.88 (ritardo 28)
41.58 (ritardo 34)

TORINO
88.89 (ritardo 34)
61.76 (ritardo 35)
27.77 (ritardo 63)

Spero di aver chiarito qualcosa, un saluto a tutti,
Matteo
Clicca per espandere...
Grazie Mat. Ma come ricavi i ritardi di cui parli?
 
Ciao Ananda,
i dati che riporto non sono frutto di miei script, ma di programmi non più in vendita e non disponibili, che mi sono procurato con amicizie oppure a pagamento in oltre 25 anni di utilizzo PC.
Ciao,
Matteo
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 19 novembre 2024
    Bari
    51
    20
    49
    27
    67
    Cagliari
    14
    22
    74
    60
    35
    Firenze
    79
    54
    17
    48
    58
    Genova
    86
    87
    74
    22
    25
    Milano
    12
    51
    47
    88
    49
    Napoli
    41
    30
    70
    43
    47
    Palermo
    85
    15
    75
    63
    81
    Roma
    49
    11
    50
    66
    24
    Torino
    44
    15
    03
    41
    84
    Venezia
    50
    89
    75
    47
    33
    Nazionale
    78
    03
    36
    16
    06
    Estrazione Simbolotto
    Torino
    06
    30
    14
    25
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto