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
    giovedì 14 agosto 2025
    Bari
    86
    54
    27
    49
    68
    Cagliari
    29
    79
    63
    87
    34
    Firenze
    63
    43
    77
    65
    41
    Genova
    01
    04
    28
    19
    76
    Milano
    77
    29
    38
    12
    86
    Napoli
    85
    83
    52
    63
    37
    Palermo
    56
    57
    50
    62
    52
    Roma
    48
    29
    01
    41
    43
    Torino
    81
    79
    19
    53
    48
    Venezia
    56
    27
    01
    45
    79
    Nazionale
    28
    75
    74
    89
    62
    Estrazione Simbolotto
    Nazionale
    30
    35
    08
    43
    17
Indietro
Alto