Per Cutoff

[Cinzia27]

Ciao, Cutoff.
Non conosco la formula. Questa è semplicemente la statistica di Bari dall'estrazione 7440( che introdusse la ruota NZ)
NE è numero di estratti, NET è numero teorico di estratti

​	Estratti​	​	​	​	​	Statistiche di presenza​	​
RC​	I​	II​	III​	IV​	V​	NE​	NET​
0​	21​	52​	10​	37​	88​	5​	5,000​
1​	​	64​	19​	32​	84​	4​	4,722​
2​	9​	58​	51​	77​	18​	5​	4,460​
3​	​	​	4​	38​	​	2​	4,212​
4​	6​	42​	1​	​	3​	4​	3,978​
5​	62​	13​	7​	23​	56​	5​	3,757​
6​	80​	​	​	48​	85​	3​	3,548​
7​	47​	​	54​	29​	35​	4​	3,351​
8​	​	​	59​	87​	40​	3​	3,165​
9​	49​	39​	86​	27​	​	4​	2,989​
10​	​	​	70​	​	63​	2​	2,823​
11​	​	8​	​	75​	55​	3​	2,666​
12​	​	25​	​	​	​	1​	2,518​
13​	​	​	​	22​	72​	2​	2,378​
14​	​	71​	​	78​	36​	3​	2,246​
15​	​	​	20​	60​	​	2​	2,121​
16​	15​	​	11​	34​	​	3​	2,004​
17​	​	​	​	76​	73​	2​	1,892​
18​	​	​	​	​	57​	1​	1,787​
19​	66​	​	​	​	89​	2​	1,688​
20​	2​	​	​	​	26​	2​	1,594​
21​	​	​	31​	​	​	1​	1,505​
22​	​	​	​	​	​	0​	1,422​
23​	12​	​	​	46​	​	2​	1,343​
24​	74​	​	​	​	79​	2​	1,268​
25​	​	​	​	​	67​	1​	1,198​
26​	81​	​	​	​	​	1​	1,131​
27​	​	28​	​	​	30​	2​	1,068​
28​	​	​	​	44​	90​	2​	1,009​
29​	16​	​	​	50​	​	2​	0,953​
30​	​	​	​	​	​	0​	0,900​
31​	​	​	​	69​	​	1​	0,850​
32​	​	​	​	​	14​	1​	0,803​
33​	​	82​	​	53​	45​	3​	0,758​
34​	​	​	​	​	​	0​	0,716​
35​	​	​	​	​	​	0​	0,676​
36​	​	​	​	​	​	0​	0,639​
37​	​	​	​	17​	​	1​	0,603​
38​	​	​	​	​	​	0​	0,570​
39​	​	​	​	​	​	0​	0,538​
40​	​	​	​	​	​	0​	0,508​
41​	​	​	61​	​	​	1​	0,480​
42​	​	​	​	​	​	0​	0,453​
43​	​	​	​	​	​	0​	0,428​
44​	​	​	​	41​	​	1​	0,404​
45​	​	​	68​	​	​	1​	0,382​
46​	​	​	​	​	​	0​	0,361​
47​	​	​	​	​	​	0​	0,341​
48​	​	​	​	​	​	0​	0,322​
49​	​	​	​	24​	​	1​	0,304​
50​	​	​	​	​	​	0​	0,287​
51​	​	​	​	​	​	0​	0,271​
52​	​	​	​	​	​	0​	0,256​
53​	​	​	​	​	​	0​	0,242​
54​	​	​	​	​	​	0​	0,228​
55​	​	​	​	​	​	0​	0,216​
56​	​	​	​	​	​	0​	0,204​
57​	​	​	​	​	​	0​	0,192​
58​	​	​	​	​	​	0​	0,182​
59​	​	​	​	​	​	0​	0,172​
60​	​	​	​	​	​	0​	0,162​
61​	​	​	​	​	​	0​	0,153​
62​	​	​	​	​	​	0​	0,145​
63​	​	​	​	​	​	0​	0,136​
64​	​	​	​	​	​	0​	0,129​
65​	​	83​	​	​	​	1​	0,122​
66​	​	​	​	​	​	0​	0,115​
67​	​	​	​	​	​	0​	0,109​
68​	​	​	​	​	​	0​	0,103​
69​	​	​	​	​	​	0​	0,097​
70​	​	​	5​	​	​	1​	0,091​
71​	​	​	​	​	​	0​	0,086​
72​	​	​	​	​	​	0​	0,082​
73​	​	​	​	​	​	0​	0,077​
74​	​	​	​	​	​	0​	0,073​
75​	​	​	​	​	​	0​	0,069​
76​	​	​	​	​	​	0​	0,065​
77​	​	​	​	​	​	0​	0,061​
78​	​	​	​	​	​	0​	0,058​
79​	​	​	​	​	​	0​	0,055​
80​	​	​	​	​	​	0​	0,052​
81​	​	​	​	​	​	0​	0,049​
82​	​	​	33​	​	​	1​	0,046​
83​	​	​	​	​	​	0​	0,044​
84​	​	​	​	​	​	0​	0,041​
85​	​	​	​	​	​	0​	0,039​
86​	​	​	43​	​	​	1​	0,037​
87​	​	​	​	​	​	0​	0,035​
88​	​	​	​	​	​	0​	0,033​
89​	​	​	​	​	​	0​	0,031​
90​	​	​	​	​	​	0​	0,029​
91​	​	​	​	​	​	0​	0,028​
92​	​	​	​	​	​	0​	0,026​
93​	​	​	​	​	​	0​	0,025​
94​	​	​	​	​	​	0​	0,023​
95​	​	​	​	​	​	0​	0,022​
96​	​	​	​	​	​	0​	0,021​
97​	​	​	​	​	​	0​	0,020​
98​	​	​	​	​	​	0​	0,018​
99​	​	​	​	​	​	0​	0,017​
100​	​	​	​	​	​	0​	0,016​
101​	​	​	​	​	​	0​	0,016​
102​	​	​	​	​	​	0​	0,015​
103​	​	​	​	​	​	0​	0,014​
104​	​	​	​	​	​	0​	0,013​
105​	​	​	​	​	​	0​	0,012​
106​	​	65​	​	​	​	1​	0,012​

 

[cutoff]

Ciao Cinzia innanzitutto ti ringrazio per la risposta. Questa schermata ce l'ho anche io poichè credo sia di L8+/Lottodesk, giusto?
La domanda che avevo fatto a Rookie era invece di come si calcola la presenza teorica di L1 ad una data quota(alias ritardo), considerando non 1, ma tutte e 11 le ruote .Cioè.
Al ritardo 17 considerando tutte le 11 ruote, quanti L1 il calcolo teorico dice che ci dovrebbero essere? Ora sul tabellone ce ne sono 4(Z88,F82,G16 e V90) ma il valore teorico quale sarebbe e come si calcola?
Ti ringrazio in ogni caso.

 

[Cinzia27]

Ciao, Cutoff.
Infatti, si tratta di un dato statistico variabile in base alla parte dell'archivio considerato.
Sarebbe interessante risalire alla formula.
Se il ritardo teorico di un numero a partire dall'estrazione successiva alla cinquina che lo ha generato è 18, teoricamente dalla fascia 20 ( consderata anche quella della cinquina) non vi dovrebbe essere alcun numero nel
tabellone analitico.

 

[Cinzia27]

Preciso che mi riferisco che il conteggio partirebbe dalla cinquina, ossia da quel momento fino alla sua fascia 18 dovebbero
essere presenti numeri, dopo no.

 

[Zac]

Scusate se mi intrometto. ma a me piace cercare di capire. Cutoff ha fatto una domanda a Rookie nel thread di Elleuca . Lo stesso Rookie ha dato una risposta alquanto provocatoria. Tu Cutoff hai soprasseduto. Cinzia27 che sta intervenendo nel Thread di Elleuca apre un post apposito per Cutoff. Ma invece di cercare formule perchè non si dice chiaramente a questo Rookie che deve cambiare strada come sto facendo io da un pezzo?
Oppure......se vi interessa veramente l'argomento, perchè non provate a farlo presente a Rookie? Magari vi accoglierà nel suo Thread.
Buona serata

 

[Cinzia27]

Ciao, Zac. Ho aperto un nuovo post perché mi interessava proseguire l'argomento proposto da Cutoff.
Tutto qua.

 

[cutoff]

Ciao Zac, io sono fatto così..Chiedo le cose con educazione, così come mi hanno insegnato i miei genitori, sperando che poi qualcuno mi risponda. L'altra parte non è obbligato a rispondere, e di certo io non posso obbligare nessuno. Dico solo che in un forum, ci dovrebbe essere condivisione e partecipazione, specie se l'argomento è nuovo e si chiedono chiarimenti.
Buona serata

 

[happy]

Ciao, Cutoff.
Non conosco la formula. Questa è semplicemente la statistica di Bari dall'estrazione 7440( che introdusse la ruota NZ)
NE è numero di estratti, NET è numero teorico di estratti

​	Estratti​	​	​	​	​	Statistiche di presenza​	​
RC​	I​	II​	III​	IV​	V​	NE​	NET​
0​	21​	52​	10​	37​	88​	5​	5,000​
1​	​	64​	19​	32​	84​	4​	4,722​
2​	9​	58​	51​	77​	18​	5​	4,460​
3​	​	​	4​	38​	​	2​	4,212​
4​	6​	42​	1​	​	3​	4​	3,978​
5​	62​	13​	7​	23​	56​	5​	3,757​
6​	80​	​	​	48​	85​	3​	3,548​
7​	47​	​	54​	29​	35​	4​	3,351​
8​	​	​	59​	87​	40​	3​	3,165​
9​	49​	39​	86​	27​	​	4​	2,989​
10​	​	​	70​	​	63​	2​	2,823​
11​	​	8​	​	75​	55​	3​	2,666​
12​	​	25​	​	​	​	1​	2,518​
13​	​	​	​	22​	72​	2​	2,378​
14​	​	71​	​	78​	36​	3​	2,246​
15​	​	​	20​	60​	​	2​	2,121​
16​	15​	​	11​	34​	​	3​	2,004​
17​	​	​	​	76​	73​	2​	1,892​
18​	​	​	​	​	57​	1​	1,787​
19​	66​	​	​	​	89​	2​	1,688​
20​	2​	​	​	​	26​	2​	1,594​
21​	​	​	31​	​	​	1​	1,505​
22​	​	​	​	​	​	0​	1,422​
23​	12​	​	​	46​	​	2​	1,343​
24​	74​	​	​	​	79​	2​	1,268​
25​	​	​	​	​	67​	1​	1,198​
26​	81​	​	​	​	​	1​	1,131​
27​	​	28​	​	​	30​	2​	1,068​
28​	​	​	​	44​	90​	2​	1,009​
29​	16​	​	​	50​	​	2​	0,953​
30​	​	​	​	​	​	0​	0,900​
31​	​	​	​	69​	​	1​	0,850​
32​	​	​	​	​	14​	1​	0,803​
33​	​	82​	​	53​	45​	3​	0,758​
34​	​	​	​	​	​	0​	0,716​
35​	​	​	​	​	​	0​	0,676​
36​	​	​	​	​	​	0​	0,639​
37​	​	​	​	17​	​	1​	0,603​
38​	​	​	​	​	​	0​	0,570​
39​	​	​	​	​	​	0​	0,538​
40​	​	​	​	​	​	0​	0,508​
41​	​	​	61​	​	​	1​	0,480​
42​	​	​	​	​	​	0​	0,453​
43​	​	​	​	​	​	0​	0,428​
44​	​	​	​	41​	​	1​	0,404​
45​	​	​	68​	​	​	1​	0,382​
46​	​	​	​	​	​	0​	0,361​
47​	​	​	​	​	​	0​	0,341​
48​	​	​	​	​	​	0​	0,322​
49​	​	​	​	24​	​	1​	0,304​
50​	​	​	​	​	​	0​	0,287​
51​	​	​	​	​	​	0​	0,271​
52​	​	​	​	​	​	0​	0,256​
53​	​	​	​	​	​	0​	0,242​
54​	​	​	​	​	​	0​	0,228​
55​	​	​	​	​	​	0​	0,216​
56​	​	​	​	​	​	0​	0,204​
57​	​	​	​	​	​	0​	0,192​
58​	​	​	​	​	​	0​	0,182​
59​	​	​	​	​	​	0​	0,172​
60​	​	​	​	​	​	0​	0,162​
61​	​	​	​	​	​	0​	0,153​
62​	​	​	​	​	​	0​	0,145​
63​	​	​	​	​	​	0​	0,136​
64​	​	​	​	​	​	0​	0,129​
65​	​	83​	​	​	​	1​	0,122​
66​	​	​	​	​	​	0​	0,115​
67​	​	​	​	​	​	0​	0,109​
68​	​	​	​	​	​	0​	0,103​
69​	​	​	​	​	​	0​	0,097​
70​	​	​	5​	​	​	1​	0,091​
71​	​	​	​	​	​	0​	0,086​
72​	​	​	​	​	​	0​	0,082​
73​	​	​	​	​	​	0​	0,077​
74​	​	​	​	​	​	0​	0,073​
75​	​	​	​	​	​	0​	0,069​
76​	​	​	​	​	​	0​	0,065​
77​	​	​	​	​	​	0​	0,061​
78​	​	​	​	​	​	0​	0,058​
79​	​	​	​	​	​	0​	0,055​
80​	​	​	​	​	​	0​	0,052​
81​	​	​	​	​	​	0​	0,049​
82​	​	​	33​	​	​	1​	0,046​
83​	​	​	​	​	​	0​	0,044​
84​	​	​	​	​	​	0​	0,041​
85​	​	​	​	​	​	0​	0,039​
86​	​	​	43​	​	​	1​	0,037​
87​	​	​	​	​	​	0​	0,035​
88​	​	​	​	​	​	0​	0,033​
89​	​	​	​	​	​	0​	0,031​
90​	​	​	​	​	​	0​	0,029​
91​	​	​	​	​	​	0​	0,028​
92​	​	​	​	​	​	0​	0,026​
93​	​	​	​	​	​	0​	0,025​
94​	​	​	​	​	​	0​	0,023​
95​	​	​	​	​	​	0​	0,022​
96​	​	​	​	​	​	0​	0,021​
97​	​	​	​	​	​	0​	0,020​
98​	​	​	​	​	​	0​	0,018​
99​	​	​	​	​	​	0​	0,017​
100​	​	​	​	​	​	0​	0,016​
101​	​	​	​	​	​	0​	0,016​
102​	​	​	​	​	​	0​	0,015​
103​	​	​	​	​	​	0​	0,014​
104​	​	​	​	​	​	0​	0,013​
105​	​	​	​	​	​	0​	0,012​
106​	​	65​	​	​	​	1​	0,012​

Ciao,
NET per 1 ruota: q^n*5 ,
NET per 11 ruote: q^n*5*11
q è la probabilità di non estrazione (85/90)
n è il numero di estrazioni

Option Explicit
Sub Main
   Dim q,nEstr,NET
   q = 85/90
   Scrivi "nEstraz" & Space(3) & "NET x1 Ruota" & Space(8) & "NET x11 Ruote"
   For nEstr = 0 To 28
      NET = Round(q^nEstr*5,4)
      Scrivi FormatSpace(nEstr,10) & FormatSpace(NET,20) & NET*11
   Next
End Sub

 

[Cinzia27]

Ciao, Happy. Ottimo script.
Però mi sembra, confrontando i dati, che riproduca la statistica, mentre credo che l'obiettivo sia
il dato teorico ( come quello del ritardo teorico di 18 ) , ossia quanti numeri dovrebbero teoricamente essere ancora in piedi ad una certa quota.
Complimenti comunque e spero in un tuo prossimo intervento.

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[happy]

Ciao, Happy. Ottimo script.
Però mi sembra, confrontando i dati, che riproduca la statistica, mentre credo che l'obiettivo sia
il dato teorico ( come quello del ritardo teorico di 18 ) , ossia quanti numeri dovrebbero teoricamente essere ancora in piedi ad una certa quota.
Complimenti comunque e spero in un tuo prossimo intervento.

Ciao Cinzia grazie,
scusami ma già non sono tanto sveglio di mio, poi a quest' ora ancora meno!
Avevo capito che interessava la formula per calcolare il decadimento della Cinquina Sincrona☺️.

quanti numeri dovrebbero teoricamente essere ancora in piedi ad una certa quota.

Intendi dire quanti dei 90 numeri dovrebbero teoricamente essere in piedi ad un certo ritardo?

Option Explicit
Sub Main
   Dim q,Rc,NNE
   q = 85/90
   Scrivi "Ritardo" & Space(3) & "Numeri non ancora estratti " & Space(4) & "Numeri estratti "
   For Rc = 0 To 78
      NNE = Round(q^(Rc + 1)*90,2)
      Scrivi FormatSpace(Rc,10) & FormatSpace(NNE,31) &(90 - NNE)
   Next
End Sub

 

[Cinzia27]

Ciao, Happy. No, ci stiamo allontanando.
Sviluppiamo questa ipotesi.
Partiamo dall'ultima cinquina estratta in una ruota e ipotizziamo che entro la fascia di ritardo 18 tutti i 5 numeri siano usciti.
Alla 19° estrazione non ci deve essere più nessun numero.
Potresti provare ad ottenere in output il tabellone così descritto? Io dico che ci riesci alla grande.

 

[cutoff]

Grazie a happy e Cinzia27. Vi seguo

 

[Cinzia27]

Ciao, Happy e Cutoff.
Non conosciamo la formula della presenza teorica di numeri ad una data fascia di ritardo.
La statistica non è il dato che stiamo cercando ma può orientare.
Immaginiamo 2 variabili:
numero dei numeri, inizialmente 5
fascia di ritardo (se non vi è un altro termine più corretto)
All'inizio i numeri sono 5 e la fascia di ritardo 0.

Se ci prefiguriamo un grafico per rappresentare la situazione, sull'asse delle ordinate potremmo collocare i 5 numeri,
su quello delle ascisse le 18 estrazioni.
Questi 5 numeri dovremmo considerarli come un tutt'uno, come una massa.
Poiché i valori che si succedono molto probabilmente non sono interi ma frazionati.
All'inizio del percorso 0 la curva non è visibile, si vedono solo 2 rette, una verticale, l'altra orizzontale. 0 estrazioni corrisponde a 5 estratti.

Man mano che avvengono le estrazioni questa massa perde un pezzettino, all'inizio più grande poi sempre meno grande, fino ad arrivare ad estinguersi alla fascia 19 (ritardo 18). Quindi la decrescita decresce al crescere delle estrazioni. Graficamente avremmo una curva con andamento negativo che parte dal segno 5 dell'asse delle ordinate e man mano che scende tende sempre più ad appiattirsi fino ad arrivare a
coincidere con l'asse delle ascisse a livello 18.
Questo decrescere della massa, non è costante,è quindi decrescente.
Questo carattere decrescente sembra suggerire che vi è una correlazione tra quanto descritto e un altro fattore, che è la quantità di massa presente in quel frangente ( ossia dei numeri rimasti su cui si sta operando la decurtazione).
Mi fermo qui poiché al momento non so andare avanti.
Può essere che con queste modeste riflessioni qualcuno bravo in matematica provi a ricavare la formula.

 

[happy]

Ciao, Happy e Cutoff.
Non conosciamo la formula della presenza teorica di numeri ad una data fascia di ritardo.
La statistica non è il dato che stiamo cercando ma può orientare.
Immaginiamo 2 variabili:
numero dei numeri, inizialmente 5
fascia di ritardo (se non vi è un altro termine più corretto)
All'inizio i numeri sono 5 e la fascia di ritardo 0.

Se ci prefiguriamo un grafico per rappresentare la situazione, sull'asse delle ordinate potremmo collocare i 5 numeri,
su quello delle ascisse le 18 estrazioni.
Questi 5 numeri dovremmo considerarli come un tutt'uno, come una massa.
Poiché i valori che si succedono molto probabilmente non sono interi ma frazionati.
All'inizio del percorso 0 la curva non è visibile, si vedono solo 2 rette, una verticale, l'altra orizzontale. 0 estrazioni corrisponde a 5 estratti.

Man mano che avvengono le estrazioni questa massa perde un pezzettino, all'inizio più grande poi sempre meno grande, fino ad arrivare ad estinguersi alla fascia 18. Quindi la decrescita decresce al crescere delle estrazioni. Graficamente avremmo una curva con andamento
negativo che parte dal segno 5 dell'asse delle ordinate e man mano che scende tende sempre più ad appiattirsi fino ad arrivare a
coincidere con l'asse delle ascisse a livello 18.
Questo decrescere della massa, non è costante,è quindi decrescente.
Questo carattere decrescente sembra suggerire che vi è una correlazione tra quanto descritto e un altro fattore, che è la quantità di massa presente in quel frangente ( ossia dei numeri rimasti su cui si sta operando la decurtazione).
Mi fermo qui poiché al momento non so andare avanti.
Può essere che con queste modeste riflessioni qualcuno bravo in matematica provi a ricavare la formula.

Ciao Cinzia,
scusami ma non capisco cosa esattamente intendi, la formula per il calcolo delle presenze teoriche di una Cinquina Sincrona alle diverse righe del tabellone è quella che ho postato.
Se vuoi fai un esempio visivo.

Option Explicit
Sub Main
   Dim rit,ruo,pos,TA,k,x,y,aV(100,2)
   ruo = 1
   Call GeneraAnalitico(EstrazioneFin)
   Scrivi "Ruota di: " & NomeRuota(ruo):Scrivi
   Scrivi "Rit." & Space(9) & "TURT" & Space(8) & "PresReali" & Space(8) & "PresTeoriche" & Space(12) & "REA-TEO"
   ReDim NE(220)
   For rit = 0 To TabelloneAnalitico(0,0,0)
      Scrivi FormatSpace(rit,3) & Space(5),0,0,5
      For pos = 1 To 5
         TA = TabelloneAnalitico(rit,ruo,pos)
         If TA > 0 Then
            Scrivi Format2((TA)) & " ",0,0,5
            NE(rit) = NE(rit) + 1
         Else Scrivi "-- ",0,0,5
         End If
      Next
      Scrivi Space(5) & FormatSpace(NE(rit),2) & "  ",0,0,5
      Scrivi Space(13) & FormatSpace(Round(NET(rit)*5,2),7) & "  ",0,0,5':Scrivi
      Scrivi Space(13) & FormatSpace(Round(NE(rit) -(NET(rit)*5),2),7) & "  ",0,0,5:Scrivi
   Next
   Scrivi
   Call PreparaGrafico("Asse X=Numero di Estrazioni",0,90,0,5,9,1)
   x = 0
   For k = 0 To 90
      aV(k,1) = x
      aV(k,2) = NET(k)*5
      x = x + 1
      y = y + 1
   Next
   Call DisegnaLineaGrafico(aV,1,"Asse Y = Cinquina Sincrona ")
   Call InserisciGrafico
End Sub
Function NET(rit)
   NET =(85/90)^rit
End Function

 

[joe]

Ciao Cinzia.

Non voglio mettere bastoni tra le ruote ... ma non credo che l'impostazione statistica sia corretta.

"Non conosciamo la formula della presenza teorica di numeri ad una data fascia di ritardo"

Forse è vero. Ed in ogni caso non è un dato palese.

Ma conosciamo la Presenza Teorica delle presenze di in ogni (qualsiasi) rigo.

Dunque si tratta solo di fare una somma di queste presenze teoriche di cui si compone la fascia.

Per esempio sommando le prime 18 Presenze Teoriche si arriva a quel famoso 59/60 %

comunemente detto "Legge del Terzo"

Penso anche che non si possono trattare 5 numeri come fossero 90 e viceversa.

I Lottroni secondo me vanno trattati "come singoli" che hanno ognuno 1 Presenza Teorica su 18 Estrazioni.

CIOE' UNA FREQUENZA TEORICA = 1 PRESENZA SU 18 ESTRAZIONI.

Poi naturalmente se sono 5 ... si moltiplica per 5.

 

[Cinzia27]

Ciao, Happy, Joe.

Per Happy: è qualcosa di diverso quello che intendo io : un tabellone ma dove c'è una sola cinquina fatto di 19 righe, quella in cui è presente la cinquina e le altre che sono 18. Quindi dobbiamo considerare non le cinquine ma una sola cinquina.
Prendiamone una di 20 estrazioni fà, teoricamente ad oggi non dovrebbe avere alcun numero Sappiamo che non è così.
Infatti l'andamento reale della stessa cinquina è stato diverso.
Fascia per fascia sarebbe possibile calcolare lo scostamento che vi è stato tra la presenza reale e quella teorica, cioè tra quella che effettivamente vi è stata e l'altra ,quella teorica, che presuppone che tuttii numeri escono entro la 18° estrazione?

 

[happy]

Per Happy: è qualcosa di diverso quello che intendo io : un tabellone ma dove c'è una sola cinquina fatto di 18 righe

Ciao Cinzia,
intendi un "tabellone" fatto cosi?
E poi?

Option Explicit
Sub Main
   Dim T,p,i,c
   Scrivi NomeRuota(2)
   For i = 17 To 0 Step - 1
      Scrivi DataEstrazione(10113 - i) & "   ",0,0,5
      Call GeneraAnalitico(10113 - i)
      For p = 1 To 5
         T = TabelloneAnalitico(17 - i,2,p)
         If T > 0 Then
            Scrivi Format2((T)) & " ",0,0,5
         Else Scrivi "-- ",0,0,5
         End If
      Next
      Scrivi
   Next
End Sub

Fascia per fascia sarebbe possibile calcolare lo scostamento che vi è stato tra la presenza reale e quella teorica, cioè tra quella che effettivamente vi è stata e l'altra ,quella teorica, che presuppone che tuttii numeri escono entro la 18° estrazione?

Scusami ma non capisco questo punto.

 

[Cinzia27]

Bravo, Happy.
Era proprio quello che intendevo.
Ora dobbiamo contare bene le estrazioni.
Prima della data potresti inserie prima progressivo e il numero dell'estrazione ?
Il 1° numero progressivo dell'estrazione di partenza è 0.
Contando dalla 2° all'ultima estrazione le estrazioni sono però 17.
Dobbiamo andare alla cinquina precedente, quella 60.14.47.23.42 che ha concluso il ciclo di 18.
Già che ci siamo cambiamo ruota mettendo una delle ultime, mi viene più facile per i controlli, prendiamo NZ.

Fascia per fascia sarebbe possibile calcolare lo scostamento che vi è stato tra la presenza reale e quella teorica, cioè tra quella che effettivamente vi è stata e l'altra ,quella teorica, che presuppone che tuttii numeri escono entro la 18° estrazione?

E' il passaggio successivo: lo vediamo dopo, a ruota e a cinquina variata.

 

[happy]

Bravo, Happy.
Era proprio quello che intendevo.
Ora dobbiamo contare bene le estrazioni.
Prima della data potresti inserie prima progressivo e il numero dell'estrazione ?
Il 1° numero progressivo dell'estrazione di partenza è 0.
Contando dalla 2° all'ultima estrazione le estrazioni sono però 17.
Dobbiamo andare alla cinquina precedente, quella 60.14.47.23.42 che ha concluso il ciclo di 18.
Già che ci siamo cambiamo ruota mettendo una delle ultime, mi viene più facile per i controlli, prendiamo NZ.



E' il passaggio successivo: lo vediamo dopo, a ruota e a cinquina variata.

Option Explicit
Sub Main
   Dim T,p,i,r,nEs
   r = ScegliRuota
   Scrivi NomeRuota(r)
   nEs = CInt(InputBox("Max valore  = n° Estrazione Finale-17","INSERIMENTO ESTRAZIONE di RIFERIMENTO",EstrazioneFin - 17))
   If nEs = <(EstrazioneFin - 17) Then
      For i = 0 To 17
         Scrivi Format2(i) & Space(5) & FormatSpace(nEs + i,6) & "  ",0,0,5
         Call GeneraAnalitico(nEs + i)
         For p = 1 To 5
            T = TabelloneAnalitico(i,r,p)
            If T > 0 Then
               Scrivi Format2((T)) & " ",0,0,5
            Else Scrivi "-- ",0,0,5
            End If
         Next
         Scrivi
      Next
   Else
      MsgBox("Valore non ammesso")
   End If
End Sub