Novità

Per qualche volenteroso.

Z

Zagor

Advanced Member >PLATINUM<
Salve , mi servirebbe un listato che calcoli a mio piacimento (cioè impostabile in apertura) quali numeri sono usciti 1.2.3 etc volte (impostabile) su una ruota (impostabile) nell'arco di di 4.5.6.7.8.9 etc, (impostabile) estrazioni.
Io non saprei nemmeno da che parte iniziare.

Grazie a tutti.:):):)

Un saluto e buona giornata.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
Ciao
Quessto è un listato del bravissimo Roberto (ROBYCA). Potrebbe essere un inizio.
Una volta inserita la ruota da ricercare il listato riporta i 10 numeri + frequenti con le relative presenze su quella ruota.
Eccoti l'output di cosa fa questo listato di Robyca:

Dalla 8317 alla 8335 Num: 48 26 38 46 17 57 85 88 28 31
Ba Pres: 04 03 03 03 03 03 03 03 02 02

Dalla 8335 alla 8353 Num: 16 84 86 44 15 19 88 20 21 23
Ba Pres: 04 04 04 03 03 03 03 02 02 02

Dalla 8353 alla 8371 Num: 41 05 35 11 61 18 27 30 34 01
Ba Pres: 05 04 03 03 03 02 02 02 02 02

Dalla 8371 alla 8389 Num: 14 20 28 30 38 69 12 01 33 35
Ba Pres: 03 03 03 03 03 03 02 02 02 02

Dalla 8389 alla 8407 Num: 10 14 30 25 23 37 44 73 26 28
Ba Pres: 04 04 04 03 03 03 03 03 02 02


Sub main()
Dim nu(90,2)
Dim ru(1)
Dim nx(1)

periodo=18'<-------------------------durata periodo
ru(1)=InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota

fin=EstrazioneFin
ini=fin-100'<-----------------------Tot estr. esaminate
For es=ini To fin step periodo
AvanzamentoElab ini,fin,es
If es+periodo>fin Then Exit For

For x=1 To 90
nx(1)= x
nu(x,1) = x
nu(x,2) = nu(x,2) + SerieFreq(es,es+periodo,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&" Num: "&rig1,1
Scrivi SiglaRuota(ru(1))& Space(20)&"Pres: "&rig2
Scrivi
Erase nu
rig1=""
rig2=""

Next
End Sub


ciao da Francesco
 
Grazie Francesco , lo script va benissimo , è proprio ciò che cercavo.:):):)

Un saluto e buona giornata.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
quote:Originally posted by firefox

Ciao
Quessto è un listato del bravissimo Roberto (ROBYCA). Potrebbe essere un inizio.
Una volta inserita la ruota da ricercare il listato riporta i 10 numeri + frequenti con le relative presenze su quella ruota.
Eccoti l'output di cosa fa questo listato di Robyca:

Dalla 8317 alla 8335 Num: 48 26 38 46 17 57 85 88 28 31
Ba Pres: 04 03 03 03 03 03 03 03 02 02

Dalla 8335 alla 8353 Num: 16 84 86 44 15 19 88 20 21 23
Ba Pres: 04 04 04 03 03 03 03 02 02 02

Dalla 8353 alla 8371 Num: 41 05 35 11 61 18 27 30 34 01
Ba Pres: 05 04 03 03 03 02 02 02 02 02

Dalla 8371 alla 8389 Num: 14 20 28 30 38 69 12 01 33 35
Ba Pres: 03 03 03 03 03 03 02 02 02 02

Dalla 8389 alla 8407 Num: 10 14 30 25 23 37 44 73 26 28
Ba Pres: 04 04 04 03 03 03 03 03 02 02


Sub main()
Dim nu(90,2)
Dim ru(1)
Dim nx(1)

periodo=18'<-------------------------durata periodo
ru(1)=InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota

fin=EstrazioneFin
ini=fin-100'<-----------------------Tot estr. esaminate
For es=ini To fin step periodo
AvanzamentoElab ini,fin,es
If es+periodo>fin Then Exit For

For x=1 To 90
nx(1)= x
nu(x,1) = x
nu(x,2) = nu(x,2) + SerieFreq(es,es+periodo,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&" Num: "&rig1,1
Scrivi SiglaRuota(ru(1))& Space(20)&"Pres: "&rig2
Scrivi
Erase nu
rig1=""
rig2=""

Next
End Sub


ciao da Francesco
Clicca per espandere...
Ciao francesco a me non funziona si blocca qui "nx(1)= x"
9- indice non incluso nell'intervallo: 'nu'
ma Zagor l'ha provato?
 
Ciao Fillotto , quello che asserisci è esatto , infatti su Spaziometria mi da errore come il tuo , mentre su L8 gira perfettamente (bohhh).

Un saluto e buona giornata.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
 
quote:Originally posted by Zagor

Ciao Fillotto , quello che asserisci è esatto , infatti su Spaziometria mi da errore come il tuo , mentre su L8 gira perfettamente (bohhh).

Un saluto e buona giornata.

Mauro

I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati. (Albert Einstein)
Clicca per espandere...
Qualcuno lo può "adattare" a spaziometria ?
Mi sono ricordato una cosa se si mette un apice all'istruzione
'OrdinaMatrice nu,-1,2
funziona!!! ,,, evidentemente Luigi l'ha programmato in questa maniera:D:D
 
purtoppo non funziona o meglio non funziona come indicato da francesco con quella modifica prende i numeri da 1 a 10 e e sotto mette le frequenze di questi numeri x ciascun ciclo di 18 ho provato
ad applicare come suggerisce il test di spaziometria ma mi so perso
ecco l'output tranne il primo ciclo viene tutto sballato:
Dalla 8318 alla 8336 Num: 48 38 17 26 46 88 85 57 28 31
BA Pres: 04 03 03 03 03 03 03 03 02 02
Dalla 8336 alla 8354 Num: 16 01 08 15 05 19 02 04 21 44
BA Pres: 06 05 05 05 05 05 05 05 04 04
Dalla 8354 alla 8372 Num: 05 01 06 11 41 03 04 02 15 27
BA Pres: 09 08 07 07 07 07 06 06 05 05
Dalla 8372 alla 8390 Num: 01 05 06 14 02 03 04 12 20 10
BA Pres: 11 08 08 08 08 08 08 07 07 07
Dalla 8390 alla 8408 Num: 01 10 06 14 23 30 04 05 15 37
BA Pres: 12 11 10 10 09 09 09 09 08 08

Mi piacerebbe che qualcuno spiegasse xchè
 
Ciao fillotto
mi dispiace ma in Spaziometria non funziona. Bisogna chiedere a qualcuno più in gamba.
In Lottodesk funziona, in Spaziometria mi riporta l'errore che tu dici.
Bisogna vedere come funge Ordinamatrice in Spaziometria. Io non saprei in tutta onestà.
Ciao da Francesco
 
RAGAZZI, L'ERRORE NON STA IN ORDINA MATRICE, BENSI' qui "nx(1)= x"
9- indice non incluso nell'intervallo: 'nu'.
Occorre capirne il perchè anche se mi sembra tutto ok.
Vi faccio sapere appena riesco, se riesco.
In alternativa provate ad interpellare Rubino.
Ciao
 
provate cosi a me funziona.


Sub Main()
Dim nu(90,2)
Dim ru(1)
Dim nx(1)

periodo=18'<-------------------------durata periodo
ru(1)=InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota

fin=EstrazioneFin
ini=fin-100'<-----------------------Tot estr. esaminate
For es=ini To fin Step periodo
AvanzamentoElab ini,fin,es
If es+periodo>fin Then Exit For

For x=1 To 90
nx(1)= x
nu(x,1) = x
nu(x,2) = nu(x,2) + SerieFreq(es,es+periodo,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&" Num: "&rig1,1
Scrivi SiglaRuota(ru(1))& Space(20)&"Pres: "&rig2
Scrivi

rig1=""
rig2=""

Next
End Sub
 
c'è diversita di output tra lottodesk e spaziometria

LOTTODESK
Dalla 8319 alla 8337 Num: 17 26 46 48 57 85 88 15 01 05
Ba Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8337 alla 8355 Num: 15 16 86 84 19 05 20 21 22 23
Ba Pres: 04 04 04 03 03 02 02 02 02 02

Dalla 8355 alla 8373 Num: 41 05 11 01 61 62 73 34 35 37
Ba Pres: 05 04 03 03 03 03 03 02 02 02

Dalla 8373 alla 8391 Num: 14 20 28 30 38 69 77 26 06 10
Ba Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8391 alla 8409 Num: 14 10 30 23 25 15 44 57 73 28
Ba Pres: 05 04 04 03 03 03 03 03 03 02

SPAZIOMETRIA
Dalla 8319 alla 8337 Num: 46 26 17 48 88 85 57 31 58 28
BA Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8337 alla 8355 Num: 15 16 05 19 02 04 22 21 20 23
BA Pres: 06 06 05 05 05 05 04 04 04 04

Dalla 8355 alla 8373 Num: 05 01 06 41 11 02 03 04 13 30
BA Pres: 09 09 07 07 07 07 07 06 05 05

Dalla 8373 alla 8391 Num: 01 05 06 02 04 03 30 12 20 14
BA Pres: 11 09 09 09 08 08 07 07 07 07

Dalla 8391 alla 8409 Num: 14 01 10 04 30 15 02 06 05 03
BA Pres: 12 12 11 11 09 09 09 09 09 09
 
Dovrebbe essre giusto.
Provate a confrontare l'uotput dei 2 programmi

Vi faccio notare che i riferimenti numerici delle estrazioni di Spaziometria differenziano di 1 da L8+

Codice: 
Sub Main()
	ReDim nu(90,2)
	Dim ru(1)
	Dim nx(1)
	periodo = 18'<-------------------------durata periodo
	ru(1) = InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota
	fin = EstrazioneFin
	ini = fin - 100'<-----------------------Tot estr. esaminate
	For es = ini To fin Step periodo
		AvanzamentoElab ini,fin,es
		If es + periodo > fin Then Exit For
		For x = 1 To 90
			nx(1) = x
'Scrivi  x & " - " & fr 
			nu (x,1)  = x
			nu (x,2)  = nu (x,2) +  SerieFreq(es,es + periodo,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 & " Num: " & rig1,1
		Scrivi SiglaRuota(ru(1)) & Space(18) & "Pres: " & rig2
		Scrivi
		ReDim nu(90,2)
		'Erase nu ' funzione inesistente su spaziometria
		rig1 = ""
		rig2 = ""
	Next
End Sub

Ciao
 
1) per chi inserisce i dati di output o il listato, occorrerebbe uscare il tasto "cancelletto" insert code cioè [cod] zona di inserimanto codice (output o listato)[/cod-], in questo modo il testo viene riprodotto cosi come si vede su spaziometria, con la stessa formattazione.
esempio:
Codice: 
in questo modo il testo viene riprodotto cosi come si vede su spaziometria, con la stessa formattazione

2) come detto prima i numeri riferiti alle estrazioni es: 8419 per spaziom. si riferisce alla estrazione ultima, mentre lo stesso numero x L8+ si riferisce o alla precedente o alla prossima... chi ha entrasmbi i programmi può verificarlo. questo potrebbe essere il motivo delle differenze di output.

Provate con il mio script postatovi prima

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Vi riposto lo script completo di data inizio e fine step (18 estraz.) riferita ai numeri delle estrazioni.

Codice: 
Sub Main()
	ReDim nu(90,2)
	Dim ru(1)
	Dim nx(1)
	periodo = 18'<-------------------------durata periodo
	ru(1) = InputBox("Inserisci la ruota:",,1)'1'<----------------------------ruota
	fin = EstrazioneFin
	ini = fin - 100'<-----------------------Tot estr. esaminate
	For es = ini To fin Step periodo
		AvanzamentoElab ini,fin,es
		If es + periodo > fin Then Exit For
		For x = 1 To 90
			nx(1) = x
'Scrivi  x & " - " & fr 
			nu (x,1)  = x
			nu (x,2)  = nu (x,2) +  SerieFreq(es,es + periodo,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 & " Num: " & rig1,1
		Scrivi "Dalla " & DataEstrazione (es) & " alla " & DataEstrazione (es + periodo),1

		Scrivi SiglaRuota(ru(1)) & Space(18) & "Pres: " & rig2
		Scrivi
		ReDim nu(90,2)
		'Erase nu
		rig1 = ""
		rig2 = ""
	Next
End Sub
 
bravo claudio8
gli output ora sono questi
differenziano in qualche numero
le presenze sono ok
ciao


LOTTODESK
Dalla 8319 alla 8337 Num: 17 26 46 48 57 85 88 15 01 05
Dalla 30.12.2010 alla 10.02.2011
Ba Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8337 alla 8355 Num: 15 16 86 84 19 05 20 21 22 23
Dalla 10.02.2011 alla 24.03.2011
Ba Pres: 04 04 04 03 03 02 02 02 02 02

Dalla 8355 alla 8373 Num: 41 05 11 01 61 62 73 34 35 37
Dalla 24.03.2011 alla 05.05.2011
Ba Pres: 05 04 03 03 03 03 03 02 02 02

Dalla 8373 alla 8391 Num: 14 20 28 30 38 69 77 26 06 10
Dalla 05.05.2011 alla 16.06.2011
Ba Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8391 alla 8409 Num: 14 10 30 23 25 15 44 57 73 28
Dalla 16.06.2011 alla 28.07.2011
Ba Pres: 05 04 04 03 03 03 03 03 03 02

SPAZIOMETRIA
Dalla 8319 alla 8337 Num: 46 26 17 48 88 85 57 31 58 28
Dalla 30.12.2010 alla 10.02.2011
BA Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8337 alla 8355 Num: 86 15 16 19 84 35 33 25 23 30
Dalla 10.02.2011 alla 24.03.2011
BA Pres: 04 04 04 03 03 02 02 02 02 02

Dalla 8355 alla 8373 Num: 41 05 11 61 62 73 01 18 37 03
Dalla 24.03.2011 alla 05.05.2011
BA Pres: 05 04 03 03 03 03 03 02 02 02

Dalla 8373 alla 8391 Num: 14 38 30 20 28 77 69 33 35 71
Dalla 05.05.2011 alla 16.06.2011
BA Pres: 03 03 03 03 03 03 03 02 02 02

Dalla 8391 alla 8409 Num: 14 30 10 25 57 73 23 15 44 77
Dalla 16.06.2011 alla 28.07.2011
BA Pres: 05 04 04 03 03 03 03 03 03 02
 
QUESTO E' IL MIO OUTPUT CON SPAZIOMETRIA

Codice: 
Dalla 8319 alla 8337 Num: 48 38 17 26 46 88 85 57 41 31 
Dal 28.12.2010 al 08.02.2011
BA                  Pres: 04 03 03 03 03 03 03 03 02 02 

Dalla 8337 alla 8355 Num: 84 15 16 86 19 33 30 23 22 27 
Dal 08.02.2011 al 22.03.2011
BA                  Pres: 04 04 04 04 03 02 02 02 02 02 

Dalla 8355 alla 8373 Num: 41 05 62 11 73 61 75 34 59 18 
Dal 22.03.2011 al 03.05.2011
BA                  Pres: 05 04 03 03 03 03 02 02 02 02 

Dalla 8373 alla 8391 Num: 14 38 30 20 28 69 33 77 64 70 
Dal 03.05.2011 al 14.06.2011
BA                  Pres: 03 03 03 03 03 03 02 02 02 02 

Dalla 8391 alla 8409 Num: 10 14 30 57 37 23 73 25 44 21 
Dal 14.06.2011 al 26.07.2011
BA                  Pres: 04 04 04 03 03 03 03 03 03 02

MI spighi come hai fatto a cambiare le date rispetto ai numeri delle estrazioni?

Spaziom. ha il n° 8391 alla data del 14.06.2011 mentre dal tuo output di Spaz. tu hai:
il n° 8391 alla data del 16.06.2011.

Non fare pasticci sullo script, se vuoi far coincidere i range fra i programmi con le rispettive date dei modificare in +1 o - 1 al valore 100 in questa riga.

Codice: 
ini = fin - 100'<-----------------------Tot estr. esaminate
 
SCUSA MA c'e ancora un errore occorre sostituire la funzione erase di L8 con azzera matrici


FALSO ALLARME, non Occorre creareun'altra sub

Funzione perfettamente, però il range di ricerca numeri e frequenza è di 19 estrazioni effettive non di 18 ed i ramge si accavallano di 1 estrazione.


Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
ciao Claudio, non so spiegarmi ma le mie date corrispondono
con lottodesk e spaziometria ho controllato anche altri siti
a parte il numero l'estrazioni per data corrispondono.
vedrò meglio con calma oggi, buona giornata.
 
quote:Originally posted by bergie

ciao Claudio, non so spiegarmi ma le mie date corrispondono
con lottodesk e spaziometria ho controllato anche altri siti
a parte il numero è proprio e solo questo che non coincide tra Spaz. e L8 ...l'estrazioni per data corrispondono ok, è normale.
vedrò meglio con calma oggi, buona giornata.
Clicca per espandere...

Mi dici quale è il numero di estrazione per L8 e Spaz. relativo alla estrazione del 20 agosto 2011 ?

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Sono riuscito a recuperare l'output di L8.

Considerando gli archivi di entrambi i progr. aggiornati al 20 agosto 2011, ho questi output.

L8
Codice: 
Dalla 8319 alla 8337 Num: 17 26 46 48 57 85 88 15 01 05 
Dal 30.12.2010 al 10.02.2011
Ba                  Pres: 03 03 03 03 03 03 03 02 02 02 

Dalla 8337 alla 8355 Num: 15 16 86 84 19 05 20 21 22 23 
Dal 10.02.2011 al 24.03.2011
Ba                  Pres: 04 04 04 03 03 02 02 02 02 02 

Dalla 8355 alla 8373 Num: 41 05 11 01 61 62 73 34 35 37 
Dal 24.03.2011 al 05.05.2011
Ba                  Pres: 05 04 03 03 03 03 03 02 02 02 

Dalla 8373 alla 8391 Num: 14 20 28 30 38 69 77 26 06 10 
Dal 05.05.2011 al 16.06.2011
Ba                  Pres: 03 03 03 03 03 03 03 02 02 02 

Dalla 8391 alla 8409 Num: 14 10 30 23 25 15 44 57 73 28 
Dal 16.06.2011 al 28.07.2011
Ba                  Pres: 05 04 04 03 03 03 03 03 03 02
Spaz.
Codice: 
Dalla 8320 alla 8338 Num: 46 26 17 48 88 85 57 31 58 28 
Dal 30.12.2010 al 10.02.2011
BA                  Pres: 03 03 03 03 03 03 03 02 02 02 

Dalla 8338 alla 8356 Num: 86 15 16 19 84 35 33 25 23 30 
Dal 10.02.2011 al 24.03.2011
BA                  Pres: 04 04 04 03 03 02 02 02 02 02 

Dalla 8356 alla 8374 Num: 41 05 11 61 62 73 01 18 37 03 
Dal 24.03.2011 al 05.05.2011
BA                  Pres: 05 04 03 03 03 03 03 02 02 02 

Dalla 8374 alla 8392 Num: 14 38 30 20 28 77 69 33 35 71 
Dal 05.05.2011 al 16.06.2011
BA                  Pres: 03 03 03 03 03 03 03 02 02 02 

Dalla 8392 alla 8410 Num: 14 30 10 25 57 73 23 15 44 77 
Dal 16.06.2011 al 28.07.2011
BA                  Pres: 05 04 04 03 03 03 03 03 03 02
Come puoi vedere coincidoni le presenze ed i numeri estratti.

Le date coincidono e non i n. delle estrazioni. E' normale perchè spaz. considera anche una estrazione, di non ricordo quando, che ha tutti valori "0" x sciopero degli addetti.

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 ottobre 2024
    Bari
    66
    07
    78
    48
    60
    Cagliari
    26
    14
    56
    69
    89
    Firenze
    11
    82
    02
    09
    32
    Genova
    43
    20
    47
    01
    17
    Milano
    24
    78
    05
    38
    72
    Napoli
    05
    16
    49
    87
    02
    Palermo
    18
    54
    24
    76
    46
    Roma
    03
    62
    01
    84
    34
    Torino
    35
    29
    08
    61
    09
    Venezia
    30
    20
    60
    66
    45
    Nazionale
    77
    22
    53
    90
    89
    Estrazione Simbolotto
    18
    24
    45
    29
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto