spaziometria

[donatella]

Sono relativamente nuova del forum e leggendo tra i vari post son venuto a conoscenza del programma " spaziometria " che da quanto ho capito permette di semplificare la vita per le più diverse ricerche nel mondo del lotto
Considerando che sono una frana a livello informatico potrei avere qualche delucidazione in più su quanto offre e su come eventualmente fare per installarlo?
Grazie

 

[Roby]

Ciao Donatella
Qui http://forum.lottoced.com/f12/setup-aggiornato-spaziometria-nuovo-argomento-88685/ trovi il link per scaricarlo,
e più in basso (sempre nella stessa discussione) c'è la guida di Baffoblu per installare il programma

 

[donatella]

Grazie mille Ritchie B. : il programma è installato
In giornata comincerò a vedere le potenzialità e proverò ad applicarlo
Ciao

 

[donatella]

Ciao Ritchie B: ho iniziato a fare i primi passi con la guida di Baffo Blu su come postare gli script in modo da poter sfruttare appieno le potenzialità di Spaziometria
Nel frattempo potresti gentilmente dirmi come aggiornare l'archivio delle estrazioni?
Sto valutando un metodo per ambata e ambo da giocare quando escono due ambi isotopi su ruote consecutive di distanza uguale come ambata e per abbinamenti : la somma dei due secondi elementi dei due ambi ( 1° abbinamento) e la somma dei cinque estratti delle due ruote ( 2° e 3° abbinamento) . Con il programma si può fare una statistica per considerare l'attendibilità e costanza nel tempo del metodo?
Se Ti è possibile mettere uno script ( così incomincio a entrare nei meccanismi delle procedure) altrimenti dovrete attendere un bel pò prima che ci riesca da sola ( faccio parte della categoria teste dure di Baffo Blu o dei nuovi analfabeti come dico io paragonabili a quelli che una volta firmavano con la x )
Grazie per

 

[Roby]

Per lo script, mi serve tempo
Per l'aggiornamento estrazioni guarda qui sotto....
ciao

http://img805.imageshack.us/img805/3315/immaginespazio.jpg

 

[Roby]

Ciao Ritchie B: ho iniziato a fare i primi passi con la guida di Baffo Blu su come postare gli script in modo da poter sfruttare appieno le potenzialità di Spaziometria
Nel frattempo potresti gentilmente dirmi come aggiornare l'archivio delle estrazioni?
Sto valutando un metodo per ambata e ambo da giocare quando escono due ambi isotopi su ruote consecutive di distanza uguale come ambata e per abbinamenti : la somma dei due secondi elementi dei due ambi ( 1° abbinamento) e la somma dei cinque estratti delle due ruote ( 2° e 3° abbinamento) . Con il programma si può fare una statistica per considerare l'attendibilità e costanza nel tempo del metodo?
Se Ti è possibile mettere uno script ( così incomincio a entrare nei meccanismi delle procedure) altrimenti dovrete attendere un bel pò prima che ci riesca da sola ( faccio parte della categoria teste dure di Baffo Blu o dei nuovi analfabeti come dico io paragonabili a quelli che una volta firmavano con la x )
Grazie per

Scusa ma l'ambata é la somma dei due secondi elementi dei due ambi?
e i 2 abbinamenti sono: la somma dei cinque estratti delle due ruote?
Quindi 1 ambata e 2 abbinamenti, perchè hai scritto anche il 3° abbinamento?
...............

 

[Roby]

Questa discussione andrà spostata nella sezione metodi...

 

[donatella]

Ciao Ritchie B.: innanzitutto grazie per la veloce risposta
L'ambata del metodo che vorrei valutare ( i primi riscontri del 2007 - 2008 a campione sono molto buoni e la tendenza sembra confermata da ulteriori test nel 2011) è la distanza uguale riscontrata
Abbinamenti sono : la somma dei cinque estratti sulle due ruote e la somma dei due secondi elementi per un totale di 3 ambi secchi

 

[Roby]

Fallo girare...
Ci vuole un po di tempo per l'elaborazione....

Sub Main()
	Scrivi
	ColoreTesto 1
	Scrivi String(20," ") & "Metodo Ambi Isotopi Stessa Distanza * di Donatella * Listato By Blackmore",1
	ColoreTesto 0
	Scrivi
	Dim ruote(10),ruota(10)
	Dim ambata(1)
	Dim ambo1(2)
	Dim ambo2(2)
	Dim ambo3(2)
	Dim posta(1)
	Dim poste(2)
	posta(1) = 1
	poste(2) = 1
	co = 0
	controllo = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE? ",,500)
	k = CInt(InputBox("PER QUANTI COLPI?",,10))
	fin = EstrazioneFin
	ini = fin - controllo
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					n1 = Estratto(es,r1,p1)
					n2 = Estratto(es,r1,p2)
					r2 = r1 + 1
					If r2 = 11 Then r2 = 12
					For p3 = 1 To 4
						For p4 = p3 + 1 To 5
							n3 = Estratto(es,r2,p3)
							n4 = Estratto(es,r2,p4)
							n5 = distanza(n1,n2)
							n6 = distanza(n3,n4)
							If n5 = n6 And p1 = p3 And p2 = p4 Then
								co = co + 1
								casi = casi + 1
								ColoreTesto 9
								Scrivi String(75,"=") & " caso n° " &(casi),1
								ColoreTesto 1
								Scrivi DataEstrazione(es) & " | " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
								" | ambo | " & Format2(n1) & "." & Format2(n2) & " | Distanza ----> " & Format2(n5)
								ColoreTesto 1
								Scrivi DataEstrazione(es) & " | " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
								" | ambo | " & Format2(n3) & "." & Format2(n4) & " | Distanza ----> " & Format2(n6)
								ColoreTesto 9
								Scrivi String(75,"="),1
								ColoreTesto 0
								ruote(1) = r1
								ruote(2) = r2
								ambata(1) = n5
								ImpostaGiocata 1,ambata,ruote,posta,k,1
								ambo1(1) = n5
								ambo1(2) = Fuori90(SommaEstratti(es,r1))
								ImpostaGiocata 2,ambo1,ruote,poste,k,2
								ambo2(1) = n5
								ambo2(2) = Fuori90(SommaEstratti(es,r2))
								ImpostaGiocata 3,ambo2,ruote,poste,k,2
								ambo3(1) = n5
								ambo3(2) = Fuori90(n2+n4)
								ImpostaGiocata 4,ambo3,ruote,poste,k,2
								Gioca es
							End If
						Next
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub