tom's bakery

ananda · 13 Marzo 2023

Ciao LottoTom. Avrei bisogno di uno script che prenda in esame tutti gli ambi suddivisi per capogioco.
Esempio:
tutti gli ambi con capogioco 1, e di questi ambi mi dia la prima coppia di ritardi sincroni, cioè con lo stesso ritardo, visualizzando anche il ritardo e ruote.
Poi tutti gli ambi con capogioco 2, e di questi mi dia la prima coppia sincrona, ecc ecc così via per tutti i capogioco.

E' un'operazione che fatta a mano richiede molto tempo, ma con uno script apposito sarà molto veloce.
Grazie se vorrai aiutarmi

lotto_tom75 · 13 Marzo 2023

Ciao lotto69 credo sia meglio che tu segnali il problema che hai riscontrato direttamente a silop nel suo thread qui > https://forum.lottoced.com/threads/aggiornamento-archivio-lotto-e-superenalotto-per-spaziometria-da-spazio-web-silop.2201398/page-7#post-2508205

lotto_tom75 · 13 Marzo 2023

Script n. 37 tom's bakery x lotto by tom ; rileva ordinamenti per parametro voluto secondo classe (<= 20) e sorte desiderate sulle ruote separate selezionate dando la possibilità di scegliere anche numeri fissi x il relativo sviluppo. Ordinando i risultati per il parametro voluto è possibile avere subito a colpo d'occhio la situazione per l'eventuale presenza di casi sincroni, isofrequenti ecc..

Codice:

Option Explicit

Sub Main

   'Script n. 37 tom's bakery x lotto by tom ; rileva ordinamenti per parametro voluto secondo classe (<= 20)     'e sorte desiderate sulle ruote separate selezionate
   'dando la possibilità di scegliere anche numeri fissi x il relativo sviluppo. Ordinando i risultati per il      'parametro voluto è possibile avere subito a colpo d'occhio
   'la situazione per l'eventuale presenza di casi sincroni, isofrequenti ecc..

   Dim nClasse,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq
   Dim k,i
   Dim RuoteSelezionate,QuantitaNumeriScelti
   Dim MS,aRetCol
   ReDim anumeri(0)
   ReDim aFissi(0)
   Dim contatore
   MsgBox("scegli classe; ricorda che deve essere <=20")
   nClasse = CInt(InputBox("scegli classe (<= 20) ",,2))
   MsgBox("Scegli fisso(i)")
   ScegliNumeri(aFissi)
   MsgBox("fissi " & StringaNumeri(aFissi))
   If UBound(aFissi) <= nClasse Then
      nSorte = ScegliEsito(2,1,5)
   Else
      MsgBox("La quantità di numeri fissi deve essere ovviamente minore o uguale rispetto il numero di classe di sviluppo")
   End If
   MsgBox("Scegli gruppo base che deve essere ovviamente maggiore o uguale rispetto alla  classe scelta")
   ScegliNumeri(anumeri)
   If UBound(anumeri) >= nClasse Then
      ReDim aRuoteSel(12)
      MsgBox("Scegli ruota o ruote")
      RuoteSelezionate = ScegliRuote(aRuoteSel)
   Else
      MsgBox("La quantità di numeri del gruppo base deve essere ovviamente maggiore o uguale rispetto il numero di classe di sviluppo")
   End If
   Dim parametroxordinamento
   Dim versodiordinamento
   parametroxordinamento = CInt(InputBox("Scegli il parametro di ordinamento per i risultati in tabella: ra (1); rs (2); fq (3); incmax (4)",,1))
   versodiordinamento = CInt(InputBox("Scegli il verso di ordinamento dei risultati in tabella: decrescente (0): crescente (1)",,0))
   Scrivi "Elaborazione effettuata con archivio aggiornato al " & GetInfoEstrazione(EstrazioneFin)
   Scrivi "Range temporale analizzato " & GetInfoEstrazione(EstrazioneIni) & " -  " & GetInfoEstrazione(EstrazioneFin)
   Scrivi TestoInBandaPassante("Enjoy with this little script n.37 by tom's bakery :) ",True,vbYellow,vbRed)
   Scrivi "Classe di sviluppo " & nClasse
   Scrivi "Sorte di ricerca " & nSorte
   Scrivi "Numeri fissi (cg) " & StringaNumeri(aFissi)
   Scrivi "Parametro di ordinamento (1:ra; 2:rs; 3:fq; 4:incmax) : " & parametroxordinamento
   Scrivi "Modalità di ordinamento (0: decrescente ; 1: crescente) : " & versodiordinamento
   Dim raccoltarisultati
   ReDim titolitabella(6)
   titolitabella(1) = "ruota"
   titolitabella(2) = "numeri"
   titolitabella(3) = "ra"
   titolitabella(4) = "rs"
   titolitabella(5) = "incmax"
   titolitabella(6) = "fq"
   Call InitTabella(titolitabella)
   ReDim Valoriditabella(6)
   For k = 1 To RuoteSelezionate
      Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
   Next
   Set MS = GetMotoreSviluppoIntegrale
   Call MS.InitSviluppoIntegrale(anumeri,nClasse,aFissi)
   Do While ms.GetCombSviluppo(aRetCol)
      i = i + 1
      ReDim aRuoteTmp(1)
      For k = 1 To RuoteSelezionate
         aRuoteTmp(1) = aRuoteSel(k)
         Call StatisticaFormazioneTurbo(aRetCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
         Dim Diff
         Diff = RetRitMax - RetRit1
         Dim rapportoRARS
         rapportoRARS = RetRit1/RetRitMax
         If(RetRit1 >= 0) Then ' <- qui si può modificare il filtro di selezione come si preferisce...
            contatore = contatore + 1
            ' Call Scrivi("ruota " & NomeRuota(aRuoteTmp(1)) & " -  " & " num " & StringaNumeri(aRetCol) & " ra " & RetRit1 & " rs " & RetRitMax & " incmax " & RetIncrRitMax & " frq " & RetFreq)
            Valoriditabella(1) = NomeRuota(aRuoteTmp(1))
            Valoriditabella(2) = StringaNumeri(aRetCol)
            Valoriditabella(3) = RetRit1
            Valoriditabella(4) = RetRitMax
            Valoriditabella(5) = RetIncrRitMax
            Valoriditabella(6) = RetFreq
            Call AddRigaTabella(Valoriditabella)
         End If
         If ScriptInterrotto Then Exit For
      Next
      If ScriptInterrotto Then Exit Do
      Call Messaggio("riga: " & i & " | " & "trovate: " & contatore)
   Loop
   Set MS = Nothing
   Call Scrivi
   Select Case(parametroxordinamento)
   Case 1
      Call CreaTabella(3,versodiordinamento)
   Case 2
      Call CreaTabella(4,versodiordinamento)
   Case 3
      Call CreaTabella(5,versodiordinamento)
   Case 5
      Call CreaTabella(6,versodiordinamento)
   End Select
   Call Scrivi
   Call Scrivi("Tempo trascorso " & TempoTrascorso)
End Sub

Versione 37B potenziata con opzioni: 0 fissi e ruote unite (richiesta anche da maria61)

Codice:

Option Explicit
Sub Main
   'Script n. 37B  tom's bakery x lotto by tom ; rileva ordinamenti per parametro voluto secondo classe (<= 20) e sorte desiderate sulle ruote separate selezionate
   'dando la possibilità di scegliere anche numeri fissi x il relativo sviluppo. Ordinando i risultati per il parametro voluto è possibile avere subito a colpo d'occhio
   'la situazione per l'eventuale presenza di casi sincroni, isofrequenti ecc.. Aggiunte opzioni: 0 fissi e ruote unite
   Dim nClasse,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq
   Dim k,i
   Dim RuoteSelezionate,QuantitaNumeriScelti
   Dim MS,aRetCol
   ReDim anumeri(0)
   ReDim aFissi(0)
   Dim contatore
   Dim modalitaruote
   Dim confissiosenza
   MsgBox("scegli classe; ricorda che deve essere <=20")
   nClasse = CInt(InputBox("scegli classe (<= 20) ",,2))
   Dim fissiono
   fissiono = InputBox("analisi con fissi (f) o no (n)?",,"n")
   Dim ruoteuniteoseparate
   ruoteuniteoseparate = InputBox("ruote unite (u) o separate (s)?",,"u")
   If ruoteuniteoseparate = "s" Then
      MsgBox "hai scelto di elaborare su ruote separate"
      If fissiono = "f" Then
         MsgBox("Scegli fisso(i)")
         ScegliNumeri(aFissi)
         MsgBox("fissi " & StringaNumeri(aFissi))
         If UBound(aFissi) <= nClasse Then
            nSorte = ScegliEsito(2,1,5)
         Else
            MsgBox("La quantità di numeri fissi deve essere ovviamente minore o uguale rispetto il numero di classe di sviluppo")
         End If
         MsgBox("Scegli gruppo base che deve essere ovviamente maggiore o uguale rispetto alla  classe scelta")
         ScegliNumeri(anumeri)
      Else ' x fissiono
         aFissino = Array(0)
         MsgBox("Scegli gruppo base che deve essere ovviamente maggiore o uguale rispetto alla  classe scelta")
         ScegliNumeri(anumeri)
         MsgBox "scegli sorte di ricerca"
         nSorte = ScegliEsito(2,1,5)
      End If 'x fissiono
      If UBound(anumeri) >= nClasse Then
         ReDim aRuoteSel(12)
         MsgBox("Scegli ruota o ruote")
         RuoteSelezionate = ScegliRuote(aRuoteSel)
      Else
         MsgBox("La quantità di numeri del gruppo base deve essere ovviamente maggiore o uguale rispetto il numero di classe di sviluppo")
      End If
      Dim parametroxordinamento
      Dim versodiordinamento
      parametroxordinamento = CInt(InputBox("Scegli il parametro di ordinamento per i risultati in tabella: ra (1); rs (2); fq (3); incmax (4)",,1))
      versodiordinamento = CInt(InputBox("Scegli il verso di ordinamento dei risultati in tabella: decrescente (0): crescente (1)",,0))
      Scrivi "Elaborazione effettuata con archivio aggiornato al " & GetInfoEstrazione(EstrazioneFin)
      Scrivi "Range temporale analizzato " & GetInfoEstrazione(EstrazioneIni) & " -  " & GetInfoEstrazione(EstrazioneFin)
      Scrivi TestoInBandaPassante("Enjoy with this little script n.37 by tom's bakery :) ",True,vbYellow,vbRed)
      Scrivi "Classe di sviluppo " & nClasse
      Scrivi "Sorte di ricerca " & nSorte
      Scrivi "Numeri fissi (cg) " & StringaNumeri(aFissi)
      Scrivi "Parametro di ordinamento (1:ra; 2:rs; 3:fq; 4:incmax) : " & parametroxordinamento
      Scrivi "Modalità di ordinamento (0: decrescente ; 1: crescente) : " & versodiordinamento
      If fissiono = "f" Then
         Scrivi "Modalità elaborazione con fissi: " & " attiva "
      Else
         Scrivi "Modalità elaborazione con fissi: " & " disattiva "
      End If
      If ruoteuniteoseparate = "s" Then
         Scrivi "Modalità elaborazione con ruote: " & " separate "
      Else
         Scrivi "Modalità elaborazione con ruote: " & " unite "
      End If
      Dim raccoltarisultati
      ReDim titolitabella(6)
      titolitabella(1) = "ruota"
      titolitabella(2) = "numeri"
      titolitabella(3) = "ra"
      titolitabella(4) = "rs"
      titolitabella(5) = "incmax"
      titolitabella(6) = "fq"
      Call InitTabella(titolitabella)
      ReDim Valoriditabella(6)
      For k = 1 To RuoteSelezionate
         Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
      Next
      Set MS = GetMotoreSviluppoIntegrale
      If fissiono = "f" Then
         Call MS.InitSviluppoIntegrale(anumeri,nClasse,aFissi)
      Else
         Call MS.InitSviluppoIntegrale(anumeri,nClasse,aFissino)
      End If
      Do While ms.GetCombSviluppo(aRetCol)
         i = i + 1
         ReDim aRuoteTmp(1)
         For k = 1 To RuoteSelezionate
            aRuoteTmp(1) = aRuoteSel(k)
            Call StatisticaFormazioneTurbo(aRetCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
            Dim Diff
            Diff = RetRitMax - RetRit1
            Dim rapportoRARS
            If(RetRit1 >= 0) Then ' <- qui si può modificare il filtro di selezione come si preferisce...
               contatore = contatore + 1
               Valoriditabella(1) = NomeRuota(aRuoteTmp(1))
               Valoriditabella(2) = StringaNumeri(aRetCol)
               Valoriditabella(3) = RetRit1
               Valoriditabella(4) = RetRitMax
               Valoriditabella(5) = RetIncrRitMax
               Valoriditabella(6) = RetFreq
               Call AddRigaTabella(Valoriditabella)
            End If
            If ScriptInterrotto Then Exit For
         Next
         If ScriptInterrotto Then Exit Do
         Call Messaggio("riga: " & i & " | " & "trovate: " & contatore)
      Loop
      Set MS = Nothing
      Call Scrivi
      Select Case(parametroxordinamento)
      Case 1
         Call CreaTabella(3,versodiordinamento)
      Case 2
         Call CreaTabella(4,versodiordinamento)
      Case 3
         Call CreaTabella(5,versodiordinamento)
      Case 5
         Call CreaTabella(6,versodiordinamento)
      End Select
      Call Scrivi
      Call Scrivi("Tempo trascorso " & TempoTrascorso)
   Else ' x ruote unite
      MsgBox "hai scelto di elaborare su ruote unite"
      If fissiono = "f" Then
         MsgBox "hai scelto di elaborare con i fissi"
         MsgBox("Scegli fisso(i)")
         ScegliNumeri(aFissi)
         MsgBox("fissi " & StringaNumeri(aFissi))
         If UBound(aFissi) <= nClasse Then
            nSorte = ScegliEsito(2,1,5)
         Else
            MsgBox("La quantità di numeri fissi deve essere ovviamente minore o uguale rispetto il numero di classe di sviluppo")
         End If
         MsgBox("Scegli gruppo base che deve essere ovviamente maggiore o uguale rispetto alla  classe scelta")
         ScegliNumeri(anumeri)
      Else ' x fissiono
         MsgBox "hai scelto di elaborare senza fissi"
         Dim aFissino
         aFissino = Array(0)
         MsgBox("Scegli gruppo base che deve essere ovviamente maggiore o uguale rispetto alla  classe scelta")
         ScegliNumeri(anumeri)
         MsgBox "scegli sorte di ricerca"
         nSorte = ScegliEsito(2,1,5)
      End If 'x fissiono
      If UBound(anumeri) >= nClasse Then
         ReDim aRuoteSel(12)
         MsgBox("Scegli ruota o ruote")
         RuoteSelezionate = ScegliRuote(aRuoteSel)
      Else
         MsgBox("La quantità di numeri del gruppo base deve essere ovviamente maggiore o uguale rispetto il numero di classe di sviluppo")
      End If
      parametroxordinamento = CInt(InputBox("Scegli il parametro di ordinamento per i risultati in tabella: ra (1); rs (2); fq (3); incmax (4)",,1))
      versodiordinamento = CInt(InputBox("Scegli il verso di ordinamento dei risultati in tabella: decrescente (0): crescente (1)",,0))
      Scrivi "Elaborazione effettuata con archivio aggiornato al " & GetInfoEstrazione(EstrazioneFin)
      Scrivi "Range temporale analizzato " & GetInfoEstrazione(EstrazioneIni) & " -  " & GetInfoEstrazione(EstrazioneFin)
      Scrivi TestoInBandaPassante("Enjoy with this little script n.37 by tom's bakery :) ",True,vbYellow,vbRed)
      Scrivi "Classe di sviluppo " & nClasse
      Scrivi "Sorte di ricerca " & nSorte
      Scrivi "Numeri fissi (cg) " & StringaNumeri(aFissino)
      Scrivi "Parametro di ordinamento (1:ra; 2:rs; 3:fq; 4:incmax) : " & parametroxordinamento
      Scrivi "Modalità di ordinamento (0: decrescente ; 1: crescente) : " & versodiordinamento
      If fissiono = "f" Then
         Scrivi "Modalità elaborazione con fissi: " & " attiva "
      Else
         Scrivi "Modalità elaborazione con fissi: " & " disattiva "
      End If
      If ruoteuniteoseparate = "s" Then
         Scrivi "Modalità elaborazione con ruote: " & " separate "
      Else
         Scrivi "Modalità elaborazione con ruote: " & " unite "
      End If
      ReDim titolitabella(6)
      titolitabella(1) = "ruota"
      titolitabella(2) = "numeri"
      titolitabella(3) = "ra"
      titolitabella(4) = "rs"
      titolitabella(5) = "incmax"
      titolitabella(6) = "fq"
      Call InitTabella(titolitabella)
      ReDim Valoriditabella(6)
      Set MS = GetMotoreSviluppoIntegrale
      If fissiono = "f" Then
         Call MS.InitSviluppoIntegrale(anumeri,nClasse,aFissi)
      Else
         Call MS.InitSviluppoIntegrale(anumeri,nClasse,aFissino)
      End If
      Do While ms.GetCombSviluppo(aRetCol)
         i = i + 1
         ReDim aRuote(UBound(aRuoteSel))
         For k = 1 To UBound(aRuoteSel)
            aRuote(k) = aRuoteSel(k)
         Next
         Call StatisticaFormazioneTurbo(aRetCol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
         Diff = RetRitMax - RetRit1
         If(RetRit1 >= 0) Then ' <- qui si può modificare il filtro di selezione come si preferisce...
            contatore = contatore + 1
            Valoriditabella(1) = StringaRuote(aRuote)
            Valoriditabella(2) = StringaNumeri(aRetCol)
            Valoriditabella(3) = RetRit1
            Valoriditabella(4) = RetRitMax
            Valoriditabella(5) = RetIncrRitMax
            Valoriditabella(6) = RetFreq
            Call AddRigaTabella(Valoriditabella)
         End If
         If ScriptInterrotto Then Exit Do
         Call Messaggio("riga: " & i & " | " & "trovate: " & contatore)
      Loop
      Set MS = Nothing
      Call Scrivi
      Select Case(parametroxordinamento)
      Case 1
         Call CreaTabella(3,versodiordinamento)
      Case 2
         Call CreaTabella(4,versodiordinamento)
      Case 3
         Call CreaTabella(5,versodiordinamento)
      Case 5
         Call CreaTabella(6,versodiordinamento)
      End Select
      Call Scrivi
      Call Scrivi("Tempo trascorso " & TempoTrascorso)
   End If ' per uniteoseparate
End Sub

lotto_tom75 · 13 Marzo 2023

ananda ha scritto:
Ciao LottoTom. Avrei bisogno di uno script che prenda in esame tutti gli ambi suddivisi per capogioco.
Esempio:
tutti gli ambi con capogioco 1, e di questi ambi mi dia la prima coppia di ritardi sincroni, cioè con lo stesso ritardo, visualizzando anche il ritardo e ruote.
Poi tutti gli ambi con capogioco 2, e di questi mi dia la prima coppia sincrona, ecc ecc così via per tutti i capogioco.

E' un'operazione che fatta a mano richiede molto tempo, ma con uno script apposito sarà molto veloce.
Grazie se vorrai aiutarmi

Ciao ananda, credo che lo script n.37 che, ispirato anche dalla tua richiesta, ho appena fatto, e aggiunto possa fare anche al caso tuo xchè come ho scritto nelle brevi relative info: "Ordinando i risultati per il parametro voluto è possibile avere subito a colpo d'occhio la situazione per l'eventuale presenza di casi sincroni, isofrequenti ecc.." e i numeri fissi (da 1 in poi) ovviamente sono interpretabili anche come capo giochi... Nel tuo caso specifico basterà quindi che tu scelga la classe 2, il fisso o capogioco che preferisci e il gruppo base e le ruote da analizzare e poi nella tabella finale ordinata per il parametro che avrai scelto (es. ra) potrai visualizzare i ritardi sincroni e non solo delle rispettive ruote

ananda · 13 Marzo 2023

lotto_tom75 ha scritto:
Ciao ananda, credo che lo script n.37 che, ispirato anche dalla tua richiesta, ho appena fatto, e aggiunto possa fare anche al caso tuo xchè come ho scritto nelle brevi relative info: "Ordinando i risultati per il parametro voluto è possibile avere subito a colpo d'occhio la situazione per l'eventuale presenza di casi sincroni, isofrequenti ecc.." e i numeri fissi (da 1 in poi) ovviamente sono interpretabili anche come capo giochi... Nel tuo caso specifico basterà quindi che tu scelga la classe 2, il fisso o capogioco che preferisci e il gruppo base e le ruote da analizzare e poi nella tabella finale ordinata per il parametro che avrai scelto (es. ra) potrai visualizzare i ritardi sincroni e non solo delle rispettive ruote

Grazie lottotom. Molto gentile. Ci provo.

p.s. Immagino che lo script sia per Spaziometria. Gira su L8?

lotto_tom75 · 13 Marzo 2023

ananda ha scritto:
Grazie lottotom. Molto gentile. Ci provo.
p.s. Immagino che lo script sia per Spaziometria. Gira su L8?

Non conosco il programma l8. Si è per Spaziometria.

ananda · 14 Marzo 2023

Forse mi è riuscito

lotto_tom75 · 14 Marzo 2023

ananda ha scritto:
Ciao Lotto Tom. Non sono molto bravo con i programmi. Nel caso volessi sapere, per esempio, quali sono gli ambi isocroni con capogioco 1 a TU, cosa dovrei dire al programma?
Ho provato ma mi dà errore

Grazie e scusa l'ignoranza.

Potresti anche aver trovato un bug del pasticcere

Aspetta a scusarti

Mo ti ci guardo e ti faccio sapere...

lotto_tom75 · 14 Marzo 2023

lotto_tom75 ha scritto:
Potresti anche aver trovato un bug del pasticcere Aspetta a scusarti Mo ti ci guardo e ti faccio sapere...

No mi sa che devo accettare le tue scuse... ananda perchè a me funzia...

Elaborazione effettuata con archivio aggiornato al [10210] [ 30] 11.03.2023
Range temporale analizzato [08117] [111] 15.09.2009 - [10210] [ 30] 11.03.2023
Enjoy with this little script n.37 by tom's bakery

Classe di sviluppo 2
Sorte di ricerca 2
Numeri fissi (cg) 1
Parametro di ordinamento (1:ra; 2:rs; 3:fq; 4:incmax) : 1
Modalità di ordinamento (0: decrescente ; 1: crescente) : 0
Scelta ruota Tutte - TT

ruota	numeri	ra	rs	incmax	fq
Tutte	1.41	195	195	42	52
Tutte	1.25	174	174	32	49
Tutte	1.57	127	134	0	43
Tutte	1.86	104	306	0	41
Tutte	1.69	94	192	0	62
Tutte	1.3	88	210	0	48
Tutte	1.79	80	113	0	54
Tutte	1.67	73	122	0	63
Tutte	1.77	70	257	0	49
Tutte	1.83	70	158	0	48
Tutte	1.9	67	106	0	72
Tutte	1.10	67	149	0	54
Tutte	1.38	66	189	0	44
Tutte	1.26	64	271	0	53
Tutte	1.52	64	167	0	53
Tutte	1.36	60	169	0	55
Tutte	1.53	60	218	0	56
Tutte	1.65	52	133	0	55
Tutte	1.48	51	167	0	47
Tutte	1.15	51	250	0	48
Tutte	1.16	50	131	0	56
Tutte	1.68	50	123	0	56
Tutte	1.31	50	203	0	58
Tutte	1.74	48	176	0	68
Tutte	1.35	44	153	0	61
Tutte	1.21	42	189	0	55
Tutte	1.17	38	135	0	48
Tutte	1.37	38	154	0	51
Tutte	1.85	32	175	0	51
Tutte	1.34	32	124	0	54
Tutte	1.88	32	180	0	61
Tutte	1.24	30	188	0	45
Tutte	1.81	30	165	0	53
Tutte	1.71	30	222	0	56
Tutte	1.6	29	147	0	67
Tutte	1.55	27	142	0	51
Tutte	1.12	25	131	0	65
Tutte	1.23	25	178	0	55
Tutte	1.8	22	333	0	59
Tutte	1.22	22	117	0	60
Tutte	1.62	22	178	0	49
Tutte	1.39	22	133	0	56
Tutte	1.63	19	135	0	55
Tutte	1.44	19	116	0	60
Tutte	1.28	17	198	0	43
Tutte	1.80	17	135	0	57
Tutte	1.14	16	185	0	49
Tutte	1.73	16	211	0	54
Tutte	1.59	16	159	0	62
Tutte	1.56	16	167	0	64
Tutte	1.78	16	164	0	44
Tutte	1.5	16	103	0	69
Tutte	1.11	16	148	0	52
Tutte	1.49	16	214	0	50
Tutte	1.18	12	167	0	56
Tutte	1.32	12	169	0	53
Tutte	1.2	12	144	0	51
Tutte	1.50	12	166	0	61
Tutte	1.90	12	138	0	56
Tutte	1.58	12	136	0	68
Tutte	1.54	12	182	0	55
Tutte	1.30	11	178	0	44
Tutte	1.82	11	110	0	55
Tutte	1.27	7	177	0	51
Tutte	1.29	7	187	0	50
Tutte	1.19	7	152	0	65
Tutte	1.64	7	140	0	48
Tutte	1.84	7	138	0	57
Tutte	1.33	6	235	0	44
Tutte	1.42	6	132	0	58
Tutte	1.4	6	132	0	61
Tutte	1.89	5	146	0	52
Tutte	1.60	5	190	0	37
Tutte	1.61	5	128	0	66
Tutte	1.47	5	128	0	55
Tutte	1.20	5	145	0	64
Tutte	1.43	5	163	0	58
Tutte	1.40	4	147	0	57
Tutte	1.45	4	154	0	49
Tutte	1.72	4	172	0	55
Tutte	1.87	4	245	0	39
Tutte	1.51	4	234	0	65
Tutte	1.70	4	197	0	48
Tutte	1.66	4	121	0	64
Tutte	1.76	4	132	0	58
Tutte	1.13	0	147	0	57
Tutte	1.7	0	273	0	50
Tutte	1.75	0	209	0	50
Tutte	1.46	0	183	0	47

Tempo trascorso 00:00:30

Per ottenere questo output dallo script che ho ricopiato e incollato da quello sopra condiviso ho semplicemente: scelto 1 come fisso (capo gioco) ; come gruppo base tutti 90 ; come classe 2 ; come sorte 2 e come ruota tutte. That's all.

Se invece con tutte intendevi TUTTE ma separate... non devi flaggare "tutte" ma solo.. le ruote una ad una compresa nz se vuoi... e ti farà l'analisi separata... in modo da rilevare a colpo d'occhio eventuali ritardi sincroni.. o altro tipo di uguglianza che ricerchi... ottenendo appunto un output di questo tipo:

Elaborazione effettuata con archivio aggiornato al [10210] [ 30] 11.03.2023
Range temporale analizzato [08117] [111] 15.09.2009 - [10210] [ 30] 11.03.2023
Enjoy with this little script n.37 by tom's bakery

Classe di sviluppo 2
Sorte di ricerca 2
Numeri fissi (cg) 1
Parametro di ordinamento (1:ra; 2:rs; 3:fq; 4:incmax) : 1
Modalità di ordinamento (0: decrescente ; 1: crescente) : 0
Scelta ruota Bari - BA
Scelta ruota Cagliari - CA
Scelta ruota Firenze - FI
Scelta ruota Genova - GE
Scelta ruota Milano - MI
Scelta ruota Napoli - NA
Scelta ruota Palermo - PA
Scelta ruota Roma - RO
Scelta ruota Torino - TO
Scelta ruota Venezia - VE
Scelta ruota Nazionale - NZ

ruota	numeri	ra	rs	incmax	fq
Palermo	1.2	2094	2094	2094	0
Napoli	1.67	2094	2094	2094	0
Napoli	1.63	2094	2094	2094	0
Palermo	1.64	2094	2094	2094	0
Nazionale	1.73	2094	2094	2094	0
Bari	1.53	2049	2049	2005	1
Bari	1.86	1931	1931	1824	2
Venezia	1.14	1927	1927	1761	1
Venezia	1.60	1839	1839	1585	1
Torino	1.38	1791	1791	1569	3
Palermo	1.33	1771	1771	1527	2
Bari	1.78	1741	1741	1478	3
Cagliari	1.43	1696	1696	1461	3
Cagliari	1.12	1691	1691	1462	3
Palermo	1.17	1666	1666	1239	1
Nazionale	1.53	1660	1660	1257	2
Roma	1.16	1649	1649	1205	1
Firenze	1.70	1639	1639	1263	2
Milano	1.27	1619	1619	1329	2
Milano	1.77	1594	1594	1183	2
Napoli	1.36	1578	1578	1390	5
Firenze	1.48	1557	1557	1244	3
Palermo	1.55	1552	1552	1256	2
Firenze	1.32	1547	1547	1001	1
Napoli	1.13	1525	1525	1132	3
Torino	1.25	1524	1524	1181	3
Palermo	1.10	1461	1461	922	3
Nazionale	1.33	1417	1417	741	1
Palermo	1.46	1407	1407	721	1
Roma	1.71	1398	1398	1048	3
Cagliari	1.24	1386	1386	757	3
Cagliari	1.78	1370	1370	968	3
Napoli	1.10	1347	1347	879	3
Napoli	1.17	1309	1309	828	2
Milano	1.25	1275	1275	704	3
Milano	1.59	1254	1254	623	6
Palermo	1.44	1242	1242	1028	6
Genova	1.48	1236	1236	462	3
Palermo	1.18	1227	1227	874	4
Roma	1.70	1201	1201	761	3
Cagliari	1.89	1158	1158	797	5
Cagliari	1.52	1151	1151	767	4
Napoli	1.73	1149	1149	826	6
Genova	1.23	1137	1137	659	3
Palermo	1.57	1135	1135	177	1
Roma	1.59	1131	1131	634	3
Cagliari	1.20	1127	1127	751	5
Napoli	1.54	1124	1124	606	3
Napoli	1.80	1098	1098	572	4
Palermo	1.45	1082	1082	365	2
Torino	1.52	1063	1063	687	5
Cagliari	1.60	1062	1062	689	4
Palermo	1.23	1054	1054	311	3
Milano	1.42	1050	1050	528	4
Milano	1.57	1048	1048	582	3
Venezia	1.9	1045	1045	634	6
Nazionale	1.72	1043	1043	186	2
Firenze	1.12	1031	1031	293	3
Genova	1.18	1030	1030	65	2
Palermo	1.37	1025	1025	569	5
Genova	1.22	1025	1025	506	5
Venezia	1.87	1020	1020	523	3
Palermo	1.78	1013	1013	126	2
Bari	1.41	1013	1079	0	2
Palermo	1.75	1013	1013	548	3
Napoli	1.31	1008	1008	440	4
Nazionale	1.54	1008	1008	253	5
Napoli	1.4	998	998	195	4
Napoli	1.32	998	998	393	3
Venezia	1.81	992	992	494	4
Nazionale	1.42	963	963	470	3
Nazionale	1.75	963	963	298	4
Palermo	1.11	960	960	298	4
Milano	1.28	958	958	477	4
Bari	1.11	958	958	637	6
Bari	1.62	938	938	399	4
Roma	1.51	937	937	130	3
Roma	1.48	937	937	478	3
Napoli	1.35	929	929	164	4
Napoli	1.33	929	1063	0	3
Torino	1.48	923	923	320	3
Milano	1.68	907	907	260	5
Roma	1.26	903	903	471	5
Torino	1.75	902	902	221	4
Roma	1.50	892	892	82	3
Roma	1.20	892	892	458	6
Venezia	1.47	891	1202	0	1
Bari	1.74	889	889	375	8
Roma	1.2	886	886	568	7
Napoli	1.25	885	955	0	3
Nazionale	1.76	882	1118	0	2
Genova	1.7	882	882	130	4
Torino	1.61	882	882	462	5
Roma	1.84	880	880	272	3
Roma	1.4	880	880	185	4
Genova	1.83	864	954	0	3
Venezia	1.75	860	949	0	3
Milano	1.17	859	859	583	9
Napoli	1.76	859	859	153	3
Torino	1.83	857	857	142	4
Torino	1.63	857	857	288	6
Palermo	1.41	855	855	366	4
Bari	1.57	853	1083	0	2
Milano	1.60	852	1096	0	3
Cagliari	1.87	849	849	298	4
Cagliari	1.29	848	848	495	6
Cagliari	1.13	847	1008	0	2
Bari	1.37	840	996	0	2
Cagliari	1.90	836	836	381	3
Napoli	1.57	825	825	118	4
Milano	1.76	824	824	403	8
Nazionale	1.86	821	872	0	3
Firenze	1.36	815	901	0	3
Napoli	1.64	813	813	320	4
Palermo	1.82	811	811	266	7
Napoli	1.51	804	804	497	7
Venezia	1.83	797	797	327	3
Venezia	1.29	797	797	254	4
Venezia	1.56	794	794	295	5
Venezia	1.84	794	794	482	7
Palermo	1.3	788	1305	0	1
Nazionale	1.29	786	1307	0	1
Palermo	1.67	785	785	117	4
Palermo	1.26	785	785	217	7
Firenze	1.28	781	781	23	3
Firenze	1.26	781	1312	0	1
Cagliari	1.86	779	779	472	8
Nazionale	1.36	766	766	441	6
Milano	1.81	759	1018	0	3
Firenze	1.15	756	756	126	6
Bari	1.82	753	753	204	5
Cagliari	1.11	753	753	167	6
Torino	1.23	752	752	284	5
Bari	1.79	731	731	417	9
Roma	1.55	729	729	232	5
Cagliari	1.46	721	725	0	4
Napoli	1.62	715	715	127	3
Venezia	1.46	714	926	0	3
Venezia	1.90	714	714	10	5
Venezia	1.6	714	714	298	8
Bari	1.7	712	712	124	3
Roma	1.80	712	712	213	8
Roma	1.85	712	712	56	4
Napoli	1.78	711	1143	0	3
Napoli	1.9	711	711	185	9
Torino	1.11	703	904	0	3
Torino	1.60	703	703	218	4
Torino	1.7	701	701	225	8
Bari	1.63	699	699	102	4
Bari	1.54	699	699	321	7
Nazionale	1.48	698	751	0	4
Nazionale	1.28	691	885	0	6
Firenze	1.30	681	1049	0	3
Firenze	1.3	681	681	95	6
Firenze	1.55	680	680	108	4
Venezia	1.52	678	967	0	2
Venezia	1.71	678	976	0	4
Roma	1.15	678	678	50	4
Venezia	1.33	676	1417	0	1
Roma	1.34	676	676	23	5
Roma	1.65	676	774	0	4
Genova	1.34	676	1417	0	1
Bari	1.35	674	802	0	4
Bari	1.34	674	674	265	9
Milano	1.73	673	817	0	3
Roma	1.41	667	667	72	4
Genova	1.33	667	667	85	7
Roma	1.23	667	667	217	7
Milano	1.51	666	666	71	3
Roma	1.28	661	1022	0	4
Roma	1.62	661	913	0	4
Roma	1.35	661	1154	0	3
Roma	1.3	661	661	35	5
Bari	1.33	658	658	88	6
Venezia	1.43	655	733	0	6
Genova	1.88	644	644	34	5
Torino	1.40	642	951	0	4
Palermo	1.53	641	641	9	4
Firenze	1.88	641	847	0	5
Napoli	1.16	641	850	0	2
Napoli	1.77	641	962	0	3
Cagliari	1.66	640	807	0	4
Cagliari	1.22	640	640	340	10
Napoli	1.21	638	638	121	5
Bari	1.30	636	802	0	2
Bari	1.25	636	652	0	5
Roma	1.86	634	634	23	7
Genova	1.50	634	634	285	7
Roma	1.38	634	1307	0	3
Roma	1.72	634	709	0	5
Bari	1.51	631	758	0	5
Genova	1.46	630	758	0	2
Genova	1.9	630	1059	0	5
Napoli	1.8	625	1079	0	3
Napoli	1.30	625	855	0	5
Palermo	1.7	622	826	0	3
Bari	1.67	620	620	84	5
Bari	1.84	620	838	0	5
Bari	1.60	616	824	0	3
Roma	1.68	615	615	64	5
Nazionale	1.50	612	1481	0	1
Nazionale	1.10	612	653	0	7
Venezia	1.42	612	1016	0	5
Venezia	1.18	612	612	209	8
Palermo	1.85	607	1277	0	2
Genova	1.8	605	1068	0	3
Venezia	1.13	600	600	162	6
Genova	1.64	598	666	0	3
Cagliari	1.15	595	1185	0	2
Bari	1.77	593	593	46	6
Bari	1.45	593	841	0	3
Napoli	1.11	588	1001	0	5
Palermo	1.88	585	585	69	6
Palermo	1.35	585	871	0	4
Cagliari	1.85	584	584	6	5
Cagliari	1.65	584	702	0	6
Napoli	1.79	584	584	87	10
Cagliari	1.38	584	584	144	6
Firenze	1.86	582	1451	0	2
Firenze	1.33	582	1114	0	4
Cagliari	1.31	575	1018	0	4
Cagliari	1.54	575	575	13	7
Napoli	1.27	573	1075	0	3
Bari	1.83	571	734	0	6
Bari	1.15	571	571	264	9
Bari	1.10	571	571	52	5
Torino	1.13	569	569	70	6
Milano	1.34	568	618	0	4
Napoli	1.70	567	856	0	4
Firenze	1.39	565	1372	0	3
Torino	1.69	562	712	0	5
Nazionale	1.11	560	560	215	6
Genova	1.13	559	610	0	4
Genova	1.29	559	857	0	4
Bari	1.5	557	557	123	6
Palermo	1.48	553	754	0	3
Cagliari	1.16	550	550	189	9
Napoli	1.87	550	550	117	7
Napoli	1.84	550	783	0	3
Napoli	1.23	550	795	0	5
Nazionale	1.63	548	674	0	4
Nazionale	1.67	548	548	30	8
Torino	1.55	545	1392	0	2
Genova	1.37	543	543	42	7
Genova	1.77	543	543	91	6
Genova	1.86	543	1125	0	4
Torino	1.43	542	893	0	5
Napoli	1.3	538	855	0	4
Napoli	1.88	538	566	0	5
Roma	1.81	538	662	0	5
Torino	1.89	533	619	0	5
Palermo	1.90	533	765	0	5
Torino	1.3	533	1476	0	2
Palermo	1.49	533	625	0	6
Firenze	1.19	532	838	0	2
Firenze	1.42	531	1062	0	3
Cagliari	1.14	525	1156	0	2
Palermo	1.34	523	523	87	4
Palermo	1.73	523	582	0	6
Firenze	1.84	523	876	0	5
Nazionale	1.15	523	725	0	7
Firenze	1.38	523	630	0	4
Cagliari	1.63	521	726	0	6
Palermo	1.9	518	950	0	6
Bari	1.28	514	589	0	5
Bari	1.22	514	796	0	3
Firenze	1.79	511	1191	0	2
Torino	1.14	511	818	0	4
Firenze	1.25	511	817	0	5
Torino	1.31	511	861	0	7
Milano	1.35	510	962	0	9
Nazionale	1.71	510	1583	0	1
Nazionale	1.82	510	590	0	6
Palermo	1.61	507	574	0	6
Napoli	1.34	504	665	0	6
Venezia	1.57	504	1078	0	5
Torino	1.24	504	504	18	6
Roma	1.75	500	1150	0	4
Firenze	1.10	498	825	0	7
Milano	1.85	497	937	0	4
Milano	1.39	497	752	0	3
Bari	1.19	492	498	0	5
Bari	1.16	492	739	0	5
Roma	1.58	491	561	0	5
Nazionale	1.34	488	613	0	4
Nazionale	1.79	488	1041	0	7
Cagliari	1.23	483	485	0	7
Cagliari	1.71	483	483	59	7
Cagliari	1.47	482	896	0	5
Napoli	1.50	480	480	93	8
Genova	1.32	478	1049	0	6
Genova	1.44	478	857	0	6
Palermo	1.16	477	866	0	6
Cagliari	1.2	477	477	31	11
Torino	1.30	474	1523	0	2
Genova	1.12	472	720	0	4
Genova	1.74	472	1204	0	4
Genova	1.21	472	1242	0	5
Bari	1.4	472	1030	0	3
Nazionale	1.21	470	716	0	7
Napoli	1.81	469	503	0	7
Milano	1.21	468	676	0	4
Nazionale	1.20	464	1533	0	3
Firenze	1.76	464	825	0	5
Nazionale	1.81	464	665	0	4
Nazionale	1.45	464	526	0	7
Nazionale	1.64	464	939	0	4
Nazionale	1.39	462	534	0	8
Nazionale	1.80	462	517	0	7
Napoli	1.44	461	560	0	5
Venezia	1.41	457	775	0	4
Palermo	1.25	455	853	0	3
Palermo	1.47	455	811	0	5
Palermo	1.59	449	492	0	8
Torino	1.86	449	663	0	6
Torino	1.87	449	667	0	5
Genova	1.68	448	607	0	6
Genova	1.14	448	694	0	5
Napoli	1.65	440	546	0	5
Napoli	1.59	440	779	0	7
Cagliari	1.25	438	438	55	11
Palermo	1.87	438	1513	0	2
Nazionale	1.59	438	866	0	4
Cagliari	1.8	438	505	0	7
Nazionale	1.61	438	1083	0	4
Roma	1.52	433	433	106	10
Roma	1.39	433	624	0	6
Genova	1.71	431	689	0	7
Roma	1.89	431	1217	0	3
Genova	1.27	431	796	0	8
Roma	1.31	431	435	0	10
Cagliari	1.28	430	945	0	4
Palermo	1.32	430	1180	0	4
Palermo	1.66	430	622	0	10
Cagliari	1.5	430	430	165	11
Firenze	1.49	426	923	0	7
Milano	1.4	423	1064	0	6
Venezia	1.20	423	1046	0	3
Milano	1.82	423	779	0	5
Milano	1.32	423	635	0	4
Torino	1.44	422	533	0	8
Cagliari	1.58	422	462	0	6
Firenze	1.34	420	1673	0	1
Torino	1.77	420	887	0	2
Firenze	1.67	420	854	0	4
Firenze	1.50	420	623	0	6
Firenze	1.40	420	1062	0	3
Genova	1.43	419	727	0	7
Bari	1.14	418	790	0	4
Genova	1.53	417	679	0	5
Genova	1.57	417	1149	0	5
Genova	1.56	416	1360	0	3
Genova	1.49	416	1677	0	1
Genova	1.28	411	911	0	3
Genova	1.10	411	1060	0	9
Genova	1.90	411	629	0	6
Torino	1.45	409	529	0	5
Roma	1.21	408	857	0	4
Genova	1.62	408	1063	0	2
Roma	1.78	408	1200	0	3
Roma	1.67	408	503	0	10
Genova	1.2	408	416	0	6
Cagliari	1.57	408	572	0	9
Firenze	1.4	401	514	0	6
Torino	1.57	399	1236	0	3
Torino	1.47	399	660	0	5
Milano	1.83	398	1695	0	1
Nazionale	1.35	398	1114	0	4
Nazionale	1.74	398	1077	0	5
Firenze	1.6	393	1013	0	7
Torino	1.49	393	936	0	4
Genova	1.47	390	413	0	7
Torino	1.62	387	675	0	4
Palermo	1.36	378	1079	0	4
Cagliari	1.73	378	1113	0	3
Cagliari	1.36	378	643	0	9
Palermo	1.60	378	821	0	5
Palermo	1.50	378	746	0	5
Cagliari	1.17	378	378	2	7
Venezia	1.74	374	795	0	6
Venezia	1.78	374	1236	0	5
Cagliari	1.10	365	632	0	6
Cagliari	1.69	365	1728	0	1
Cagliari	1.45	365	496	0	8
Nazionale	1.56	364	637	0	7
Nazionale	1.69	364	978	0	5
Nazionale	1.44	364	1608	0	2
Roma	1.42	361	532	0	7
Roma	1.11	361	1127	0	2
Roma	1.63	361	541	0	7
Firenze	1.80	358	918	0	3
Torino	1.59	357	394	0	6
Torino	1.22	357	1272	0	4
Palermo	1.29	356	751	0	4
Bari	1.80	356	843	0	4
Palermo	1.77	356	521	0	8
Firenze	1.85	356	905	0	6
Palermo	1.65	355	563	0	6
Palermo	1.51	355	562	0	6
Palermo	1.71	355	358	0	8
Genova	1.17	352	1068	0	4
Genova	1.35	350	1101	0	4
Genova	1.25	350	813	0	7
Venezia	1.36	349	569	0	6
Venezia	1.63	349	585	0	6
Roma	1.56	348	1082	0	5
Roma	1.61	348	660	0	6
Milano	1.61	345	937	0	7
Milano	1.37	345	1266	0	2
Milano	1.41	345	474	0	5
Milano	1.14	341	361	0	7
Cagliari	1.7	340	452	0	8
Cagliari	1.30	340	1316	0	5
Cagliari	1.68	340	1135	0	4
Bari	1.50	336	1238	0	4
Bari	1.13	336	515	0	6
Venezia	1.38	336	1415	0	2
Cagliari	1.37	330	911	0	4
Cagliari	1.44	330	507	0	5
Bari	1.38	329	612	0	8
Bari	1.59	329	1052	0	3
Napoli	1.5	326	1176	0	7
Napoli	1.75	326	720	0	6
Napoli	1.15	326	1251	0	2
Milano	1.45	324	1213	0	5
Milano	1.15	324	570	0	6
Napoli	1.38	324	799	0	3
Nazionale	1.90	321	697	0	6
Nazionale	1.13	321	1272	0	3
Genova	1.24	321	900	0	3
Cagliari	1.61	321	707	0	6
Cagliari	1.64	321	559	0	5
Genova	1.67	321	634	0	6
Genova	1.69	321	539	0	12
Genova	1.54	321	731	0	4
Genova	1.89	320	900	0	2
Genova	1.20	320	1145	0	4
Genova	1.70	320	1211	0	4
Venezia	1.65	318	949	0	3
Venezia	1.7	318	925	0	5
Roma	1.25	317	1385	0	3
Venezia	1.89	316	779	0	6
Venezia	1.69	316	533	0	7
Torino	1.46	315	747	0	7
Torino	1.51	315	950	0	5
Cagliari	1.84	308	714	0	6
Cagliari	1.48	308	633	0	6
Genova	1.26	308	765	0	9
Cagliari	1.39	308	501	0	10
Genova	1.79	308	866	0	5
Genova	1.75	308	811	0	5
Genova	1.42	308	509	0	9
Milano	1.54	307	867	0	6
Torino	1.70	306	1010	0	7
Nazionale	1.24	306	507	0	5
Nazionale	1.25	306	840	0	7
Genova	1.51	306	917	0	9
Firenze	1.21	303	752	0	6
Firenze	1.51	303	415	0	11
Venezia	1.21	302	673	0	5
Genova	1.31	301	1109	0	3
Napoli	1.69	301	628	0	9
Napoli	1.48	301	764	0	7
Genova	1.78	301	1108	0	5
Venezia	1.55	299	874	0	5
Venezia	1.22	299	616	0	7
Venezia	1.82	299	1078	0	3
Firenze	1.41	297	867	0	5
Torino	1.67	295	548	0	6
Torino	1.26	295	600	0	7
Torino	1.28	295	1287	0	5
Nazionale	1.89	293	899	0	6
Nazionale	1.23	293	736	0	6
Nazionale	1.83	293	1018	0	3
Cagliari	1.41	289	891	0	6
Roma	1.47	289	580	0	5
Roma	1.69	289	724	0	8
Napoli	1.90	285	856	0	5
Napoli	1.86	285	1382	0	2
Napoli	1.2	285	1018	0	5
Napoli	1.24	284	592	0	4
Napoli	1.42	284	704	0	5
Bari	1.31	281	597	0	5
Roma	1.12	281	579	0	6
Bari	1.75	281	569	0	7
Milano	1.89	278	854	0	4
Palermo	1.81	273	492	0	9
Palermo	1.89	273	1085	0	3
Palermo	1.86	273	552	0	5
Milano	1.53	272	868	0	5
Milano	1.50	270	773	0	6
Milano	1.58	270	692	0	10
Milano	1.36	270	506	0	7
Firenze	1.65	269	1301	0	6
Firenze	1.8	269	909	0	5
Firenze	1.83	269	1016	0	5
Firenze	1.46	269	572	0	6
Palermo	1.69	267	851	0	4
Bari	1.69	267	621	0	5
Palermo	1.24	267	818	0	5
Bari	1.12	267	734	0	8
Bari	1.27	267	821	0	4
Napoli	1.61	264	518	0	9
Napoli	1.68	264	1260	0	2
Napoli	1.7	264	1477	0	4
Napoli	1.37	260	812	0	6
Napoli	1.19	260	640	0	7
Napoli	1.83	260	412	0	9
Napoli	1.41	260	706	0	7
Nazionale	1.26	258	1138	0	5
Milano	1.16	258	556	0	9
Nazionale	1.88	258	667	0	4
Nazionale	1.18	258	758	0	5
Milano	1.19	258	1142	0	5
Cagliari	1.56	257	845	0	9
Cagliari	1.18	257	708	0	6
Cagliari	1.9	257	921	0	6
Milano	1.56	251	499	0	6
Milano	1.67	251	424	0	10
Roma	1.57	250	1022	0	5
Roma	1.13	250	734	0	5
Roma	1.46	250	715	0	6
Roma	1.10	250	887	0	4
Milano	1.66	247	1171	0	5
Milano	1.74	247	754	0	7
Torino	1.6	247	384	0	8
Milano	1.71	247	864	0	6
Torino	1.58	247	441	0	10
Milano	1.26	247	817	0	4
Torino	1.81	247	857	0	4
Genova	1.36	245	1254	0	4
Genova	1.52	245	1473	0	4
Genova	1.39	245	1126	0	5
Torino	1.41	244	436	0	6
Torino	1.39	244	670	0	8
Torino	1.72	244	681	0	6
Napoli	1.29	243	588	0	7
Napoli	1.6	243	768	0	4
Palermo	1.5	242	880	0	5
Palermo	1.14	242	572	0	9
Palermo	1.40	242	612	0	6
Genova	1.85	240	673	0	5
Genova	1.84	240	791	0	8
Genova	1.73	240	1302	0	5
Genova	1.6	240	550	0	7
Cagliari	1.51	239	432	0	12
Cagliari	1.32	239	982	0	6
Cagliari	1.26	239	1283	0	5
Roma	1.40	238	740	0	4
Roma	1.22	238	997	0	5
Roma	1.44	238	484	0	6
Genova	1.65	237	540	0	9
Genova	1.16	237	614	0	7
Genova	1.19	237	739	0	8
Genova	1.15	237	892	0	4
Venezia	1.72	235	756	0	3
Venezia	1.8	235	668	0	4
Venezia	1.17	233	515	0	6
Venezia	1.67	233	668	0	8
Napoli	1.66	232	994	0	4
Napoli	1.72	232	366	0	11
Napoli	1.40	232	739	0	9
Napoli	1.45	232	605	0	7
Nazionale	1.60	228	762	0	4
Nazionale	1.31	228	908	0	4
Bari	1.85	226	1043	0	6
Bari	1.32	226	978	0	3
Palermo	1.54	223	625	0	6
Venezia	1.23	223	588	0	5
Venezia	1.10	223	667	0	5
Torino	1.74	223	867	0	6
Palermo	1.58	223	1125	0	4
Palermo	1.72	223	624	0	6
Bari	1.71	221	1045	0	5
Bari	1.52	221	1241	0	2
Roma	1.54	219	666	0	6
Roma	1.9	219	537	0	8
Torino	1.34	219	580	0	7
Roma	1.17	219	566	0	6
Cagliari	1.40	218	667	0	7
Cagliari	1.82	218	627	0	6
Cagliari	1.3	218	1014	0	3
Milano	1.78	217	750	0	4
Milano	1.38	217	542	0	5
Cagliari	1.42	215	777	0	5
Cagliari	1.4	215	356	0	9
Cagliari	1.83	215	563	0	6
Nazionale	1.7	213	786	0	4
Palermo	1.56	213	615	0	7
Palermo	1.83	213	549	0	8
Nazionale	1.84	213	1474	0	3
Palermo	1.79	213	832	0	5
Palermo	1.63	213	746	0	5
Palermo	1.38	208	1025	0	4
Palermo	1.12	208	581	0	6
Venezia	1.77	204	485	0	8
Venezia	1.45	204	924	0	5
Bari	1.72	203	630	0	5
Bari	1.49	203	942	0	4
Bari	1.8	203	391	0	7
Napoli	1.18	200	789	0	4
Napoli	1.20	200	448	0	8
Napoli	1.14	200	683	0	6
Napoli	1.53	200	797	0	7
Genova	1.41	195	403	0	9
Genova	1.59	195	582	0	8
Firenze	1.74	189	678	0	7
Firenze	1.90	189	1717	0	4
Firenze	1.66	189	418	0	8
Napoli	1.22	184	637	0	8
Napoli	1.46	184	1234	0	5
Torino	1.35	182	740	0	5
Cagliari	1.81	182	1298	0	7
Cagliari	1.75	182	773	0	7
Torino	1.88	181	686	0	6
Torino	1.73	181	541	0	6
Torino	1.78	181	606	0	12
Torino	1.37	181	736	0	5
Bari	1.47	180	472	0	8
Bari	1.88	180	994	0	5
Bari	1.73	180	970	0	4
Roma	1.8	178	665	0	9
Roma	1.77	178	1389	0	4
Bari	1.55	177	1318	0	4
Bari	1.17	177	784	0	3
Venezia	1.25	174	1111	0	6
Venezia	1.44	174	803	0	8
Bari	1.23	173	504	0	8
Bari	1.24	173	1811	0	2
Cagliari	1.62	172	676	0	7
Venezia	1.2	169	752	0	5
Venezia	1.27	169	913	0	8
Venezia	1.4	169	789	0	8
Venezia	1.49	168	746	0	4
Venezia	1.32	168	813	0	7
Venezia	1.53	168	1209	0	7
Napoli	1.74	166	678	0	9
Napoli	1.49	166	556	0	9
Napoli	1.12	166	499	0	8
Nazionale	1.16	161	1873	0	2
Nazionale	1.43	161	634	0	5
Milano	1.48	161	751	0	5
Milano	1.88	161	970	0	5
Torino	1.2	160	942	0	4
Torino	1.16	160	944	0	5
Torino	1.68	160	673	0	8
Bari	1.89	159	650	0	6
Bari	1.36	159	544	0	6
Bari	1.68	159	1131	0	8
Bari	1.26	159	1036	0	4
Milano	1.47	156	912	0	6
Firenze	1.23	155	1425	0	6
Firenze	1.75	155	993	0	6
Firenze	1.62	155	995	0	7
Venezia	1.37	154	549	0	8
Venezia	1.86	154	1860	0	2
Firenze	1.82	152	1201	0	4
Torino	1.84	150	491	0	8
Torino	1.20	150	773	0	8
Torino	1.29	150	967	0	3
Torino	1.5	150	647	0	10
Genova	1.3	149	606	0	10
Firenze	1.16	147	671	0	7
Firenze	1.27	147	1472	0	4
Torino	1.79	147	691	0	6
Firenze	1.54	147	1236	0	3
Venezia	1.59	144	545	0	6
Venezia	1.80	144	898	0	5
Firenze	1.69	143	1476	0	3
Firenze	1.35	143	451	0	11
Roma	1.18	141	929	0	5
Roma	1.87	141	832	0	4
Palermo	1.76	140	958	0	4
Palermo	1.4	140	711	0	7
Palermo	1.30	140	913	0	4
Nazionale	1.55	138	901	0	4
Milano	1.64	137	1058	0	6
Milano	1.40	137	566	0	6
Firenze	1.52	137	710	0	8
Firenze	1.53	136	891	0	8
Firenze	1.89	136	668	0	6
Palermo	1.68	132	943	0	5
Palermo	1.15	132	951	0	3
Palermo	1.52	132	971	0	4
Palermo	1.31	132	1112	0	6
Roma	1.74	128	871	0	7
Napoli	1.82	128	655	0	6
Roma	1.32	128	549	0	7
Milano	1.5	128	850	0	7
Napoli	1.39	128	639	0	7
Napoli	1.71	128	939	0	7
Milano	1.72	128	775	0	5
Napoli	1.85	128	1076	0	7
Firenze	1.57	127	605	0	6
Firenze	1.7	127	941	0	6
Roma	1.24	126	586	0	7
Roma	1.88	126	811	0	10
Roma	1.66	126	585	0	6
Nazionale	1.17	124	1417	0	3
Cagliari	1.88	124	1142	0	7
Cagliari	1.59	124	795	0	8
Torino	1.64	122	1134	0	6
Torino	1.56	122	514	0	7
Genova	1.66	121	905	0	7
Nazionale	1.32	121	771	0	6
Genova	1.55	121	468	0	7
Genova	1.80	121	857	0	7
Firenze	1.29	120	1194	0	5
Firenze	1.9	120	1051	0	5
Roma	1.60	117	1976	0	1
Roma	1.37	117	892	0	6
Roma	1.79	117	939	0	6
Nazionale	1.78	114	796	0	6
Nazionale	1.65	114	1789	0	3
Torino	1.36	114	530	0	6
Torino	1.10	114	934	0	4
Torino	1.66	114	686	0	8
Torino	1.12	114	974	0	9
Palermo	1.6	112	526	0	6
Palermo	1.21	112	610	0	9
Milano	1.80	112	792	0	4
Milano	1.3	112	929	0	3
Milano	1.79	112	1103	0	3
Milano	1.31	109	908	0	4
Torino	1.85	108	1230	0	5
Torino	1.65	108	776	0	6
Torino	1.19	108	425	0	11
Venezia	1.64	107	1160	0	4
Venezia	1.73	107	907	0	4
Venezia	1.76	107	1106	0	8
Milano	1.30	104	565	0	9
Milano	1.86	104	1281	0	3
Milano	1.33	104	1112	0	2
Milano	1.2	104	1041	0	3
Bari	1.64	103	534	0	8
Bari	1.3	103	841	0	6
Bari	1.6	103	837	0	8
Nazionale	1.3	101	971	0	7
Nazionale	1.52	101	791	0	6
Nazionale	1.38	101	527	0	9
Nazionale	1.12	101	1642	0	5
Firenze	1.13	97	528	0	11
Firenze	1.68	97	993	0	6
Firenze	1.81	97	1127	0	6
Firenze	1.45	97	1166	0	3
Venezia	1.19	96	1037	0	4
Nazionale	1.14	96	1194	0	5
Nazionale	1.2	96	846	0	6
Venezia	1.54	96	1035	0	4
Venezia	1.30	96	566	0	6
Milano	1.55	95	783	0	4
Milano	1.24	95	492	0	7
Milano	1.62	95	663	0	8
Milano	1.6	94	1383	0	4
Milano	1.43	94	1176	0	3
Milano	1.69	94	752	0	8
Milano	1.29	94	1131	0	4
Milano	1.20	90	1222	0	6
Milano	1.87	90	899	0	5
Milano	1.65	90	1218	0	5
Milano	1.44	90	688	0	4
Nazionale	1.66	88	536	0	6
Venezia	1.79	88	1151	0	3
Venezia	1.12	88	529	0	8
Venezia	1.3	88	771	0	8
Nazionale	1.87	88	827	0	5
Nazionale	1.19	88	827	0	4
Nazionale	1.40	88	1014	0	4
Genova	1.40	86	622	0	5
Genova	1.60	86	807	0	5
Venezia	1.26	85	474	0	7
Venezia	1.28	85	1280	0	3
Venezia	1.61	85	836	0	7
Bari	1.48	83	639	0	7
Milano	1.22	83	1322	0	4
Palermo	1.74	83	610	0	5
Milano	1.18	83	977	0	9
Bari	1.9	83	420	0	11
Palermo	1.43	83	639	0	5
Milano	1.52	83	592	0	9
Palermo	1.70	83	1028	0	4
Bari	1.56	83	634	0	9
Palermo	1.42	83	507	0	9
Cagliari	1.50	82	847	0	5
Torino	1.9	81	759	0	7
Torino	1.17	81	670	0	5
Torino	1.71	81	898	0	5
Torino	1.21	81	998	0	6
Cagliari	1.72	80	978	0	3
Cagliari	1.79	80	800	0	5
Cagliari	1.49	80	629	0	4
Cagliari	1.35	80	552	0	11
Firenze	1.72	79	639	0	7
Firenze	1.43	79	628	0	8
Firenze	1.60	79	928	0	4
Firenze	1.22	79	1160	0	6
Torino	1.18	77	1311	0	8
Torino	1.8	77	670	0	6
Torino	1.53	77	535	0	9
Cagliari	1.70	73	1100	0	6
Cagliari	1.53	73	1008	0	5
Cagliari	1.67	73	895	0	10
Cagliari	1.77	73	988	0	7
Roma	1.90	70	783	0	6
Firenze	1.73	70	574	0	10
Roma	1.83	70	1915	0	3
Roma	1.45	70	1090	0	4
Roma	1.7	70	1927	0	4
Firenze	1.77	70	1154	0	3
Milano	1.10	67	754	0	8
Nazionale	1.4	67	837	0	9
Nazionale	1.8	67	1054	0	6
Milano	1.49	67	1029	0	3
Nazionale	1.22	67	402	0	8
Milano	1.9	67	687	0	9
Milano	1.70	67	1461	0	3
Firenze	1.14	66	988	0	6
Firenze	1.31	66	479	0	8
Genova	1.38	66	566	0	6
Genova	1.82	66	600	0	7
Genova	1.58	66	538	0	8
Firenze	1.2	66	1229	0	4
Torino	1.80	64	544	0	8
Torino	1.82	64	835	0	7
Napoli	1.28	64	628	0	7
Torino	1.27	64	2016	0	2
Napoli	1.52	64	1017	0	5
Napoli	1.26	64	932	0	4
Torino	1.15	64	941	0	4
Nazionale	1.85	61	969	0	7
Nazionale	1.9	61	1744	0	3
Roma	1.6	60	651	0	7
Roma	1.53	60	1269	0	5
Roma	1.27	60	1151	0	5
Roma	1.36	60	1040	0	5
Milano	1.90	57	1287	0	6
Milano	1.63	57	1171	0	4
Milano	1.84	57	688	0	6
Bari	1.40	52	772	0	5
Firenze	1.18	52	485	0	7
Bari	1.43	52	594	0	6
Firenze	1.5	52	1164	0	5
Bari	1.76	52	646	0	4
Bari	1.65	52	1102	0	5
Venezia	1.39	51	897	0	6
Venezia	1.24	51	1406	0	3
Venezia	1.48	51	661	0	7
Venezia	1.15	51	669	0	8
Venezia	1.31	50	945	0	7
Venezia	1.11	50	727	0	5
Venezia	1.68	50	561	0	7
Venezia	1.16	50	752	0	5
Cagliari	1.74	48	723	0	9
Cagliari	1.80	48	800	0	7
Cagliari	1.33	48	538	0	6
Cagliari	1.76	47	413	0	8
Cagliari	1.34	47	883	0	5
Cagliari	1.21	47	479	0	6
Venezia	1.5	44	1527	0	5
Venezia	1.50	44	983	0	9
Venezia	1.62	44	1085	0	4
Venezia	1.35	44	1153	0	6
Bari	1.81	42	802	0	4
Bari	1.90	42	918	0	7
Bari	1.70	42	471	0	11
Bari	1.21	42	910	0	5
Nazionale	1.46	40	969	0	5
Nazionale	1.37	40	1298	0	5
Nazionale	1.49	40	1298	0	2
Nazionale	1.30	40	880	0	7
Firenze	1.64	38	685	0	8
Firenze	1.37	38	840	0	6
Firenze	1.17	38	690	0	5
Firenze	1.20	38	520	0	9
Nazionale	1.70	37	1255	0	6
Nazionale	1.68	37	1146	0	5
Nazionale	1.6	37	861	0	6
Nazionale	1.77	37	578	0	9
Bari	1.46	33	669	0	6
Bari	1.44	33	1205	0	4
Bari	1.39	33	1152	0	4
Bari	1.42	33	984	0	5
Venezia	1.34	32	565	0	12
Nazionale	1.62	32	709	0	5
Venezia	1.88	32	606	0	7
Venezia	1.58	32	988	0	4
Nazionale	1.27	32	1152	0	4
Nazionale	1.47	32	650	0	8
Venezia	1.85	32	642	0	7
Nazionale	1.5	32	1539	0	4
Firenze	1.58	30	744	0	6
Firenze	1.24	30	914	0	5
Genova	1.5	30	846	0	6
Genova	1.81	30	1069	0	4
Firenze	1.71	30	1448	0	4
Genova	1.63	30	688	0	9
Firenze	1.47	30	721	0	9
Cagliari	1.19	29	967	0	8
Cagliari	1.27	29	803	0	4
Cagliari	1.55	29	512	0	10
Cagliari	1.6	29	612	0	8
Napoli	1.55	27	526	0	8
Napoli	1.58	27	743	0	8
Napoli	1.56	27	744	0	8
Milano	1.8	25	671	0	7
Milano	1.11	25	527	0	6
Milano	1.12	25	751	0	10
Milano	1.23	25	839	0	6
Nazionale	1.41	24	1018	0	8
Nazionale	1.58	24	418	0	7
Nazionale	1.57	24	1693	0	3
Nazionale	1.51	24	1559	0	3
Palermo	1.8	22	599	0	8
Palermo	1.39	22	763	0	4
Palermo	1.22	22	757	0	8
Palermo	1.62	22	800	0	6
Genova	1.30	21	1202	0	4
Genova	1.11	21	1068	0	7
Genova	1.4	21	687	0	6
Genova	1.61	21	915	0	4
Firenze	1.61	19	771	0	4
Firenze	1.44	19	557	0	8
Firenze	1.87	19	873	0	3
Firenze	1.63	19	655	0	8
Palermo	1.28	17	787	0	5
Palermo	1.20	17	658	0	5
Palermo	1.80	17	925	0	7
Roma	1.5	16	604	0	7
Firenze	1.56	16	1037	0	5
Firenze	1.11	16	608	0	8
Firenze	1.59	16	536	0	7
Firenze	1.78	16	663	0	4
Roma	1.14	16	1482	0	5
Roma	1.49	16	1187	0	8
Roma	1.73	16	637	0	7
Torino	1.50	12	559	0	8
Bari	1.29	12	615	0	6
Bari	1.2	12	771	0	6
Torino	1.32	12	481	0	12
Bari	1.58	12	618	0	7
Torino	1.54	12	498	0	9
Bari	1.18	12	1039	0	3
Torino	1.90	12	509	0	9
Roma	1.33	11	900	0	4
Roma	1.76	11	810	0	6
Roma	1.30	11	1040	0	4
Roma	1.82	11	883	0	5
Palermo	1.13	7	578	0	7
Palermo	1.19	7	539	0	8
Roma	1.29	7	872	0	7
Palermo	1.27	7	800	0	11
Roma	1.64	7	772	0	4
Roma	1.19	7	832	0	7
Palermo	1.84	7	1027	0	6
Roma	1.43	7	721	0	8
Torino	1.42	6	775	0	6
Torino	1.76	6	669	0	7
Torino	1.4	6	694	0	8
Torino	1.33	6	730	0	9
Napoli	1.60	5	493	0	7
Bari	1.66	5	1008	0	6
Bari	1.61	5	366	0	12
Napoli	1.89	5	557	0	12
Napoli	1.43	5	771	0	7
Bari	1.87	5	910	0	5
Bari	1.20	5	792	0	10
Napoli	1.47	5	879	0	4
Genova	1.76	4	1284	0	5
Venezia	1.51	4	1366	0	4
Genova	1.72	4	809	0	4
Venezia	1.66	4	801	0	6
Venezia	1.70	4	1277	0	4
Genova	1.45	4	1216	0	7
Genova	1.87	4	2089	0	1
Venezia	1.40	4	360	0	8
Milano	1.13	0	634	0	7
Milano	1.46	0	586	0	7
Milano	1.7	0	1280	0	5
Milano	1.75	0	1111	0	5

Tempo trascorso 00:00:39

Riprova...

ananda · 14 Marzo 2023

Si funziona. Grazie

lotto_tom75 · 18 Marzo 2023

Script n. 38 tom's bakery x lotto by tom ; rileva formazioni soddisfacenti il filtro voluto (es. fq max unica o meno) visualizzandone anche la situazione relativa all'incmax di 3° tipo per il corrispondente filtro di selezione impostato. Ricordo che per incmax di 3° tipo intendo l'analisi dell'elenco totale di incrementi e decrementi avutisi per la sorte di ricerca dall'inizio della stessa prediligendone in linea teorica il caso con incmax att=sto verificandone anche gli estremi negativi analoghi. Un ennesimo pensierino elaborazionale x spaziometria a voi...

e un buon compleanno a me

Codice:

Option Explicit
'Script n. 38  tom's bakery x lotto by tom ; rileva formazioni soddisfacenti il filtro voluto (es. fq max unica o meno) visualizzandone anche la situazione relativa all'incmax di 3° tipo per il relativo filtro di selezione impostato.
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
         For k = nRiga To(nRiga + nQNumPerRiga) - 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
      Next
   End Sub
End Class
Sub Main
   Dim cSvil
   Dim aNumDaSvil,nClasse,nCombInt,nQNumeri
   Dim aColonna
   Dim Inizio
   Dim fine
   Dim aRetcol,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Iniziorange,idestrazione
   fine = EstrazioneFin
   Inizio = EstrazioneIni
   Dim freqmassima
   freqmassima = 0
   Dim numfqmaxuguali
   numfqmaxuguali = 0
   Dim Formazioneconfqmassima
   Dim Formazionesceltasolonumeri
   Dim Stringaoutput
   Dim contacomb
   contacomb = 0
   ReDim vettoreritardi(0)
   Dim diff
   ReDim vettoreincrementi(0)
   ReDim vettoreidestrazioni(0)
   Dim stringaelencoincrementi
   ReDim aruote(0)
   ScegliRuote(aruote)
   nSorte = CInt(InputBox("sorte",,2))
   Set cSvil = New clsSviluppo
   Call ScegliNumeri(aNumDaSvil)
   nClasse = ScegliEsito(UBound(aNumDaSvil) - 1,1,90)
   nCombInt = cSvil.InitSviluppo(aNumDaSvil,nClasse)
   If nCombInt Then
      nQNumeri = cSvil.GetQuantitaNumeriDaSvil
      Scrivi "gruppo base " & cSvil.GetStringaNumDaSvil & " classe " & UBound(aNumDaSvil)
      Scrivi
      Scrivi "Elaborazione effettuata con l'archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
      Scrivi "Range temporale di analisi " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
      Scrivi "Numero ultime estrazioni consecutive analizzate " & EstrazioneFin - EstrazioneIni
      Scrivi "Ruote analizzate " & StringaRuote(aruote)
      Scrivi "Quantita numeri " & nQNumeri
      Scrivi "Classe " & nClasse
      Scrivi "Sorte " & nSorte
      Scrivi "Combinazioni integrali " & nCombInt
      Scrivi
      cSvil.OutputARighe
      Scrivi
      Do While cSvil.GetComb(aColonna)
         Dim r
         ReDim aruotetmp(1)
         For r = 1 To UBound(aruote)
            aruotetmp(1) = aruote(r)
            Call StatisticaFormazioneTurbo(aColonna,aruotetmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,fine)
            diff = RetRitMax - RetRit1
            Call ElencoRitardi(aColonna,aruotetmp,nSorte,Inizio,fine,vettoreritardi,vettoreidestrazioni)
            contacomb = contacomb + 1
            Stringaoutput = StringaNumeri(aColonna) & " - " & StringaRuote(aruotetmp) & " -s " & nSorte & " -ra " & RetRit1 & " -rs " & RetRitMax & " -incmax " & RetIncrRitMax & " -freq " & RetFreq & " -inizio " & Inizio & " -fine " & fine & " classe " & nClasse
            Dim cvr
            For cvr = 1 To UBound(vettoreritardi) - 1
               stringaelencoincrementi = stringaelencoincrementi & "." & vettoreritardi(cvr + 1) - vettoreritardi(cvr)
            Next
            Call SplitByChar(stringaelencoincrementi,".",vettoreincrementi)
            Dim c
            Dim cvixim
            ReDim vettoreincrementiinteri(UBound(vettoreincrementi) + 1)
            For cvixim = 1 To UBound(vettoreincrementi) - 1
               vettoreincrementiinteri(cvixim) = Int(vettoreincrementi(cvixim))
            Next
            If UBound(vettoreincrementi) > 0 Then
               Dim Diffincmax
               Diffincmax = Int(vettoreincrementi(UBound(vettoreincrementi))) - Int(MassimoV(vettoreincrementiinteri,0,UBound(vettoreincrementiinteri) - 1))
               If diff = 0 And Diffincmax = 0 Then
                  Scrivi
                  Scrivi "----------------------------------------------------------------------------------------"
                  Scrivi "RILEVATO CASO TEORICAMENTE OTTIMALE!",True,,,vbRed,5,"Comic"
                  Scrivi Stringaoutput
                  Scrivi("VERIFICA VETTORE INCREMENTI INTERI - l'ultimo " & StringaNumeri(vettoreincrementiinteri))
                  Scrivi "INCMAX ATTUALE by incrementi " & vettoreincrementi(UBound(vettoreincrementi))
                  Scrivi "INCMAX MASSIMO STORICO by incrementi interi " & MassimoV(vettoreincrementiinteri,0,UBound(vettoreincrementiinteri) - 1)
                  Messaggio " RILEVATO CASO DIFF INCMAX DI TERZO TIPO = 0 "
                  Scrivi "DIFF INCMAX ATT-STO " & Diffincmax
                  Dim Formazionedoc
                  Formazionedoc = StringaNumeri(aColonna)
                  Call DisegnaGraficoIncrRitMax(Formazionedoc,stringaelencoincrementi)
                  Scrivi "----------------------------------------------------------------------------------------"
                  Scrivi
               End If
            End If
            '----------------------------------------------------------------------------------------------------------------------------------------------------------
            stringaelencoincrementi = ""
            Erase vettoreritardi
            Erase vettoreincrementi
            If RetFreq > freqmassima Then
               freqmassima = RetFreq
               Formazioneconfqmassima = "<font color=red>" & Stringaoutput
               Formazionesceltasolonumeri = StringaNumeri(aColonna)
               numfqmaxuguali = 0
            End If
            If RetFreq = freqmassima Then
               numfqmaxuguali = numfqmaxuguali + 1
            End If
            Messaggio cSvil.GetQuantitaSviluppate & " r " & NomeRuota(aruotetmp(1))
            If ScriptInterrotto Then Exit Do
            Call AvanzamentoElab(1,nCombInt,contacomb)
            If ScriptInterrotto Then Exit For
         Next
      Loop
      Scrivi
      Scrivi "Sviluppate : " & cSvil.GetQuantitaSviluppate
   Else
      MsgBox "Impossibile sviluppare",vbCritical
   End If
   Scrivi
   Scrivi "report finale"
   Scrivi
   Scrivi "formazione con fq massima " & Formazioneconfqmassima
   Scrivi
   Scrivi "num. fq max uguali " & numfqmaxuguali - 1
   Scrivi
   Scrivi
   Scrivi "formazione scelta (solo numeri) " & Formazionesceltasolonumeri
   Scrivi
   Scrivi "tempo trascorso " & TempoTrascorso
   Scrivi
End Sub
Sub DisegnaGraficoIncrRitMax(Formazionedoc,stringaelencoincrementi)
   Dim vettoreincrementidecrementi
   Dim Classevettoreincrementidecrementi
   Call SplitByChar(stringaelencoincrementi,".",aElencoIncrRitMax)
   Classevettoreincrementidecrementi = UBound(aElencoIncrRitMax)
   Dim x,y,k
   Dim nValoreMaxX,nValoreMaxY,nValoreMinX,nValoreMinY
   Dim nStepX,nStepY
   Dim nUpperVetIncrRit
   Dim aIdEstrIncrRitMax
   Dim aElencoRit
   Dim mInizio
   Dim aElencoIncrRitMax
   Dim aRitardiAllIncremento
   mInizio = EstrazioneIni
   Dim aElencoIncrRitMaxInt
   Dim c
   ReDim aIdEstrIncrRitMax(UBound(aElencoIncrRitMax))
   ReDim aElencoIncrRitMaxInt(UBound(aElencoIncrRitMax))
   For c = 1 To UBound(aElencoIncrRitMax)
      aIdEstrIncrRitMax(c) = c
      aElencoIncrRitMaxInt(c) = Int(aElencoIncrRitMax(c))
   Next
   nValoreMinY = MinimoV(aElencoIncrRitMaxInt)
   nValoreMinX = 0
   nValoreMaxX = UBound(aElencoIncrRitMax)
   nValoreMaxY = MassimoV(aElencoIncrRitMaxInt)
   nStepX = 1
   nStepY = 20
   Call PreparaGrafico(Formazionedoc,nValoreMinX,nValoreMaxX,nValoreMinY,nValoreMaxY,nStepX,nStepY)
   nUpperVetIncrRit = UBound(aElencoIncrRitMax)
   ReDim aV(nUpperVetIncrRit - 1,2)
   For k = 1 To nUpperVetIncrRit
      x = aIdEstrIncrRitMax(k)
      y = aElencoIncrRitMax(k)
      aV(k - 1,1) = x
      aV(k - 1,2) = y
   Next
   Call DisegnaLineaGrafico(aV,vbRed,"IncrRitMax")
   Scrivi "incrementi e decrementi passati... " & stringaelencoincrementi & " classe " & Classevettoreincrementidecrementi
   Scrivi "nValoreMinY " & nValoreMinY
   Scrivi "nValoreMaxY " & nValoreMaxY
   Call InserisciGrafico
End Sub

Dati e grafico predittivo di esempio relativo ad una situazione attuale teoricamente ottimale dal punto di vista incmax del III tipo al 16/3/2023

gruppo base analizzato: 8ina aurea classe 8

Elaborazione effettuata con l'archivio lotto aggiornato al [10212] [ 32] 16.03.2023
Range temporale di analisi [08117] [111] 15.09.2009 - [10212] [ 32] 16.03.2023
Numero ultime estrazioni consecutive analizzate 2095
Ruote analizzate BA.CA.FI.GE.MI.NA.PA.RO.TO.VE.NZ
Quantita numeri 8
Classe 5
Sorte 2
Combinazioni integrali 56

----------------------------------------------------------------------------------------
RILEVATO CASO TEORICAMENTE OTTIMALE!
69.77.78.81.90 - NZ -s 2 -ra 189 -rs 189 -incmax 21 -freq 52 -inizio 8117 -fine 10212 classe 5

VERIFICA VETTORE INCREMENTI INTERI - l'ultimo 44.3.1.25.19.33.10.165.4.55.52.14.55.2.49.2.3.66.10.24.19.132.52.103

INCMAX ATTUALE by incrementi 165

INCMAX MASSIMO STORICO by incrementi interi 165

DIFF INCMAX ATT-STO 0

incrementi e decrementi passati...

.-9.44.3.-41.1.25.-3.-23.19.33.10.-72.165.-126.4.55.-75.52.-56.-13.14.-14.55.-1.-43.2.49.-62.-3.2.-7.3.66.-35.-8.-11.10.24.-43.19.-14.-5.132.-138.52.103.-132.165 classe 48

nValoreMinY -138
nValoreMaxY 165

Script n. 38B tom's bakery x lotto by tom ; rileva formazioni soddisfacenti il filtro voluto (es. fq max unica o meno) visualizzandone anche la situazione relativa all'incmax di 3° tipo per il relativo filtro di selezione impostato. Aggiunta opzione analisi da file txt

Codice:

Option Explicit
'Script n. 38B  tom's bakery x lotto by tom ; rileva formazioni soddisfacenti il filtro voluto (es. fq max unica o meno) visualizzandone anche la situazione relativa all'incmax di 3° tipo per il relativo filtro di selezione impostato. Aggiunta opzione analisi da file txt
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
         For k = nRiga To(nRiga + nQNumPerRiga) - 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
      Next
   End Sub
End Class
Sub Main
   Dim casivalidi
   casivalidi = 0
   Dim fileformazionidocestrapolate
   fileformazionidocestrapolate = "fileformazionidocestrapolate.txt"
   If FileEsistente(fileformazionidocestrapolate) Then
      Call EliminaFile(fileformazionidocestrapolate)
   End If
   Dim cSvil
   Dim aNumDaSvil,nClasse,nCombInt,nQNumeri
   Dim aColonna
   Dim Inizio
   Dim fine
   Dim aRetcol,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Iniziorange,idestrazione
   fine = EstrazioneFin
   Inizio = EstrazioneIni
   Dim freqmassima
   freqmassima = 0
   Dim numfqmaxuguali
   numfqmaxuguali = 0
   Dim Formazioneconfqmassima
   Dim Formazionesceltasolonumeri
   Dim Stringaoutput
   Dim contacomb
   contacomb = 0
   ReDim vettoreritardi(0)
   Dim diff
   ReDim vettoreincrementi(0)
   ReDim vettoreidestrazioni(0)
   Dim stringaelencoincrementi
   ReDim aruote(0)
   ScegliRuote(aruote)
   nSorte = CInt(InputBox("sorte",,2))
   Set cSvil = New clsSviluppo
   Dim databellaodafile
   databellaodafile = InputBox("numeri da tabella (t) o da file (f)",,"f")
   If databellaodafile = "t" Then
      Call ScegliNumeri(aNumDaSvil)
      nClasse = ScegliEsito(UBound(aNumDaSvil) - 1,1,90)
      nCombInt = cSvil.InitSviluppo(aNumDaSvil,nClasse)
      If nCombInt Then
         nQNumeri = cSvil.GetQuantitaNumeriDaSvil
         Scrivi "gruppo base " & cSvil.GetStringaNumDaSvil & " classe " & UBound(aNumDaSvil)
         Scrivi
         Scrivi "Elaborazione effettuata con l'archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
         Scrivi "Range temporale di analisi " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
         Scrivi "Numero ultime estrazioni consecutive analizzate " & EstrazioneFin - EstrazioneIni
         Scrivi "Ruote analizzate " & StringaRuote(aruote)
         Scrivi "Quantita numeri " & nQNumeri
         Scrivi "Classe " & nClasse
         Scrivi "Sorte " & nSorte
         Scrivi "Combinazioni integrali " & nCombInt
         Scrivi
         cSvil.OutputARighe
         Scrivi
         Do While cSvil.GetComb(aColonna)
            Dim r
            ReDim aruotetmp(1)
            For r = 1 To UBound(aruote)
               aruotetmp(1) = aruote(r)
               Call StatisticaFormazioneTurbo(aColonna,aruotetmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,fine)
               diff = RetRitMax - RetRit1
               Call ElencoRitardi(aColonna,aruotetmp,nSorte,Inizio,fine,vettoreritardi,vettoreidestrazioni)
               contacomb = contacomb + 1
               Stringaoutput = StringaNumeri(aColonna) & " - " & StringaRuote(aruotetmp) & " -s " & nSorte & " -ra " & RetRit1 & " -rs " & RetRitMax & " -incmax " & RetIncrRitMax & " -freq " & RetFreq & " -inizio " & Inizio & " -fine " & fine & " classe " & nClasse
               Dim cvr
               For cvr = 1 To UBound(vettoreritardi) - 1
                  stringaelencoincrementi = stringaelencoincrementi & "." & vettoreritardi(cvr + 1) - vettoreritardi(cvr)
               Next
               Call SplitByChar(stringaelencoincrementi,".",vettoreincrementi)
               Dim c
               Dim cvixim
               ReDim vettoreincrementiinteri(UBound(vettoreincrementi) + 1)
               For cvixim = 1 To UBound(vettoreincrementi) - 1
                  vettoreincrementiinteri(cvixim) = Int(vettoreincrementi(cvixim))
               Next
               If UBound(vettoreincrementi) > 0 Then
                  Dim Diffincmax
                  Diffincmax = Int(vettoreincrementi(UBound(vettoreincrementi))) - Int(MassimoV(vettoreincrementiinteri,0,UBound(vettoreincrementiinteri) - 1))
                  If diff = 0 And Diffincmax = 0 Then
                     Scrivi
                     Scrivi "----------------------------------------------------------------------------------------"
                     Scrivi "RILEVATO CASO TEORICAMENTE OTTIMALE!",True,,,vbRed,5,"Comic"
                     Scrivi Stringaoutput
                     Scrivi("VERIFICA VETTORE INCREMENTI INTERI - l'ultimo " & StringaNumeri(vettoreincrementiinteri))
                     Scrivi "INCMAX ATTUALE by incrementi " & vettoreincrementi(UBound(vettoreincrementi))
                     Scrivi "INCMAX MASSIMO STORICO by incrementi interi " & MassimoV(vettoreincrementiinteri,0,UBound(vettoreincrementiinteri) - 1)
                     Messaggio " RILEVATO CASO DIFF INCMAX DI TERZO TIPO = 0 "
                     Scrivi "DIFF INCMAX ATT-STO " & Diffincmax
                     Dim Formazionedoc
                     Formazionedoc = StringaNumeri(aColonna)
                     Call DisegnaGraficoIncrRitMax(Formazionedoc,stringaelencoincrementi)
                     Scrivi "----------------------------------------------------------------------------------------"
                     Scrivi
                  End If
               End If
               '----------------------------------------------------------------------------------------------------------------------------------------------------------
               stringaelencoincrementi = ""
               Erase vettoreritardi
               Erase vettoreincrementi
               If RetFreq > freqmassima Then
                  freqmassima = RetFreq
                  Formazioneconfqmassima = "<font color=red>" & Stringaoutput
                  Formazionesceltasolonumeri = StringaNumeri(aColonna)
                  numfqmaxuguali = 0
               End If
               If RetFreq = freqmassima Then
                  numfqmaxuguali = numfqmaxuguali + 1
               End If
               Messaggio cSvil.GetQuantitaSviluppate & " r " & NomeRuota(aruotetmp(1))
               If ScriptInterrotto Then Exit Do
               Call AvanzamentoElab(1,nCombInt,contacomb)
               If ScriptInterrotto Then Exit For
            Next
         Loop
         Scrivi
         Scrivi "Sviluppate : " & cSvil.GetQuantitaSviluppate
      Else
         MsgBox "Impossibile sviluppare",vbCritical
      End If
      Scrivi
      Scrivi "report finale"
      Scrivi
      Scrivi "formazione con fq massima " & Formazioneconfqmassima
      Scrivi
      Scrivi "num. fq max uguali " & numfqmaxuguali - 1
      Scrivi
      Scrivi
      Scrivi "formazione scelta (solo numeri) " & Formazionesceltasolonumeri
      Scrivi
      Scrivi "tempo trascorso " & TempoTrascorso
      Scrivi
   Else
      'sviluppo da file txt
      Dim filenumeribase
      filenumeribase = ScegliFile(".\",".txt")
      MsgBox("scegli la classe di sviluppo")
      nClasse = ScegliEsito(21,1,90)
      'nClasse = ScegliEsito(UBound(anuminteri)+1,1,90)
      Dim anum
      Dim y
      'Dim c
      Dim sfiletxtgrupponumerico,sfile
      sfiletxtgrupponumerico = filenumeribase '".\sfiletxtgrupponumerico.txt"
      sfile = sfiletxtgrupponumerico
      Call Messaggio("Lettura file di testo")
      ReDim aRighe(0)
      Call LeggiRigheFileDiTesto(sfile,aRighe)
      For y = 0 To UBound(aRighe)
         If aRighe(y) <> "" Then
            Call SplitByChar(aRighe(y),".",anum)
            'Scrivi StringaNumeri(anum)
            If ScriptInterrotto Then Exit For
         End If
         '      Scrivi
         '      Scrivi "contenuto array "
         '      Scrivi
         'nCombInt = cSvil.InitSviluppo(anuminteri,nClasse)
         ReDim anuminteri(UBound(anum))
         For c = 0 To UBound(anum)
            'Scrivi "|"&anum(c)&"|"
            anuminteri(c) = Int(anum(c))
            If ScriptInterrotto Then Exit For
         Next
         '      Call AvanzamentoElab(0,UBound(aRighe),y)
         '
         '        If ScriptInterrotto Then Exit For
         '      Next
         nCombInt = cSvil.InitSviluppo(anuminteri,nClasse)
         If nCombInt Then
            nQNumeri = cSvil.GetQuantitaNumeriDaSvil
            '      Scrivi
            '      Scrivi "gruppo base " & cSvil.GetStringaNumDaSvil & " classe " & UBound(anuminteri) + 1
            '      Scrivi
            '      Scrivi "Elaborazione effettuata con l'archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
            '      Scrivi "Range temporale di analisi " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
            '      Scrivi "Numero ultime estrazioni consecutive analizzate " & EstrazioneFin - EstrazioneIni
            '      Scrivi "Ruote analizzate " & StringaRuote(aruote)
            '      Scrivi "Quantita numeri " & nQNumeri
            '      Scrivi "Classe " & nClasse
            '      Scrivi "Sorte " & nSorte
            '      Scrivi "Combinazioni (sottogruppi) integrali " & nCombInt
            '      Scrivi
            cSvil.OutputARighe
            ' Scrivi
            Do While cSvil.GetComb(aColonna)
               'Dim r
               ReDim aruotetmp(1)
               For r = 1 To UBound(aruote)
                  aruotetmp(1) = aruote(r)
                  Call StatisticaFormazioneTurbo(aColonna,aruotetmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq,Inizio,fine)
                  diff = RetRitMax - RetRit1
                  Call ElencoRitardi(aColonna,aruotetmp,nSorte,Inizio,fine,vettoreritardi,vettoreidestrazioni)
                  contacomb = contacomb + 1
                  Stringaoutput = StringaNumeri(aColonna) & " - " & StringaRuote(aruotetmp) & " -s " & nSorte & " -ra " & RetRit1 & " -rs " & RetRitMax & " -incmax " & RetIncrRitMax & " -freq " & RetFreq & " -inizio " & Inizio & " -fine " & fine & " classe " & nClasse
                  ' Dim cvr
                  For cvr = 1 To UBound(vettoreritardi) - 1
                     stringaelencoincrementi = stringaelencoincrementi & "." & vettoreritardi(cvr + 1) - vettoreritardi(cvr)
                  Next
                  Call SplitByChar(stringaelencoincrementi,".",vettoreincrementi)
                  '  Dim c
                  '   Dim cvixim
                  ReDim vettoreincrementiinteri(UBound(vettoreincrementi) + 1)
                  For cvixim = 1 To UBound(vettoreincrementi) - 1
                     vettoreincrementiinteri(cvixim) = Int(vettoreincrementi(cvixim))
                  Next
                  If UBound(vettoreincrementi) > 0 Then
                     '      Dim Diffincmax
                     Diffincmax = Int(vettoreincrementi(UBound(vettoreincrementi))) - Int(MassimoV(vettoreincrementiinteri,0,UBound(vettoreincrementiinteri) - 1))
                     If diff = 0 And Diffincmax = 0 Then
                        Scrivi
                        Scrivi "----------------------------------------------------------------------------------------"
                        Scrivi "RILEVATO CASO TEORICAMENTE OTTIMALE!",True,,,vbRed,5,"Comic"
                        casivalidi = casivalidi + 1
                        Scrivi Stringaoutput
                        Scrivi("VERIFICA VETTORE INCREMENTI INTERI - l'ultimo " & StringaNumeri(vettoreincrementiinteri))
                        Scrivi "INCMAX ATTUALE by incrementi " & vettoreincrementi(UBound(vettoreincrementi))
                        Scrivi "INCMAX MASSIMO STORICO by incrementi interi " & MassimoV(vettoreincrementiinteri,0,UBound(vettoreincrementiinteri) - 1)
                        Messaggio " RILEVATO CASO DIFF INCMAX DI TERZO TIPO = 0 "
                        Scrivi "DIFF INCMAX ATT-STO " & Diffincmax
                        Scrivi
                        Scrivi "Dettagli formazione doc estrapolata"
                        Scrivi
                        Scrivi "gruppo base " & cSvil.GetStringaNumDaSvil & " classe " & UBound(anuminteri) + 1
                        Scrivi
                        Scrivi "Elaborazione effettuata con l'archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
                        Scrivi "Range temporale di analisi " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
                        Scrivi "Numero ultime estrazioni consecutive analizzate " & EstrazioneFin - EstrazioneIni
                        Scrivi "Ruote analizzate " & StringaRuote(aruote)
                        Scrivi "Quantita numeri " & nQNumeri
                        Scrivi "Classe " & nClasse
                        Scrivi "Sorte " & nSorte
                        Scrivi "Combinazioni (sottogruppi) integrali " & nCombInt
                        Scrivi
                        Scrivi
                        '        Dim Formazionedoc
                        Formazionedoc = StringaNumeri(aColonna)
                        fileformazionidocestrapolate = "fileformazionidocestrapolate.txt"
                        Call ScriviFile(fileformazionidocestrapolate,Formazionedoc)
                        CloseFileHandle(fileformazionidocestrapolate)
                        Scrivi
                        Scrivi "file " & fileformazionidocestrapolate & " scritto con successo"
                        Scrivi
                        Call DisegnaGraficoIncrRitMax(Formazionedoc,stringaelencoincrementi)
                        Scrivi "----------------------------------------------------------------------------------------"
                        Scrivi
                     End If
                  End If
                  '----------------------------------------------------------------------------------------------------------------------------------------------------------
                  stringaelencoincrementi = ""
                  Erase vettoreritardi
                  Erase vettoreincrementi
                  If RetFreq > freqmassima Then
                     freqmassima = RetFreq
                     Formazioneconfqmassima = "<font color=red>" & Stringaoutput
                     Formazionesceltasolonumeri = StringaNumeri(aColonna)
                     numfqmaxuguali = 0
                  End If
                  If RetFreq = freqmassima Then
                     numfqmaxuguali = numfqmaxuguali + 1
                  End If
                  Messaggio cSvil.GetQuantitaSviluppate & " r " & NomeRuota(aruotetmp(1)) & " casi validi trovati " & casivalidi & " Tt " & TempoTrascorso
                  If ScriptInterrotto Then Exit Do
                  Call AvanzamentoElab(1,nCombInt,contacomb)
                  If ScriptInterrotto Then Exit For
               Next
            Loop
            ' Scrivi
            ' Scrivi "Sviluppate : " & cSvil.GetQuantitaSviluppate
         Else
            MsgBox "Impossibile sviluppare",vbCritical
            MsgBox "dato colonne " & nCombInt
         End If
         Erase anum
         Erase anuminteri
         Call AvanzamentoElab(0,UBound(aRighe),y)
         If ScriptInterrotto Then Exit For
      Next ' x arighe
      Scrivi
      Scrivi "report finale"
      Scrivi
      Scrivi "formazione con fq massima " & Formazioneconfqmassima
      Scrivi
      Scrivi "num. fq max uguali " & numfqmaxuguali - 1
      Scrivi
      Scrivi
      Scrivi "formazione scelta (solo numeri) " & Formazionesceltasolonumeri
      Scrivi
      Scrivi "tempo trascorso " & TempoTrascorso
      Scrivi
   End If
End Sub
Sub DisegnaGraficoIncrRitMax(Formazionedoc,stringaelencoincrementi)
   Dim vettoreincrementidecrementi
   Dim Classevettoreincrementidecrementi
   Call SplitByChar(stringaelencoincrementi,".",aElencoIncrRitMax)
   Classevettoreincrementidecrementi = UBound(aElencoIncrRitMax)
   Dim x,y,k
   Dim nValoreMaxX,nValoreMaxY,nValoreMinX,nValoreMinY
   Dim nStepX,nStepY
   Dim nUpperVetIncrRit
   Dim aIdEstrIncrRitMax
   Dim aElencoRit
   Dim mInizio
   Dim aElencoIncrRitMax
   Dim aRitardiAllIncremento
   mInizio = EstrazioneIni
   Dim aElencoIncrRitMaxInt
   Dim c
   ReDim aIdEstrIncrRitMax(UBound(aElencoIncrRitMax))
   ReDim aElencoIncrRitMaxInt(UBound(aElencoIncrRitMax))
   For c = 1 To UBound(aElencoIncrRitMax)
      aIdEstrIncrRitMax(c) = c
      aElencoIncrRitMaxInt(c) = Int(aElencoIncrRitMax(c))
   Next
   nValoreMinY = MinimoV(aElencoIncrRitMaxInt)
   nValoreMinX = 0
   nValoreMaxX = UBound(aElencoIncrRitMax)
   nValoreMaxY = MassimoV(aElencoIncrRitMaxInt)
   nStepX = 1
   nStepY = 20
   Call PreparaGrafico(Formazionedoc,nValoreMinX,nValoreMaxX,nValoreMinY,nValoreMaxY,nStepX,nStepY)
   nUpperVetIncrRit = UBound(aElencoIncrRitMax)
   ReDim aV(nUpperVetIncrRit - 1,2)
   For k = 1 To nUpperVetIncrRit
      x = aIdEstrIncrRitMax(k)
      y = aElencoIncrRitMax(k)
      aV(k - 1,1) = x
      aV(k - 1,2) = y
   Next
   Call DisegnaLineaGrafico(aV,vbRed,"IncrRitMax")
   Scrivi "incrementi e decrementi passati... " & stringaelencoincrementi & " classe " & Classevettoreincrementidecrementi
   Scrivi "nValoreMinY " & nValoreMinY
   Scrivi "nValoreMaxY " & nValoreMaxY
   Call InserisciGrafico
End Sub

Nessuna Certezza Solo Poca Probabilità

i legend · 18 Marzo 2023

Buon compleanno Tom

Tantissimi auguri

Preparati una torta mitica

Sakti · 18 Marzo 2023

Tanti Auguri, e che fortuna e salute siano sempre con Te.

happy · 18 Marzo 2023

AUGURI

rudivall · 18 Marzo 2023

Tantissimi auguri Tom...

Xeroxs · 18 Marzo 2023

Ciao, Tom
Buon Compleanno.
Sei Dei Pesci..... Ecco spiegato l'arcano.... Bravo.... Con Saturno avrai ottimi risultati nella tua crescita.... bene.

lotto_tom75 · 18 Marzo 2023

Grazie mille ragazzi... per gli auguri (anche a rookie che me li ha fatti nell'altro thread) e si xeroxs sono un pessiolo...

A proposito dello script n.38 che ho sopra condiviso...

ocio e provatelo un pò... xchè potrebbe rifunzionare... come questa sera... in questo test

purtroppo non condiviso

RILEVATO CASO TEORICAMENTE OTTIMALE! 16.62.75 - TT ( e NZ) -s 2 -ra 116 -rs 116 -incmax 27 -freq 147 -inizio 8117 -fine 10212 classe 3 VERIFICA VETTORE INCREMENTI INTERI - l'ultimo 15.26.19.3.12.10.12.3.34.9.11.8.28.60.53.89.15.8.8.8.10.25.3.6.4.25.4.1.1.8.14.6.12.1.2.17.1.3.3.5.13.10.10.1.24.9.4.15.2.29.1.5.12.8.17.14.7.37.45.45.41.37.15.1.6.13.15
INCMAX ATTUALE by incrementi 89 << valore massimo rilevato su 16 risultanze analoghe... by 117480 terzine by 90 x A in c3 dalla es 8117.
INCMAX MASSIMO STORICO by incrementi interi 89
x A/T su TT e A/T/ambetto su NZ

lotto_tom75 · 22 Marzo 2023

Script n. 39 tom's bakery x lotto by tom ; sviluppo in modo integrale in classe <= 20 e rileva formazioni soddisfacenti il filtro voluto (es. rit min e rit max evidenziandone il rapporto).

Codice:

Option Explicit

'Script n. 39 tom's bakery x lotto by tom ; sviluppo in modo integrale in classe <= 20 e rileva formazioni soddisfacenti il filtro voluto (es. rit min e rit max evidenziandone il rapporto) 

Sub Main
   Dim Classe
   Dim sorte
   Dim ruota(1)
   Dim Inizio
   Dim fine
   Dim gruppobase
   Dim Formazionisviluppate
   ReDim acolonna(0)
   Dim ritardominimo
   Dim ritardomassimo
   Dim rit,ritmax,Incmax,frq
   Dim contatoreformazioni
   contatoreformazioni = 0
   Inizio = CInt(InputBox("da quale estrazione vuoi partire?",,1))
   fine = CInt(InputBox("con quale estrazione vuoi terminare la ricerca?",,EstrazioneFin))
   Classe = CInt(InputBox("classe di sviluppo",,5))
   ruota(1) = ScegliRuota
   sorte = ScegliEsito(2,1,5)
   MsgBox "imposta parametri di filtro desiderati di ritardo minimo e di ritardo massimo"
   ritardominimo = CInt(InputBox("ritardo minimo",,100))
   ritardomassimo = CInt(InputBox("ritardo massimo",,200))
   Dim valoreritritmax100
   Dim valorerapporto
   'valorerapporto = CInt(InputBox("rapporto rit/ritmax x 100",,1))
   'Rit/RitMax x100.
   MsgBox "scegli gruppo base"
   Call ScegliNumeri(gruppobase)
   MsgBox(StringaNumeri(gruppobase))
   Formazionisviluppate = InitSviluppoIntegrale(gruppobase,Classe)
   MsgBox "formazioni generate " & Formazionisviluppate
   Scrivi "Elaborazione effettuata con i seguenti parametri "
   Scrivi "range temporale analizzato " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(fine)
   Scrivi "ruota analizzata " & NomeRuota(ruota(1))
   Scrivi "gruppo base analizzato " & StringaNumeri(gruppobase)
   Scrivi "classe di sviluppo " & Classe
   Scrivi "sorte di ricerca " & sorte
   Scrivi "ritardo minimo " & ritardominimo
   Scrivi "ritardo massimo " & ritardomassimo
   Scrivi
   If Formazionisviluppate > 0 Then
      Do While GetCombSviluppo(acolonna) = True
         'Scrivi StringaNumeri(acolonna)
         Call StatisticaFormazione(acolonna,ruota,sorte,rit,ritmax,Incmax,frq,Inizio,fine)
         contatoreformazioni = contatoreformazioni + 1
         If rit >= ritardominimo And ritmax <= ritardomassimo Then
            valoreritritmax100 =(rit / ritmax)
            Scrivi NomeRuota(ruota(1)) & " - " & StringaNumeri(acolonna) & " ra " & rit & " rs " & ritmax & " incmax " & Incmax & " frq " & frq & " valore rit/ritmax " & valoreritritmax100
         End If
         If ScriptInterrotto Then Exit Do
         Call AvanzamentoElab(1,Formazionisviluppate,contatoreformazioni)
      Loop
   End If
End Sub

MARIA61 · 23 Marzo 2023

lotto_tom75 ha scritto:

Script n. 39 tom's bakery x lotto by tom ; sviluppo in modo integrale in classe <= 20 e rileva formazioni soddisfacenti il filtro voluto (es. rit min e rit max evidenziandone il rapporto).

Codice:

Option Explicit

'Script n. 39 tom's bakery x lotto by tom ; sviluppo in modo integrale in classe <= 20 e rileva formazioni soddisfacenti il filtro voluto (es. rit min e rit max evidenziandone il rapporto)

Sub Main
   Dim Classe
   Dim sorte
   Dim ruota(1)
   Dim Inizio
   Dim fine
   Dim gruppobase
   Dim Formazionisviluppate
   ReDim acolonna(0)
   Dim ritardominimo
   Dim ritardomassimo
   Dim rit,ritmax,Incmax,frq
   Dim contatoreformazioni
   contatoreformazioni = 0
   Inizio = CInt(InputBox("da quale estrazione vuoi partire?",,1))
   fine = CInt(InputBox("con quale estrazione vuoi terminare la ricerca?",,EstrazioneFin))
   Classe = CInt(InputBox("classe di sviluppo",,5))
   ruota(1) = ScegliRuota
   sorte = ScegliEsito(2,1,5)
   MsgBox "imposta parametri di filtro desiderati di ritardo minimo e di ritardo massimo"
   ritardominimo = CInt(InputBox("ritardo minimo",,100))
   ritardomassimo = CInt(InputBox("ritardo massimo",,200))
   Dim valoreritritmax100
   Dim valorerapporto
   'valorerapporto = CInt(InputBox("rapporto rit/ritmax x 100",,1))
   'Rit/RitMax x100.
   MsgBox "scegli gruppo base"
   Call ScegliNumeri(gruppobase)
   MsgBox(StringaNumeri(gruppobase))
   Formazionisviluppate = InitSviluppoIntegrale(gruppobase,Classe)
   MsgBox "formazioni generate " & Formazionisviluppate
   Scrivi "Elaborazione effettuata con i seguenti parametri "
   Scrivi "range temporale analizzato " & GetInfoEstrazione(Inizio) & " - " & GetInfoEstrazione(fine)
   Scrivi "ruota analizzata " & NomeRuota(ruota(1))
   Scrivi "gruppo base analizzato " & StringaNumeri(gruppobase)
   Scrivi "classe di sviluppo " & Classe
   Scrivi "sorte di ricerca " & sorte
   Scrivi "ritardo minimo " & ritardominimo
   Scrivi "ritardo massimo " & ritardomassimo
   Scrivi
   If Formazionisviluppate > 0 Then
      Do While GetCombSviluppo(acolonna) = True
         'Scrivi StringaNumeri(acolonna)
         Call StatisticaFormazione(acolonna,ruota,sorte,rit,ritmax,Incmax,frq,Inizio,fine)
         contatoreformazioni = contatoreformazioni + 1
         If rit >= ritardominimo And ritmax <= ritardomassimo Then
            valoreritritmax100 =(rit / ritmax)
            Scrivi NomeRuota(ruota(1)) & " - " & StringaNumeri(acolonna) & " ra " & rit & " rs " & ritmax & " incmax " & Incmax & " frq " & frq & " valore rit/ritmax " & valoreritritmax100
         End If
         If ScriptInterrotto Then Exit Do
         Call AvanzamentoElab(1,Formazionisviluppate,contatoreformazioni)
      Loop
   End If
End Sub

MARIA61 · 23 Marzo 2023

wonderful wonderful wonderful

tom's bakery is magic

Script n. 39 meraviglioso per la mia gola di statistica... si puo avere il bis
un 39 bis con i risultati su ruote scelte unite.
grande 75 grande 39
un saluto

tom's bakery

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Premium Member

Advanced Member

Super member

Advanced Member >PLATINUM<

Allegati

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Premium Member

Junior Member

Junior Member

tom's bakery is magic​

tom's bakery is magic