Per qualche volenteroso.

[claudio8]

x Firefox
l'ultima estrazione in archivio è la stessa per entrambi i programmi?

se tra loro differenzia di 1 il n° dell' estrazione, la cosa dipende da lla famosa estrazione mancante nell'archivio.
Se fai attenzione alle date-range dei 2 output vedi che non coincidono.
Poichè lo script definisce l'inizio ricerca = estraz.finale - (durata periodo = 18 x
quantità periodi = 50) l'ini deve coincidere per forza come data.

Ricontrolla le date inizio e fine archivio impostate sui 2 programmi, l'errore sta lì.
Ciao

 

[firefox]

X Claudio

grazie per la risposta. Hai perfettamente ragione. Esiste la differenza da un archivio all'altro di una estrazione. Una in più per Spaziometria.
Grazie di nuovo e buona giornata.
Francesco

 

[LuigiB]

Ciao Claudio , L'istruzione erase serve per cancellare una matrice o reinizializzarla.
Infatti l'istruzione Erase si comporta in modo differente
se viene applicata ad una matrice fissa piuttosto che ad una dinamica.
Esempio

' matrice fissa

Dim Matrice(10, 2)

Erase Matrice ' ha l'effetto di azzerare i valori contenuti nella matrice [u]MA non libera la memoria</u> quindi tutti gli elementi di 
Matrice sono accessibili anche se dopo erase vengono azzerati

' matrice dinamica

ReDim Matrice(10, 2) ' nota il redim 

Erase Matrice ' ha l'effetto di liberare la memoria quindi tutti gli elementi di Matrice dopo Erase non esistono piu e non sono accessibili
percio la matrice va ridimensionata col redim (come tra l'altro hai fatto)

 

[claudio8]

X Luigi,

grazie dal "mostro"

ciao

 

[aldino]

Un saluto a tutti voi

Farvi i complimenti potrebbe essere riduttivo,ma lasciatemi dire
che vedervi all'opera .....e' veramente godurioso ..passatemi il termine.

Volevo chiedere ,se fosse possibile,di fondere (nulla di piu' appropiato mentre il garbino soffia a 40°c) il listato dell'indice di aspettabilita' pubblicato giorni fa' con questo sopra del frequenti.....

per esempio attualmente avremo su MILANO

CAPOGIOCO 6 E 67 PER MIGLIORE INDICE DI ASPETTABILITA' DELL'ULT. EX
CON ABBINAMENTI DA SCEGLIERE TRA:
Dalla 8404 alla 8422 Num: 45 77 44 29 83 55 27 60 57 75
MI Pres: 04 04 04 03 03 03 03 03 03 02

Dove scarterei i primi tre 45-77-44 numeri gia' usciti 4 volte ed abbinerei 29 83 55 27 60 57 presenti tre volte..

che ne dite????

e scusatemi per l'intromissione.


un saluto a tutti da aldino

 

[Roby]

Ci sono delle piccole(grandi) incongruenze che sarebbe meglio modificare in questo script.

Uso l8+ ma si può modificare anche per Spaziometria già che ci siamo.
---------------------------------------------------------------------

Immettendo la ricerca sul periodo 18 (la ricerca la fà su 19 estrazioni effettive)
Qui la modifica è semplice si mette 17 ed è risolto il problema.

Quello che non riesco è quello di dividere i periodi (l'ultima estrazione dell'antecedente si accavalla con la prima del successivo).

E poi dove c'è la voce ini = fin - 100 (qui bisogna creare il calcolo del multiplo 17, altrimenti non considera le ultime estrazioni uscite se non sono in linea con la moltiplicazione x17) es: ini = fin 102 è un multiplo di 17, così parte(arriva) dall'ultima estrazione uscita.

 

[claudio8]

quote:Originally posted by parmando

Ci sono delle piccole(grandi) incongruenze che sarebbe meglio modificare in questo script.

Uso l8+ ma si può modificare anche per Spaziometria già che ci siamo.
---------------------------------------------------------------------

Immettendo la ricerca sul periodo 18 (la ricerca la fà su 19 estrazioni effettive)
Qui la modifica è semplice si mette 17 ed è risolto il problema.

Quello che non riesco è quello di dividere i periodi (l'ultima estrazione dell'antecedente si accavalla con la prima del successivo).

E poi dove c'è la voce ini = fin - 100 (qui bisogna creare il calcolo del multiplo 17, altrimenti non considera le ultime estrazioni uscite se non sono in linea con la moltiplicazione x17) es: ini = fin 102 è un multiplo di 17, così parte(arriva) dall'ultima estrazione uscita.

Caro Parmabdo
gli errori che tu evidenzi sono tipici degli script che trovi sul web, perchè partono da richieste che poi non vengono verificate dagli stessi richiedenti, ancor meno da chi fa lo script che di solito si adopera solo a sxcrivere quanto richiesto senza verificare gli esiti.
Personalmente ho poco tempo e mi si è anche piantato il Pc, sto collegandomi con un vecchio Pentium 3 ed ho poco tempo da dedicare a quanto richiedi, però vedrò comunque cosa poter fare.



Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[Roby]

grazie mille perl'interessamento.

 

[elephantbig]

quote:Originally posted by LuigiB

a roma se direbbe : me cojoni .... ahahha ... qui ho creato un mostro !!!
Ciao Cloud !

Dalle mie parti si dice " stà minch....! "
Sto Claudio mi sta congelando .
Ho fatto bene a lasciargli il posto di Capoclasse.
Credo che allo stato attuale posso fare il "cancelliere" nel senso che posso porgergli il Cancellino per la lavagna

Ciao Luigi,è sempre un piacere sentirti

 

[Roby]

up, solo per vedere se qualcuno dà un'occhiata al problema da me riscontrato.
ciao

 

[Joe91]

Scusate se mi intrometto ...

ma ci sono errori così diffusi da far apparire "giusto" ...

copiarli e/o ripeterli cosi' come sono, all'infinito.

Con la premessa che ... "il ciclo vuoto" ... NON ESISTE,

Quando scriviamo "UN CICLO DA ZERO A ZERO" viene "ESEGUITO UNA VOLTA".


For X = 0 to 0
K=K+1
Next
Scrivi K

Pertanto quando si scrive :

For EstrazioneFin-100 TO EstrazioneFin

Next

per far calcolare 100 estrazioni ... IN REALTA' ...

le istruzioni SONO QUELLE PER CALCOLARNE 101.

Quindi ... al termine ... quando Es = Fin

e... Es-Fin = ZERO

QUESTO ZERO ... VALE UNO: l' EstrazioneFinale.

Per cui il limite estremo dell'intervallo

che vorremo analizzare è un "MULTIPLO VERO"

del numero di "cicli" ...

mentre l'intervallo -N- di estrazioni

all'interno di ogni ciclo è di "N-1" estrazioni.

Supponiamo di voler avere 54 cicli di 9 estrazioni cadauna.

54*9 = 477

Il nostro piccolo script dovrebbe essere:

Sub main()
Fin = 8438 
Ini = Fin-477
For Es = 0 To 477 step 9
k=k+1
Scrivi Format2 (k) & ") ",0,0 
I = Ini - (Es+8) : F = Ini - Es
Scrivi I &"-"& F
Next
End Sub

E' evidente che, se eseguiamo la differenza ...

(Es+8) - (Es+0) = 8 (e sono i limiti del ciclo)

ma se contiamo sulla punta delle dita, abbiamo ...

es+0 ... 1
es+1 ... 2
es+2 ... 3
es+3 ... 4
es+5 ... 6
es+6 ... 7
es+7 ... 8
es+8 ... 9


Ed in effetti tra "Es" ed "Es+8" ci sono 9 estrazioni ...

ed i nostri intervalli di 9 estrazioni non si accavallano.

Cordiali saluti.

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[Roby]

Claudio se hai risolto i problemi col pc riesci a risolvere i problemi di questo script di cui ti avevo esposto gli errori nei post sopra.

grazie

 

[claudio8]

quote:Originally posted by parmando

Claudio se hai risolto i problemi col pc riesci a risolvere i problemi di questo script di cui ti avevo esposto gli errori nei post sopra.

grazie

Sono anora a piedi, sto scrivendo con un Pc vecchio molto lento.


Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

 

[Joe91]

Propongo l'applicazione di quanto ho esposto precedentemente ...

ovvero il necessario per allineare correttamente gli intervalli.

Sub Main()
	Redim Nu(90,2)
	Dim ru(1)
	Dim nx(1)
	Periodi = 5'<-------------------------numero di periodi 
	Periodo = 18'<-------------------------durata periodo
	ru(1) = InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota
	Fin = EstrazioneFin
	Ini = Fin - (Periodo * Periodi)+1'<-----------------------Tot estr. esaminate
	For Es = Ini To Fin Step Periodo
		AvanzamentoElab ini,fin,es
	            ' Tolto Exit For  (Joe)  
		For x = 1 To 90
			nx(1) = x
			nu(x,1) = x
			nu(x,2) = nu(x,2) + SerieFreq(Es,Es + Periodo-1,nx,ru,1)
		Next
		OrdinaMatrice nu,- 1,2
		For x = 1 To 10
			rig1 = rig1 + Format2(nu(x,1)) & " "
			rig2 = rig2 + Format2(nu(x,2)) & " "
		Next
		Scrivi "Dalla " & Es & " alla " & Es + Periodo-1 & " Num: " & rig1,1
		Scrivi SiglaRuota(ru(1)) & Space(18) & "Pres: " & rig2
		Scrivi
		Redim Nu (90,2)
		rig1 = ""
		rig2 = ""
	Next
End Sub

Cordiali saluti.

Ogni estrazione è unica ed irripetibile. (Joe91)

 

[Roby]

Grazie mille joe