ERRORE NELL'ULTIMA VERSIONE PROGRMMA SPAZIOMETRIA

[vecchione]

CIAO!!!HO NOTATO VOCE STATISTICA,SCELTA AMBI, FORMAZIONI FREQUENTI,IL RITARDO ATTUALE E IL RITARDO MASSIMO SONO COINCIDENTI IL TEST è STATO FATTO CONFRONTANDO CON UN'ALTRO PROGRAMMA,LO STESSO ERRORE SU ESTRATTI AD ATTESA MINIMA SU PIù RUOTE,E IN ALTRE VOCI,CHIEDO A LUIGI SE GENTILMENTE POTESSE CORREGERE QUESTO PICCOLO ERRORE.RINGRAZIO ANTICIPATAMENTE.CIAO!!!

vecchione antonio

 

[LuigiB]

ciao Vecchione mi dispiace non ho piu tempo anche se a dire il vero non mi pare ci siano errori forse ho capito male ad ogni modo devo salutarvi , non ho piu tempo.

 

[vecchione]

CIAO!!! GRAZIE LO STESSO.CIAO!!!

vecchione antonio

 

[vecchione]

ciao!!! cari amici devo ringraziare luigi per l'ultima versione che ha corretto ma si è dimenticato di corregere l'errore che ho fatto notare e che potete notare anche voi.dunque il ritardo attuale è quello che voi vedete ma il massimo ritardo storico che la combinazione ha raggiunto nel passato coincide con il ritardo attuale peccato un programma cosi grande con un piccolo bag da corregere che non è stato corretto nell'ultima versione peccato ma comunque ringrazio lo stesso il mitico luigib.ciao a tutti!!!

vecchione antonio

 

[LuigiB]

ciao vecchione posta una schermata dove si evidenzia l'errore.

 

[vecchione]

ciao!!! grazie pe la correzione ciao!!!

vecchione antonio

 

[vecchione]

ciao!!! causa ripristino computer non ho potuto postare la schermata che penso non c'è ne sia neanche bisogno,infatti è possibile vederlo nel quadro dove si ricavano le combinazioni più frequenti,il ritardo attuale coincide ma il massimo ritardo che la combinazione ci mette in luce non crrisponde.ciao!!!

vecchione antonio

 

[LuigiB]

ciao Vecchione non potresti dirmi almeno il percorso dei menu da cliccare ?
Le frequenze si possono ricavare da varie parti ...

 

[Joe91]

Buon Giorno a Tutte/i.

Nel complimentarmi per il bellissimo programma ...

sperando di fare cosa gradita ed utile,

ho redatto un piccolo script finalizzato ad evidenziare

una anomalia, dopo aver riscontrato che gli "storici"

vengono incrementati già, al loro superamento da parte del Ritardo Corrente ... e non all'estrazione del numero cui appartengono.

'Cerca Storico By Joe V.1.0
Sub Main()
Dim Nu(2),Ru(1)
Nu(1) = InputBox("Primo Numero ?","INSERISCI I NUMERI",8)
Nu(2) = InputBox("Secondo Numero ? ","INSERISCI I NUMERI",12)
Ru(1) = InputBox("Ruota (1=Bari ... 10=Venezia)","INSERISCI LA RUOTA",10)
For Es=1 To 8394 
If Estratto (Es,Ru(1),1)>0 Then
Rit = Rit+1
If SerieFreq(ES,Es,Nu,Ru,2)=1 Then
If Sto =< Rit Then Sto = Rit
Rit = -1 
End If 
End If 
Next 
Scrivi "L'Ambo " & Format2(Nu(1)) & "." & Format2(Nu(2)) ,0,0
Scrivi " a " & NomeRuota(Ru(1)) & " ha i seguenti ritardi : " : Scrivi 
Scrivi FormatSpace (Sto,4,1) & " R.Storico",1 
ATT=SerieRitardo (1,8394,Nu,Ru,2)
Scrivi FormatSpace (ATT,4,1) &" R.Corrente ",1
Scrivi : ColoreTesto 2
Scrivi SerieStorico(1,8394,Nu,Ru,2) & " << R.Storico Calcolato da Spaziometria 1.2.74",1
End Sub

Cordiali Saluti & Complimenti.

& BUON WEEK-END

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[LuigiB]

ciao, grazie per i complimenti , non so se ho capito bene quello che dici , da come
ho capito mi segnali che il ritardo storico si dovrebbe
aggiornare solo quando effettivamente si è stabilizzato e non mentre
è ancora in fase di crescita , il programma nelle varie funzioni di statistica mostra comunque un valore che si chiama IncrementoRitMax che indica da quante estrazioni il rit storico si sta incrementando rispetto a l ritardo storico precedente , penso che se il problema è quello che ho capito io si tratta di un problema di punti vista piu che di un'anomalia un ritardo che cresce e che supera lo storico è comunque un ritardo anche se ancora non si sa di quanto e per questo che l'ho fatto cosi.
Un saluto

 

[Joe91]

Ciao & Grazie per la risposta.

Si è esatto, quello che scrivi. Tutto vero.

Ordunque, se vero, che non sussistono problemi ad intendersi,

tra persone intelligenti, pur tra qualche difficoltà a comprendersi;

ciò non esclude che l'istruzione "SerieStorico"

produce risultati diversi ... in ambienti diversi.

E questo potrebbe ingenerare "errori" in quegli script ...

redatti "prima" della nascita di "Spaziometria"

o quando questi script fossero eseguiti da utenti

non al corrente di come è calcolato lo storico.

Un semplice esempio:

Se in un metodo statistico volessi testare

la validità di porre in gioco i 2 Numeri (Nu) quando

il Ritatardo Attuale (RA) è nell' intorno al Ritardo Storico (RS)

Es: Imposta Giocata se (ABS(RS-RA))/RS =< 0.1

è chiaro che le giocate in Spaziometria non si interromperebbero

appena Superato lo Storico, ma continuerebbero, fino all'estrazione

mentre lo stesso script altrove si comporterebbe differentemente.

Rinnovo i meritatissimi complimenti per tutto l'impegno

dedicato a questo bellissimo lavoro. Dunque, il mio grazie,

anche per l'attenzione a questa mia segnalazione.

Cordiali Saluti.

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[LuigiB]

Ciao Joe , devo dire che gli script redatti prima di spaziometria nessuno garantisce che debbano funzionare (se funzionano bene senno chi è interessato ci mette le mani) , io credo che sia piu giusto cosi ,ad ogni modo sapendo questa peculiarità del programma
è possibile interrompere il gioco quando ritardo corrente e storico si equivalgono.

 

[Joe91]

Ciao Luigi.

Ok ...

hai ragione, basta sapere come stanno le cose,

poi ... con un pò di buona volontà è possibile

ottenere i medesimi risultati pur in presenza di istruzioni differenti.

Allego dunque un semplice script elaborato con Spaziometria V.1.2.74

per la ricerca dell' Ambo Oltre lo Storico su Tutte

completo della simulazione di gioco.

Come unica nota sottolineo che è tipo di calcolo, molto impegnativo,

per il PC, ovvero uno è script molto lento nell'esecuzione.

Cordiali Saluti.

'Ambi Oltre Lo Storico a Tutte v.1.0 / Spaziometria 1.2.74
'Scritto da Joe91 - Alba 28/06/2011
'
Sub Main
Dim Nu(2), Ru(1),Po(5)
Ini=1 : Fin=EstrazioneFin : Ru(1)=11 : Po(2)=1
For Es= Fin-10 To Fin : C=0
Scrivi String (40,"-")
Messaggio Fin-Es
For a = 1 To 89 : Nu(1)=a
For b=a+1 To 90 : Nu(2)=b
OLS=AmboIncrStorico (11,a,b,Ini,Es)
If OLS > 0 Then 
'Scrivi Format2(A) & "." & Format2 (B) & " OLS " & OLS
C=C+1 
ImpostaGiocata C,Nu,Ru,Po,1,2
End If 
Next
Next
Gioca Es 
Next
ScriviResoconto 
	
End Sub

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[LuigiB]

Ciao Joe , grazie per il contributo utilissimo a chi sta imparando
a fare gli script , anzi se ti è possibile intervieni piu spesso perche
qui c'è gente che vorrebbe fare ma che è ancora in fase di apprendimento
perciò tutti quelli che sono un po' piu pratici possono fornire un valido aiuto per gli altri.
In questi script cosi pesanti per il pc conviene sempre mettere
un'istruzione che consente all'utente di agire sul tasto STOP.
Da quanto mi risulta lottodesk non ha questa possibilita , in spaziometria c'è percio si puo usare.
Inoltre la funzione AmboStorico potrebbe essere sostituita da un'altra
funzione che ho inserito remmata nello script allegato.
Eventualmente per vedere con quale delle 2 funzioni va piu veloce
ho anche implementato il calcolo del tempo di elaborazione.
Riguardo invece il problema di cui parlavamo devo dire che pur rendendomi conto che altri software lo iimplementano diversamente
sono sempre convinto che se l'ultimo ritardo storico conosciuto
è attualmente in fase di superamento ormai non ha piu senso mostrare
quello vecchio perche è sicuro che si è incrementato , certo non si sa ancora di quanto ma sapere che è comunque superiore al vecchio ritardo per me è un'informazione importante.

Ciao !

Allego lo script con le piccole modifiche che ho fatto

Sub Main
	Dim Nu(2),Ru(1),Po(5)
	Ini = 1
	Fin = EstrazioneFin
	Ru(1) = 11
	Po(2) = 1
	
	nStart = Timer
	
	For Es = Fin - 10 To Fin
		C = 0
		Scrivi String(40,"-")
		Messaggio Fin - Es
nAmbiFatti =0
		For a = 1 To 89
			Nu(1) = a
			For b = a + 1 To 90
				Nu(2) = b
				OLS = AmboIncrStorico(11 ,a,b,Ini, Es)
				'Call StatisticaFormazione ( Nu ,Ru ,2  ,0 ,0, ols,0, Ini , es)
				If OLS > 0 Then
					'Scrivi Format2(A) & "." & Format2 (B) & " OLS " & OLS
					C = C + 1
					ImpostaGiocata C,Nu,Ru,Po,1,2
				End If
				nAmbiFatti = nAmbiFatti +1 
				Call AvanzamentoElab (1,4005 , nAmbiFatti)
				If ScriptInterrotto Then Exit For 

			Next
		Next
		Gioca Es
		nfatte = nfatte +1
		Call AvanzamentoElab (1,11 , nFatte)
		If ScriptInterrotto Then Exit For 
	Next
	
	
	ScriviResoconto

	nEnd = Timer
	
	Call Scrivi ("Tempo di elaborazione : " & FormattaSecondi ((nend+1) - nstart))
End Sub

Function FormattaSecondi(s )  
    'Questa Function trasforma il numero di secondi passato come parametro in una stringa
    ' passando i secondi si ottengono ore  minuti e secondi  in formato hh:mm:ss
    ' s ---> Numero di secondi da formattare
    ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
    Dim hh  
    Dim Mm  
    Dim Ss 
    Dim TimeStr  
    
    hh = s \ 3600
    Mm = (s Mod  3600) \  60
    Ss = s - ((hh *  3600) + (Mm *  60))
    TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
    FormattaSecondi = TimeStr

End Function

 

[vecchione]

<center>ciao luigib!!! dunque mi scuso per la mia male interpretazione riguaardo al massimo ritardo che io intedevo errato solo perchè non coincideva il massimo storico verificando con un'altro programma,dunque da come ho potuto capire è una condizione sul massimo storico innovativa ed essendo tale non potevo sicuramente arrivare a capirla mi scuso di nuovo non essondoci l'help in questo magnifico programma è facile incappare a fraintendere le cose comunque grazie per tutto il magnifico e professinale lavoro eseguito per tutti noi che facciamo parte di questo splendido forum .ciao e grazie di cuore !!!</center>

vecchione antonio