x rubino da abasul

[abasul]

Ciao rubino ti vorrei chiedere un favore. Nello script che mi hai creato, potresti farmi trovare accanto ad ogni evento qual'è stato il proprio Scarto Quadratico Medio in rapporto agli eventi precedenti? Mi spiego meglio.

Prendendo in esame ad esempio sempre la previsione 8.50 di Cagliari, gli Scarti Quadratici Medi per ogni evento sono stati questi qui sotto (gli scarti li ho ricavati con lo script che mi hai creato, a partire dall'estraz. dell'8/1/1871, operazione per operazione prima con un solo evento, poi solo con due eventi, poi ancora solo con tre eventi e così via fino ad arrivare a 16.

1 = 0
2 = 122
3 = 156,84
4 = 283,88
5 = 275,96
6 = 277,96
7 = 266,29
8 = 249,23
9 = 244,49
10= 240,67
11= 238,6
12= 270,08
13=265,62
14=255,98
15=249,41
16=241,9

Quindi nello schema riassuntivo dello script in output, ad esempio riportato qui sotto per la previsione esaminata, dovrebbe apparire per ogni previsione, in fondo a destra di ogni riga, ogni indice di S.Q.M calcolato.

1 04089 - 14/05/1949 Cagliari 61.55.50.08.64 440 Ambo
2 04286 - 21/02/1953 Cagliari 14.08.42.50.67 196 Ambo
3 04348 - 30/04/1954 Cagliari 08.58.83.50.90 61 Ambo
4 05157 - 08/11/1969 Cagliari 27.10.50.45.08 808 Ambo
5 05264 - 27/11/1971 Cagliari 87.50.72.08.68 106 Ambo
6 05272 - 22/01/1972 Cagliari 38.08.82.50.69 7 Ambo
7 05347 - 30/06/1973 Cagliari 28.08.04.50.40 74 Ambo
8 05615 - 19/08/1978 Cagliari 32.08.63.50.69 267 Ambo
9 05646 - 24/03/1979 Cagliari 80.50.08.34.88 30 Ambo
10 06082 - 01/08/1987 Cagliari 08.31.71.55.50 435 Ambo
11 06098 - 21/11/1987 Cagliari 23.08.73.42.50 15 Ambo
12 06842 - 01/09/1999 Cagliari 69.55.08.50.59 743 Ambo
13 06895 - 04/03/2000 Cagliari 49.59.50.08.41 52 Ambo
14 07134 - 15/06/2002 Cagliari 68.84.50.02.08 238 Ambo
15 07513 - 05/11/2005 Cagliari 43.09.50.62.08 378 Ambo
16 07713 - 15/02/2007 Cagliari 85.50.45.08.69 199 Ambo

Un Saluto

 

[Roby]

ciao abasul
nei prossimi giorni vedrò di fare quanto da te richiesto.

per ora se vuoi provare questo script per coppie di 2 numeri per la sorte di ambata.


basta la scelta della ruota
e di una distanza a tuo piacere.

buon fine settimana.

Sub Main
	'''abasul7   automatismo con coppia x Ambata distanza richiesta
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(900)
	Dim t
	Dim Media
	r = InputBox("Ruota ",,2)
	dis = InputBox("Distanza richiesta tra Coppia Estratti  ",,5)
	''' per nazionale imposta dal conc.n. 7440 altre ruote dal 3950
		If r = 12 Then dal = 7440 Else dal = 3950 End If
	For k = 1 To 90
	k1 = Fuori90(Int(k) + dis)
		ReDim asvil(900)
		ctr = 0
		Iniz = dal
		ini = dal
		al = Iniz - 1
		Call Messaggio(NomeRuota(r) & "..Elabora Estratti Distanza.. " & dis & "....coppia...." & Format2(k) & " " & Format2(k1))
		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 = Format2(k) & " " & Format2(k1)
				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)
					
					last = Ini
				End If
			End If
		Next
		''''''''-----------------------------------------------------------------------------------------------------------
		If ctr > 0 Then
			Totqua = 0
			tq2 = 0
			tq3 = 0
			t = ctr
		If r <> 12 Then
			Mediarealep = last / t
			Mediarealea = EstrazioneFin /(t + 1)
			Else
			Mediarealep =(last - 7440) / t
			Mediarealea =(EstrazioneFin - 7440) /(t + 1)
		End If
			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 " Distanza Richiesta tra numeri..." & dis,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(Med

 

[abasul]

Grazie mille rubino. Lo script lo trovo davvero interessante per centrare l'estratto. Poi eventualmente potremmo fare ancora delle migliorie.

Comunque se riesci a realizzare ciò che ti ho richiesto e in + mi mostri anche tutte le differenze, tra uno Scarto Quadratico Medio e il successivo di ogni evento, ti prometto che realizzeremo nello script una previsione automatizzata davvero incredibile, estremamente precisa e quasi infallibile per centrare ogni previsione con pochi colpi rispetto alla media naturale che ha la combinazione.

Riguardo alla previsione 8 e 50 che prendiamo sempre come esempio, in output i calcoli mi dovrebbero apparire in questa maniera:

1 04089 - 14/05/1949 Cagliari 61.55.50.08.64 440 Ambo/ 0
2 04286 - 21/02/1953 Cagliari 14.08.42.50.67 196 Ambo/ 122
3 04348 - 30/04/1954 Cagliari 08.58.83.50.90 61 Ambo/ 156,84
4 05157 - 08/11/1969 Cagliari 27.10.50.45.08 808 Ambo/ 283,88
5 05264 - 27/11/1971 Cagliari 87.50.72.08.68 106 Ambo/ 275,96
6 05272 - 22/01/1972 Cagliari 38.08.82.50.69 7 Ambo/277,96
7 05347 - 30/06/1973 Cagliari 28.08.04.50.40 74 Ambo/266,29
8 05615 - 19/08/1978 Cagliari 32.08.63.50.69 267 Ambo/249,23
9 05646 - 24/03/1979 Cagliari 80.50.08.34.88 30 Ambo/244,49
10 06082 - 01/08/1987 Cagliari 08.31.71.55.50 435 Ambo/240,67
11 06098 - 21/11/1987 Cagliari 23.08.73.42.50 15 Ambo/238,6
12 06842 - 01/09/1999 Cagliari 69.55.08.50.59 743 Ambo/270,08
13 06895 - 04/03/2000 Cagliari 49.59.50.08.41 52 Ambo/265,62
14 07134 - 15/06/2002 Cagliari 68.84.50.02.08 238 Ambo/255,98
15 07513 - 05/11/2005 Cagliari 43.09.50.62.08 378 Ambo/249,41
16 07713 - 15/02/2007 Cagliari 85.50.45.08.69 199 Ambo/241,9

differenza S.Q.M. tra 1° e 2° ev. = 122
differenza S.Q.M. tra 2° e 3° ev. = 34,84
differenza S.Q.M. tra 3° e 4° ev. = 127,07
differenza S.Q.M. tra 4° e 5° ev. = 7,92
differenza S.Q.M. tra 5° e 6° ev. = 2
differenza S.Q.M. tra 6° e 7° ev. = 11,67
differenza S.Q.M. tra 7° e 8° ev. = 17,06
differenza S.Q.M. tra 8° e 9° ev. = 4,74
differenza S.Q.M. tra 9° e 10°ev. = 3,82
differenza S.Q.M. tra 10° e 11°ev.= 2,07
differenza S.Q.M. tra 11° e 12°ev. =31,48
differenza S.Q.M. tra 12° e 13°ev. =4,46
differenza S.Q.M. tra 13° e 14°ev. =9,64
differenza S.Q.M. tra 14° e 15°ev. =6,57
differenza S.Q.M. tra 15° e 16°ev. =7,51

Un saluto

 

[claudio8]

NON fate troppa pubblicità altrimenti la lottomatica si fa autorizzare una modifica del regolamento e saremo ...punto e da capo..

buon lavoro.

 

[abasul]

Ciao claudio8.
Io, rubino e direi anche miki, giustamente siamo un po' euforici per quel che di bello stiamo ottenendo da questi script del Prof. rubi. Ormai così lo dovrò chiamare, perché è troppo bravo.
Resta comunque sempre il fatto che i numeri di una previsione non si possono mai prevedere in quale estrazione esattamente essi escono e pertanto le nostre sono solo indicazioni statistiche e nulla più. Non siamo dei maghi come certi fanfaroni e ciarlatani si propinano di essere. Per questo la Lottomatica può fare sogni tranquilli, anche perché, se noi cerchiamo di far vincere qualcuno, siamo quasi certi che questi devolverà una parte della sua vincita a chi nel mondo ne ha bisogno. Io perlomeno per questo motivo mi sono messo a disposizione. Il nostro pensiero deve sempre andare verso coloro che soffrono per le dittature, verso i bambini poveri del terzo mondo che soffrono la sete e la fame, verso gli emarginati, gli orfani, gli ammalati ecc. ecc.

Un saluto

 

[miki55]

Vai tranquillo abasul, stai facendo un gran lavoro con il grande Rubino.
La statistica, secondo me, è una delle vie migliori
che può offrirci maggiori esiti positivi grazie proprio
ad una delle teorie più antiche del pianeta:
LA MATEMATICA

 

[abasul]

Grazie anche a te miki55.

E' di grande interesse lo script che hai fatto realizare dal grande Prof. Rubi riguardo le ambate in cadenza. Veramente un grande lavoro.

Buon fine settimana

 

[miki55]

.....secondo te abasul, qual'è il nr di coppia migliore
del 56 su FI secondo i calcoli dello script del rubino?
Spiegami però anke il xkè dell'attendibilità
grazie

 

[abasul]

Usando lo script per cercare 2 estratti in cadenza, cioè il 56 con un altro numero in cadenza su Firenze?

 

[miki55]

Il 56 su FI con il migliore estratto
secondo i calcoli dello script di rubino
anche se non in cadenza...

 

[abasul]

Ciao miki55.

Da una ricerca che ho effettuato, a mio avviso il miglior numero da abbinare al 56 per la ruota di Firenze è il n° 70.
Il ritardo attuale della coppia dei numeri per estratto è di 48 estrazioni e il loro ritardo storico è 59. Due numeri per estratto dovrebbero uscire mediamente ogni 9,21 estrazioni. E se il loro ritardo reale registrato all'ultima estrazione è stato di "9,41" attualmente è di "9,45" cioè abbastanza alto. La previsione, superando di circa 22 estrazioni il n° Estrazioni di Attesa, si sta appunto avvicinando al suo livello storico. Siccome mancano solo 11 estrazioni per arrivare a questo livello, io penso che se essa dovesse superarlo allora può arrivare a superare anche 90 estrazioni di ritardo. Io quindi prevedo che la previsione dovrebbe uscire un bel po' prima di 11 estrazioni.

Un Saluto

 

[miki55]

....abasul, ma hai visto bene?
No xkè io il 56.70 su FIRENZE lì trovo ad
un ritardo attuale di 2 estrazioni.
Puoi verificare tu stesso...
Io ti kiedevo miglior estratto in abbinamento
come ritardo futuro in base ai calcoli fatti
nello script di rubino.

 

[miki55]

....non potrebbe essere l'estratto 41 l'abbinamento
più attendibile insieme al 56 su FI?
Noto che il "teorico 1 e 2" sono rispettivamente
a -41 e -40 o bisogna affidarsi solo ai rit att?



URL=http://imageshack.us/photo/my-images/543/immagineabasul3.gif/]

[/URL]

 

[miki55]

.....abasù 6 spariro???

 

[miki55]

...6 sparito???

 

[abasul]

Hai ragione miki. Precedentemente alla tua richiesta, avevo manomesso il range delle estrazioni, impostandolo fino al 24 aprile, e che poi mi sono dimenticato di rimettere apposto reimpostandolo al 26 maggio, per fare delle verifiche su alcune previsioni che tra qualche colpo dovrei mettere in gioco. Quindi poi quando sono andato a cercarti i numeri avevo questa estrazione del 24 aprile come ultima. E va bene. Vuol dire allora che per domani pomeriggio avrò tutto il tempo per ricercarti una nuova previsione.

A domani

 

[bergie]

ciao miki55,
ma lo script dell'esito che hai postato sopra dove
si trova?
mi sono perso qualcosa[:I], trovo solo quello con le distanze.
potresti metterlo, ringrazio!

 

[claudio8]

quote:Originally posted by abasul

Ciao claudio8.
Io, rubino e direi anche miki, giustamente siamo un po' euforici per quel che di bello stiamo ottenendo da questi script del Prof. rubi.
Ormai così lo dovrò chiamare, perché è troppo bravo.
Resta comunque sempre il fatto che i numeri di una previsione non si possono mai prevedere in quale estrazione esattamente essi escono e
pertanto le nostre sono solo indicazioni statistiche e nulla più. Non siamo dei maghi come certi fanfaroni e ciarlatani si propinano
di essere. Per questo la Lottomatica può fare sogni tranquilli, anche perché, se noi cerchiamo di far vincere qualcuno, siamo quasi
certi che questi devolverà una parte della sua vincita a chi nel mondo ne ha bisogno. Io perlomeno per questo motivo mi sono messo a
disposizione. Il nostro pensiero deve sempre andare verso coloro che
soffrono per le dittature, verso i bambini poveri del terzo mondo
che soffrono la sete e la fame, verso gli emarginati, gli orfani, gli ammalati ecc. ecc.

Un saluto

Caro Abasul vedo con molto piacere che sei entrto a pieno nel gruppo, anzi direi che hai creato una succursale con il professor
Rubino, considerato le sue capacità stastico-lottologiche e la notevole specializzazione ottenuta nel creare script mai visti anche in termini estetici.
Mi farebbe molto piacere che i tuoi obbiettivi possano darti e darci la possibilità di devolvere per cui vi sprono e supporto a
continuare e nello stessotempo cercherò di mettermi al passo vs. che ormai ha una falcata molto lunga.
Saluti a te e tutto il tuo seguito
ciao

Ps: mi sono permesso di riformattare il tuo testo perchè, per poterti leggere devo sempre spostare la barra di traslazione del
video. Cerca di usare la tecnica della spaziatura ogni 2/3 righe di scrittura.

 

[miki55]

ciao bergie.
scarica lo script sopra esposto di rubino.
inserisci la ruota, il nr capogioco poi,
troverai l'eleborato ke parte dal nr.1 all'89
La mia ricerca:
ruota = 3
numero = 57
ecc...

 

[claudio8]

X Mike riposto la richiesta di bergie

quote:Originally posted by bergie

ciao miki55,
ma lo script dell'esito che hai postato sopra dove
si trova?
mi sono perso qualcosa[:I], trovo solo quello con le distanze.
potresti metterlo, ringrazio!

ed aggiungo: la videata che ottengo è diversa. Essa considera ed evdenzia la distanza impostata, dove inserisco il capogioco di cui parli ? inoltre, quale il range di estrazioni?

 Situazione ruota di Cagliari
 Ritardo Attuale....0
 Ritardo Futuro.....18,0625149700599
 Distanza Richiesta tra numeri...75
 Per i numeri richiesti....56 41
 Per la sorte (((((Estratto))))) 
 Elementi ritardo letti da statistica n. 500
 Calcola Scarto Medio Quadratico in 3 Eventi distinti 
_____________________________________________________________________

 Esempio: FORMULA APPLICATA:    Totale....34531./..n.elementi ritardo...500.....media...69,062...radice quadrata...8,310354986401

 scarto mq Ritardo Precedente.   3930 | 7,86 | 34531 | 500 | 69 | 8,31
 scarto mq Ritardo Attuale....   3930 | 7,8443 | 34605 | 501 | 69,07 | 8,31
 scarto mq Ritardo Futuro.....   3948,06251497006 | 7,8804 | 34621 | 501 | 69,11 | 8,31

  Ruota               Numeri              R.attuale     R.Futuro     Somma RPrec    Media Rt.prec.   Smq Rt.Prec.   Somma RAtt.    Media Rt.Att.    Smq Rt.Att.    Somma RFut.    Media Rt.Futuro   Smq Rt.Futuro                   Cagliari  56 41  0  18,0625149700599  3930  7,9  8,310355  3930  7,8  8,311012  3948,06251497006  7,9  8,31295                   

Estr.n.conc   Media Reale    Ind.Minimo    Media         Ind.Massimo   Ritardo Massimo t.Futuro    n.Estrazioni t.di Attesa     1°Teorico Prev.caduta     2°Teorico Prev.caduta     3°Teorico Prev.caduta   8379  16,758  0,4504  7,86  16,1704    18,06  34,95  60,01  8379  16,7246  0,4667  7,8443  16,1553  24,4663  24,4663  18,0625  34,9497  1,8523  -  3,5847  

___________________________________________________________________________________________________________

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"