Spaziometria - ritardi di rigo

i legend · 14 Agosto 2016

Grazie luigi.
Studiato e capito.
Sei grande

i legend · 14 Agosto 2016

Ciao joe grazie per la risposta.

A mio avviso
lo storico è fondamentale per fare un raffronto ,ma lo calcoli nel ritardo quindi non credo che ti porti via molto tempo.
Complimenti.
Ribadisco la logica è l unica cosa che conta.
Mi manca tutto questo.

Mi manca il confronto con voi

Ciao

LuigiB · 15 Agosto 2016

per la serie non mi godo il ferragosto se non velocizzo ancora di piu lo script ecco qui una nuova versioene derivata dalla precedente .. 5 volte piu veloce sembrerebbe ... i risultati sembrano identici.
In questo script è calcolata l'attendibilita con la formula A = QR /QR + QT dove Qr = quantita reale , QT = Quantita teorica.

buon ferragosto ragazzi !

Codice:

Option Explicit
Sub Main
    Dim Ini,Fin
    Dim r,k,e,n,nRit,nSfald,bMostraSoloRigheConNumeri,cMaxRigo,sNum,bValida,qNum
    ReDim aRt(1)
    ReDim aNumRuota(5)
    Dim aBNumRuota
    Dim t
    Dim cIdRit,cIdRitMax,cIdFreq
    Dim nFatte
    Dim Parz
    
    If MsgBox("Mostrare solo le righe  alla cui posizione nel tab analitico sono effettivamente presenti dei numeri ?",vbQuestion + vbYesNo) = vbYes Then
        bMostraSoloRigheConNumeri = True
    End If
    
    cMaxRigo = 250
    cIdRit = 0
    cIdRitMax = 1
    cIdFreq = 2
    t = Timer
    ReDim aRitPerRigo(cMaxRigo,12,2)
    Ini = EstrazioneIni
    Fin = EstrazioneFin
    nFatte = Fin -(Ini)
    
    
    For r = 1 To 12
        If r <> 11 Then
            ReDim aN(90)
            aRt(1) = r
            
            Call GetRitardoEstratti(aRt,Ini ,aN)
            
            For k = Ini+1 To Fin
                'ReDim aTa(cMaxRigo,5)
                Call GetArrayNumeriRuota(k,r,aNumRuota)
                If aNumRuota(1)  > 0  Then
                    For nRit = 0 To cMaxRigo
                        aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1

                    Next
                    For e = 1 To 5
                        nRit = (aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) -1)
                        If nRit >aRitPerRigo(aN(aNumRuota(e)),r,cIdRitMax) Then
                            aRitPerRigo(aN(aNumRuota(e)),r,cIdRitMax) = nRit
                        End If
                        aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) =0
                        aRitPerRigo(aN(aNumRuota(e)),r,cIdFreq) =aRitPerRigo(aN(aNumRuota(e)),r,cIdFreq) +1

                    Next
                    aBNumRuota = ArrayNumeriToBool(aNumRuota)
                    For n = 1 To 90
                        If aBNumRuota(n) Then
                            aN(n) = 0
                        Else
                            aN(n) = aN(n) + 1
                        End If
                        'If aN(n) <= cMaxRigo Then
'                            If aTa(aN(n),0) < 5 Then
'                                aTa(aN(n),0) = aTa(aN(n),0) + 1
'                                aTa(aN(n),aTa(aN(n),0)) = n
'                            End If
'                        End If
                    Next
                    
                    'For nRit = 0 To cMaxRigo
'                        If aTa(nRit,0) > 0 Then
'                            nSfald = 0
'                            Call GetArrayNumeriRuota(k + 1,r,aNumRuota)
'                            aBNumRuota = ArrayNumeriToBool(aNumRuota)
'                            For e = 1 To aTa(nRit,0)
'                                If aBNumRuota(aTa(nRit,e)) Then
'                                    nSfald = nSfald + 1
'                                    Exit For
'                                End If
'                            Next
'                            If nSfald > 0 Then
'                                If aRitPerRigo(nRit,r,cIdRit) > aRitPerRigo(nRit,r,cIdRitMax) Then
'                                    aRitPerRigo(nRit,r,cIdRitMax) = aRitPerRigo(nRit,r,cIdRit)
'                                End If
'                                aRitPerRigo(nRit,r,cIdRit) = 0
'                                aRitPerRigo(nRit,r,cIdFreq) = aRitPerRigo(nRit,r,cIdFreq) + 1
'                            Else
'                                aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1
'                            End If
'                        Else
'                            aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1
'                        End If
'                    Next
            

                End If
            Next
        End If
        Call AvanzamentoElab(1,12,r)
    Next
    ReDim aV(10)
    aV(1) = "Rigo"
    aV(2) = "Ritardo"
    aV(3) = "RitardoMax"
    aV(4) = "Frequenza"
    aV(5) = "Ruota"
    aV(6) = "NumPresRigoAttuale"
    aV(7) = "IndiceConv"
    aV(8) = "QTeorica"
    aV(9) = "QReale"
    aV(10) = "Attendibilita"
    Call GeneraAnaliticoTurbo(Fin)
    Messaggio "Creazione tabella"
    
    DoEventsEx
    Call InitTabella(aV)
    For r = 1 To 12
        If r <> 11 Then
            For k = 0 To cMaxRigo
                aV(1) = k
                aV(2) = aRitPerRigo(k,r,cIdRit)
                aV(3) = aRitPerRigo(k,r,cIdRitMax)
                aV(4) = aRitPerRigo(k,r,cIdFreq)
                aV(5) = NomeRuota(r)
                sNum = ""
                qNum = 0
                For e = 1 To 5
                    n = TabelloneAnaliticoTurbo(k,r,e)
                    If n > 0 Then
                        qNum = qNum + 1
                        sNum = sNum & n & "."
                    End If
                Next
                sNum = RimuoviLastChr(sNum,".")
                bValida = False
                If bMostraSoloRigheConNumeri Then
                    If sNum <> "" Then bValida = True
                Else
                    bValida = True
                End If
                If bValida Then
                    aV(6) = sNum
                    aV(7) = Round(Dividi(aRitPerRigo(k,r,cIdRit),Dividi(nFatte,aRitPerRigo(k,r,cIdFreq))),3)
                    aV(8) = Round(QuantitaTeoricaCombAlRitX(k),3)
                    aV(9) = qNum
                    aV(10) = Round(Dividi(qNum,(qNum + CDbl(aV(8)))),3)
                    Call AddRigaTabella(aV)
                End If
            Next
        End If
    Next
    Call Scrivi("Inizio : " & GetInfoEstrazione(Ini))
    Call Scrivi("Fine   : " & GetInfoEstrazione(Fin))
    Call CreaTabella(2,,,100)
    Scrivi Timer - t
End Sub

.

i legend · 15 Agosto 2016

Buon ferragosto a tutti

Luigi sei grande

Alien. · 15 Agosto 2016

ciao,perchè mi da questo come risultato?

Inizio : [00001] [ 1 ] 07.01.1871 Fine : [09198] [ 96] 11.08.2016

Rigo	Ritardo	RitardoMax	Frequenza	Ruota	NumPresRigoAttuale	IndiceConv	QTeorica	QReale	Attendibilita
246	9196			Roma		0	0	0	0
245	9196			Roma		0	0	0	0
247	9196			Roma		0	0	0	0
249	9196			Roma		0	0	0	0
248	9196			Roma		0	0	0	0
241	9196			Roma		0	0	0	0
240	9196			Roma		0	0	0	0
242	9196			Roma		0	0	0	0
244	9196			Roma		0	0	0	0
243	9196			Roma		0	0	0	0
139	9196			Torino		0	0,002	0	0
138	9196			Torino		0	0,002	0	0
140	9196			Torino		0	0,002	0	0
143	9196			Torino		0	0,001	0	0
142	9196			Torino		0	0,001	0	0
114	9196			Torino		0	0,007	0	0
250	9196			Roma		0	0	0	0
125	9196			Torino		0	0,004	0	0
133	9196			Torino		0	0,002	0	0
129	9196			Torino		0	0,003	0	0
226	9196			Roma		0	0	0	0
225	9196			Roma		0	0	0	0
227	9196			Roma		0	0	0	0
229	9196			Roma		0	0	0	0
228	9196			Roma		0	0	0	0
221	9196			Roma		0	0	0	0
220	9196			Roma		0	0	0	0
222	9196			Roma		0	0	0	0
224	9196			Roma		0	0	0	0
223	9196			Roma		0	0	0	0
236	9196			Roma		0	0	0	0
235	9196			Roma		0	0	0	0
237	9196			Roma		0	0	0	0
239	9196			Roma		0	0	0	0
238	9196			Roma		0	0	0	0
231	9196			Roma		0	0	0	0
230	9196			Roma		0	0	0	0
232	9196			Roma		0	0	0	0
234	9196			Roma		0	0	0	0
233	9196			Roma		0	0	0	0
180	9196			Torino		0	0	0	0
179	9196			Torino		0	0	0	0
182	9196			Torino		0	0	0	0
184	9196			Torino		0	0	0	0
183	9196			Torino		0	0	0	0
175	9196			Torino		0	0	0	0
174	9196			Torino		0	0	0	0
176	9196			Torino		0	0	0	0
178	9196			Torino		0	0	0	0
177	9196			Torino		0	0	0	0
191	9196			Torino		0	0	0	0
190	9196			Torino		0	0	0	0
192	9196			Torino		0	0	0	0
194	9196			Torino		0	0	0	0
193	9196			Torino		0	0	0	0
186	9196			Torino		0	0	0	0
185	9196			Torino		0	0	0	0
187	9196			Torino		0	0	0	0
189	9196			Torino		0	0	0	0
188	9196			Torino		0	0	0	0
158	9196			Torino		0	0,001	0	0
155	9196			Torino		0	0,001	0	0
159	9196			Torino		0	0,001	0	0
162	9196			Torino		0	0	0	0
160	9196			Torino		0	0,001	0	0
148	9196			Torino		0	0,001	0	0
147	9196			Torino		0	0,001	0	0
149	9196			Torino		0	0,001	0	0
152	9196			Torino		0	0,001	0	0
151	9196			Torino		0	0,001	0	0
170	9196			Torino		0	0	0	0
169	9196			Torino		0	0	0	0
171	9196			Torino		0	0	0	0
173	9196			Torino		0	0	0	0
172	9196			Torino		0	0	0	0
165	9196			Torino		0	0	0	0
164	9196			Torino		0	0	0	0
166	9196			Torino		0	0	0	0
168	9196			Torino		0	0	0	0
167	9196			Torino		0	0	0	0
164	9196			Roma		0	0	0	0
163	9196			Roma		0	0	0	0
165	9196			Roma		0	0	0	0
167	9196			Roma		0	0	0	0
166	9196			Roma		0	0	0	0
158	9196			Roma		0	0,001	0	0
157	9196			Roma		0	0,001	0	0
160	9196			Roma		0	0,001	0	0
162	9196			Roma		0	0	0	0
161	9196			Roma		0	0,001	0	0
174	9196			Roma		0	0	0	0
173	9196			Roma		0	0	0	0
175	9196			Roma		0	0	0	0
177	9196			Roma		0	0	0	0
176	9196			Roma		0	0	0	0
169	9196			Roma		0	0	0	0
168	9196			Roma		0	0	0	0
170	9196			Roma		0	0	0	0
172	9196			Roma		0	0	0	0

18,74609

Alien. · 15 Agosto 2016

Alien. · 15 Agosto 2016

ma si potrebbe mettere ruota per ruota? grazie-
poi numero per numero?.....mi aspetto un vai all'ultima porta a destra

Inizio : [00001] [ 1 ] 07.01.1871 Fine : [09198] [ 96] 11.08.2016

Rigo	Ritardo	RitardoMax	Frequenza	Ruota	NumPresRigoAttuale	IndiceConv	QTeorica	QReale	Attendibilita
117	5033	4156	1	Firenze	75	0,547	0,006	1	0,994
187	1759			Nazionale	53	0	0	1	1
80	530	1392	17	Cagliari	62	0,98	0,052	1	0,951
72	488	665	58	Milano	54	3,078	0,082	1	0,924
105	481	3344	8	Bari	28	0,418	0,012	1	0,988
75	455	1066	32	Napoli	49	1,583	0,069	1	0,935
67	426	921	59	Milano	32	2,733	0,109	1	0,902
91	361	1598	14	Torino	82	0,55	0,028	1	0,973
72	354	587	29	Genova	69	1,116	0,082	1	0,924
64	319	691	60	Roma	69	2,081	0,129	1	0,886
57	284	660	86	Bari	79	2,656	0,192	1	0,839
66	275	670	40	Cagliari	61	1,196	0,115	1	0,897
59	262	555	86	Firenze	70	2,45	0,172	1	0,853
68	191	501	61	Napoli	44	1,267	0,103	1	0,907
66	188	980	61	Bari	82	1,247	0,115	1	0,897
86	188	1795	15	Bari	4	0,307	0,037	1	0,964
55	184	396	70	Cagliari	30	1,4	0,216	1	0,822
68	154	892	6	Nazionale	60	0,1	0,103	1	0,907

rudivall · 15 Agosto 2016

Ciao Alien, basta che scrivi così......

Call CreaTabellaOrdinabile(2,,,100) (CreaTabellaOrdinabile)
Scrivi Timer - t
End Sub

Joe91 · 16 Agosto 2016

Ciao Luigi.

Ho visto il nuovo script (al mesaggio 43) e sembra un ottimo lavoro.

5200 estrazioni per ruota, in un secondo o due è una buonissima velocità.

BRAVO ... hai ben sfruttato il riposo ferragostano!

Uno pochino bisogna dare ragione ad Alien forse sarebbe meglio poter gestire ruota per ruota.

Buono ed utile al riguardo il consiglio di Rodolfo.

In ogni caso ... per la Nazionale bisogna prevedere che per essa

non ci sono le stesse estrazioni, avvenute nelle altre ruote..

E piu genericamente il conteggio delle estrazioni utili.

Se concordi ... potremmo inserire ancora i calcoli statistici

cui avevo acccennato e che Beppignello ha richiesto.

Ovvero "Numero Presenze Teroriche" con gli sconpensi corrispetiivi delle Presenze Reali. (Già in colonna 4)

Poi sarà un vero "top di gamma" del quale ... non ti si può che fare i complimenti.

PS: Organizzo la formula per il calcolo esatto delle presenze teoriche ... e te le faccio avere.

Sono semplici. Rileggo anche cosa hai scritto ...

LuigiB · 16 Agosto 2016

ciao Joe . in questo script sono gestite le ruote.
Il calcolo dell'attendibilità che ho messo per te è esatto ?
Quale altro valore dobbiamo mettere ?

Codice:

Option Explicit
Sub Main
    Dim Ini,Fin
    Dim r,k,e,n,nRit,nSfald,bMostraSoloRigheConNumeri,cMaxRigo,sNum,bValida,qNum
    Dim aBRuote
    ReDim aRt(1)
    ReDim aNumRuota(5)
    Dim aBNumRuota
    Dim t
    Dim cIdRit,cIdRitMax,cIdFreq
    Dim nFatte
    Dim Parz
    If MsgBox("Mostrare solo le righe  alla cui posizione nel tab analitico sono effettivamente presenti dei numeri ?",vbQuestion + vbYesNo) = vbYes Then
        bMostraSoloRigheConNumeri = True
    End If
    Call ScegliRuote(Nothing,aBRuote)
    cMaxRigo = 250
    cIdRit = 0
    cIdRitMax = 1
    cIdFreq = 2
    t = Timer
    ReDim aRitPerRigo(cMaxRigo,12,2)
    Ini = EstrazioneIni
    Fin = EstrazioneFin
    nFatte = Fin -(Ini)
    For r = 1 To 12
        If r <> 11 Then
            If aBRuote(r) Then
                ReDim aN(90)
                aRt(1) = r
                Call GetRitardoEstratti(aRt,Ini,aN)
                For k = Ini + 1 To Fin
                    'ReDim aTa(cMaxRigo,5)
                    Call GetArrayNumeriRuota(k,r,aNumRuota)
                    If aNumRuota(1) > 0 Then
                        For nRit = 0 To cMaxRigo
                            aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1
                        Next
                        For e = 1 To 5
                            nRit =(aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) - 1)
                            If nRit > aRitPerRigo(aN(aNumRuota(e)),r,cIdRitMax) Then
                                aRitPerRigo(aN(aNumRuota(e)),r,cIdRitMax) = nRit
                            End If
                            aRitPerRigo(aN(aNumRuota(e)),r,cIdRit) = 0
                            aRitPerRigo(aN(aNumRuota(e)),r,cIdFreq) = aRitPerRigo(aN(aNumRuota(e)),r,cIdFreq) + 1
                        Next
                        aBNumRuota = ArrayNumeriToBool(aNumRuota)
                        For n = 1 To 90
                            If aBNumRuota(n) Then
                                aN(n) = 0
                            Else
                                aN(n) = aN(n) + 1
                            End If
                            'If aN(n) <= cMaxRigo Then
                            '                            If aTa(aN(n),0) < 5 Then
                            '                                aTa(aN(n),0) = aTa(aN(n),0) + 1
                            '                                aTa(aN(n),aTa(aN(n),0)) = n
                            '                            End If
                            '                        End If
                        Next
                        'For nRit = 0 To cMaxRigo
                        '                        If aTa(nRit,0) > 0 Then
                        '                            nSfald = 0
                        '                            Call GetArrayNumeriRuota(k + 1,r,aNumRuota)
                        '                            aBNumRuota = ArrayNumeriToBool(aNumRuota)
                        '                            For e = 1 To aTa(nRit,0)
                        '                                If aBNumRuota(aTa(nRit,e)) Then
                        '                                    nSfald = nSfald + 1
                        '                                    Exit For
                        '                                End If
                        '                            Next
                        '                            If nSfald > 0 Then
                        '                                If aRitPerRigo(nRit,r,cIdRit) > aRitPerRigo(nRit,r,cIdRitMax) Then
                        '                                    aRitPerRigo(nRit,r,cIdRitMax) = aRitPerRigo(nRit,r,cIdRit)
                        '                                End If
                        '                                aRitPerRigo(nRit,r,cIdRit) = 0
                        '                                aRitPerRigo(nRit,r,cIdFreq) = aRitPerRigo(nRit,r,cIdFreq) + 1
                        '                            Else
                        '                                aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1
                        '                            End If
                        '                        Else
                        '                            aRitPerRigo(nRit,r,cIdRit) = aRitPerRigo(nRit,r,cIdRit) + 1
                        '                        End If
                        '                    Next
                    End If
                Next
            End If
        End If
        Call AvanzamentoElab(1,12,r)
    Next
    ReDim aV(10)
    aV(1) = "Rigo"
    aV(2) = "Ritardo"
    aV(3) = "RitardoMax"
    aV(4) = "Frequenza"
    aV(5) = "Ruota"
    aV(6) = "NumPresRigoAttuale"
    aV(7) = "IndiceConv"
    aV(8) = "QTeorica"
    aV(9) = "QReale"
    aV(10) = "Attendibilita"
    Call GeneraAnaliticoTurbo(Fin)
    Messaggio "Creazione tabella"
    DoEventsEx
    Call InitTabella(aV)
    For r = 1 To 12
        If r <> 11 And aBRuote (r) Then
            For k = 0 To cMaxRigo
                aV(1) = k
                aV(2) = aRitPerRigo(k,r,cIdRit)
                aV(3) = aRitPerRigo(k,r,cIdRitMax)
                aV(4) = aRitPerRigo(k,r,cIdFreq)
                aV(5) = NomeRuota(r)
                sNum = ""
                qNum = 0
                For e = 1 To 5
                    n = TabelloneAnaliticoTurbo(k,r,e)
                    If n > 0 Then
                        qNum = qNum + 1
                        sNum = sNum & n & "."
                    End If
                Next
                sNum = RimuoviLastChr(sNum,".")
                bValida = False
                If bMostraSoloRigheConNumeri Then
                    If sNum <> "" Then bValida = True
                Else
                    bValida = True
                End If
                If bValida Then
                    aV(6) = sNum
                    aV(7) = Round(Dividi(aRitPerRigo(k,r,cIdRit),Dividi(nFatte,aRitPerRigo(k,r,cIdFreq))),3)
                    aV(8) = Round(QuantitaTeoricaCombAlRitX(k),3)
                    aV(9) = qNum
                    aV(10) = Round(Dividi(qNum,(qNum + CDbl(aV(8)))),3)
                    Call AddRigaTabella(aV)
                End If
            Next
        End If
    Next
    Call Scrivi("Inizio : " & GetInfoEstrazione(Ini))
    Call Scrivi("Fine   : " & GetInfoEstrazione(Fin))
    Call SetTableWidth("100%")
    Call CreaTabellaOrdinabile (2)
    Scrivi Timer - t
End Sub

LuigiB · 16 Agosto 2016

per il rit teorico ho usato la funzione del programma

se scrivo

scrivi Round(QuantitaTeoricaCombAlRitX(0),3)

mi da 5 .. ovvero al ritardo 0 ci sono teoricamente e praticamente 5 numeri .. io l'avevo presa da un libro del gorgia in mio possesso .. non so se esatta ..

Beppignello · 16 Agosto 2016

io il teorico lo calcolo così:

Pr.teo = 5*(17/18)^RC

ciao

LuigiB · 16 Agosto 2016

stando a quanto dice Beppignello il calcolo allora è esatto , la funzione di spaziometria da gli stessi risultati

Codice:

Option Explicit
Sub Main
    Dim r
    For r =0 To 100
        Scrivi  GetPresTeo  (r) & " " & QuantitaTeoricaCombAlRitX (r)
    Next
End Sub
Function GetPresTeo (Rit)
    GetPresTeo =5*(17/18)^Rit
End Function

i legend · 16 Agosto 2016

Ciao luigi ,questa è una funzione che utilizzavo spesso , anche quella a fasce e ti confermo che i risultati erano allineati con quelli di altri utenti che utilizzavano altri software.
Ciao un saluto a tutti

LuigiB · 16 Agosto 2016

ciao Legend .. grazie . .sentiamo pure Joe.

Alien. · 16 Agosto 2016

rudivall;n1996934 ha scritto:
Ciao Alien, basta che scrivi così......

Call CreaTabellaOrdinabile(2,,,100) (CreaTabellaOrdinabile)
Scrivi Timer - t
End Sub

Ciao,grazie per l'informazione ma mi da errore credo di aver inserito in riga non giusta::

Call Scrivi("Inizio : " & GetInfoEstrazione(Ini))
Call Scrivi("Fine : " & GetInfoEstrazione(Fin))
Call CreaTabellaOrdinabile(2,,,100)(CreaTabellaOrdinabile)
Scrivi Timer - t
End Sub
Grazie.

Beppignello · 16 Agosto 2016

se vuoi qualche idea

io ho pensato con il tuo script di inserire questi campi:

1) Pr.Teor x il sincronismo teosinc = 5*(17/18)^Rc
2) Pr.Teor. x l'isocronismo teoisoc = 55*(17/18)^Rc

3) Pr.Reali x comb.ruota
4) Pr.Reali x comb.su 11 ruote(nz. inclusa)

5) Diff. +/- = Pr.Reali - Pr.Teor

Pr.Estratti Determinati 1° su Ruota Rigo
Pr.Estratti Determinati 2° su Ruota Rigo
Pr.Estratti Determinati 3° su Ruota Rigo
Pr.Estratti Determinati 4° su Ruota Rigo
Pr.Estratti Determinati 5° su Ruota Rigo

Pr.Teoriche Tot.Attese da combinazione pos.det. 1°2°3°4°5° ciclo a 90 estraz.

Pr.Estratti Determinati 1° storico
Pr.Estratti Determinati 2° storico
Pr.Estratti Determinati 3° storico
Pr.Estratti Determinati 4° storico
Pr.Estratti Determinati 5° storico

Pr.Teoriche Tot.Attese da combinazione pos.det. 1°2°3°4°5° ciclo da 3950 estraz.

.

skygirl · 16 Agosto 2016

Ciao a tutti/e ho provato lo script #50 mentre quando scelgo una ruota sola mi da un output corretto, come potete vedere dall'img, quando scelgo Tutte le ruote mi da errore, inserisco img dell'errore

Joe91 · 16 Agosto 2016

No Title

LuigiB;n1997013 ha scritto:
ciao Joe . in questo script sono gestite le ruote.
Il calcolo dell'attendibilità che ho messo per te è esatto ?
Quale altro valore dobbiamo mettere ?

]

Ciao Luigi.

Ok ... per le ruote.

Per il resto ... più no che si.

Diciamo che quella è una formula approssimata.

Ma soprattutto che "riassume" solo una prima parte del ragionamento.

Esso è questo (per sommi capi):

Ad ogni rigo (ovvero per ogni ritardo) sono teoricamente presenti "un tot" di numeri.

Teoricamente: Dunque tanto 5 come 0.00000001 in funzione del ritardo considerato.

Ognuna di queste presenze (teoriche) ha la possibilità di estrazione di "1/18" AD OGNI ESTRAZIONE.

Quindi "il dato" della casella è "per una singola estrazione" ... e non serve quasi a niente,

in un ambiente che si estende nel tempo.

Essi, andrebbero moltiplicati per il numero di estrazioni considerate (per 5249) dal 1945 ad oggi.

In questo modo si otterrebbe la "frequenza teorica" per ogni possibile ritardo.

Ovvero si avrebbe la possibilità di costruire una curva di riferimento.

Cioè la curva delle PRESENZE teoriche e/o ATTESE.

Chi utilizza L8+ ritrova questi dati teorici dopo aver selezionato e calcolato il Tabellone Analitico.

Scegliendo l'opzione "Avanzato" ... e dopo aver spuntato anche la casella per le "statistiche di riga".

trova appunto la colonna delle frequenze teoriche di cui si sto scrivendo.

Si diceva che... moltiplicando un dato approssimato per oltre 5mila ...

si amplifica molto l'errore di approssimazione. Esso, diversamente accettabile, termina di esserlo.

Dunque si, la formula esatta contempla necessariamente e il ritardo e le probabilità 5/90.

Ma la formula esatta è più complessa.

In sintesi ... per le ragioni esposte quanto dite ... per me non va bene.

Ho cercato di ottenere una "curva di riferimento" con la formula che avete proposto.

Per riassumere con un grafico ... quanto sto dicendo i dati reali della Ruota di Firenze formano la curva 1 BLU.

Quelli della curva teorica da me calcolata ... sono quelli della serie 3 VERDE.

Quelli ottenibili con la fourmula che avete proposto disegnano la curva 2 ROSSA.

Questa terza, dicevo, è giusta nel suo dna ...

ma si avvicina troppo poco ai dati reali per ritenerla rappresentativa.

Per me, quella verde "media" molto meglio i dati reali.

Cordiali saluti.

LuigiB · 16 Agosto 2016

Bene Joe , se esplichi la formula la implemento nello script.
Io per quello dicevo di aspettare te... lo sapevo che su sti calcoli c'era qualcosa da vedere ..
ciao

Spaziometria - ritardi di rigo

Premium Member

Premium Member

LuigiB

Guest

Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

LuigiB

Guest

LuigiB

Guest

Beppignello

Guest

LuigiB

Guest

Premium Member

LuigiB

Guest

Advanced Premium Member

Beppignello

Guest

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Allegati

LuigiB

Guest