Novità

x rubino

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
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
 
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
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ò.
Attendo perciò quanto promesso sopra fill
 
Ciao Abasul,
sto seguendo la cad 8 a NA,
ho provato a calcolare lo Scarto Quadratrico Medio dell'intera novina,ipotizzando lo sfaldamento nella prossima estrazione,
puoi controllare se ho inserito bene i parametri?
66242519.jpg

Grazie:)
Ciao e buona Domenica
 
Ciao Debora73.

Per quanto riguarda lo script che il gentile rubino ci ha messo a disposizione per calcolarci lo Scarto Quadratico Medio per una nostra previsione, al momento abbiamo un problemino che credo però tra un po' risolveremo. Nel caso della tua previsione di 9 numeri, avresti dovuto inserire a mano, uno ad uno, la bellezza di 339 eventi per ricavarti lo S.Q.M. Allora per ovviare a tale inconveniente, si sta cercando di poter esportare dal programma "Saziometria" tutti gli eventi di frequenza subito con un copia e incolla. Quindi ciò che tu hai ricavato non è esatto. Comunque questa previsione che tu stai seguendo ha uno scarto in meno, rispetto agli esiti attesi, di 28 sortite. Mi spiego. Dal 1939 fino ad oggi, la tua previsione avrebbe dovuto registrare di media 367 uscite ed invece ne ha registrate 339. Il ritardo naturale per l'uscita dell'ambo su 9 numeri è 13 estrazioni e la tua previsione ha un ritardo di 99 estrazioni, superando il ritardo storico che era di 79 estrazioni. Questo è dovuto al fatto che la sua media attuale è di 14.17 e il suo S.Q.M. è anche alto perché è di 14.02. Se vuoi un mio parere, se continuare o no, ad inseguire un ambo per questa previsione, io statisticamente ti consiglierei di lasciar perdere, perché il ritardo potrebbe continuare ancora a salire considerevolmente. Poi tu lo sai come è fatto il gioco del Lotto: magari tu prevedi una cosa e invece poi la previsione ti esce nella prossima estrazione.
Un cordiale saluto
 
Ciao Abasul,
volevo proprio che mi consigliassi sul da farsi,e credo proprio che seguirò il tuo consiglio.
Grazie e buona serata
Ciao:)
 
questa è una bozza ed i valori bisogna fare 1 controllo per vedere che sia tutto okey.

procedura in SPAZIOMETRIA

statistica
formazioni
statistica veloce</u>


1) nel riquadro in basso vi è la possibilità di esporta EXCEL
pigiandolo esce un piccolo menu che chiede in che formato

unica scelta possibile adatto allo script
- ESPORTA IN UN FILE DI TESTO
esegui e successivamene chiudi

aprire, se non si è già fatto prima, lo script abasul2 (scarto medio quadratico)

lo script cosa fa e cosa chiede?

1) inserire la combinazione che si è usata nella statistica
2) il ritardo attuale della combinazione
3) il ritardo futuro come indagine per verificare il valore che raggiungerà lo scarto med.qu. a quel ritardo
invio


attualmente ne calcola i 3 smq e le relative medie

alla somma ritardi precedente
al ritardo attuale
al ritardo futuro

quando mi avete confermato che tutto va bene, si può sistemare in sintetico l'output solo con i dati che interessano.
attualmente ho lasciato il dettaglio che legge della statistica
attualmente ho lasciato l'esempio di come ha calcolato gli smq e medio
attualmente in sintesi le voci o riepilogo finale.


naturalmente se è indispensabile questa procedura,teorica matematica</u>, la vedrei implementata direttamente in spaziometria, ma è chiaro che per il momento bisogna usare lo script.

se non ricordo male, il Fisico affermava che la combinazione si poteva porre in gioco quando:
1) lo scarto medio quadratico è intorno al doppio del TAU
2) io aggiungo che quando il ritardo attuale e il doppio della media
3) oppure ci restano le bande di bollinger, che abasul ha cercato di spiegare in parte, con media centrata, media sopra, media sotto di (x), ma mancano i valori di sintesi bWidth, %B

come si calcolano?

%B =SE(B12<>"";+(B12-G12)/(E12-G12);"")
bwidth=SE(B12<>"";+(E12-G12)/F12;"")

a) calcolare la devst dei ritardi precedenti e sommare alla media precedenti

b) la media è da intendersi media centrata
c) sommare alla media (il valore stdev * 2) (banda alta)
d) sottrarre alla media (il valore stdev * 2) (Banda bassa)
e) come calcolare %B? rapporto tra (media-banda bassa) / (banda alta-banda bassa)
f) come calcolare bwidht? rapporto tra (banda alta-banda bassa) / media centrata
</u>






















Codice:
'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
	''''''''-----------
 
graficamente cosa si ottiene?

anche se la mia premessa e l'impostazione è di tipo diverso da quella di abasul, io ho sempre ottenuto queste informazioni

bandeboll.jpg
[/URL]

Uploaded with ImageShack.us[/img]

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
Ciao rubino.
Da una verifica che ho fatto su una previsione che dovrò seguire per ambo secco, ho constatato che mentre il primo Scarto Quadratico Medio risulta essere esatto, gli altri due invece non lo sono.
La previsione che dovrò seguire prevede intanto 2 estratti, 8 e 50 su Cagliari, di cui almeno uno, secondo me dovrebbe sortire entro pochi colpi; e l'ambo 8 e 50, sempre a Cagliari, che secondo la mia previsione dovrebbe sortire entro 69 estrazioni.

Immessi i dati richiesti per ambo:
ritardo attuale 667
ritardo futuro 736
elementi ritardo inseriti 16 che sono

440
196
61
808
106
7
74
267
30
435
15
743
52
238
378
199

lo sript mi calcola questi indici:

totale somma 4049, di cui la media è 253 e lo S.Q.M. 241,897834839421; Esatto!
totale somma 4716, di cui la media è 320 e lo S.Q.M. 255.248120798089; Errato!
totale somma 4785, di cui la media è 324 e lo S.Q.M. 262, 282024782289; Errato!

Mentre invece dovrebbe essere:

totale somma 4049, di cui la media è 253 e lo S.Q.M. 241,897834839421;
totale somma 4716, di cui la media è 277 e lo S.Q.M 254,083937034248;
totale somma 4785, di cui la media è 281 e lo S.Q.M 260.73888222872;

Per il resto a me andrebbe bene. Posta lo script e poi lo testiamo. Grazie infinite rubino.
 
che estrazione hai impostato come inizio dell'archivio?



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
c'è sempre il problema che non quadra con i tuoi

penso sia un problema di decimali oppure sbaglio io in qualcosa, che non riesco a focalizzare. devo riguardare.

Codice:
'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
 
Per ottenere il secondo S.Q.M. con il ritardo attuale, bisogna sommare ai 16 eventi il diciasettesimo, che sarebbe il ritardo, e calcolarne la media (totale somma:17). In base a questa nuova media, si calcolano le altre operazioni.

La stessa cosa vale anche per il terzo S.Q.M. con la previsione futura. Bisogna sommare ai 16 eventi la diciassettesima, che è la previsione futura, e calcolarne la media (totale somma:17). In base a questa ulteriore media si calcolano le altre operazioni.
Per gli eventi di cui ti parlo, naturalmente mi riferisco al mio post di questa mattina delle 09:24:05.
 
Ciao miki55.

Per lo script c'è ancora qualche problemino da risolvere. Vi chiediamo ancora un po' di pazienza.
Dimmi un po', ma come si postano le immagini? Io ancora non sono capace a farlo.
 
ciao miki

guarda il range dell'archivio estrazioni

hai aggiornato il programma, ma in basso hai probabilmente zero!

metti sulla prima ed ultima estrazione.




-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
Ciao rubino.

miki55 ha ragione. C'è un errore di script:

Scelti i numeri;

inserito il ritardo attuale;

e inserito il ritardo futuro, confermando dà questo errore:

Overflow
Errore script !
6 - Overflow
linea : 56
colonna : 1
Source : Errore di run-time di Microsoft VBScript.
 
provate a scrivere, indicando quale combinazione avete scelto.

provate a vedere se c'è il file nella cartella
spaziometria/temp

che avete esportato in formato txt

1) controllo

è chiaro che se non c'è il file
o avete un percorso diverso lo script non funziona.


[?]


Codice:
nome = "C:\Documents And Settings\Pietro\Dati applicazioni\spaziometria\temp\ListView2.txt"
</u>


dovete cambiare il percorso con il vostro che si trova sul vostro pc.</u>



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
....per abasul


Ciao miki55.

Per lo script c'è ancora qualche problemino da risolvere. Vi chiediamo ancora un po' di pazienza.
Dimmi un po', ma come si postano le immagini? Io ancora non sono capace a farlo.

Sulla tastiera
- Stamp
- Devi scaricare questo programma ”ImageShack – Image Hosting …In automatico si apre questa pagina. Seleziona la parte che ti interessa (c’è un rettangolo sopra)
- Copia
- Start
- Accessori
- Paint
- Modifica
- Incolla
- File
- Salva con nome
- Nome file: immagine
- Salva con nome: GIF
- Entra nella cartella immagine e troverai l’immagine selezionata
- Entra nel programma scaricato “ImageShack”
- Browse
- Carica adesso
- Code forum copia
- Entra nel forum e incolla

Devo uscire a dopo ciao
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
Indietro
Alto