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.
quote:Abasul usa questo metodo:</u>
media Ritardo attuale + 2 volte scarto medio quadratico attuale</u>
in questo caso genera una proiezione del ritardo futuro
conoscendo il ritardo attuale della combinazione e la proiezione futuro, basta fare la sottrazione e si ha un teorico n.estrazioni future dove è attesa l'uscita della combinazione.
quote:Noto ke è un ambo in figura "9"
Mi kiedo ora (..per non impazzire ancora) anche nel
tuo script bisogna inserire il
"ritardo futuro" per avere il calcolo finale o
è automatizzato?
Sub Main
'''abasul6 automatismo con coppia x Ambata
Dim sfile
Dim records
Dim art(1)
Dim dif(900)
Dim t
Dim Media
r = InputBox("Ruota ",,2)
capo = InputBox("Capogioco ",,"08")
k1 = Int(capo)
For k = 1 To 90
ReDim asvil(900)
ctr = 0
Iniz = EstrazioneIni
ini = EstrazioneIni
al = Iniz - 1
Call Messaggio(NomeRuota(r) & "..Estratti....Elabora Coppia....capogioco " & capo & " " & Format2(k))
Call AvanzamentoElab(1,90,k)
tq = 0
For Ini = Ini + 1 To EstrazioneFin
ok = 0
estratti = ""
des2 = ""
des1 = ""
rambo = ""
ReDim anum(2)
If k <> Int(k1) Then
For h = 1 To 5
If Int(k1) = Estratto(Ini,r,h) Then
ok = ok + 1
des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
End If
If Int(k) = Estratto(Ini,r,h) Then
ok = ok + 1
des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
End If
estratti = estratti & Format2(Estratto(Ini,r,h)) & " "
numeri = capo & " " & Format2(k)
Next
If ok >= 1 Then
al = Ini - 1
ctr = ctr + 1
dat = Ini & " " & DataEstrazione(Ini)
ruota = NomeRuota(r)
art(1) = r
anum(1) = k1
anum(2) = k
rambo = SerieRitardo(EstrazioneIni,Ini - 1,anum,art,1)
If ctr = 1 Then
rambo =(Ini - EstrazioneIni)
End If
des1 = "Ambo"
records = ctr & "," & dat & "," & ruota & "," & estratti & "," & rambo & "," & des1 & "," & des2
asvil(ctr) = ctr & "," & dat & "," & ruota & "," & estratti & "," & rambo & "," & des1 & "," & des2
tq = tq + rambo
rita = SerieRitardo(EstrazioneIni,EstrazioneFin,anum,art,1)
last = Ini
End If
End If
Next
''''''''-----------------------------------------------------------------------------------------------------------
If ctr > 0 Then
Totqua = 0
tq2 = 0
tq3 = 0
t = ctr
Mediarealep = last / t
Mediarealea = EstrazioneFin /(t + 1)
ritf =(Mediarealea*1.08)
Media = tq / t
t2 = t + 1
''' per completare il quadro informazioni
art(1) = r
ColoreTesto 2
Scrivi " Situazione ruota di " & NomeRuota(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.
quote:Rubino lo proverò e ti farò sapere.
Ma prima di lasciarti volevo kiederti (se posso)
ma ke lavoro fai?
io presumo: il bankiere, il fisico-matematico,
il prof. d'università o altro di questo genere...
no xkè se non mi senti per un periodo
vuol dire che sto alla neuro, grazie a te!!!
CIAO
quote:---------------------------------
modificherò in seguito un dato
2° Teorico Prev.caduta
---------------------------------
Sub Main
'''abasul6 automatismo con coppia x Ambata
Dim sfile
Dim records
Dim art(1)
Dim dif(900)
Dim t
Dim Media
r = InputBox("Ruota ",,6)
''' per nazionale imposta dal conc.n. 7440 altre ruote dal 3950
If r = 12 Then dal = 7440 Else dal = 3950 End If
capo = InputBox("Capogioco ",,"15")
k1 = Int(capo)
For k = 1 To 90
ReDim asvil(900)
ctr = 0
Iniz = dal
ini = dal
al = Iniz - 1
Call Messaggio(NomeRuota(r) & "..Estratti....Elabora Coppia....capogioco " & capo & " " & Format2(k))
Call AvanzamentoElab(1,90,k)
tq = 0
For Ini = Ini + 1 To EstrazioneFin
ok = 0
estratti = ""
des2 = ""
des1 = ""
rambo = ""
ReDim anum(2)
If k <> Int(k1) Then
For h = 1 To 5
If Int(k1) = Estratto(Ini,r,h) Then
ok = ok + 1
des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
End If
If Int(k) = Estratto(Ini,r,h) Then
ok = ok + 1
des2 = des2 & Format2(Estratto(Ini,r,h)) & " "
End If
estratti = estratti & Format2(Estratto(Ini,r,h)) & " "
numeri = capo & " " & Format2(k)
Next
If ok >= 1 Then
al = Ini - 1
ctr = ctr + 1
dat = Ini & " " & DataEstrazione(Ini)
ruota = NomeRuota(r)
art(1) = r
anum(1) = k1
anum(2) = k
rambo = SerieRitardo(dal,Ini - 1,anum,art,1)
If ctr = 1 Then
rambo =(Ini - dal)
End If
des1 = "Ambo"
records = ctr & "," & dat & "," & ruota & "," & estratti & "," & rambo & "," & des1 & "," & des2
asvil(ctr) = ctr & "," & dat & "," & ruota & "," & estratti & "," & rambo & "," & des1 & "," & des2
tq = tq + rambo
rita = SerieRitardo(dal,EstrazioneFin,anum,art,1)
ritsto = SerieStorico(dal,EstrazioneFin,anum,art,1)
last = Ini
End If
End If
Next
''''''''-----------------------------------------------------------------------------------------------------------
If ctr > 0 Then
Totqua = 0
tq2 = 0
tq3 = 0
t = ctr
Mediarealep = last / t
Mediarealea = EstrazioneFin /(t + 1)
ritf =(Mediarealea*1.08)
Media = tq / t
t2 = t + 1
''' per completare il quadro informazioni
art(1) = r
ColoreTesto 2
Scrivi " Situazione ruota di " & NomeRuota(r)
Scrivi " Ritardo Attuale...." & rita
Scrivi " Ritardo Futuro....." & ritf
ColoreTesto 1
Scrivi " Per i numeri richiesti...." & numeri,1
Scrivi " Per la sorte (((((Estratto))))) ",1
ColoreTesto 0
Scrivi " Elementi ritardo letti da statistica n. " & t
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) = NomeRuota(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)
Next
''''--------------------------------------------------------------------------------------------------------------------
'''calcola sqm e medie
smq1 = Sqr(Totqua/t)
ColoreTesto 2
Scr