Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Faccio un po di fatica a vedere dove si voul andare a parare, ma fidando nella bravura dei due interlocutori, sarebbe opportuno una spiegazione pratica cioè come cisi possa avvalere di tutto ciò.quote:Originally posted by abasul
Grazie rubino. Non trovo parole per la tua bravura. Per questa sera, verso le 20.00, spiego l'utilità di queste statistiche.
Di nuovo mille grazie a nome di tutto il forum.
Un saluto
'ABASUL calcola scarto medio quadratico con formula guidata di una serie di ritardi precedenti - attuale - futuro
'''ABASUL
Sub Main()
Dim numeri
Dim nu(90)
Dim rita
Dim ritf
Call ScegliNumeri(nu)
For h = 1 To UBound(nu)
numeri = numeri & nu(h) & " "
Next
rita = InputBox("Inserisci ritardo attuale...",,"")
ritf = InputBox("Inserisci ritardo futuro....",,"")
Dim nome
nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"
lancio = Getleggifile(nome,numeri,rita,ritf)
End Sub
''''-------------------------------------------------------------------------------------------------------------------------
Function Getleggifile(nome,numeri,rita,ritf)
'leggo file(tutti i record dello sviluppo ridotto richiesto)
Dim namefile
Dim sFile
ReDim aRighe(0)
ReDim asvil(0)
Dim art(1)
Dim dif(90)
Dim xbas
Dim t
Dim Media
Dim r
namefile = nome
sFile = namefile
LeggiRigheFileDiTesto sFile,asvil
'ricerca last record e qta tot.record.presenti nel file
xbas = UBound(asvil)
''''''per controllo iniziale suddivisione campi e righe
For u = 1 To xbas
'scompongo riga con campi divisi da separatore
Dim d
ReDim Nums(10)
ReDim aV(0)
Call SplitByChar(asvil(u),";",aV) ' scompongo la decina
Nums(1) = aV(0)
Nums(2) = aV(1)
Nums(3) = aV(2)
Nums(4) = aV(3)
Nums(5) = aV(4)
Nums(6) = aV(5)
nus = Nums(1) & " " & Nums(2) & " " & Nums(3) & " " & Nums(4) & " " & Nums(5) & " " & Nums(6)
Scrivi nus
tq = tq + CLng(aV(4))
r = aV(2)
Next
''''''''-----------
'ABASUL calcola scarto medio quadratico con formula guidata di una serie di ritardi precedenti - attuale - futuro
'''ABASUL
Sub Main()
Dim numeri
Dim nu(90)
Dim rita
Dim ritf
Call ScegliNumeri(nu)
For h = 1 To UBound(nu)
numeri = numeri & nu(h) & " "
Next
rita = InputBox("Inserisci ritardo attuale...",,"")
ritf = InputBox("Inserisci ritardo futuro....",,"")
Dim nome
nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"
lancio = Getleggifile(nome,numeri,rita,ritf)
End Sub
''''-------------------------------------------------------------------------------------------------------------------------
Function Getleggifile(nome,numeri,rita,ritf)
'leggo file(tutti i record dello sviluppo ridotto richiesto)
Dim namefile
Dim sFile
ReDim aRighe(0)
ReDim asvil(0)
Dim art(1)
Dim dif(90)
Dim xbas
Dim t
Dim Media
Dim r
namefile = nome
sFile = namefile
LeggiRigheFileDiTesto sFile,asvil
'ricerca last record e qta tot.record.presenti nel file
xbas = UBound(asvil)
''''''per controllo iniziale suddivisione campi e righe
For u = 1 To xbas
'scompongo riga con campi divisi da separatore
Dim d
ReDim Nums(10)
ReDim aV(0)
Call SplitByChar(asvil(u),";",aV) ' scompongo la decina
Nums(1) = aV(0)
Nums(2) = aV(1)
Nums(3) = aV(2)
Nums(4) = aV(3)
Nums(5) = aV(4)
Nums(6) = aV(5)
nus = Nums(1) & " " & Nums(2) & " " & Nums(3) & " " & Nums(4) & " " & Nums(5) & " " & Nums(6)
Scrivi nus
tq = tq + CLng(aV(4))
r = aV(2)
Next
''''''''-----------------------------------------------------------------------------------------------------------
t = xbas
Media = tq / t
t2 = t + 1
''' per completare il quadro informazioni
art(1) = aV(2)
ColoreTesto 2
Scrivi " Situazione ruota di " & r
Scrivi " Ritardo Attuale...." & rita
Scrivi " Ritardo Futuro....." & ritf
Scrivi " Elementi ritardo letti da statistica n. " & t
ColoreTesto 1
Scrivi " Per i numeri richiesti...." & numeri
ColoreTesto 0
Scrivi " Calcola Scarto Medio Quadratico in 3 Eventi distinti "
Scrivi "_____________________________________________________________________"
ReDim atitoli(30)
' preimposto i titoli delle colonne
atitoli(1) = " Ruota "
atitoli(2) = " Numeri "
atitoli(3) = " R.attuale "
atitoli(4) = " R.Futuro "
atitoli(5) = " Somma RPrec "
atitoli(6) = " Media Rt.prec."
atitoli(7) = " Smq Rt.Prec."
atitoli(8) = " Somma RAtt. "
atitoli(9) = " Media Rt.Att. "
atitoli(10) = " Smq Rt.Att. "
atitoli(11) = " Somma RFut. "
atitoli(12) = " Media Rt.Futuro"
atitoli(13) = " Smq Rt.Futuro"
' inizializzo la tabella
Call InitTabella(atitoli,1,"center",2,5)
' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
ReDim aValori(30) '
aValori(1) = r
aValori(2) = numeri
aValori(3) = rita
aValori(4) = ritf
For z = 1 To t
ReDim av2(0)
Call SplitByChar(asvil(z),";",av2)
If Int(Media) > CLng(av2(4)) Then
dif(z) = Media - CLng(av2(4))
Else
dif(z) = CLng(av2(4)) - Media
End If
quadro = dif(z) * dif(z)
Totqua = Totqua + CLng(quadro)
'''''' Scrivi z & " ra." & av2(4) & " md." & Media & " scostamento..." & dif(z) & " quadro.." & quadro
Next
''''--------------------------------------------------------------------------------------------------------------------
'''calcola sqm e medie
smq1 = Sqr(Totqua/t)
ColoreTesto 2
Scrivi
Scrivi " Esempio: FORMULA APPLICATA: Totale...." & Totqua & "./..n.elementi ritardo..." & t & ".....media..." & round(Totqua/t) & "...radice quadrata..." & smq1
ColoreTesto 0
tq0 = Totqua
dp0 = quadro
Media0 = round(Totqua/t)
md1 =(tq / t)
te1 = tq
aValori(5) = tq
te2 = tq + rita
te3 = tq + ritf
md2 =(te1 + rita) / t2
md3 =(te1 + ritf) / t2
''''calcolo con variabil
nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"