...per Rubino

Roby · 30 Maggio 2011

[/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!

miki55 · 30 Maggio 2011

....okkio anche alla distanza 9 di
CA 24.33 per estratto

miki55 · 30 Maggio 2011

ciao rubino lo hai completato lo script
sopra per gli estratti?
E' interessante il quadro delle seconda immagine...

Roby · 30 Maggio 2011

questo è lo script che contiene in fondo all'output lo specchietto riepilogativo di quello combinazioni che hanno ritardo attuale vicino ai 1°2°3°ritardi previsionali teorici.

questo script è quello che esamina le distanze tra
2 estratti a richiesta
1 ruota a richiesta.

diventa difficile gestire ulteriori passaggi per la lentezza dello script, a meno di inserire qualche condizione di esclusioni.

Codice:

Sub Main
	'''abasul7   automatismo con coppia x Ambata distanza richiesta
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(900)
	Dim t
	Dim Media
	Dim riepil(90)
	
	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)
					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
		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

Roby · 30 Maggio 2011

questo invece è lo script sempre per ambata su coppia di estratti
di cui 1 capogioco.

sempre in fondo all'output trovi il riepilogo delle combinazioni che hanno ritardo vicino al max,1°2°3°ritardo previsione teorico, etc..

rimane che attualmente tutto è costruito per vedere se i ritardi teorici funzionano come segnale di gioco reale e che percentuale di successi si possono ottenere.

Codice:

Sub Main
	'''abasul6   automatismo con coppia x Ambata capogioco
	Dim sfile
	Dim records
	Dim art(1)
	Dim dif(900)
	Dim t
	Dim Media
	Dim riepil(90)
	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
					di

miki55 · 31 Maggio 2011

Ciao rubino, script lenti ma vale la pena attendere.
Ora aspettiamo gli eventi, delle prossime estrazioni.
Ti dico con piacere, che qualunque siano i risultati,
sei stato geniale!
Buona giornata

keeper · 31 Maggio 2011

concordo occorre domestichezza ma ce la possiamo fare very good

Roby · 1 Giugno 2011

quoterobabile max 7 colpi dovrebbe dare esito di ambata

15 60 napoli x estratto

ecco uscito il 15 a Napoli

era previsto in max 7 estrazioni
ma era già al limite per la rottura attesa.

e tutti aspettavano il 51

-----------------------------
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!

miki55 · 1 Giugno 2011

Bravo Rubino, difatti lo aspettavo ankio, ma è
meglio una prev per volta, gli estratti, come sai, costa seguirli.
Aspetto il 56 su BA e FI speriamo giovedì sia la volta buona...
Inoltre mi farebbe piacere, una copia dello script degli ambi isocroni
di cui hai fatto anche in quella occasione un ottimo lavoro.
ciao

Roby · 1 Giugno 2011

scusa miki per l'invasione

ma tutto serve per fare test e controlli

ecco ,apparentemente, l'altra faccia della medaglia.

NAPOLI coppia per estratti 58 60</u>

questa coppia di estratti è indubbiamente al limite della rottura,
per più motivi.

1) ha superato di 2 colpi il 3°livello di ritardo teorico futuro (fibonacci 1,55)

2) ma se applico wdgann (l'angolo di 60 gradi di ritardo max) lo raggiungerà a 68, colpo più, colpo meno.

vediamo se fibonacci-wdgann con i loro calcoli sono veramente insuperabili.

[/URL]

Uploaded with ImageShack.us[/img]

nota: Abasul sta mettendo altra carne al fuoco, per gli ambi, con altri dati ciclici! </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!

miki55 · 1 Giugno 2011

...proprio per fare un test, guarda invece questo 29 a PALERMO
in caso di caduta quante coppie annienterebbe....

miki55 · 1 Giugno 2011

|---------------------------------------------------------------------------
| AMBO | Al ritardo| Ruote | quantità |Teorico Ambi | eccesso |
| | comune | | ambi trovati | Presenti | n.ambi |
|---------------------------------------------------------------------------
15-85 1101 Firenze
19-88 1101 Palermo
19-90 1101 Milano
21-28 1101 Venezia
28-75 1101 Napoli
28-81 1101 Venezia
37-65 1101 Cagliari
41-87 1101 Genova
45-59 1101 Torino
47-65 1101 Cagliari
59-81 1101 Venezia
70-76 1101 Roma
79-88 1101 Roma
Al Ritardo....1101 su n.RUOTE.9 sono presenti n.Ambi...13 Qta Teorica Ambi è di...12 in eccesso n.ambi..1 surplus...0.09

Riepilogo situazione n.ruote/ambi/Ritardo gruppo all'estrazione..8381/24.05.2011
____________________________________________________________________________________________
ruote..09 n.ambi..13 ritardo..1101 in eccesso n.ambi....1

...mi interessava di questo script, solamente i dati teorici
degli ambi isocroni che non ho per future ricerche.
Solo per questo era la mia richiesta. Ciao

Roby · 1 Giugno 2011

lo script degli ambi a ritardo comune
le impostazioni che devi dare come scelte sono:

questi valori, lasciali invariati</u>
Det = InputBox("Vuoi il dettaglio degli ambi..",,"N")

azz = InputBox("Vuoi azzerare il file x convergenze? S=si N=no",,"N")

con = InputBox("vuoi memorizzare dati x convergenze? S=si N=no",,"N")

perchè, se no, ti ci vogliono dei file per convergenze, che attualmente non hai e bisogna prima creali, e poi ci vogliono i percorsi giusti, insomma tutta una serie di info ulteriori.

i parametri che devi usare sono:

estrazione finale, la propone lo script, se ti va bene ok, altrimenti puoi correggerla indietro.

range dal ritardo 800
range al ritardo 1200

questi valori li propone lo script, ma possono essere ristretti o allargati.

range al ritardo 1200,</u>
è il ritardo dal quale ti descriverà gli ambi che trova sulle varie ruote a quel ritardo.

per quanto riguarda l'output, un po rozzo, non l'ho mai esteticamente migliorato, ma lo farò un domani.

ottieni una lista dei ritardi, la quantità degli ambi che trova su n.ruote

ottieni un riepilogo finale in parte sintetico.

non so provalo e poi fammi sapere, se funziona.

tieni conto che la teorizzazione di quanti ambi ci devono essere ad un determinato ritardo, è stata da me modificata secondo la mia interpretazione.
L'interpretazione matematica che ne danno i padri fondatori è all'acqua di rose ed è larga quasi il tragitto della milano-venezia.

Codice:

Sub Main()
''''''RITARDI STORICI NRUOTE/RITARDO
'ru RitSto   90% inferiore a Casi
'2  3.379 estr.  1.959 estr. 7.706
'3  2.740 estr.  1.681 estr. 7.627
'4  2.273 estr.  1.483 estr. 7.554
'5  2.090 estr.  1.324 estr. 7.490
'6  1.781 estr.  1.196 estr. 7.416
'7  1.612 estr.  1.070 estr. 7.327
'8  1.576 estr.  950   estr. 7.058
'9  1.497 estr.  894   estr. 3.511
'10 1.191 estr.  752   estr. 3.208


'''''''''''''''formula per calcolare quanti ambi devono esserci ad un ritardo (x)=1044
'''''Qt=(10*9)*0,9975^1044=6,61726

''''''''''''''''Variante personale somma dei ritardi delle 10 ruote + ritardi delle (x) ruote interessate
'''''Qt=(10*9)*0,9975^1044=6,61726 + (10*10)*0,9975^1044

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
	Dim mrt(10,99)

	fine = InputBox("n.estrazione finale valida per il calcolo del ritardo..",,EstrazioneFin)
	Det = InputBox("Vuoi il dettaglio degli ambi..",,"N")
	DETRIE1 = InputBox("range RITARDO.dal.",,800)
	DETRIE2 = InputBox("range RITARDO..al....ELENCO AMBI - ",,1200)
	
	filtroruote = InputBox("scrivi video solo quelli con n.ruote >= di...",,3)

	azz = InputBox("Vuoi azzerare il file x convergenze?  S=si N=no",,"N")
	con = InputBox("vuoi memorizzare dati x convergenze?  S=si N=no",,"N")
	Scrivi "_____________________________________________________________________________"
	ColoreTesto(1):Scrivi " calcola ritardo 4005 ambi delle 10 ruote  "
	ColoreTesto(0):Scrivi " n.estrazione iniziale per calcolo ritardo degli ambi.." & 3579 & "  data " & DataEstrazione(3579)
	Scrivi " n.estrazione finale   per calcolo ritardo degli ambi.." & fine & "  data " & DataEstrazione(fine)
	Scrivi " FiltroRuote Minime..." & filtroruote
	ColoreTesto(2):Scrivi " Riepilogo finale con elenco della quantità di ambi ad un ritardo comune"
	ColoreTesto(0):Scrivi "_____________________________________________________________________________"
	Dim ruote(12)
	Dim ambo(8990)
	Dim riel(8990)
	Dim sriga
	For ru = 1 To 10
		For n = 3579 To fine
			If Estratto(n,ru,1) < Estratto(n,ru,2) Then
				a01 = Format2(Estratto(n,ru,1)) & Format2(Estratto(n,ru,2))
			Else
				a01 = Format2(Estratto(n,ru,2)) & Format2(Estratto(n,ru,1))
			End If
			If Estratto(n,ru,1) < Estratto(n,ru,3) Then
				a02 = Format2(Estratto(n,ru,1)) & Format2(Estratto(n,ru,3))
			Else
				a02 = Format2(Estratto(n,ru,3)) & Format2(Estratto(n,ru,1))
			End If
			If Estratto(n,ru,1) < Estratto(n,ru,4) Then
				a

miki55 · 1 Giugno 2011

Bravo Rubino, ecco prova di esperti in statistica lotto...

Range ritardo richiesto....dal....al....1238/1238
Al ritardo (range finale) vengono visualizzati gli ambi e le ruote dove si trovano
RIEPILOGO QUANTITA' AMBI PRESENTI AL RITARDO COMUNE DI...
----------------------------------------------------------------------------------
|---------------------------------------------------------------------------
| AMBO | Al ritardo| Ruote | quantità |Teorico Ambi | eccesso |
| | comune | | ambi trovati | Presenti | n.ambi |
|---------------------------------------------------------------------------
02-74 1238 Milano
06-09 1238 Torino
08-60 1238 Palermo
17-50 1238 Roma
20-72 1238 Genova
30-66 1238 Genova
30-88 1238 Venezia
36-88 1238 Venezia
50-90 1238 Roma
66-72 1238 Genova

Al Ritardo....1238 su n.RUOTE.6 sono presenti n.Ambi...10
Qta Teorica Ambi è di...5
in eccesso n.ambi..5
surplus...1

Riepilogo situazione n.ruote/ambi/Ritardo gruppo AL CONC.N. 8384 - 31.05.2011
_________________________________________________________________________________________

Debora73 · 1 Giugno 2011

Ciao Miki,
volevo provare a fare questo tipo di statistica col "programma..."
questo è il risultato,in cosa sbaglio?

Ciao e grazie

Roby · 1 Giugno 2011

per verifica con spaziometria ecco gli ambi

[/URL]

Uploaded with ImageShack.us[/img]

con il tuo programma non so il motivo per il quale non escono.

forse il ritardo è -1 o +1 da quello dello script

-----------------------------
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!

miki55 · 1 Giugno 2011

Ciao Rubino, non trovo questa funzione su spaziometria,
degli ambi sulle 10 ruote esposti nell'immagine sopra.
Per la verità, mi manca anche in altri software in mio possesso...
Forse stò esagerando ma uno script mi sarebbe veramente utile.
Grazie e ancora complimenti, per tutta la passione e professionalità
che ci dimostri.
Buonanotte

Roby · 1 Giugno 2011

ciao miki

spaziometria

statistica

su ambi

filtro ambi

vedi figura allegata per le impostazioni di ricerca
nella parte risultati escono gli ambi
l'ho fatta implementare io a luigi in spaziometria

[/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!

Debora73 · 2 Giugno 2011

Grazie Rubino,
gentilissimo

Buona giornata

miki55 · 2 Giugno 2011

...oltre ad essere un Professore, sei sopratutto un amico.
Grazie Rubino e buona festività

...per Rubino

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<