classi di frequenza x BEPPIGNELLO

vincenzo4221 · 3 Luglio 2018

Ciao Beppi, ho un tuo script sulla distribuzione di poisson, puoi dirmi se è utile per conoscere dopo 12 estrazioni quanti numeri sono in frequenza 0, quanti sono in frequenza 1 ecc.,
...io non so utilizzarlo mi sembra che sia adatto per un analisi di 25 estrazioni , è cosi? oppure se hai un altro script con "distribuzione binominale", se è più adatto.....mi sembra di capire che la distribuzione di poisson, va bene se si considerano poche estrazioni, mentre da 90 estr.ni in su si dovrebbe usare la binominale, è cosi?
comunque sia conoscere almeno i dati per 12 estrazioni e 9 estrazioni, al momento dovrebbe bastare..grazie [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="width: 64"] [/TD]
[TD="width: 128, colspan: 2"]classi di frequenza[/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[TD="width: 64"] [/TD]
[/TR]
[TR]
[TD]estr.ni[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]4[/TD]
[TD="align: right"]5[/TD]
[TD="align: right"]6[/TD]
[TD="align: right"]7[/TD]
[/TR]
[TR]
[TD="align: right"]9[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]12[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD]?[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]15[/TD]
[TD="align: right"]38,18[/TD]
[TD="align: right"]33,69[/TD]
[TD="align: right"]13,87[/TD]
[TD="align: right"]3,53[/TD]
[TD="align: right"]0,62[/TD]
[TD] [/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]18[/TD]
[TD="align: right"]32,17[/TD]
[TD="align: right"]34,06[/TD]
[TD="align: right"]17,03[/TD]
[TD="align: right"]5,34[/TD]
[TD="align: right"]1,18[/TD]
[TD="align: right"]0,19[/TD]
[TD] [/TD]
[TD] [/TD]
[/TR]
[TR]
[TD="align: right"]36[/TD]
[TD="align: right"]11,5[/TD]
[TD="align: right"]24,35[/TD]
[TD="align: right"]25,06[/TD]
[TD="align: right"]16,71[/TD]
[TD="align: right"]8,11[/TD]
[TD="align: right"]3,05[/TD]
[TD="align: right"]0,93[/TD]
[TD="align: right"]0,23[/TD]
[/TR]
[/TABLE]
se lo script qui sotto va bene, puoi insegnarci ad utilizzarlo? come si modificano il numero di estrazioni da analizzare?
Option Explicit
Sub Main
Dim t,teo,fatt,y,ntot,nmax
Dim i,ris
Dim datiT(25,2),datiR(25,2)
For t = 0 To 24
ris = 1
''''''''''''''''''''''''''''''''''''''''''
'''''fattoriale
For i = 2 To t
ris = ris*i
Next
fatt = ris
''''''''''''''''''''''''''''''''''''''''
'''''formula teoriche
teo =(5^t*(Exp(1)^(- 5))/fatt)*90
'''''''''''''''''''''''''''''''''''''''
Scrivi t & "...." & Round(teo,6)
y = y + 1
datiT(y,1) = y
datiT(y,2) = Round(teo,6)
datiR(y,1) = y
If teo > 0 Then
datiR(y,2) = Int(teo + 0.2)
Else
datiR(y,2) = Int(teo + 0.5)
End If
Next
ntot = 12.5
nmax = 20
Const nsezioni = 2
ntot = y
Call PreparaGrafico("Distribuzione Poisson ",0,ntot,0,ntot,ntot*nsezioni,ntot)
Call DisegnaLineaGrafico(datiT,1,"Presenze Teoriche")
Call DisegnaLineaGrafico(datiR,2,"Presenze Reali")
InserisciGrafico
End Sub

Beppignello · 4 Luglio 2018

La distribuzione di Poisson, è una suddivisione (matematica) dei 90 numeri di una ruota in classi
in questo caso da 0 a 24 (classi).
le classi qui elaborate non riguardano le presenze di uscite o frequenza di uscite, ma è un modo di raggruppare i numeri
e vedere dove si concentrano maggiormente in modo matematico
da 0 a 10 si concentrano le condizioni migliori, poi vanno scemando man man fino a raggiungere il valore 22 dove solitamente tutti i numeri dovrebbero essere usciti.

così come diciamo che il ciclo teorico di 1 numero è di 18 concorsi, la poisson ci dice che invece è 22

sono questi concetti inutili, teorici, di pochissima importanza, sono molto variabili e inutilizzabili realmente nel gioco.

come ho già scritto altre volte, il valore più serio che si può usare è il RITARDO NORMALE
cosè? il ritardo normale di un numero si attesta al valore di 79
è un valore mediano dei ritardi passati di un numero, che ci dice se questo numero è frequente perché la media è più bassa di tale valore
o un numero sotto-frequente perché ha valore più alto

Per la Poisson
Prima considerazione
sta ad indicare che solitamente qualsiasi gruppo di numeri che giochiamo, se manteniamo fede all'impostazione fissa di gioco per 22 colpi
continui, matematicamente dovremmo conseguire la vincita.
dove nei primi 10 raggruppamenti ricadono ben 88,767 numeri dei 90 e solo 1,232 ricadrà anch'esso entro il 22 gruppo.

Seconda considerazione
se vogliamo fissare un punto preciso, identificandolo con una suddivisione di frequenza, dobbiamo dire:

ipotizziamo di vagliare un ciclo di 90 concorsi, qualsiasi, presi a caso in mezzo all'archivio,
se andiamo a suddividere i numeri in funzione delle loro uscite, e raggruppandoli per medesima classe, troveremo approssimativamente questa distribuzione o suddivisione in classi
0....0.606415
1....3.032076
2....7.58019
3....12.633651
4....15.792063
5....15.792063
6....13.160053
7....9.400038
8....5.875024
9....3.263902
10....1.631951
11....0.741796
12....0.309082
13....0.118878
14....0.042456
15....0.014152
16....0.004423
17....0.001301
18....0.000361
19....0.000095
20....0.000024
21....0.000006
22....0.000001
23....0
24....0

cosa vuol dire?
che con 0 uscite troveremo 0,606415 numeri mai usciti
che con 1 uscita troveremo 3,03 numeri
che con 2 uscite troveremo 7,58 numeri
che con 3 uscite troveremo 12,63 numeri
che con 4 uscite troveremo 15,79 numeri
che con 5 uscite troveremo 15,79 numeri
che con 6 uscite troveremo 9,40 numeri
e così via per tutte le altre classi.

--------- nota tecnica dello script --------
la riga dove viene citato presenze reali,riga rossa, non riporta i dati reali ( o presenze di numeri reali trovate) , ma si limita il grafico ad
accumulare la probabilità favorevole di 0,5 per rappresentarne una visiva di scostamento tra la poisson e la distribuzione Normale.

quindi questo script e grafico finisce qui il suo dovere, rendendo questi concetti appena menzionati e qualche altra considerazione teorica
e di impostazione per il gioco, che si vuol fare.

devo cercare invece uno script , che devo avere da qualche parte in qualche cartella , che conta le presenze teoriche e reali così come contate realmente nell'archivio e da li fare l'uso in differenza tra i valori teo-reali per il gioco reale.

oppure guarda in spaziometria la statistica CicliTeorici e reali
metti la voce (LISTA) a 90 concorsi

in questo modo vedi le classi di raggruppamento delle presenze e quanti numeri realmente
sono concentrati in queste classi e quelle teoriche.
a questo punto si possono fare alcune considerazioni di eccessi in alcune classi e suddividere quindi
i numeri in funzione delle nostre idee.

vincenzo4221 · 4 Luglio 2018

Ciao Beppi , ti ringrazio dei chiarimenti che ci hai dato, alla luce di quanto dici, non so se posso ritenere utile i dati forniti con la "distr.ne Poisson", mentre mi sembra di capire che i dati che mi servono vengono dati dalla "distribuzione normale",.... conosco anche la formula data dal bravo Kosmo in un altro sito ma per me di difficile attuazione (calcolo)(il coefficiente binomiale x i numeri ripetuti 3 volte in 15 estr.ni: (n su k)*p(1/18)^3* q*(17/18)^15 ) comunque per il momento mi basterebbe avere i dati per 9 e 12 estrazioni......

Beppignello · 4 Luglio 2018

Totale......55440
dalla 3950 alla estr.n. 9494
Distribuzione nelle 7 classi di frequenza in cicli di 9 estrazioni
[TABLE="border: 0, cellspacing: 0"]
[TR]
[TD="align: right"]0[/TD]
[TD="align: right"]33096[/TD]
[TD="align: right"]0,5969697[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]53,727273[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]17607[/TD]
[TD="align: right"]0,3175866[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]28,582794[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]4147[/TD]
[TD="align: right"]0,0748016[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]6,732144[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]544[/TD]
[TD="align: right"]0,0098124[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0,883116[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]43[/TD]
[TD="align: right"]0,0007756[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0,069804[/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]3[/TD]
[TD="align: right"]0,0000541[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0,004869[/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[/TR]
[TR]
[TD="align: left"] [/TD]
[TD="align: right"]55440[/TD]
[TD="align: right"]1[/TD]
[TD="align: left"] [/TD]
[TD="align: right"]90[/TD]
[/TR]
[/TABLE]

Beppignello · 4 Luglio 2018

Totale 41580
dalla 3950 alla estr.n. 9494
distribuzione nelle 7 classi di frequenza in cicli di 12 estrazioni
[TABLE="border: 0, cellspacing: 0"]
[TR]
[TD="align: right"]0[/TD]
[TD="align: right"]20912[/TD]
[TD="align: right"]0,5029341[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]45,264069[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]14837[/TD]
[TD="align: right"]0,35683021[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]32,1147189[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]4744[/TD]
[TD="align: right"]0,11409331[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]10,2683979[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]961[/TD]
[TD="align: right"]0,02311207[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]2,0800863[/TD]
[/TR]
[TR]
[TD="align: right"]4[/TD]
[TD="align: right"]118[/TD]
[TD="align: right"]0,0028379[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0,255411[/TD]
[/TR]
[TR]
[TD="align: right"]5[/TD]
[TD="align: right"]8[/TD]
[TD="align: right"]0,0001924[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0,017316[/TD]
[/TR]
[TR]
[TD="align: right"]6[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: right"]7[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]90[/TD]
[TD="align: right"]0[/TD]
[/TR]
[TR]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[TD="align: left"] [/TD]
[/TR]
[TR]
[TD="align: left"] [/TD]
[TD="align: right"]41580[/TD]
[TD="align: right"]0,99999999[/TD]
[TD="align: left"] [/TD]
[TD="align: right"]89,9999991[/TD]
[/TR]
[/TABLE]

Beppignello · 4 Luglio 2018

salva errori nell'elaborazione o incongruenze di archivio i dati sono questi
da intendersi in questo modo

classe 0 presenze 45 numeri
classe 1 presenze 32 numeri
classe 2 presenze 10 numeri
classe 3 presenze 2 numeri
classe 4 presenze 0,255 numeri
classe 5 presenze 0,017 numeri
classe 6 e 7 presenze mai verificate in ogni periodo di 12 estrazioni

volendo questi dati sono da riferirsi in particolare alla ruota di BARI, ma credo che possono essere
regolarmente utilizzati anche in altre ruote, perché stimano una media centrata dei 90 numeri
in tutti i cicli di 9 e 12 concorsi, in altre parole a mio avviso sono più vicini al vero delle distribuzioni
sia di poisson che quella normale, le quali sono soggette a rappresentare dal 95% al 97% le oscillazioni
quindi non si avvicinano al 100%

qui siamo con dati veri e certi, dal reale archivio estrazioni.

per farti un esempio

in 12 concorsi quanti numeri sono usciti una o più volte e quanti non sono mai usciti?

si usa la formula (17/18)^12estraz. =
45 numeri sono usciti e 45 sono rimasti sempre nella Venus (mai estratti)

si usa la formula (17/18) ^ 9 estraz.
53-54 numeri non sono mai usciti mentre 36 sono usciti

vincenzo4221 · 4 Luglio 2018

ok i dati da te estrapolati provengono da situazione reale, non sono teorici seppur molto vicini per l'altissimo numero di estrazioni che hai preso a riferimento...

Beppignello · 4 Luglio 2018

Beppignello · 4 Luglio 2018

se ti può servire, previo controlli esattezza ,

Codice:

Option Explicit
Sub Main
Dim fre(750)
Dim r,n,f,i,L,ii,fr,q,j,y,Total,perc,det
r = InputBox("Ruota",,1)
f = EstrazioneFin
L = InputBox("Lunghetta estraz.( 8 - 11 - 17 - 23 ) ",,11)
i = 3950
det = InputBox("Vuoi Dettaglio? S/N ",,"N")
'''''''''''''
For q = 1 To 750
ii = i + L
Messaggio(i & ":" & ii)
If i >= f Or ii >= f Then Exit For
''' Scrivi i & " : " & ii
For n = 1 To 90
fr = EstrattoFrequenzaTurbo(r,n,i,ii)
fre(fr) = fre(fr) + 1
Next
Total = 0
For y = 0 To 7
If det = "S" Then Scrivi y & "..." & Round(fre(y)/90,7) & "........" & fre(y)
Total = Total + fre(y)
Next
i = i + L + 1
Next
'''---------------------------------------------------------------------------
Scrivi
ReDim atitoli2(4),avalori2(4)
' preimposto i titoli delle colonne
atitoli2(1) = " classe Freq. "
atitoli2(2) = " Reali Pr."
atitoli2(3) = " coeff.Distr."
atitoli2(4) = " Numeri Usciti Media"
' ' inizializzo la tabella
SetTableWidth("95%")
Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
Scrivi "Ruota di " & NomeRuota(r),1
Scrivi "Totale......" & Total,1
Scrivi "Periodo dalla 3950 alla estr.n. " & EstrazioneFin,1
Scrivi "Distribuzione nelle 7 classi di frequenza in cicli di durata.." & L + 1 & " estrazioni",1
Scrivi "Classe = 0 Numeri mai Usciti ",1
'''''''''''''''''
For y = 0 To 7
perc = Round(fre(y)/Total,6)
avalori2(1) = y
avalori2(2) = fre(y)
avalori2(3) = perc
If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = "" End If
Call AddRigaTabella(avalori2,Bianco_,"center",2)
''' Scrivi y & "........" & fre(y) & "..." & perc
Next
Call CreaTabella
End Sub

vincenzo4221 · 4 Luglio 2018

Ciao Beppi , molto grato..voglio poi parlarti dello "sviluppo" della mia primaria intenzione...ovvero dell'utilizzo razionale delle "medie" e la ricerca dei suoi campi d'applicazione....

ad esempio ..si potrebbe aggiungere la possibilità di conoscere i dati anche per 2 o 3 ruote?

Beppignello · 4 Luglio 2018

ho aggiunto altre 2 informazioni ai dati, sono senz'altro utili a colpo d'occhio

Codice:

Option Explicit
Sub Main
   Dim fre(750)
   Dim r,n,f,i,L,ii,fr,q,j,y,Total,perc,det,nr,z,ct,dal,al
   r = InputBox("Ruota",,1)
   f = EstrazioneFin
   L = InputBox("Lunghetta estraz.( 8 - 11 - 17 - 23 ) ",,11)
   i = 3950
   det = InputBox("Vuoi Dettaglio? S/N ",,"N")
   '''''''''''''
   For q = 1 To 750
      ii = i + L
      Messaggio(i & ":" & ii)
      If i >= f Or ii >= f Then Exit For
      ''' Scrivi i & " : " & ii
      For n = 1 To 90
         fr = EstrattoFrequenzaTurbo(r,n,i,ii)
         fre(fr) = fre(fr) + 1
      Next
      Total = 0
      For y = 0 To 7
         If det = "S" Then Scrivi y & "..." & Round(fre(y)/90,7) & "........" & fre(y)
         Total = Total + fre(y)
      Next
      i = i + L + 1
   Next
   '''---------------------------------------------------------------------------
   Scrivi
   ReDim atitoli2(6),avalori2(6)
   ' preimposto i titoli delle colonne
   atitoli2(1) = " classe Freq. "
   atitoli2(2) = " Reali Pr."
   atitoli2(3) = " coeff.Distr."
   atitoli2(4) = " Numeri Presenza Media"
   atitoli2(5) = " Qta Nr.Reali Presenti"
   atitoli2(6) = "Eccesso/deficit"
   ' ' inizializzo la tabella
   SetTableWidth("95%")
   Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
   Scrivi "Ruota di " & NomeRuota(r),1
   Scrivi "Totale......" & Total,1
   Scrivi "Periodo dalla 3950 alla estr.n. " & EstrazioneFin,1
   Scrivi "Distribuzione nelle 7 classi di frequenza in cicli di durata.." & L + 1 & " estrazioni",1
   Scrivi "Classe = 0 Numeri mai Usciti nel periodo scelto in altre parole quantità numeri con ritardo superiore a quello richiesto ",1
   '''''''''''''''''
   ''''loop 90 numeri per calcolo distribuzione attuale
   ReDim pre(90)
   dal = ii-(L*2) : al = ii-L
   Scrivi "Ultimo ciclo periodo: " &  dal & "  :  " & al,1
   For nr = 1 To 90
      pre(nr) = EstrattoFrequenzaTurbo(r,nr,dal,al)
   Next
   '''''''
   For y = 0 To 7
      perc = Round(fre(y)/Total,6)
      avalori2(1) = y
      avalori2(2) = fre(y)
      avalori2(3) = perc
      ct = 0
      For z = 1 To 90
         If Int(pre(z)) = y Then
            ct = ct + 1
         End If
      Next
      avalori2(5) = ct    
      ''''''''''''
      If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = 0  End If
      avalori2(6) = Int(avalori2(5))-Int(avalori2(4))
      '''''''''''''''
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
      ''' Scrivi y & "........" & fre(y) & "..." & perc
   Next
   Call CreaTabella
End Sub

Beppignello · 4 Luglio 2018

Ciao Beppi , molto grato..voglio poi parlarti dello "sviluppo" della mia primaria intenzione...ovvero dell'utilizzo razionale delle "medie" e la ricerca dei suoi campi d'applicazione....

ad esempio ..si potrebbe aggiungere la possibilità di conoscere i dati anche per 2 o 3 ruote?

spiegami cosa vuoi fare, in un quadro più ampio
facciamo un altro script

1° metto più ruote

servono i dati messi insieme e tenuti separati per ogni ruota ?

dalla media o medie cosa vuoi conoscere?

vincenzo4221 · 5 Luglio 2018

Ciao Beppi , ti ringrazio per la disponibilità dimostrata ; cerchiamo di fare una cosa x volta, ora definiamo la possibilità di analisi cosi come hai impostato lo script per poi passare con altre soluzioni, per forse un più appropiato modo di agire ( ti spiego poi con calma); ma per il momento andiamo a definire il discorso intrapreso:

- diamo la possibilità di poter analizzare e scegliere il numero delle ruote( con una mascherina con tutte le dieci ruote da poter selezionare);

-"servono i dati messi insieme e tenuti separati per ogni ruota ?" tutt'e due sarebbe meglio,
penso al tabellone analitico di spaziometria con la possibilità di avere il quadro estrazionale di 2 o più ruote anche UNITE questa è un ottimo strumento di paragone che supportato dai dati dello script

..si possono cogliere quegli elementi che se convergono in numero è qualità, che danno poi i risultati che ci attendiamo;

-"dalla media o medie cosa vuoi conoscere?" i dati in colonna con lo scompenso aggiungono un parametro di riferimento da "paragonare" alle medie teoriche di sfaldamento.

Il discorso delle ricerche dei vari campi o modi di applicazione delle medie affronta la statistica pura ed l'utilizzo dei suoi dati, voglio intraprenderlo nel nuovo sviluppo della discussione dopo aver chiuso l'argomento attuale.

..ora il campo si allarga proprio in questo mi viene adesso in mente un libro (mai letto x intero) "i 100 modi di giocare l'ambata" di Severo che stimola la fantasia, ma nonostante ciò poche sono le tecniche di applicazioni delle medie che conosciamo ..possa questa collaborazione portare a nuovi e buoni risultati..

vincenzo4221 · 5 Luglio 2018

..un ulteriore colonna con i numeri reali presenti per classe di frequenza è possibile? come appare su spaziometria in "cicli teorici e reali" come la finestra LISTA , ma con la possibilità di intervenire sul range di estrazioni considerate...

un ultima cosa...ho notato che l'ultimo ciclo periodo non coincide con l'ultima estrazione ..quindi a volte ci si ritrova con dati vecchi ..bisognerebbe fare in modo che il fine ciclo coincida con l'ultima estrazione..comunque intervenendo sull'inizio del range per le poche estrazioni di differenza si riesce a far coincidere il fine ciclo..

Beppignello · 5 Luglio 2018

prima che sorgano fraintendimenti

attualmente abbiamo impostato 8 classi di frequenza ( da 0 a 7 )
attualmente abbiamo impostato alcuni cicli brevissimi tipo 9 12 18 24 estrazioni

per questi periodi brevissimi di estrazioni 8 classi di frequenza bastano, ma se saliamo a range di periodo maggiori come
90-180,270-360 o oltre, chi usa lo script va in errore perché ci sono classi maggiori di frequenza, ed è normale
in taluni casi si può arrivare anche a 50 classi di frequenza.

ora vorrei solo capire se stiamo parlando di brevissimo periodo di estrazioni o cicli piccoli, altrimenti rischiamo di impantanarci
con errori fra non molto.

così come per la poisson e gaussiana o distribuzione normale il numero delle classi le scegliamo noi, e sono indipendenti dall'elaborazione
perché siamo noi ad aver stimato a parte il numero di classi di sintesi e distribuzione dei valori al loro interno, così anche per
l'elaborazione pura, dobbiamo aver vagliato noi il range delle classi che verranno interessate.
infatti su provi a chiedere in spaziometria i teorici/reali per 90 estrazioni ti da un massimi(x) di classi suddivise, ma se lo chiedi a 270 o 360 estrazioni, le classi sono ad un livello maggiore.

fare uno script a volte è rigido rispetto ad un programma vero e proprio, quindi alcune cose devono essere considerate prima, al loro nascere.

Beppignello · 5 Luglio 2018

Codice:

Option Explicit
Sub Main
   Dim r,n,f,i,L,ii,fr,q,j,y,Total,perc,det,nr,z,ct,dal,al,k,rr,kn,Totalgen
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''''''campi di input
   '''1 ruote
   '''2 lunghetta periodo estrazioni
   '''3 vuoi dettaglio conteggi?
   ReDim aRuote(11),rt(12) ' array che contiene i numeri delle ruote selezionate
   If ScegliRuote(aRuote) > 0 Then ' apro la finestra con la lista per selezionare le ruote  e se torna maggiore di 0
      ' vuol dire che sono state selezionate N ruote
      ' leggo l'array che ora contiene la selezione dell'utente
      For k = 1 To UBound(aRuote)
         If aRuote(k) > 0 Then
            kn = kn + 1
            rt(kn) = aRuote(k)
         End If
      Next
   End If
   '''''
   f = EstrazioneFin
   L = InputBox("Lunghetta periodo estraz.( 8 - 11 - 17 - 23 ) ",,11)
   det = InputBox("Vuoi Dettaglio? S/N ",,"N")
   ReDim unite(750)
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ''''loop per ogni ruote
   For rr = 1 To kn
      ReDim fre(750)
      r = rt(rr)
      i = 3950 : Total = 0
      '''''''''''''
      For q = 1 To 750
         ii = i + L
         Messaggio(SiglaRuota(r) & "    " & i & ":" & ii)
         If i >= f Or ii >= f Then Exit For
         ''' Scrivi i & " : " & ii
         For n = 1 To 90
            fr = EstrattoFrequenzaTurbo(r,n,i,ii)
            fre(fr) = fre(fr) + 1 '''' singola ruota
         Next
         Total = 0
         For y = 0 To 7
            If det = "S" Then Scrivi y & "..." & Round(fre(y)/90,7) & "........" & fre(y)
            Total = Total + fre(y) '''' totale x ruota
         Next
         i = i + L + 1
      Next
      '''---------------------------------------------------------------------------
      Scrivi
      ReDim atitoli2(6),avalori2(6)
      ' preimposto i titoli delle colonne
      atitoli2(1) = " classe Freq. "
      atitoli2(2) = " Reali Pr."
      atitoli2(3) = " coeff.Distr."
      atitoli2(4) = " Numeri Presenza Media"
      atitoli2(5) = " Qta Nr.Reali Presenti"
      atitoli2(6) = "Eccesso/deficit"
      ' ' inizializzo la tabella
      SetTableWidth("95%")
      Call InitTabella(atitoli2,2,"center",1.5,5,"Arial")
      ColoreTesto(2)
      Scrivi "Ruota di " & NomeRuota(r),1
      ColoreTesto(0)
      Scrivi "Totale......" & Total,1
      Scrivi "Periodo dalla 3950 alla estr.n. " & EstrazioneFin,1
      Scrivi "Distribuzione nelle 7 classi di frequenza in cicli di durata.." & L + 1 & " estrazioni",1
      Scrivi "Classe = 0 Numeri mai Usciti nel periodo scelto in altre parole quantità numeri con ritardo superiore a quello richiesto ",1
      '''''''''''''''''
      Totalgen = Totalgen + Total
      ''''loop 90 numeri per calcolo distribuzione attuale
      ReDim pre(90)
      dal = ii -(L*2) : al = ii - L
      Scrivi "Ultimo ciclo periodo: " & dal & "  :  " & al,1
      For nr = 1 To 90
         pre(nr) = EstrattoFrequenzaTurbo(r,nr,dal,al)
      Next
      '''''''
      For y = 0 To 7
         perc = Round(fre(y)/Total,6)
         avalori2(1) = y
         avalori2(2) = fre(y)
         avalori2(3) = perc
         ct = 0
         For z = 1 To 90
            If Int(pre(z)) = y Then
               ct = ct + 1
            End If
         Next
         avalori2(5) = ct
         ''''''''''''
         If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = 0 End If
         avalori2(6) = Int(avalori2(5)) - Int(avalori2(4))
         '''''''''''''''accumula valori per ruote unite
         unite(y) = unite(y) + fre(y)
         ''''''''''''''
         Call AddRigaTabella(avalori2,Bianco_,"center",2)
         ''' ''''''''''
      Next
      Call CreaTabella
      Scrivi
      ''''''
   Next
   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   ColoreTesto(1)
   Scrivi "R i e p i l o g o   P r o s p e t t o    R u o t e   U n i t e",1
   ColoreTesto(0)
       ReDim atitoli2(4),avalori2(4)
      ' preimposto i titoli delle colonne
      atitoli2(1) = " classe Freq. "
      atitoli2(2) = " Reali Pr."
      atitoli2(3) = " coeff.Distr."
      atitoli2(4) = " Numeri Presenza Media"
      ' ' inizializzo la tabella
      SetTableWidth("95%")
      Call InitTabella(atitoli2,1,"center",1.5,5,"Arial")

   Scrivi "Totale Generale Ruote Unite..." & Totalgen,1
   ''''''''''''''''''''''riepilogo generale con ruote unite
   For y = 0 To 7
      perc = Round(unite(y)/Totalgen,6)
      avalori2(1) = y
      avalori2(2) = unite(y)
      avalori2(3) = perc
      ''''''''''''
      If perc > 0 Then avalori2(4) = Round(perc * 90,6) Else avalori2(4) = 0 End If
      '''''''''''''''
      Call AddRigaTabella(avalori2,Bianco_,"center",2)
   Next
   Call CreaTabella
   Scrivi
End Sub

questo è un passettino fatto in avanti, che fa scegliere più ruote e totalizza i dati
in ruote unite.
''''''''''''''''''''''''''''''''''''''''''''
per questa sera, se trovo un attimo nel pomeriggio, faccio un riepilogo dei numeri
all'interno di ciascuna classe, più o meno come fa spaziometria

'''''''''''''''''''''''''''''''''''''''''''

fammi sapere, se così può andare quanto fatto ora, se è ciò che vorresti avere

vincenzo4221 · 5 Luglio 2018

Ciao Beppi, forse c'è qualcosa che non và nei "numeri presenza media" delle ruote unite, se raffronti i dati ottenuti con spaziometria/estratti/frequenze ultimo ciclo estratti, vedi che, mentre nei dati delle ruote singole i dati corrispondono , nelle 2 ruote UNITE ,le classi di frequenza si dispongono in maniera diversa...con minor numero di estratti nella frequenza zero e con un max di presenza nella frequenza 1 ....non vorrei dilungarmi e sbagliare, ma insomma, siamo nel mezzo di un cambiamento/sviluppo dei dati , infatti da 0 a ritardo 12 , vi sono la metà dei numeri x dato statistico....per risponderti a quanto detto prima ..tutto è nato dall'esigenza di applicare la teoria della legge del terzo sui recuperi di classi in deficit o eccesso analizzando il corso di un ciclo tipico (18 estrni) alla fine degli ultimi sei colpi quindi ad anzianità 12....adesso l'idea iniziale si è molto arricchita con la tua collaborazione...

Beppignello · 5 Luglio 2018

se non riesci tu a postare qualche output, dimmi, quali ruote hai usato ed il ciclo lungo quanto.

questo è il prospetto con numeri presenti a ruote unite BA-CA con ciclo 18

Riepilogo Cicli Teorici/reali su Ruote Unite scelte aggiornato a 9494 / 03/07/2018
BA
CA
Classe..0...18.19.21.24.33.36.58.59.66.69.75.76.80 .86.
Classe..1...04.06.07.11.16.25.29.35.45.51.53.60.61 .63.71.72.74.78.81.83.
Classe..2...01.09.10.12.14.20.22.23.28.32.34.37.40 .41.47.49.54.56.64.67.68.73.79.87.88.90.
Classe..3...02.05.08.26.27.39.42.43.48.50.55.62.70 .82.85.
Classe..4...03.13.15.17.30.31.38.46.52.57.65.77.89 .
Classe..5...44.
Classe..6...84.
Classe..7...
Classe..8...
Classe..9...
Classe..10...
Classe..11...
Classe..12...
Classe..13...
Classe..14...
Classe..15...

questo è il riepilogo a ruote Unite con risultanze medie nel lungo periodo

Beppignello · 5 Luglio 2018

se apparentemente i dati non ti combaciano
un motivo può essere questo:

nei cicli teorici/reali dell'ultimo ciclo postati da me sopra a ruote unite, prendono in considerazione i 90 numeri
a in verità se stiamo parlando di 2 ruote, dovrebbero essere 180

cerco di spiegarmi

se guardi il nr.02
a Bari è uscito 1 volta nell'ultimo ciclo di 18
a Cagliari è uscito 2 volte nell'ultimo ciclo di 18

se consideriamo le ruote unite dovremmo trovare il nr.02 all'interno della frequenza 3
--------------------------------------------------------------------------------------------------------------------------

se invece ti riferisci a questa parte dello script che dalla media di lungo periodo a ruote unite
identifica che alla frequenza 0,1,2,3,etc contengono attualmente più numeri è chiaro
il prospetto riepilogativo delle media e presenze, riguarda sempre una ruota alla volta e i dati mediati
sono solo per appiattire il coeff.di distribuzione

se esiminiamo le singole ruote abbiamo realmente che
BARI freq = 0 ci sono 31 numeri
CAGLIARI freq= 0 ci sono 33 numeri

cosa dobbiamo fare secondo te?

come si deve considerare il termine "le RUOTE UNITE "?

deve essere lo specchio delle singole ruote (freq=0 BA-31 CA-33) o deve essere come ho specificato sopra con un esempio
del nr.02 freq=3 (BA-1 CA-2) TOT.3?

Beppignello · 5 Luglio 2018

okey c'è un piccolo problemino di fine ultimo ciclo, finisce alla 9493, oggi siamo alla 9495

ho modificato lo script, in questo modo

1 - calcola una o più ruote e realizza output di ciascuna ruota
2 - calcola riequilibrio coeff. distribuzione per somma dei dati delle ruote singole accorpandole come unite
3 - calcola dati esclusivamente su più ruote trattandole come unite, e realizza prospetto output
4 - calcola classi frequenza con i numeri attuali distribuiti con nelle varie classi

rimane il problemino che se l'ultimo ciclo finisce prima dell'ultima estrazione in archivio, cosa è meglio fare in questo caso.
- prenderne atto
- o modificare il tutto per farlo finire giusto all'ultima estraz. in archivio

classi di frequenza x BEPPIGNELLO

Advanced Member >PLATINUM<

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Advanced Member >PLATINUM<

Beppignello

Guest

Beppignello

Guest

Beppignello

Guest