Novità

diagramma frequenze

vincenzo4221

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

Mike58

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


 

Mike58

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

vincenzo4221

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

vincenzo4221

Advanced Member >PLATINUM<
...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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto