SPAZIOMETRIA di Luigi e Baffoblu 17° POST

[silop2005]

Ciao LuigiB,
visto che ci sono ancora -Lavori in corso- di aggiustamento,
ti segnalo che per il 10elotto 5M i cursori delle fasce orarie (1 a 204)
non si riescono a posizionare sugli indici pari.
cliccando una sola volta sia sulla freccia che va da 1 in giù
e sia cliccando una sola volta sulla freccia che va da 204 in su
automaticamente si sposta di DUE posizioni.

esempio

se faccio l'elaborazione con gli indice dispari
da 1 a 1 oppure da 5 a 5 … ecc… questo è possibile
da 1 a 3 oppure da 5 a 7 … ecc… questo è possibile
da 1 a 5 oppure da 11 a15 ecc… questo è possibile

se invece voglio fare l'elaborazione con gli indici PARI

da 2 a 2 oppure da 8 a 8 oppure 22 a 22 … ecc… questo NON è possibile
da 1 a 2 oppure da 5 a 6 … ecc… questo NON è possibile
da 2 a 5 oppure da 12 a15 ecc… si sposta di due posizioni
e diventa da 3 a 5 oppure da 13 a 15

Sperando di aver spiegato nel miglior dei modi il problemino,
auguro un buon pomeriggio a te e a tutto il forum.

Saluti
Silop

 

[imported_n/a]

quote:Originally posted by ok coral

cebino ce la fai a darmi una risposta nella sezione "giochi numerici"

anche keeper è interessato

grazie il post è "X cebino lottolive"


PS. in seguito ho capito che lottolive e Pool42 sono due cose diverse

comunque mi interessano tutte e due

ok coral

Ok coral scusami vai a leggere su "giochi numerici"

 

[Roby]

ho una segnalazione da fare, non so se è un problema solo mio o meno, ma quando faccio
statistica
ambi
filtro ambo
inserisco 4-5-40 e chiedo esegui

non mi esce nessun dato.


chi può verificare per cortesia??




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

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

 

[superbone]

Ciao rubino
Premetto che non ho dimestichezza con il programma spaziometria, comunque prova a dare qualche valore ai minimo e massimo delle tabelle, qualcosa viene fuori.
Ho la versione 1.2.3

 

[silop2005]

Ciao LuigiB,
oggi ho scaricato la Versione 1.2.4
grazie per gli aggiustamenti ma…
...se si analizzano le sorti fisse (secche), l'estratto, ambo secco, terno secco, quaterna secca, ecc....
con la funzione FORMAZIONI non funzionano nè al 10elottoTRADe nè al 10elotto 5M vengono riportate le combinazioni richieste,
ma nelle colonne viene riportato il totale delle estrazioni e tutti zeri in Fre e IC
invece dei giusti calcoli dei ritardi att e max ecc…

Mentre per la funzione FORMAZIONI VELOCI funziona tutto bene (anche per le sorti secche)
(colgo l'occasione per chiedere, se possibile, poter trasportare in excel anche l'elaborazione della tabellina ELENCO USCITE).

Alcune domande :

1)Dopo aver trasportato l'intero archivio in excel non riesco ha fare la somma (o altre operazioni) con i valori delle celle (sommare la colonna dei pari), perché?

2) Poi a cosa serve l'imbuto anche sulla barra del 10elotto ?
3) A cosa serve la funziona TRONCA ARCHIVIO?

4)A riguardo delle 23 estrazioni del passato ( che non sono state aggiunte, forse non è possibile metterle?),
io ti consiglierei di metterle nella tabella ELENCO NON VALIDE ( ho specificato, anche i giusti progressivi</u>, vicino ad ognuna)
che poi le inserisco con la procedura manuale nell'archivio generale.

<center>I lavori in corso continuano …</center>

Saluti

Silop
PS
10elotto 5M - Le fasce orarie - by Silop

un piccolo test previsionale elaborato con la vers. 1.2.3
Ambo secco nn. 15 - 55
premio € = 7,00
da controllare per 7/9 colpi
controllo del solo giorno 27/02/2011 (domenica)
per le sole estrazioni dalle ore 07:55 alle ore 08:35
per i solo indici dal n. 11 al n. 19 (in totale 9 clp)
se l'ambo secco non sorte in queste 9 estrazioni di domenica,
si abbandona.

è un test di prova.

 

[peppe60]

secondo me questo 10 e lotto ogni 5 minuti su un programma cosi' bello grazie al sig. luigi , non serve a niente ,
appesantisce il programma posso capire il 10 e lotto normale ,ma li si puo' fare una statistica , ciao ci sono tante funzioni belle ciao

 

[LuigiB]

grazie Silop hai ragione sulle formazioni non mi ero accorto ...
peppe probabilmente ha ragione ormai l'ho messo sto 10 e lotto 5 min quindi proseguiamo ...ciao !

 

[LuigiB]

...se si analizzano le sorti fisse (secche), l'estratto, ambo secco, terno secco, quaterna secca, ecc....
con la funzione non funzionano

Correzione gia fatta visibile in prossimo agg


Mentre per la funzione FORMAZIONI VELOCI funziona tutto bene (anche per le sorti secche)
(colgo l'occasione per chiedere, se possibile , poter trasportare in excel anche l'elaborazione della tabellina ELENCO USCITE).

la tabellina che dici cambia in funzione della combinazione selezionata percio non è facile esportarla nel senso che bisognerebbe creare un foglio excel interattivo dove cliccando la combinazione principale riporterebbe al foglio delle sue uscite.


1)Dopo aver trasportato l'intero archivio in excel non riesco ha fare la somma (o altre operazioni) con i valori delle celle (sommare la colonna dei pari), perché?

probabilmente basta impostare il formato numerico sulle colonne prima
di fare le somme comunque ora vedo se posso farlo automaticamente


2) Poi a cosa serve l'imbuto anche sulla barra del 10elotto ?

L'imbuto serve per filtrare ulteriornente le estrazioni in base agli stessi parametri che si usano nel lotto ricordati che le funzioni del 10 e lotto valgono sia per il 10 e lotto 5 min ma anche per quello normale


3) A cosa serve la funziona TRONCA ARCHIVIO?

Il problema delle estrazioni doppie l'ho risolto pero mi era servita una funzione per eliminare dall'archivio le estrazioni da un certo punto in poi (il punto del doppione) , ho pensato di lasciare questa funzione in modo che possa essere riadoperata in caso di necessita.


4)A riguardo delle 23 estrazioni del passato ( che non sono state aggiunte, forse non è possibile metterle?),
io ti consiglierei di metterle nella tabella ELENCO NON VALIDE ( ho specificato, anche i giusti progressivi</u>, vicino ad ognuna)
che poi le inserisco con la procedura manuale nell'archivio generale.


.con tutte le estrazioni che genera il dieci e lotto 5 min penso che se pure dovessero mancare quelle 20 righe non costituirebbe un problema , se io avessi iniziato a lavorare a queste funzioni del 10 e lotto una settimana dopo ci sarebbero state altre estrazioni mancanti (visto che la lottomatica mette a disposizione solo le estr degli ultimi 60 giorni) quindi essendo tutto relativo e per evitarmi sbattimenti ho soprasseduto.


Ciao al prossimo agg !

 

[silop2005]

Ciao LuigiB,
grazie per le risposte e le modifiche che farai con il prossimo aggiornamento.
Per quanto riguarda la 4° domanda, hai ragione </u> è inutile sbattersi più di tanto vista la enorme massa di estrazione che abbiamo e che avremo in futuro.

Anche la lotteria 10elotto normale (e non solo) ha bisogno di qualche aggiustamento (secondo le mie verifiche)
per poter fare delle ricerche statisticamente attendibili.

Ho fatto dei controlli veloci con due archivi con inizio uguale dal 05/01/1945 e ho riscontrato quanto segue:

L'estrazione 10/06/1961 non è stata effettuata sulle 10 ruote classiche.
L'archivio del 10elotto TRAD la riporta ma è una ripetizione del gg. 05/06/1961, e deve essere tolta.

Ci sono ulteriori aggiustamenti/errori (anche nell'archivio del lotto classico) che comunicherò prossimamente (controllerò dal 1871).
<center>I lavori in corso continuano …</center>

Saluti

Silop
PS
10elotto 5M - Le fasce orarie - by Silop
il test di prova è risultato POSITIVO al primo colpo.
Ambo secco nn. 15 - 55
sortito all' undicesisima estrazione del 27/02/2011 ore 07:55
dei 7/9 colpi preventivati.
11-27/02/2011- 07:55 - 2 3 10 14 15 23 27 30 35 43 44 48 55 63 66 73 77 81 85 89
… al prossimo test sperimentale.

 

[claudio8]

X Luigi, riprendo quanto chiestoti precedentemente,

"Voglio farti notare che nella sez. script, il nuovo tasto MULTISCRIPT, ha ridotto la larghezza della riga indicante l'indirizzo del file script che in esecuzione,
piochè i percorsi sono generalmente lunghissimi, essi si leggono parzialmente, inoltre ha completamente escluso la possibilità di lettura del n° di riga e posizione del cursore in basso a dx, che è utilissimo per la ricerca di errori.
Nello specifico del mio portatile 17"- con XP, la sua larghezza del tasto in questione non contiene tutto il testo "MULTUSCRIPT" bensì "ULTISCRIP"."

e Ti aggiungo quanto segue.

Vorrei sapere se è possibile modificare la funzione "SerieFreq(es,ess,num,r1,6)" in modo che possa considerare anche le sorti da 6 a 10 per estratto determinato invece dell'attuale da ambata a cinquina.

Il tutto, tempo ed impegni permettendo.

Ps: per quanto riguarda lo script, sto cercando di risolvere il tutto con un nuovo script che aggiri l'ostacolo.

ciao

claudio

 

[LuigiB]

ciao nella versione diponibile ora quel problema dovrebbe essere risolto
riguardo la modifica della funzione seriefreq ok

 

[silop2005]

LuigiB ... sei BRAVISSIMO eheheheheh


<center>GRAZIE GRAZIE GRAZIE </center>

Saluti
Silop

 

[maumau]

Ciao luigi, volevo chiederti se era possibile inserire un filtro per poter fare statistica solo sulle estrazioni di una determinata ora al 10eLotto 5 minuti. Ad esempio solo su tutte le estrazioni delle ore 12.00 oppure solo su quelle delle 18.25.
Grazie per tutto

"Solo chi non osa non vola"

 

[claudio8]

quote:Originally posted by LuigiB

ciao nella versione diponibile ora quel problema dovrebbe essere risolto
riguardo la modifica della funzione seriefreq ok

Ti ringrazio e scarico. Ciao

claudio

 

[maumau]

quote:Originally posted by maumau

Ciao luigi, volevo chiederti se era possibile inserire un filtro per poter fare statistica solo sulle estrazioni di una determinata ora al 10eLotto 5 minuti. Ad esempio solo su tutte le estrazioni delle ore 12.00 oppure solo su quelle delle 18.25.
Grazie per tutto

"Solo chi non osa non vola"

[:I]ooops...vista, già c'è

grazie

"Solo chi non osa non vola"

 

[claudio8]

X Tutti quelli che vogliono utilizzarlo

'Su una base di Ramco - ricerca dopo un "DETERMINATO EVENTO" i numeri più frequenti entro "X" colpi su 2 diverse ruote  e diverse estrazioni
'Ramco 29/01/2011 x Lones 

Sub Main()
	Dim num1(90,8),num2(90,8),numt(90,8),nu(1),rg1(1),rg2(1)
	Dim r1,sp1,p1,cs1,colpi,kl
	Dim r2,p2,a,b,passo
	Dim rr,r
	r = CInt(InputBox("SPECIFICA LA 1a RUOTA DI GIOCO ?","1a RUOTA GIOCO",1))
	rg1(1) = r
	rr = CInt(InputBox("SPECIFICA LA 2a RUOTA DI GIOCO ?","1a RUOTA GIOCO",10))
	rg2(1) = rr
	r1 = CInt(InputBox("RUOTA DI SORTITA 1a SPIA " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","1a RUOTA - SPIA 1",1)) ' 9 = TO
	p1 = CInt(InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & FormatSpace(NomeRuota(r1),7,- 1) & " (1.2.3.4.5)","POSIZ. 1a SPIA",4))
	r2 = CInt(InputBox("RUOTA DI SORTITA 2a SPIA " & Chr(13) & Chr(13) & "( 1 Ba.   2 Ca.   3 Fi.     4 Ge. )" & Chr(13) & _
	"( 5 Mi.    6 Na.  7 Pa.    8 Ro. )" & Chr(13) & "( 9 To. 10 Ve. 11 TT. 12 Naz.)","2a RUOTA - SPIA 2",10))' 10 = VE
	p2 = InputBox("POSIZIONE ESTRATTO RUOTA di" & Chr(13) & Chr(13) & FormatSpace(NomeRuota(r2),7,- 1) & " (1.2.3.4.5)","POSIZ. 2a SPIA",3)' 3 = 3° estratto
	passo = CInt(InputBox("DISTANZA NEGATIVA TRA ESTRAZIONI DI RILEVAMENTO SPIA ?","DISTANZA ESTRAZIONI ",0))'2
	cs1 = CInt(InputBox("QUANTI CASI SPIA/E ANALIZZIAMO ?","NUMERO CASI-SPIA",7))
	colpi = InputBox("Quanti colpi successivi?","ANALISI COLPI",5)
	kl = CInt(InputBox("L'ananlisi dei frequenti, vuoi che comprenda l'estrazione di rilevamento? (0=SI 1=NO)","ANALISI ESTR.",1))
	
	'CREO UNA matrice-Tabella con tutti i numeri i che va da 1 a 90 e con y che va dalla 2a alla 8a colonna
	For i = 1 To 90
		For y = 2 To 8
			num1(i,1) = i 	' numero1 i, 1 da usare per la 1a ruota
			num1(i,y) = 0	' numero1 i, y
			num2(i,1) = i	' numero2 i, 1 da usare per la 1a ruota
			num2(i,y) = 0
			numt(i,1) = i	' numerot i, 1 da usare per la somma delle 2 ruote
			numt(i,y) = 0
		Next
	Next
	' Comincio con la ricerca del n.  casi da rintraccire "cs1"
	cc = 0						' imposto il contatore casi = 0
	tmp1 = 0						' totale-meno-posizione1 riferito alle estrazioni
	For es = EstrazioneFin To 1 Step - 1 	' legge le estrazioni dall'ultima alla 1a e si  ferma quando ha trovato il n. casi richiesti e rileva il tmp1
		a = Estratto(es,r1,p1) 			' definisco gli estratti da trovare
		b = Estratto(es - passo,r2,p2) 	' con l asottrazione del passo, è possibile considerare posizioni anche su estrazioni diverse (a ritroso)
		If a = b Then 				' numeri uguali nelle posizione di ricerca  a = b
		cc = cc + 1				'cc = cc + 1 Incrementa il contatore dei casi
		If cc = cs1 Then 			'se  cc = cs1 allora  - se il contatore casi = cs1(numero casi richiesti) allora
		tmp1 =(EstrazioneFin - es) 		' tmp1 = (estraz fin-es)  totale-meno-posizione1 riferito alle estrazioni
	End If
End If
Next
ini1 = EstrazioneFin - tmp1 			' inizio estrazioni = ultimo caso a ritroso = estrazione finale - tmp1
fin = EstrazioneFin
'								' COMINCIAMO A SCRIVERE L'OUTPUT
' 								'TABELLA FREQUENTI X 1a RUOTA DOPO FORMAZIONE SPIA
Scrivi " Analisi dal " & DataEstrazione(ini1) & " al " & DataEstrazione(fin) & " trovati n° " & cs1 & " casi",1
Scrivi "................ ELENCO DEI CASI RILEVATI ..................."
co = 0			' imposto il contatore casi = 0
For es = ini1 To fin
	Messaggio " Formazione Spia: " & FormatSpace(NomeRuota(r1),4,- 1) & "-" & FormatSpace(NomeRuota(r2),4,- 1) & " Estrazione : " & es 'messaggio in  esecuzione script
	a = Estratto(es,r1,p1) 'TO4 VE3
	b = Estratto(es - passo,r2,p2)
	If a = b Then 					'se trova i  Numeri uguali nelle ruote e posizioni di ricerca
	co = co + 1 				' incremento il contatore e scrivo
	Scrivi Format2(CInt(co)) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "  |" & Format2(a) & " - " & Format2(b) & "|   " & SiglaRuota(r2) & " " & StringaEstratti(es - passo,r2)
	ess = es + colpi

 

[imported_n/a]

quote:Originally posted by LuigiB

ciao nella versione diponibile ora quel problema dovrebbe essere risolto
riguardo la modifica della funzione seriefreq ok

Ciao Luigi verifica questo problema quando hai tempo
posizionati sull'archivio lotto5M, e vau nella sezione "Ricerca sequanza numeri". Puoi notare che se scorri tra i numeretti,gemelli, zerati ect, si evidenzia da solo delle formazioni strane ti allego l'immagine di uno specifico caso.

 

[LuigiB]

per Rubino

Tempo fa mi avevi chiesto di un cerchio ... ti posto uno script che puo servirti sicuramente come punto di partenza.
N.B. Funziona con l'ultima versione disponibile 1.2.7

Option Explicit
Dim aPos(360,2) ' memorizza le coordinate relative ai 360 gradi serve per poter disegnare le corde
Sub Main
	Dim nRaggio ' raggio ddel cerchio
	Dim cX,cY  ' centro del cerchio x e y
	Dim Base,Altezza ' dimensioni area disegno
	Dim Angolo ' gestisce il ciclo per disegnare il cerchio
	Dim pi ' pigreco
	Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
	Dim cLung ' distanza per stampare i gradi
	Dim k ' ciclo generico
	
	
	
	cLung = 2
	pi = 3.14
	Base = 150
	Altezza = 150
	nRaggio = 60
	' preimposto le dimensioni dell'area
	Call PicSetDimensioni(Base,Altezza,Base,Altezza) 
	' calcolo il centro del cerchio
	cX = Base / 2
	cY = Altezza / 2
	
	' ciclo per disegnare i semiraggi
	For Angolo = 0 To 360
		
		' calcolo cordinate per il segmento raggio
		x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
		y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
		
		' memorizzo nell'array globale le coordinate appena calcolate 
		' cosi potranno essere riusate per disegnare le corde
		aPos(Angolo,1) = x1
		aPos(Angolo,2) = y1
		
		
		If Angolo Mod 5 = 0 Then
			' ogni 5 gradi disegno un semiraggio un po' piu lungo
			' e stampo i gradi in corripondenza
			If Angolo <> 0 Then
				x2 = cX +((nRaggio + cLung*3) * Cos(- Angolo *(pi / 180)))
				y2 = cY +((nRaggio + cLung*3) * Sin(- Angolo *(pi / 180)))
		
				Call PicLinea(x1,y1,x2,y2)
				x2 = cX +((nRaggio + cLung*4) * Cos(-(Angolo + 2) *(pi / 180)))
				y2 = cY +((nRaggio + cLung*4) * Sin(-(Angolo + 2) *(pi / 180)))

				
				Call PicStampaTestoRT(x2,y2,Angolo,Angolo)
				
				
			End If
			

		Else
			' disegno il semiraggio 
			x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
			y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
			Call PicLinea(x1,y1,x2,y2)
		End If
		
		
		
		


		
		
	Next
	
	' come esempio disegno un poligono di lato 20 
	For k = 0 To 340 Step 20
		Call DisegnaCorda(k,k + 20,vbRed)
	Next
	
	' mostro la figura in output
	Call PicEsegui
	
End Sub

Sub DisegnaCorda(p1,p2,colore)
	' p1 e p2 sono i gradi a cui si riferiscono inizio e fine della corda
	
	
	'Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
	Call PicLinea(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
	

	Call PicPunto(aPos(p1,1),aPos(p1,2),6,vbRed)
	Call PicPunto(aPos(p2,1),aPos(p2,2),6,vbRed)
	

End Sub

 

[peppe60]

ciao luigi

non capisco perche' gli ultimi aggiornamenti dopo la 1.2.3
mi da dopo averlo installato senza nessun errore , clicco x lanciare il
programma
mi esce questo errore
triangolo giallo con punto esclamativo errore di run-time '9'
indice non compreso nell'intervallo
ciao

 

[LuigiB]

Ciao , forse ti è capitata la stessa cosa di Solare , cancella la cartella datiapplicazioni/spaziometria (se non vuoi perdere le cose ivi contenute fanne prima una copia.)