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

Ultimi Messaggi

Alto