Novità

diagramma frequenze

vincenzo4221

Advanced Member >PLATINUM<
Messaggi
1.029
Punti reazione
25
Punti
48
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<
Messaggi
2.059
Punti reazione
66
Punti
48
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<
Messaggi
2.059
Punti reazione
66
Punti
48
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<
Messaggi
1.029
Punti reazione
25
Punti
48
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<
Messaggi
1.029
Punti reazione
25
Punti
48
...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ì 02 luglio 2020
    Bari
    73
    64
    20
    32
    57
    Cagliari
    34
    78
    85
    12
    32
    Firenze
    13
    02
    73
    09
    36
    Genova
    10
    33
    67
    28
    56
    Milano
    33
    05
    40
    81
    35
    Napoli
    59
    09
    63
    70
    18
    Palermo
    67
    72
    09
    65
    47
    Roma
    11
    63
    59
    49
    83
    Torino
    64
    67
    63
    02
    84
    Venezia
    64
    19
    08
    65
    12
    Nazionale
    32
    55
    40
    64
    84

Ultimi Messaggi

Alto