Novità

Aiutino cortesemente ❤️

herat

Advanced Member
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member
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

Advanced Member >PLATINUM PLUS<
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

Advanced Member >PLATINUM PLUS<
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
 

C-64

Super Member >PLATINUM<
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.

Cattura.JPG
 

Allegati

  • Ambi.txt
    9,1 KB · Visite: 9

herat

Advanced Member
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

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

herat

Advanced Member
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


biambi.png

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

Advanced Member >PLATINUM PLUS<
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)
 
Ultima modifica:

herat

Advanced Member
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

Super Member >PLATINUM<
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.

2.JPG
 

herat

Advanced Member
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

Super Member >PLATINUM<
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.

1.JPG
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto