Aiutino cortesemente ❤️

herat · 29 Maggio 2023

Salve!

È possibile creare uno script che evidenzi ambi in ritardo con stesso capogioco su 2 o più ruote ?
Per esempio, attualmente ci sono le due coppie 34-86 e 50-86 (biambo con capogioco 86) in ritardo su FI-NA-TO da oltre 1170 estrazioni.
È possibile uno script che evidenzi tali situazioni di ritardo ?
Grazie

Mike58 · 29 Maggio 2023

Ciao herat, quelli sui biambi con capogioco e ritardi max su 3 ruote richiede un bel dispendio di risorse.
Gli argomenti sui biambi con ritardo sincrono e superiore sono stati trattati e fatti anche dei plugin da luigiB su argomento di cinzia,
ma come dicevo questa tipologia richiede molto tempo in fase di elaborazione e quindi poco percorribile ai fini di raccolta statistica.

Tuttavia un mio script rielaborato ha modo di vedere un ambo con capogioco tutti i ritardi e elencare le 3 ruote + ritardate.
Velocissimo nella elaborazione comunque visualizza un ambo ed elenca le ruote e vede i 2 ambi portati ad esempio.

Prova a vedere ed apprezzare il piccolo passo.

Codice:

Sub Main
   Dim aN(2)
   Dim Ru(1),er(12),rtt(1)
   Ini = EstrazioneIni
   fin = EstrazioneFin' - 1
   fine = EstrazioneFin
   cap = CInt(InputBox("Quale CapoGioco",,86))
   rit = CInt(InputBox("Quale Ritardo Minimo Considerato Max3",,1170))
   qt = CInt(InputBox("Quante ruote",,3))
   Scrivi "Verifica Numeri Per Ritardo => a  " & rit & "  Con CapoGioco " & cap &  " Su Min " & qt & " Ruote " & " *** Project By Mike58 *** Script By Mike58 *** ",1,,,1,3,,1
   Scrivi
   ReDim T(20)
   For x = 1 To 12
      T(1) = "Numeri"
      T(x + 1) = SiglaRuota(x)
   Next
   T(14) = "Max1"
   T(15) = "Max2"
   T(16) = "Max3"
   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 90
      aN(1) = n
      aN(2) = cap
      If aN(1) <> aN(2) Then
      '-------------------------------------------
      ReDim V(20)
      V(1) = StringaNumeri(aN,,1)
      For r = 1 To 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
      rtt(1) = 11
      Call OrdinaMatrice(er,- 1,1)
      st = SerieStorico(Ini,fin,aN,Rut,2)
      Call VerificaEsito(aN,rtt,fin,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 Then
      If k = qt Then
         Call AddRigaTabella(V,,,2,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 = ""
      End If
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(16)
End Sub

herat · 29 Maggio 2023

Davvero gentilissimo
Grazie davvero Mike

herat · 30 Maggio 2023

Ciao MIKE!
Ho trovato uno scipt che se non erro era stato creato anche da te .
ho modificato solo le ruote.
domanda= non si possono evidenziare quegli ambi che hanno un numero uguale e nei quali tutte le 3 ruote sono uguali?

Codice:

Sub Main
Dim nu(2),ru(3)
Ini = EstrazioneIni
fin = EstrazioneFin
For r1 = 1 To 9
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 10
For n1 = 1 To 89
For n2 = n1 + 1 To 90
nu(1) = n1
nu(2) = n2
ru(1) = r1
ru(2) = r2
ru(3) = r3
Call StatisticaFormazioneTurbo(nu,ru,2,rit,max,Incr,fre,Ini,fin)
If rit > 1100 Then

k = k + 1
Call Messaggio("Elaboro Casi Trovati. . . . . . " & k)
Call AvanzamentoElab(Ini,fin,k)
kk = kk + 1
'Scrivi GetInfoEstrazione(fin - rit) & vbTab,0,0
Scrivi StringaNumeri(nu,,1) & vbTab & StringaRuote(ru) & vbTab,0,0
Scrivi "Ritarda da...." & rit & vbTab & " Freq = " & fre
End If
Next
Next

'Scrivi String(90,".") & kk,1
'kk = 0
Next
Next
Next
Scrivi " Ambi trovati...." & k,1
End Sub

Mike58 · 30 Maggio 2023

Herat, quel mio script impiega tantissimo tempo di elaborazione.
quello che chiedi è complesso da fare, non ho parametri a cui appoggiarmi per evidenziare il numero in comune in quanto i ritardi sono diversi per le 3 ruote richieste, quindi per ora non trovo elementi per le evidenze.
Tuttavia puoi vedere in questo altro script rivisto e velocizzato quanto vorresti vedere semplicemente ordinando la tabella per colonna voluta per una osservazione più attenta.
Questo è quello che posso fare.

Codice:

Sub Main
   Dim Nu(2),Ru(1),ER(10),T
   Ini = EstrazioneIni
   fin = EstrazioneFin
   rit = CInt(InputBox("Quale ritardo minimo",,1100))
   ResetTimer
   T = Array(T,"Ambo","Ruote","Q.tà Ruote","Ritardo")
   Call InitTabella(T)
   For n1 = 1 To 89
      For n2 = n1 + 1 To 90
         For r = 1 To 10
            Nu(1) = n1
            Nu(2) = n2
            Ru(1) = r
            ER(r) = SerieRitardoTurbo(Ini,fin,Nu,Ru,2)
            If ER(r) > rit Then
               k = k + 1
               ReDim Preserve Rut(k)
               Rut(k) = r
            End If
         Next
         If k >= 3 Then
            st = SerieRitardoTurbo(Ini,fin,Nu,Rut,2)
            T = Array(T,StringaNumeri(Nu),StringaRuote(Rut),k,st)
            Call AddRigaTabella(T)
            'Scrivi StringaNumeri(Nu,,1) & vbTab & StringaRuote(Rut) & vbTab & st
         End If
         k = 0
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi "Ambi Ritardo su 3 o + Ruote",1
   Scrivi "Tempo di Elaborazione : " & TempoTrascorso,1
   CreaTabellaOrdinabile
End Sub

Ciao

Mike58 · 30 Maggio 2023

Herat, giusto per farti capire la complessità del fare delle cose con uno script che non è possibile fare in altri.
Questo script elabora 2 ambi con capogioco comune ma su una sola ruota a ritardo comune.
te lo posto per tue verifiche.

Codice:

Sub Main
   Dim MT(4005,3),AM1(2),AM2(2),Ru(1)
   Ini = EstrazioneFin - 3500
   fin = EstrazioneFin
   ' For r = 1 To 12
   'If r = 11 Then r = 12
   r = InputBox("Quale Ruota","Scegli Ruota",1)
   w = CInt(InputBox("Quanti righe visualizzo","Righe",15))
   Ru(1) = r
   Scrivi "Ruota di " & SiglaRuota(r)
   For n = 1 To 90
      For a = 1 To 90
         For b = a + 1 To 90
            If a <> b And a <> n And b <> n Then
               AM1(1) = n : AM1(2) = a
               AM2(1) = n : AM2(2) = b
               ar1 = AmboRitardoTurbo(r,n,a,Ini,fin)
               ar2 = AmboRitardoTurbo(r,n,b,Ini,fin)
               'ar1 = SerieRitardoTurbo(Ini,fin,AM1,Ru,2)
               'ar2 = SerieRitardoTurbo(Ini,fin,AM2,Ru,2)
               If ar1 > 1000 And ar1 = ar2 Then
                  k = k + 1
                  Call AvanzamentoElab(n,b,k)
                  MT(k,1) = AM1(1)
                  MT(k,2) = StringaNumeri(AM1,,1) & " <> " & StringaNumeri(AM2,,1)
                  MT(k,3) = ar1
               End If
            End If
         Next
      Next
   Next
   Call OrdinaMatrice(MT,- 1,3)
   T = Array(T,"N.","Capogioco","Ambo1  <>  Ambo2","Ritardo Comune")
   Call InitTabella(T,,,3,,"Lucida Console")
   For x = 1 To w
      'Scrivi FormatSpace(x,2) & " Ambi con CapoGioco : " & Format2(MT(x,1)) & " | " & MT(x,2) & " | " & "  Ritarda da... " & MT(x,3)
      T = Array(T,x,MT(x,1),MT(x,2),MT(x,3))
      Call AddRigaTabella(T,,,3,,"Lucida console")
   Next
   Scrivi
   Call CreaTabella(4)
   Scrivi TempoTrascorso
End Sub

herat · 30 Maggio 2023

Ti ringrazio infinitamente MIKE!

C-64 · 30 Maggio 2023

Ciao,
Nel file txt allegato trovi tutti gli ambi di tutte le ruote con un ritardo minimo di 1700 estrazioni, sono ordinati per ritardo, scorrendo il file non è complicato trovare quelli che hanno stesso ritardo e un numero uguale, sia sulla stessa ruota che su ruote diverse.

herat · 30 Maggio 2023

Ti ringrazio gentilissimo C64
In realta io sto cercando uno script che evidenzi biambi con capogioco comune su 2 ruote (anche con diverso ritardo)

Per esempio, attualmente ci sono le due coppie 34-86 e 50-86 (biambo con capogioco 86) in ritardo su FI-NA-TO da oltre 1170 estrazioni.

C-64 · 30 Maggio 2023

Allora avevo compreso male, non utilizzo script come quello postato da mike... se ho tempo vedo se posso fare qualcosa.

herat · 30 Maggio 2023

C-64 ha scritto:
Allora avevo compreso male, non utilizzo script come quello postato da mike... se ho tempo vedo se posso fare qualcosa.

grazie davvero!

herat · 30 Maggio 2023

Allora...come una matta, modificando un po l'ultimo script del carissimo mike58 sono arrivata a questo script che in 49 minuti ha restituito i biambi in ritardo su doppia ruota.

1) si puo velocizzare un pochino lo script?
2) i numeri della penultima e ultima colonna sarebbero le ruote (1 BA, 2 CA, 3 FI ECC...) come posso fare apparire le ruote al posto degli indici di ruota?

allego script e screen dei biambi aggiornati al 23 maggio 2023

Codice:

Sub Main
   Dim MT(4005,5),AM1(2),AM2(2),Ru(2)
   Ini = EstrazioneFin - 2100
   fin = EstrazioneFin
   ' For r = 1 To 12
   'If r = 11 Then r = 12
   'r = InputBox("Quale Ruota","Scegli Ruota",1)
   w = CInt(InputBox("Quanti righe visualizzo","Righe",10))
   'Ru(1) = r
      For R=1 To 9
      For r1= r+1 To 10
   Ru(1) = r
   Ru(2) = r1
   'Scrivi "Ruota di " & SiglaRuota(r)

   For n = 1 To 90
      For a = 1 To 90
         For b = a + 1 To 90
            If a <> b And a <> n And b <> n Then
               AM1(1) = n : AM1(2) = a
               AM2(1) = n : AM2(2) = b
               'ar1 = AmboRitardoTurbo(r,n,a,Ini,fin)
               'ar2 = AmboRitardoTurbo(r,n,b,Ini,fin)
               ar1 = SerieRitardoTurbo(Ini,fin,AM1,Ru,2)
               ar2 = SerieRitardoTurbo(Ini,fin,AM2,Ru,2)
               If ar1 > 1300 And AR2 >1300 And AR2<AR1 Then
               'If AR1< AR2 Then X1=AR1
               'If AR2< AR1 Then X1=AR2
                  k = k + 1
                  Call AvanzamentoElab(n,b,k)
                  MT(k,1) = AM1(1)
                  MT(k,2) = StringaNumeri(AM1,,1) & " <> " & StringaNumeri(AM2,,1)
                  MT(k,3) = AR2
                  MT(K,4) = Ru(1)
                  MT(k,5) = Ru(2)
               End If
            End If
         Next
      Next
   Next
   Call OrdinaMatrice(MT,- 1,3)
   T = Array(T,"N.","Capogioco","Ambo1  <>  Ambo2","Ritardo Comune","Ruota1","Ruota2")
   Call InitTabella(T,,,3,,"Lucida Console")
   For x = 1 To w
      'Scrivi FormatSpace(x,2) & " Ambi con CapoGioco : " & Format2(MT(x,1)) & " | " & MT(x,2) & " | " & "  Ritarda da... " & MT(x,3)
      T = Array(T,x,MT(x,1),MT(x,2),MT(x,3),MT(x,4),MT(x,5))
      Call AddRigaTabella(T,,,4,,"Lucida console")
   Next
   Next
   Next
   Scrivi
   Call CreaTabella(4)
   Scrivi TempoTrascorso
End Sub

Mike58 · 31 Maggio 2023

Herat, lo script non l'ho elaborato in quanto 49 minuti sono troppi per fare prove, ottimizzarlo e velocizzarlo sicuramente è possibile ma bisogna trovare vie diverse dai soliti cicli for.
per quello che chiedi ecco la risposta.

in queste 2 righe basta mettere SiglaRuota(RU(1))
MT(K,4) = SiglaRuota(Ru(1))
MT(k,5) = siglaRuota(Ru(2))
oppure una sola colonna con
MT(k,4) = StringaRuote(Ru)

herat · 31 Maggio 2023

Mike58 ha scritto:
Herat, lo script non l'ho elaborato in quanto 49 minuti sono troppi per fare prove, ottimizzarlo e velocizzarlo sicuramente è possibile ma bisogna trovare vie diverse dai soliti cicli for.
per quello che chiedi ecco la risposta.

in queste 2 righe basta mettere SiglaRuota(RU(1))
MT(K,4) = SiglaRuota(Ru(1))
MT(k,5) = siglaRuota(Ru(2))
oppure una sola colonna con
MT(k,4) = StringaRuote(Ru)

Grazie infinite Mike!

C-64 · 1 Giugno 2023

Ciao,
Ieri ho aggiunto questa tabella ad un programmino, mi è venuta in mente la tua ricerca sui biambi con un numero in comune.
Credo che una tabella simile ti faciliterebbe di molto la ricerca e si ridurrebbero i tempi di elaborazione, perchè si tratta solo di fare una scansione dei 4005 ambi della tabella, sempre se è possibile fare la scansione della tabella con gli script.

herat · 1 Giugno 2023

C-64 ha scritto:
Ciao,
Ieri ho aggiunto questa tabella ad un programmino, mi è venuta in mente la tua ricerca sui biambi con un numero in comune.
Credo che una tabella simile ti faciliterebbe di molto la ricerca e si ridurrebbero i tempi di elaborazione, perchè si tratta solo di fare una scansione dei 4005 ambi della tabella, sempre se è possibile fare la scansione della tabella con gli script.

Vedi l'allegato 2260542

ottimo lavoro!

C-64 · 1 Giugno 2023

Ciao,
Ho provato a ricercare dalla tabella i biambi con il 44 in comune con ritardo superiore 1300 su due o più ruote, i risultati li vedi dall'immagine. Se il risultato è quello che cerchi, ti posso dire che effettuare la ricerca dalla tabella richiede secondi e non minuti.

C-64 · 2 Giugno 2023

Ciao,
Ti ho lasciato la ricerca dei biambi con capogioco nel programmino che ho postato in questa discussione: https://forum.lottoced.com/threads/lottery.2209933/page-4#post-2534852

herat · 2 Giugno 2023

C-64 ha scritto:
Ciao,
Ti ho lasciato la ricerca dei biambi con capogioco nel programmino che ho postato in questa discussione: https://forum.lottoced.com/threads/lottery.2209933/page-4#post-2534852

Carissimo, ti ringrazio infinitamente.
provo e ti faccio sapere

Mike58 · 2 Giugno 2023

Ciao herat, io sono ancora lontano dal risultato in termini di elaborazione che vorrei ottenere.
Ti metto però un altro script che raccoglie gli ambi con capogioco comune su 2 o + ruote a scelta.
Essendo una base nulla vieta di farci i cicli for ma per quello che mi riguarda lo trovo impensabile una elaborazione che supera i 3 minuti.

Codice:

Sub Main
   Dim Nu(2),aN(2),RitMin(2),T
   rit = CInt(InputBox("Quale Ritardo Minimo",,800))
   ResetTimer
   Scrivi "Filtro Ritardo.... >= " & rit,1
   T = Array(T,"1° Ambo","2° Ambo","Rit 1 Ambo","Rit 2 Ambo","Rit Minimo")
   Call InitTabella(T,,,,,"Arial Black")
   ReDim Ru(0)
   ScegliRuote(Ru)
   For n = 1 To 90
      For n1 = 1 To 90
         For n2 = n1 + 1 To 90
            If n <> n1 And n <> n2 And n1 <> n2 Then
               Nu(1) = n : Nu(2) = n1
               aN(1) = n : aN(2) = n2
               sr1 = SerieRitardoTurbo(EstrazioneIni,EstrazioneFin,Nu,Ru,2)
               sr2 = SerieRitardoTurbo(EstrazioneIni,EstrazioneFin,aN,Ru,2)
               If sr1 >= rit Then
                  If sr2 >= rit Then
                  RitMin(1) = sr1
                  RitMin(2) = sr2
                     k = k + 1
                     min = MinimoV( RitMin,1)
                     T = Array(T,StringaNumeri(Nu),StringaNumeri(aN),sr1,sr2,min)
                     Call AddRigaTabella(T)
                     'Scrivi StringaNumeri(Nu) & vbTab & StringaNumeri(aN) & vbTab & sr1 & " - " & sr2 & " < Rit Minimo > " & min
                  End If
               End If
            End If
         Next
      Next
   Next
   Scrivi "Biambi con Capogioco Comune Trovati.... " & k
   Scrivi "Ruote.... " & StringaRuote(Ru)
   Scrivi "Tempo Trascorso : " & TempoTrascorso,1
   CreaTabellaOrdinabile
End Sub

Aiutino cortesemente ❤️

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

C-64

Guest

Allegati

Advanced Member >GOLD<

C-64

Guest

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

C-64

Guest

Advanced Member >GOLD<

C-64

Guest

C-64

Guest

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<