Novità

diagramma frequenze

Ciao a tutti , L'immagine sopra e tratta dal programma Visual5/estratti/diagramma-frequenze;
volevo chiedere uno script che potesse dare la stessa tabella (dati) con una aggiunta, cioè la possibilità di poter determinare la lunghezza dell'ultimo ciclo;... il numero delle presenze segnalate nella riga N.1 sarà riferito al numero di estrazioni di cui è formato l'ultimo ciclo;
- per il numero di cicli da rendere visisbili e per la sua consistenza in numero di estrazioni, bisogna tener conto di poter analizzare almeno un periodo minimo di 4 anni cioè circa 600 estrazioni, con cicli composti da minimo 6 estrni ad un max di 21 estrni;
ringrazio gli amici appassionati che spero si cimentino in questa bella analisi in cicli della frequenza, di un numero dato. Buona serata
 
Ultima modifica:
Ciao Vincenzo gli script statistici mi stuzzicano un pochetto.
vedi questa mia versione se fa al caso tuo.

Sub Main
Dim nu(1),Ru(1),fr(12),rit(12)
Ini = EstrazioneFin - 600
fin = EstrazioneFin
stp = 18 ' step ciclo
nn = 1 ' Numero da esaminare
Scrivi "Tabella Numero Ciclico By Mike58",1,,,1,3,,1
Scrivi "Estrazione inizio...... " & GetInfoEstrazione(Ini)
Scrivi "Estrazione finale...... " & GetInfoEstrazione(fin)
Scrivi "Step ciclico........... " & stp
Scrivi "Numero Analizzato...... " & nn
ReDim T(13)
T(1) = "Ciclo"
For r = 1 To 12
T(r + 1) = SiglaRuota(r)
Next
Call InitTabella(T)
For es = fin To Ini Step - stp
k = k + 1
If es > fin Then es = fin
ess = es - (stp-1)
For n = nn To nn
nu(1) = n
ReDim V(13)
V(1) = k & " [ " & ess & "-" & es & " ]"
For y = 1 To 12
Ru(1) = y
fr(y) = EstrattoFrequenza(y,n,ess,es)

If fr(y) = 0 Then
V(y + 1) = "-"
Else
V(y+1) = fr(y)
End If
Next
ReDim Vv(13)
For yy = 1 To 12
Vv(1) = "Ritardo nel ciclo"
rit(yy) = EstrattoRitardo(yy,n,Ini,es)
Vv(yy+1) = rit(yy)
Next
Call AddRigaTabella(V)
Call AddRigaTabella(Vv,,,1,2)
Next
Next
CreaTabella
End Sub


 
Codice:
Sub Main
   Dim nu(1),Ru(1),fr(12),rit(12)
   Ini = EstrazioneFin - 600
   fin = EstrazioneFin
   stp = 18 ' step ciclo
   nn = 1 ' Numero da esaminare
   Scrivi "Tabella Numero Ciclico By Mike58",1,,,1,3,,1
   Scrivi "Estrazione inizio...... " & GetInfoEstrazione(Ini)
   Scrivi "Estrazione finale...... " & GetInfoEstrazione(fin)
   Scrivi "Step ciclico........... " & stp
   Scrivi "Numero Analizzato...... " & nn
   ReDim T(13)
   T(1) = "Ciclo"
   For r = 1 To 12
      T(r + 1) = SiglaRuota(r)
   Next
   Call InitTabella(T)
   For es = fin To Ini Step - stp
   k = k + 1
   If es > fin Then es = fin
      ess = es - (stp-1)
      For n = nn To nn
      nu(1) = n
         ReDim V(13)
         V(1) = k & " [ " & ess & "-" & es & " ]"
         For y = 1 To 12
         Ru(1) = y
            fr(y) = EstrattoFrequenza(y,n,ess,es)
            
            If fr(y) = 0 Then
            V(y + 1) = "-"
            Else
            V(y+1) = fr(y)
            End If
         Next
         ReDim Vv(13)
         For yy = 1 To 12
         Vv(1) = "Ritardo nel ciclo"
         rit(yy) = EstrattoRitardo(yy,n,Ini,es)
         Vv(yy+1) = rit(yy)
         Next
         Call AddRigaTabella(V)
         Call AddRigaTabella(Vv,,,1,2)
      Next
   Next
   CreaTabella
End Sub
 
Ciao Mike58, grazie per l'interesse..ma dobbiamo inanzitutto dare la possibilità di poter intervenire sulla lunghezza dell'ultimo ciclo, lo script postato è un ottimo inizio....

LA TABELLA PUO' ESSERE ANCHE COMPLETAMENTE REIMPOSTATA DIVERSAMENTE , ad esempio invece di avere i dati delle presenze x ciclo di un numero per le dieci/11 ruote, si potrebbe avere i dati di tutti i 90 numeri per ogni singola ruota, in questo modo si controllano solo 10 tabelle invece di 90 tabelle.....chiaro?

-il ritardo nel ciclo cosi come conteggiato è uguale al ritardo cronologico e può servire solo ( x me al momento) per confrontare i risultati fra le ruote, se il codice per il calcolo va a scontrarsi per lo sviluppo dell'idea iniziale, si può anche levarlo.... x il momento ciao
 
Ultima modifica:
...chiedo la collaborazione anche degli altri amici...Beppignello, Magia, Enplein, Luigi, claudio, Legend, FILOTTO, Danilo ecc........ scripters e non solo anche semplici possessori di script adeguati allo scopo.....
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
Indietro
Alto