si potrebbe realizzare uno script tabellare come di seguito?

[Mike58]

Ciao Raga,ci ho solo provato, per la pensione c'è tempo e poi quello che faccio mi piace il mio lavoro e la passione per gli script soprattutto tabelle e statistiche.
Essere a disposizione anche nel forum è solo come dico sempre una buona palestra per crescere ulteriormente.

i legend cerca di completare lo script con le formule per la dev std e le proiezioni di uscita, qualche buona formula matematica è ben accetta.

Ciao una buona domenica anche a voi tutti.

 

[i legend]

Ciao Mike intanto posto le previsioni teoriche dei ritardi che potrebbe avere l'80 di cagliari.
E' non è detto che il limite non potrebbe essere superato.



Se ho eseguito bene i calcoli ha passato la soglia del 96%
Quindi da qui a 171 colpi potrebbe sortire.
Chi se la sente di impostare un piano di gioco valido?
solo a titolo teorico ovviamente.
Cordiali saluti
I Legend

 

[LuigiB]

Ciao Mike intanto posto le previsioni teoriche dei ritardi che potrebbe avere l'80 di cagliari.

Chi se la sente di impostare un piano di gioco valido?

I Legend

eventualmente si potrebbe usare la funzione utility/progressioni cosi mi dite se funziona

 

[i legend]

Ciao Luigi, trovata la funzione.
Non ci ero ancora arrivato.
Sicuramente la funzione funziona, ma se improntassi un gioco del genere
sarei io a non funzionare bene.

Ciao e scusa per il disturbo

Cordiali saluti

I Legend

 

[i legend]

Buon giorno a tutti

studiando i vari script ho trovato le funzioni mancanti per completare la tabella iniziata da Mike.

' questa è la funzione Dev.st trovata in un altro script
'il calcolo viene eseguito in base  la media_presenze e le uscite


'Function CalcolaDeviazione(nMediaTT,nUscite)
	' nuscite : nmediatt = x : 100
	'CalcolaDeviazione = Round(100 -((nUscite * 100) / nMediaTT)	,4)
	'If nMediaTT + nUscite > 0 Then
		'CalcolaDeviazione = Round(nMediaTT /(nMediaTT + nUscite),4)
	'Else
		'CalcolaDeviazione = 0
	'End If
'End Function


' questa è stata modificata l'originale teneva conto della media delle frequenze e delle presenze

Function CalcolaDeviazione(Medrit,fre)	' fre : medrit = x : 100
	'CalcolaDeviazione = Round(100 -((fre * 100) / medrit ),4)
	If Medrit + fre > 0 Then
		CalcolaDeviazione = Round(Medrit /(Medrit + fre),4)
	Else
		CalcolaDeviazione = 0
	End If
End Function


'disegualianza di Cebjse  Calcolo la funzione poi in Tabella scrivo: PrevLim(MedRit,2*CalcolaDeviazione);PrevLim(MedRit,3*CalcolaDeviazione);


Function PrevLim(MedRit,CalcolaDeviazione)


PrevLim = MedRit + CalcolaDeviazione


End Function






' funzione proveniente da altro script


Function CalcolaAspettabilita(Rit,qNum)


	Dim ValTeorico
	
	ValTeorico = Round(90 * Exp(-(Rit - 1)/17.4952),4)
	
	CalcolaAspettabilita = Round(ValTeorico /(ValTeorico + qNum),4)
	


End Function

La deviazione standard non mi torna però.
Essa è la radice quadrata degli scarti quadratici della media dai valori

es:

ritardi: 22.45.56.1.34.16 ->Media=(22+45+56+1+34+16)/6=29
dev=Sqr((29-22)^2+(29-45)^2+(29-56)^2+(29-1)^2+(29-34)^2+(29-16)^2)

la funzione di cui sopra ,quella tutta remmata per capirci non l'ho capita.

Luigi o Mike mi potresti aiutare in questo?

Come posso scrivere questa funzione?

devo calcolare la media dei ritardi, fare un ciclo per sottrarre la media ad ogni ritardo ed levarlo al quadrato?

Scusate forse è l'ora ma ci sto sbattendo da un po.

Cordiali saluti i legend

Posto il codice ma è sbagliato:

'Option ExplicitSub Main
	Dim nu(1),ru(1),aretrit,qNum
	Ini = EstrazioneFin - 500
	fin = EstrazioneFin
	r = 1
	ru(1) = r
	qNum=1
	ReDim at(24)
	at(0) = "Metodo"
	at(1) = "Numero"
	at(2) = "Ruota"
	at(3) = "Freq._T"
	at(4) = "Freq_R "
	at(5) = "Freq_R-Freq_T"
	at(6) = "Freq_R/Freq_T"
	at(7) = "P1"
	at(8) = "P2"
	at(9) = "P3"
	at(10) = "P4"
	at(11) = "P5"
	at(12) = "Rc_A"
	at(13) = "Rc_S"
	at(14) = "Inc_MaxRc_S"
	at(15) = "Rc_A-RcS"
	at(16) = "Rp1"
	at(17) = "Rp2"
	at(18) = "Rp3"
	at(19) = "I.Asp"
	at(20) = "Media_Rit"
	at(21) = "Dev.ST(Rit)"
	at(22) = "Proi.75%"
	at(23) = "Proi.88%"
	at(24) = "Proi.93%"
	Call InitTabella(at,2,,2,5)
	For x = 1 To 90
		nu(1) = x
		Call StatisticaFormazioneTurbo(nu,ru,1,rit,max,Incr,fre,Ini,fin)
		'------- calcolo ritardi precedenti------------
		'For q = 1 To UBound(num)
		ReDim rp(4)
		Inizio = Ini
		fine = Fin
		somrit = 0
		For z = 1 To 4
			rp(z) = SerieRitardoTurbo(Inizio,fine,nu,ru,1)
			fine = fine -(rp(z) + 1)
			somrit = somrit + rp(z)
			Medrit = Int(somrit/z)
		Next
		'Next
		' fine calcolo----------------------------------
		ReDim att(24)
		att(1) = x
		att(2) = SiglaRuota(r)
		att(3) = Round((fin - Ini)/18,2)
		att(4) = fre
		att(5) = Round(fre - att(3),2)
		att(6) = Round(fre/att(3),2)
		att(7) = RitDiPos(nu,1,ru)
		att(8) = RitDiPos(nu,2,ru)
		att(9) = RitDiPos(nu,3,ru)
		att(10) = RitDiPos(nu,4,ru)
		att(11) = RitDiPos(nu,5,ru)
		att(12) = rit
		att(13) = max
		att(14) = Incr
		att(15) = rit - max
		att(16) = rp(2)
		att(17) = rp(3)
		att(18) = rp(4)
		att(19) = CalcolaAspettabilita(att(12),qNum)
		att(20) = Medrit
		att(21) = CalcolaDeviazione(att(20),att(4))
		att(22) = PrevLim(att(20), 2*att(21))
		att(23) = PrevLim(att(20),3*att(21))


		att(24) = PrevLim(att(20),4*att(21))


		Call AddRigaTabella(att,,,2)
		For xy = 7 To 11
		Call SetColoreCella((xy),4,0)
		Next
		For yy = 16 To 18
		Call SetColoreCella((yy),3,0)
		Next
		If Incr > 0 Then Call SetColoreCella(14,2,4)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella
End Sub
Function RitDiPos(nu,pos,ru)
	ReDim apos(5)
	ReDim aruota(1)
	ReDim anum(1)
	anum(1) = nu
	apos(pos) = True
	aruota(1) = r
	RitDiPos = RitardoCombinazione(ru,nu,1,0,apos)
End Function
' questa è la funzione Dev.st trovata in un altro script
'il calcolo viene eseguito in base  la media_presenze e le uscite
'Function CalcolaDeviazione(nMediaTT,nUscite)
	' nuscite : nmediatt = x : 100
	'CalcolaDeviazione = Round(100 -((nUscite * 100) / nMediaTT)	,4)
	'If nMediaTT + nUscite > 0 Then
		'CalcolaDeviazione = Round(nMediaTT /(nMediaTT + nUscite),4)
	'Else
		'CalcolaDeviazione = 0
	'End If
'End Function


'adatto la funzione in base alla media dei ritardi e delle uscite
'
Function CalcolaDeviazione(Medrit,fre)
	' fre : medrit = x : 100
	'CalcolaDeviazione = Round(100 -((fre * 100) / medrit ),4)
	If Medrit + fre > 0 Then
		CalcolaDeviazione = Round(Medrit /(Medrit + fre),4)
	Else
		CalcolaDeviazione = 0
	End If
End Function
'disegualianza di Cebjse per l'intervallo faremo la moltiplicazione
Function PrevLim(MedRit,CalcolaDeviazione)


PrevLim = MedRit + CalcolaDeviazione


End Function






' funzione proveniente da altro script


Function CalcolaAspettabilita(Rit,qNum)


	Dim ValTeorico
	
	ValTeorico = Round(90 * Exp(-(Rit - 1)/17.4952),4)
	
	CalcolaAspettabilita = Round(ValTeorico /(ValTeorico + qNum),4)
	


End Function

 

[Mike58]

ciao I legend . stacco adesso dal lavoro notte e vedo il tuo script, io matematicamente non saprei come aiutarti anche se ci proverò.

Comunque fino ad ora sei stato bravo.

ciao

 

[i legend]

Ciao mike, buon riposo meritato allora

ci sto provando,

questa è la seguenza logica ma i cicli li devo ancora capire

function deviazione(aSingoliRitardi,nUscite )'in aSingoliRitardi costudisco ogni singolo ritardo
for i = 1 to nUscite
conta=0   
scarto=aSingoliRitardi(i)-mediaritardo

conta=conta+1  ' questo per fare la somma di ogni singolo scarto ?
ScartoQuadratico=scarto^2
varianza=scartoQuadratico/nUscite-1 ' nUscite-1 se l'ultimo ritardo non viene considerato altrimenti nUscite


next
deviazione=radQ(Varianza)


end function

Cordiali saluti
I Legend

 

[Joe91]

Ciao,

secondo me devi appunto "scorrere" le estrazioni rilevare le cadute del numero in oggetto.

Calcolare le distanze (in estrazioni) tra queste ... che è l' "aSingoliRitardi"

Esso a perer mio ... poi ... dovrebbe essere "trattato".

Il primo e l'ultimo valore di esso, non sono ritardi, come gli altri. Definiti.

Il primo risente (e può essere privo) della parte di estrazioni antecedente ...

che esiste fuori dall'intervallo (qui, per ipotesi) delle 500 Estrazioni.

L'ultimo, in genere, è un ritardo corrente, quindi, anch'esso non è ancora definito. Spesso è ancora crescente.

Poi applicare le formule ... non dovrebbe essere un problema.

Ti chiedo:

Secondo te è più utile fissare in numero di estrazioni in cui calcolare la deviazione standard (es: in 500 estrazioni)

O ... è meglio calcolarla nelle ultime "N" presenze dell'estratto "x".

O ancora calcolarla su un periodo molto lungo ... quasi ad esere lo storico deviazione standard ?

 

[LuigiB]

l'implementazione di questo

ritardi: 22.45.56.1.34.16 ->Media=(22+45+56+1+34+16)/6=29
dev=Sqr((29-22)^2+(29-45)^2+(29-56)^2+(29-1)^2+(29-34)^2+(29-16)^2)


dovrebbe essere cosi

Sub Test()

    ReDim aRit(5)
    
    aRit(0) = 22
    aRit(1) = 45
    aRit(2) = 56
    aRit(3) = 1
    aRit(4) = 34
    aRit(5) = 16
    
    
    MsgBox CalcolaDevianaza(aRit)
End Sub
Function CalcolaDevianaza(aRitardi())


    Dim k
    Dim nMedia, nElementi, nDevianza
    
    For k = 0 To UBound(aRitardi)
        nElementi = nElementi + 1
        nMedia = nMedia + aRitardi(k)
    Next
    
    nMedia = nMedia / nElementi
    
    For k = 0 To UBound(aRitardi)
        nDevianza = nDevianza + ((nMedia - aRitardi(k)) ^ 2)
    
    Next
    
    CalcolaDevianaza = Sqr(nDevianza)
    
End Function

 

[i legend]

ciao Joe,
per lo script ho in mente due vie, il numero singolo oppure il metodo
per il primo considero la deviazione standard dall'inizio.
per il secondo un numero di estrazioni a scelta.
nelle opzioni avevo in mente di inserire
1871,1939,1946,2005,2009 oppure un n estrazioni.
il primo ritardo si calcola in base all'estrazione di partenza,
l'ultimo no andrebbe conteggiato in quanto non realmente definito
da qui la scelta "/n" e non "/n-1"

sto provando con il codice, in testa c'è ma non so scriverlo.

 Function deviazione(arit,fre)                 'in aRit costudisco ogni singolo ritardo
Dim i,scarto,scartoquadratico,varianza
ReDim arit(rit)                                     ' questo dovrebbe essere il contenitore di ogni singolo ritardo
For i = 1  to  fre                                  ' questo il numero delle uscite , dalla prima all'ultima
rit= i
conta=0   
scarto=arit(i)-medrit


conta=conta+1                                      ' questo per fare la somma di ogni singolo scarto ?
scartoquadratico=scarto^2
varianza=scartoquadratico/fre                     ' fre-1 se l'ultimo ritardo viene considerato i fre

devo capire la logica dei cicli e dei redim

Cordiali saluti

I Legend

 

[i legend]

Ciao Luigi

Non ti avevo letto,

ora studio ,
Ti chiedo la logica , e corretta?

Grazie e ciao

Cordiali saluti

I Legend

 

[Joe91]

Visto l'intervento di Luigi che risolve il come si fa,

dai suoi esempi mi permetto di suggerire uno sguardo ed TestElencoRitLotto (eventualmente Turbo) ...

in alternativa alla costuzione manuale dell'array.

 

[LuigiB]

ciao , sono in ufficio , io ho visto la formula che hai postato e l'ho implementata

i cicli servono per compiere un determinato numero di volte una tale operazione

for k LimiteInf to LimiteSup

next

limiteinf e limitesup sono 2 valori , k è la variabile di controllo del ciclo
al primo giro k vale limiteinf
appena incontra next k si incrementa di 1
se k è ancora <= a limitesup il ciclo si ripete senno esce
al termine del ciclo k vale sempre limitesup +1


redim serve per dimensonare un array

reddim Vettore (10) dimensiona un vettore da 11 elementi (si conta pure l'elemento a indice 0)

ciao

 

[LuigiB]

Esatto Joe , ElencoRitardi è quella che fa al caso nostro. poi se l'ultimo ritardo non si deve conteggiare basta che all'uscita della funzione ElencoRitardi
si fa un redim preserve dell'array dei ritardi

redim preserve aRitardi (ubound(aritardi) -1) ' ridimensiona eliminando gl'ultimo elemento ma mantiene gli elementi precedenti valorizzati.

ciao

p.s.

Non mi ricordo se elencoritardi alimenta pure l'indice 0 dell'array .. se cosi non fosse la cosa va gestita , magari aggiungendo un paramentro alla funzione
che indica quali sono i limiti su cui

Function CalcolaDevianaza(aRitardi(), nLimiteInf)


    Dim k
    Dim nMedia, nElementi, nDevianza
    
    For k = nLimiteInf To UBound(aRitardi)
        nElementi = nElementi + 1
        nMedia = nMedia + aRitardi(k)
    Next
    
    nMedia = nMedia / nElementi
    
    For k = nLimiteInf To UBound(aRitardi)
        nDevianza = nDevianza + ((nMedia - aRitardi(k)) ^ 2)
    
    Next
    
    CalcolaDevianaza = Sqr(nDevianza)
    
End Function

 

[i legend]

Ciao a Luigi , ciao Joe,ora ci provo

buon lavoro , io sono a casa , ho beccato un virus, non informatico, ma di quelli che ti danno la febbre alta e il mal di gola,senza tralasciare il dolorino a tutte le vecchie ossa che mi ritrovo.

ciao a tutti

Cordiali saluti

I Legend

 

[LuigiB]

Ciao Legend ... buona guarigione e buono studio !

 

[Mike58]

Ciao a tutti, tempo fa avevamo già affrontato questa discussione è un utente abbastanza bravo Surmang aveva redatto questo script, se può essere utile lo posto.

Sub Main
	Dim nu(1),ru(1)
	Dim MEDIA,DEVIANZA,VARIANZA,DEVSTD,CoeffVariab
	Dim n,r,co,rc,sRit,fr,rcp,rca
	Dim idEs,Ini,Fin,es,nEs
	co = 0
	nEs = CInt(InputBox("Dimensiona intervallo di ricerca",,540))
	n = InputBox(" Numero da esaminare ",,1):nu(1) = n
	r = ScegliRuota:ru(1) = r
	Fin = EstrazioneFin
	Ini = Fin -(nEs - 1)
	fr = SerieFreqTurbo(Ini,Fin,nu,ru,1)
	rc = SerieRitardoTurbo(Ini,Fin,nu,ru,1)
	Scrivi NomeRuota(ru(1)) & "  -> Numero :" & n & "    [INI " & Ini & "->" & Fin & " FIN]    n°ESTR :" & nEs & Space(7),0,0,1,5,3:Scrivi
	Scrivi String(80,"_")
	Scrivi "1° metodo di calcolo",1
	Scrivi "FREQUENZA     : " & fr,1
	Scrivi "RITARDO       : " & rc,1
	Scrivi "SOMMA RITARDI : " &(nEs - rc),1
	Scrivi "RITARDO MEDIO : " & Round((nEs - rc)/fr,1),1
	Scrivi String(80,"-")
	Scrivi
	'Scrivi"co idEs  Rc  sRc   RcMed   Devianza   Varianza     DevSTD   coeffVariab"
	ReDim T(9)
	T(1) = " Co "
	T(2) = " IdEs "
	T(3) = " Rc "
	T(4) = " sRc "
	T(5) = " RcMed "
	T(6) = " Devianza "
	T(7) = " Varianza "
	T(8) = " Dev_STD "
	T(9) = " Coeff_Variab "
	Call InitTabella(T,2,,3,5)
	'Scrivi String(80,"-")
	For es = Ini To Fin
		rcp = SerieRitardoTurbo(Ini,es - 1,nu,ru,1)
		rca = SerieRitardoTurbo(Ini,es,nu,ru,1)
		If rca <= rcp Then
			sRit = sRit +(rcp + 1)
			co = co + 1
		 MEDIA = Round((sRit/co),1)
			DEVIANZA = DEVIANZA +(rcp - MEDIA)^2
			If co > 1 Then VARIANZA = DEVIANZA/(co - 1)
			DEVSTD = Sqr(VARIANZA)
			If MEDIA <> 0 Then CoeffVariab =(DEVSTD/MEDIA)*100
			ReDim V(9)
			V(1) = co
			V(2) = es
			V(3) = rcp
			V(4) = sRit
			V(5) =(Round(((sRit)/co),1))
			V(6) = Round((DEVIANZA),6)
			V(7) = Round((VARIANZA),1)
			V(8) = Round((DEVSTD),1)
			V(9) = Round((CoeffVariab),1) & "  % "
			Call AddRigaTabella(V,,,3)
			
			'Scrivi Format2(co) & Space(1) & es & "  " & Format2(rcp) & Space(2) & FormatSpace(sRit,4) & Space(2) & FormatSpace(Round(((sRit)/co),1),6),0,0,5
			'Scrivi Space(4) & FormatSpace(Round(DEVIANZA,0),6) & Space(5) & FormatSpace(Round(VARIANZA,1),6) & Space(6) & FormatSpace(Round(DEVSTD,1),6) & Space(6) & FormatSpace(Round(CoeffVariab,1) & "%",6),0,0
			'Scrivi "  " & StringaEstratti(es,r) & "  Somma Estratti... " & SommaEstratti(es,r)
		End If
	
	Next
	Call CreaTabella()
	ColoreTesto 2
	Scrivi Format2(co + 1) & Space(1) & Fin & Space(2) & Format2(rc)
	ColoreTesto 0
	Scrivi String(80,"-")
	Scrivi "2° metodo di calcolo",1
	Scrivi "RITARDO  in corso                         : " & rc,1
	Scrivi "n°dei RITARDI escluso il RITARDO in corso : " & co,1
	Scrivi "Somma RITARDI escluso il RITARDO in corso : " & sRit,1
	Scrivi "Media RITARDI escluso il RITARDO in corso : " & Round((sRit/co),1),1
End Sub

 

[surmang]

Ciao a tutti, tempo fa avevamo già affrontato questa discussione è un utente abbastanza bravo Surmang aveva redatto questo script, se può essere utile lo posto.

Sub Main
	Dim nu(1),ru(1)
	Dim MEDIA,DEVIANZA,VARIANZA,DEVSTD,CoeffVariab
	Dim n,r,co,rc,sRit,fr,rcp,rca
	Dim idEs,Ini,Fin,es,nEs
	co = 0
	nEs = CInt(InputBox("Dimensiona intervallo di ricerca",,540))
	n = InputBox(" Numero da esaminare ",,1):nu(1) = n
	r = ScegliRuota:ru(1) = r
	Fin = EstrazioneFin
	Ini = Fin -(nEs - 1)
	fr = SerieFreqTurbo(Ini,Fin,nu,ru,1)
	rc = SerieRitardoTurbo(Ini,Fin,nu,ru,1)
	Scrivi NomeRuota(ru(1)) & "  -> Numero :" & n & "    [INI " & Ini & "->" & Fin & " FIN]    n°ESTR :" & nEs & Space(7),0,0,1,5,3:Scrivi
	Scrivi String(80,"_")
	Scrivi "1° metodo di calcolo",1
	Scrivi "FREQUENZA     : " & fr,1
	Scrivi "RITARDO       : " & rc,1
	Scrivi "SOMMA RITARDI : " &(nEs - rc),1
	Scrivi "RITARDO MEDIO : " & Round((nEs - rc)/fr,1),1
	Scrivi String(80,"-")
	Scrivi
	'Scrivi"co idEs  Rc  sRc   RcMed   Devianza   Varianza     DevSTD   coeffVariab"
	ReDim T(9)
	T(1) = " Co "
	T(2) = " IdEs "
	T(3) = " Rc "
	T(4) = " sRc "
	T(5) = " RcMed "
	T(6) = " Devianza "
	T(7) = " Varianza "
	T(8) = " Dev_STD "
	T(9) = " Coeff_Variab "
	Call InitTabella(T,2,,3,5)
	'Scrivi String(80,"-")
	For es = Ini To Fin
		rcp = SerieRitardoTurbo(Ini,es - 1,nu,ru,1)
		rca = SerieRitardoTurbo(Ini,es,nu,ru,1)
		If rca <= rcp Then
			sRit = sRit +(rcp + 1)
			co = co + 1
		 MEDIA = Round((sRit/co),1)
			DEVIANZA = DEVIANZA +(rcp - MEDIA)^2
			If co > 1 Then VARIANZA = DEVIANZA/(co - 1)
			DEVSTD = Sqr(VARIANZA)
			If MEDIA <> 0 Then CoeffVariab =(DEVSTD/MEDIA)*100
			ReDim V(9)
			V(1) = co
			V(2) = es
			V(3) = rcp
			V(4) = sRit
			V(5) =(Round(((sRit)/co),1))
			V(6) = Round((DEVIANZA),6)
			V(7) = Round((VARIANZA),1)
			V(8) = Round((DEVSTD),1)
			V(9) = Round((CoeffVariab),1) & "  % "
			Call AddRigaTabella(V,,,3)
			
			'Scrivi Format2(co) & Space(1) & es & "  " & Format2(rcp) & Space(2) & FormatSpace(sRit,4) & Space(2) & FormatSpace(Round(((sRit)/co),1),6),0,0,5
			'Scrivi Space(4) & FormatSpace(Round(DEVIANZA,0),6) & Space(5) & FormatSpace(Round(VARIANZA,1),6) & Space(6) & FormatSpace(Round(DEVSTD,1),6) & Space(6) & FormatSpace(Round(CoeffVariab,1) & "%",6),0,0
			'Scrivi "  " & StringaEstratti(es,r) & "  Somma Estratti... " & SommaEstratti(es,r)
		End If
	
	Next
	Call CreaTabella()
	ColoreTesto 2
	Scrivi Format2(co + 1) & Space(1) & Fin & Space(2) & Format2(rc)
	ColoreTesto 0
	Scrivi String(80,"-")
	Scrivi "2° metodo di calcolo",1
	Scrivi "RITARDO  in corso                         : " & rc,1
	Scrivi "n°dei RITARDI escluso il RITARDO in corso : " & co,1
	Scrivi "Somma RITARDI escluso il RITARDO in corso : " & sRit,1
	Scrivi "Media RITARDI escluso il RITARDO in corso : " & Round((sRit/co),1),1
End Sub

"Ciao Mike, se può risultare utile, rovistando nel passato ho recuperato queste formule per ricavare alcuni indici di variazione ,e le ho "inserite" nel precedente script. Puntualizzo che non so se é corretta l'applicazione da me operata,e ancor meno se là dove fosse corretta possa risultare di qualche utilità per previsioni di fenomeni aleatori come il Gioco del Lotto.
Mentre sarebbe interessante dibattere , s'è corretto parlare di "ritardo zero",
personalmente penso di no, perchè per essere estratta un una "palla numerata" bisogna attendere necessariamente un'estrazione."

Ciao Mike, e grazie per l'immeritata stima.
Intervengo prima di tutto per fare i saluti :a te Mike ,a LuigiB (complimenti e grazie per il programma), ad i legend (padrone di casa) e a tutti coloro che vi leggono . Un accento particolare ho il piacere di metterlo su sul saluto a Joe 91 che ha sopportato la mia ignoranza con molta pazienza ,nelle (per me...non so per lui !) piacevoli ed istruttive chiacchierate intercorse qui sul forum.

Ora per non indurre in errore nessuno voglio precisare che il messaggio che ho riportato sopra era quanto avevo premesso all'epoca,
non sono un esperto , ed oggi riguardando lo script ho l'impressione che le formule per il calcolo sono corrette mentre è sbagliata la loro applicazione , cosa che penso potranno confermare gli altri.

Ciao

 

[i legend]

ciao surmang benvenuto

ti faccio i complimenti per lo script,
da profano penso che le funzioni siano corrette , la lettura dei dati che volevo dare io è leggermente diversa dalla tua.
tu il calcolo lo esegui su ogni riga , io invece pensavo di calcolare su tutto il range.Sull'utilità i dubbi vengono anche a me.
E' meglio puntare sulle frequenze o sui ritardi? la deviazione già di suo può dare diverse indicazioni, ma su grandi quantità di dati.
Comunque ancora complimenti, ed un grazie al grande Mike che mi sta aiutando tantissimo

Cordiali saluti
I Legend

 

[Mike58]

Ciao a tutti è un ben ritrovato all'amico Surmang,interessante la discussione ed il quesito, purtroppo ho poco tempo per soffermarmi a riflettere su quale dato sia migliore, ma finalmente una discussione interessante.

Come dicevo ho poco tempo (causa lavoro) e quindi un salutissimo a tutti.