Domanda per scripters di spaziometria

[lotto_tom75]

Ciao Tom.

In effetti ... non è un normale script.

E' già (parzialmente) ottimizzato.

Non genera le classiche 10 coppie di numeri per poi controllare ... se tra essi ci sono ... vertibili (o ...).

Anche il 5° Estratto può essere "solo" il vertibile di uno degli altri 4, che tuttavia si sono già considerati prima.

Può essere "solo" un errato doppione ed una inutile perdita di tempo. (Per calcolarlo e poi "cancellarlo")

FormatSpace ... "riserva" uno spazio di 4 caratteri in cui scrivere "k"

per cui, mantiene incolonnati questi K all'inizio riga ed il resto, ovvero la Data e gli Ambi, a partire dal 5° carattere.

Osserva anche "> P" (ovvero nelle Posizioni successive) è ciò che evita i doppioni.

Non è il classico "> 0".

6 - 1 Mito! G R A Z I E

L'ho modificato... xE

Sub Main
	R = BA_
	For Es = EstrazioneFin - 7200 To EstrazioneFin
		For P = 1 To 5
			E = Estratto(Es,R,P)
			If Posizione(Es,R,Vert(E)) Or Posizione(Es,R,E)  Then
				K = K + 1
				Scrivi FormatSpace(K,5) & DataEstrazione(ES) & "  " & Format2(E) & "." & Format2(Vert(E))
			End If
		Next
	Next
End Sub

Spero di non aver vandalizzato troppo la tua opera "sintetica" al massimo.

 

[Joe91]

Spero di non aver vandalizzato troppo la tua opera "sintetica" al massimo.

Povera Creatura !!!

Figlia della natura!!

Naturamorta!

! Un caso ... di mortalità perinatale.

!! Lottologicamente parlando non esiste un vertibile ... a se stante ... senza un corrispettivo vertibile.

!!! Non puoi scrivere "OR" senza commettere un errore di logica.

"OR" al "tutto" cos'è se non il nulla? "OR" al "nulla" cos'è se non il "tutto" ?

SE da un lato NON ESISTE UN "OR" ad un ESTRATTO, in una posizione,

infatti esso può essere estratto "SOLO" una volta ... in quella posizione;

dall'altro lato della la condizione "OR" c'è la posizione stessa.

Sempre "Vera".

IL TUTTO.

Ai "50 ESTRATTI" nelle 10 ruote ... ai 50 "OR" ... corrispondono "50 ESTRATTI".

Puoi provare ... per credere, a cancellare l' "IF ... OR Then ---- END IF"

per ottenere più velocemente TUTTI (gli stessi) Estratti con gli stessi Equivalenti Vertibili.

Ogni numero ... ha il suo vertibile che esiste "solo" ... in alternativa al numero stesso.

Non esiste (e non può esistere) in un "altra" condizione alternativa "OR".

E' per la definizione (evidentemente implicita) di Vertibile.

Vertibile è il rapporto biunivoco tra COPPIE di numeri Lottologicamente determinate.

Non ci sono alternative alla REGOLA. Mi spiace.

Ora, (escludendo la Logica-Matematica) parliamo di Lotto e di un Metodo Puramente Statistico:

Quando in una Estrazione ed in una Coppia di Ruote si rintraccia lo stesso Ambo Vertibile,

lo si può tentare alla sorte nelle ruote coinvolte.

Esempio:

10.08.2013 25.52 MI_ 48.84 VE_
13.08.2013 28.82 TO_
16.08.2013 06.60 BA_ 55.59 PA_ 55.59 TO_
17.08.2013 47.74 BA_
20.08.2013
22.08.2013
24.08.2013
27.08.2013 27.72 CA_
29.08.2013 55.59 TO_
31.08.2013 46.64 NA_
03.09.2013 17.71 FI_ 13.31 GE_
05.09.2013
07.09.2013
10.09.2013 88.89 TO_
12.09.2013 13.31 RO_
14.09.2013

In sintesi l' Ambo 55.59 presente a Palermo e Torino il 16 Agosto 2013,

si ripete come risultato utile a Torino il 29 Agosto 2013.

 

[lotto_tom75]

Povera Creatura !!!

Figlia della natura!!

Naturamorta!

! Un caso ... di mortalità perinatale.

!! Lottologicamente parlando non esiste un vertibile ... a se stante ... senza un corrispettivo vertibile.

!!! Non puoi scrivere "OR" senza commettere un errore di logica.

"OR" al "tutto" cos'è se non il nulla? "OR" al "nulla" cos'è se non il "tutto" ?

SE da un lato NON ESISTE UN "OR" ad un ESTERATTO, in una posizione,

infatti esso può essere estratto "SOLO" una volta ... in quella posizione;

dall'altro lato della la condizione "OR" c'è la posizione stessa.

Sempre "Vera".

IL TUTTO.

Ai "50 ESTRATTI" nelle 10 ruote ... ai 50 "OR" ... corrispondono "50 ESTRATTI".

Puoi provare ... per credere, a cancellare l' "IF ... OR Then ---- END IF"

per ottenere più velocemente TUTTI (gli stessi) Estratti con gli stessi Equivalenti Vertibili.

Ogni numero ... ha il suo vertibile che esiste "solo" ... in alternativa al numero stesso.

Non esiste (e non può esistere) in un "altra" condizione alternativa "OR".

E' per la definizione (evidentemente implicita) di Vertibile.

Vertibile è il rapporto biunivoco tra COPPIE di numeri Lottologicamente determinate.

Non ci sono alternative alla REGOLA. Mi spiace.

Ora, (escludendo la Logica-Matematica) parliamo di Lotto e di un Metodo Puramente Statistico:

Quando in una Estrazione ed in una Coppia di Ruote si rintraccia lo stesso Ambo Vertibile,

lo si può tentare alla sorte nelle ruote coinvolte.

Esempio:

10.08.2013 25.52 MI_ 48.84 VE_
13.08.2013 28.82 TO_
16.08.2013 06.60 BA_ 55.59 PA_ 55.59 TO_
17.08.2013 47.74 BA_
20.08.2013
22.08.2013
24.08.2013
27.08.2013 27.72 CA_
29.08.2013 55.59 TO_
31.08.2013 46.64 NA_
03.09.2013 17.71 FI_ 13.31 GE_
05.09.2013
07.09.2013
10.09.2013 88.89 TO_
12.09.2013 13.31 RO_
14.09.2013

In sintesi l' Ambo 55.59 presente a Palermo e Torino il 16 Agosto 2013,

si ripete come risultato utile a Torino il 29 Agosto 2013.

Interessante la "storia" dei vertibili...
Per quanto riguarda l'illogicità dello script "modificato"
per adesso mi evidenzia correttamente gli E in A vertibile
per ogni estrazione e per adesso mi basta
Mi spiace comunque che tu lo consideri "morto" dal punto di vista
logico-programmatico e concettuale

Nella mia perdurante e recidiva illogicità ti chiedo GRANDISSIMO
saresti capace tu (io assolutamente no) di evidenziare grazie ad un tuo script
in un report relativo i numeri delle ultime 8 estrazioni (ovvero con RA < 9) per ciascuna ruota
compreso la nazionale? Potrebbe essere lo step 1 di un importante sviluppo lotto ludico

 

[Joe91]

Interessante la "storia" dei vertibili...
Per quanto riguarda l'illogicità dello script "modificato"
per adesso mi evidenzia correttamente gli E in A vertibile
per ogni estrazione e per adesso mi basta
Mi spiace comunque che tu lo consideri "morto" ....

Ciao Tom.

Significa che se il "medico legale" ne dichiara la morte ... è morto ... altrimenti è vivo?

No, non è così. E' morto o è vivo a prescindere dal parere del medico-legale.

Lo script, dunque, ha perso l'unico "test logico" che eseguiva.

NON FA, quanto vorresti, per effetto del codice che hai scritto ... (e che l'ha ucciso)

MA per effetto di un "fisico" che continua a funzionare nonostante tutto.

Ha una "forma di vita" che non dipende più, da quella "sostanza cerebrale", che gli permetteva di discernere.

Una testa, vuota di significato, attaccata ed inutile ... ad un fisico, che continua a funzionare.

Ti dicevo di provare ... come di TUTTE le Estrazioni, di Tutte le Ruote e di Tutti gli Estratti,

OTTERRAI SEMPRE 5 COPPIE DI VERTIBILI!

CON "OR" SENZA un inutile DOPPIO TEST CONDIZIONALE.

Alla ... Never Ending Story.

Sub Main
	R = BA_
	For Es = EstrazioneFin To EstrazioneFin
		For P = 1 To 5
			E = Estratto(Es,R,P)
			'If Posizione(Es,R,Vert(E)) Or Posizione(Es,R,E)  Then
				K = K + 1
				Scrivi FormatSpace(K,5) & DataEstrazione(ES) & "  " & Format2(E) & "." & Format2(Vert(E))
			'End If
		Next
	Next
End Sub

Prova del 9.

Con il tuo script:

Moltiplica le (Estrazioni (dell'Archivio) Meno "7200" ) PER 5 ed poi confronta questo numero con quanti AmbiVertibili risultano ...

dallo script eseguito, con e senza test condizionale. Vedrai "3 numeri" uguali.

Tutto questo succede, perchè, nulla sfugge alla Logica della Matemtica,

nonostante ed indipendentemente ... da quale sia il mio (e, se permetti) il tuo parere, e quello del medico-legale.

 

[lotto_tom75]

Ciao Tom.

Significa che se il "medico legale" ne dichiara la morte ... è morto ... altrimenti è vivo?

No, non è così. E' morto o è vivo a prescindere dal parere del medico-legale.

Lo script, dunque, ha perso l'unico "test logico" che eseguiva.

NON FA, quanto vorresti, per effetto del codice che hai scritto ... (e che l'ha ucciso)

MA per effetto di un "fisico" che continua a funzionare nonostante tutto.

Ha una "forma di vita" che non dipende più, da quella "sostanza cerebrale", che gli permetteva di discernere.

Una testa, vuota di significato, attaccata ed inutile ... ad un fisico, che continua a funzionare.

Ti dicevo di provare ... come di TUTTE le Estrazioni, di Tutte le Ruote e di Tutti gli Estratti,

OTTERRAI SEMPRE 5 COPPIE DI VERTIBILI!

CON "OR" SENZA un inutile DOPPIO TEST CONDIZIONALE.

Alla ... Never Ending Story.

Sub Main
	R = BA_
	For Es = EstrazioneFin To EstrazioneFin
		For P = 1 To 5
			E = Estratto(Es,R,P)
			'If Posizione(Es,R,Vert(E)) Or Posizione(Es,R,E)  Then
				K = K + 1
				Scrivi FormatSpace(K,5) & DataEstrazione(ES) & "  " & Format2(E) & "." & Format2(Vert(E))
			'End If
		Next
	Next
End Sub

Prova del 9.

Con il tuo script:

Moltiplica le (Estrazioni (dell'Archivio) Meno "7200" ) PER 5 ed poi confronta questo numero con quanti AmbiVertibili risultano ...

dallo script eseguito, con e senza test condizionale. Vedrai "3 numeri" uguali.

Tutto questo succede, perchè, nulla sfugge alla Logica della Matemtica,

nonostante ed indipendentemente ... da quale sia il mio (e, se permetti) il tuo parere, e quello del medico-legale.

Ok ti ricordo... che i miei neuroni sono anni luce lontani dai tuoi per quanto riguarda l'esperienza acquisita in campo matematico, programmatico... e forse anche lotto ludico Alzo bandiera bianca sullo script "morto clinicamente... " ma ti rinnovo la richiesta, se possibile..., quando... e se ne hai voglia... ovviamente , di evidenziare-estrapolare con un tuo script in automatico per ogni ruota i numeri appartenenti alle ultime 8 estrazioni. Grazie comunque e complimenti davvero per il tuo sapere e il tuo modo alquanto "metaforico", professionale e al contempo preciso nei dettagli, di esprimerti Con grande stima lotto_tom75

 

[Joe91]

Ciao Tom_

Io ... vabbhe, lasciamo stare!

... saresti capace tu (io assolutamente no) di evidenziare grazie ad un tuo script
in un report relativo i numeri delle ultime 8 estrazioni (ovvero con RA < 9) per ciascuna ruota
compreso la nazionale? Potrebbe essere lo step 1 di un importante sviluppo lotto ludico

ti rinnovo la richiesta, se possibile..., quando... e se ne hai voglia... ovviamente , di evidenziare-estrapolare con un tuo script in automatico per ogni ruota i numeri appartenenti alle ultime 8 estrazioni.

A grandi linee mi paiono le convergenze parallele ... di una ipotesi l'opposto dell'altra.

Quindi evidenziare i presenti ? -OR- "estrapolare" gli assenti ?

Or, Ambo_ le cose?

Fammi sapere.

 

[lotto_tom75]

Ciao Tom_

Io ... vabbhe, lasciamo stare!

... saresti capace tu (io assolutamente no) di evidenziare grazie ad un tuo script
in un report relativo i numeri delle ultime 8 estrazioni (ovvero con RA < 9) per ciascuna ruota
compreso la nazionale? Potrebbe essere lo step 1 di un importante sviluppo lotto ludico

ti rinnovo la richiesta, se possibile..., quando... e se ne hai voglia... ovviamente , di evidenziare-estrapolare con un tuo script in automatico per ogni ruota i numeri appartenenti alle ultime 8 estrazioni.

A grandi linee mi paiono le convergenze parallele ... di una ipotesi l'opposto dell'altra.

Quindi evidenziare i presenti ? -OR- "estrapolare" gli assenti ?

Or, Ambo_ le cose?

Fammi sapere.

Aspe ti faccio un es. visivo... te lo posto tra qualche sec. Intanto GRAZIE!

 

[lotto_tom75]

Ciao Tom_

Io ... vabbhe, lasciamo stare!

... saresti capace tu (io assolutamente no) di evidenziare grazie ad un tuo script
in un report relativo i numeri delle ultime 8 estrazioni (ovvero con RA < 9) per ciascuna ruota
compreso la nazionale? Potrebbe essere lo step 1 di un importante sviluppo lotto ludico

ti rinnovo la richiesta, se possibile..., quando... e se ne hai voglia... ovviamente , di evidenziare-estrapolare con un tuo script in automatico per ogni ruota i numeri appartenenti alle ultime 8 estrazioni.

A grandi linee mi paiono le convergenze parallele ... di una ipotesi l'opposto dell'altra.

Quindi evidenziare i presenti ? -OR- "estrapolare" gli assenti ?

Or, Ambo_ le cose?

Fammi sapere.

Ecco la spiegazione... spero + chiara... rappresentata in modo visivo e testuale... Ovviamente se non bastasse mi trovi 24h su 24 per eventuali ulteriori dettagli Grazie ancora!

 

[Joe91]

ma la bestia da domare è qualcosa di simile ?

Sub Main
	Dim Nu(90,12)
	Ini = EstrazioneFin - 8 : Fin = EstrazioneFin
	For Es = Ini To fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = True
			Next
		Next
	Next
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0
		For E = 1 To 90
			If Nu(E,R) = True Then Scrivi Format2(E) & " ",0,0
		Next
		Scrivi
	Next
End Sub

 

[lotto_tom75]

ma la bestia da domare è qualcosa di simile ?

Sub Main
	Dim Nu(90,12)
	Ini = EstrazioneFin - 8 : Fin = EstrazioneFin
	For Es = Ini To fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = True
			Next
		Next
	Next
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0
		For E = 1 To 90
			If Nu(E,R) = True Then Scrivi Format2(E) & " ",0,0
		Next
		Scrivi
	Next
End Sub

Vediamo...

Es. BARI

Estrapolato da me manualmente con perdita di tempo e di pazienza...
4-6-12-13-15-16-19-24-33-34-36-37-39-40-43-47-48-50-52-53-55-57-61-67-72-74-76-77-78-81-87-88

Estrapolato in un millisecondo con il tuo spettacolare e utilissimo script GRANDISSIMO JOE
4-6-12-13-15-16-19-24-33-34-36-37-39-40-43-47-48-50-52-53-55-57-61-67-72-74-76-77-78-81-87-88


Come vedi sono + compatibili... di due gocce d'acqua!!!

GRAZIE INFINITEEE MITICISSIMOOO E BRAVISSIMOOO JOE91 !!!

 

[Joe91]

Si ma ....

... mi pare un poco esagerato.

Ci vorrà più tempo a colorare quanto hai scritto ...

che redigere ... quanto ho fatto.

A proposito di colori e di altre "visioni" ...

Ho organizzato la tavola delle presenze in altro modo :

01 ..CAFIGEMI......TO..NZ 7
02 ......GE..NAPARO..VE.. 6
03 ................TO.... 1
04 BACAFI..............NZ 5
05 ....FIGE..NA..ROTOVE.. 7
06 BA........NAPARO...... 5
07 ..CA..............VE.. 3
08 ..CAFI..MI..PAROTOVENZ11
09 ....FI......PARO..VE.. 5
10 ......GEMI..PA........ 3
11 ..CAFIGEMINAPARO..VENZ12
12 BACAFIGE....PA..TOVENZ 9
13 BA......MI......TO..NZ 6
14 ....FI....NAPA....VE.. 5
15 BA..FIGEMINA....TO..NZ 9
16 BA..........PA........ 3
17 ..CA..GE..NA....TO.... 6
18 ..CA......NA.......... 2
19 BACAFI......PARO..VENZ 9
20 BA....GEMINA..RO...... 5
21 ..CAFI................ 2
22 ....FIGEMINAPA....VENZ 8
23 ..CA......NA....TO.... 4
24 BA........NA....TO..NZ 7
25 ....FIGE..NAPA..TO..NZ 9
26 ........MI..PAROTO.... 5
27 ........MI........VENZ 6
28 ..........NA..RO....NZ 3
29 ........MINA.......... 3
30 ......GE.............. 1
31 ........MI......TOVE.. 4
32 ....FI......PA........ 2
33 BA..FIGE........TOVENZ 7
34 BA....GE....PA......NZ 6
35 ....FI........RO..VENZ 6
36 BACA....MI......TOVENZ 6
37 ..CA....MI....RO..VENZ 6
38 ......GE..NAPAROTOVENZ 7
39 ..CA............TO..NZ 5
40 BACAFI..MI....ROTOVENZ11
41 ....FIGEMI....RO..VE.. 7
42 ..CAFIGEMI..PA....VE..10
43 BA..FI................ 2
44 ....FI................ 1
45 ..CAFI......PA........ 4
46 ......GE....PA..TO.... 3
47 BA..FIGE..NA..ROTO..NZ 9
48 BACAFIGEMI....RO...... 7
49 ..CA..GE........TOVE.. 4
50 BACA....MI............ 3
51 ........MI....RO..VE.. 3
52 BA....GE..NA......VE.. 4
53 BACAFI....NAPA....VENZ 9
54 ......GE..NA....TOVE.. 6
55 BA..........PA..TOVENZ 6
56 ..CA....MI....RO....NZ 6
57 BACAFI..MI....ROTO.... 7
58 ..CA..GE......ROTOVE.. 7
59 ..CAFIGEMINAPA..TO.... 9
60 ......GE..NA..ROTO.... 7
61 BACA....MINA.......... 5
62 ......GEMINA....TOVE.. 7
63 ..CAFI..MI....ROTO.... 8
64 ..CAFI....NA..RO....NZ 7
65 ..CAFI......PA....VE.. 5
66 ....FIGEMINA..RO..VENZ 9
67 BACA......NAPA......NZ 6
68 ......GEMI....RO..VE.. 4
69 ..CAFI....NA....TO..NZ 6
70 ....FI..MI........VE.. 3
71 ......GEMI....ROTO.... 5
72 BACA..GE..NAPA........ 7
73 BA..FIGE....PARO....NZ 6
74 BA......MI..PARO....NZ 6
75 ....FI....NA.......... 3
76 BACAFI......PAROTOVE.. 8
77 BACA..GE........TO.... 5
78 BA..FI....NA..RO..VE.. 7
79 ............PARO...... 3
80 ..........NAPA......NZ 5
81 BACA........PA....VE.. 4
82 ..........NAPARO....NZ 4
83 ..........NA.......... 1
84 ..CA........PA........ 2
85 ........MI..PA........ 2
86 ......GE..NAPA..TOVE.. 6
87 BA........NAPA..TO.... 4
88 BA....GE......RO..VE.. 5
89 ......GEMI........VENZ 4
90 BA....GEMINAPAROTO.... 7
FR = 1 FR = 2 FR = 3 FR = 4 FR = 5Da cui si potrebbe considerare un 30 44.83

Per Ambo a tutte:


Buona Serata

 

[lotto_tom75]

Si ma ....

... mi pare un poco esagerato.

Ci vorrà più tempo a colorare quanto hai scritto ...

che redigere ... quanto ho fatto.

A proposito di colori e di altre "visioni" ...

Ho organizzato la tavola delle presenze in altro modo :

01 ..CAFIGEMI......TO..NZ 7
02 ......GE..NAPARO..VE.. 6
03 ................TO.... 1
04 BACAFI..............NZ 5
05 ....FIGE..NA..ROTOVE.. 7
06 BA........NAPARO...... 5
07 ..CA..............VE.. 3
08 ..CAFI..MI..PAROTOVENZ11
09 ....FI......PARO..VE.. 5
10 ......GEMI..PA........ 3
11 ..CAFIGEMINAPARO..VENZ12
12 BACAFIGE....PA..TOVENZ 9
13 BA......MI......TO..NZ 6
14 ....FI....NAPA....VE.. 5
15 BA..FIGEMINA....TO..NZ 9
16 BA..........PA........ 3
17 ..CA..GE..NA....TO.... 6
18 ..CA......NA.......... 2
19 BACAFI......PARO..VENZ 9
20 BA....GEMINA..RO...... 5
21 ..CAFI................ 2
22 ....FIGEMINAPA....VENZ 8
23 ..CA......NA....TO.... 4
24 BA........NA....TO..NZ 7
25 ....FIGE..NAPA..TO..NZ 9
26 ........MI..PAROTO.... 5
27 ........MI........VENZ 6
28 ..........NA..RO....NZ 3
29 ........MINA.......... 3
30 ......GE.............. 1
31 ........MI......TOVE.. 4
32 ....FI......PA........ 2
33 BA..FIGE........TOVENZ 7
34 BA....GE....PA......NZ 6
35 ....FI........RO..VENZ 6
36 BACA....MI......TOVENZ 6
37 ..CA....MI....RO..VENZ 6
38 ......GE..NAPAROTOVENZ 7
39 ..CA............TO..NZ 5
40 BACAFI..MI....ROTOVENZ11
41 ....FIGEMI....RO..VE.. 7
42 ..CAFIGEMI..PA....VE..10
43 BA..FI................ 2
44 ....FI................ 1
45 ..CAFI......PA........ 4
46 ......GE....PA..TO.... 3
47 BA..FIGE..NA..ROTO..NZ 9
48 BACAFIGEMI....RO...... 7
49 ..CA..GE........TOVE.. 4
50 BACA....MI............ 3
51 ........MI....RO..VE.. 3
52 BA....GE..NA......VE.. 4
53 BACAFI....NAPA....VENZ 9
54 ......GE..NA....TOVE.. 6
55 BA..........PA..TOVENZ 6
56 ..CA....MI....RO....NZ 6
57 BACAFI..MI....ROTO.... 7
58 ..CA..GE......ROTOVE.. 7
59 ..CAFIGEMINAPA..TO.... 9
60 ......GE..NA..ROTO.... 7
61 BACA....MINA.......... 5
62 ......GEMINA....TOVE.. 7
63 ..CAFI..MI....ROTO.... 8
64 ..CAFI....NA..RO....NZ 7
65 ..CAFI......PA....VE.. 5
66 ....FIGEMINA..RO..VENZ 9
67 BACA......NAPA......NZ 6
68 ......GEMI....RO..VE.. 4
69 ..CAFI....NA....TO..NZ 6
70 ....FI..MI........VE.. 3
71 ......GEMI....ROTO.... 5
72 BACA..GE..NAPA........ 7
73 BA..FIGE....PARO....NZ 6
74 BA......MI..PARO....NZ 6
75 ....FI....NA.......... 3
76 BACAFI......PAROTOVE.. 8
77 BACA..GE........TO.... 5
78 BA..FI....NA..RO..VE.. 7
79 ............PARO...... 3
80 ..........NAPA......NZ 5
81 BACA........PA....VE.. 4
82 ..........NAPARO....NZ 4
83 ..........NA.......... 1
84 ..CA........PA........ 2
85 ........MI..PA........ 2
86 ......GE..NAPA..TOVE.. 6
87 BA........NAPA..TO.... 4
88 BA....GE......RO..VE.. 5
89 ......GEMI........VENZ 4
90 BA....GEMINAPAROTO.... 7
FR = 1 FR = 2 FR = 3 FR = 4 FR = 5Da cui si potrebbe considerare un 30 44.83

Per Ambo a tutte:


Buona Serata

Fantastico joe! E' possibile avere il tuo script psichedelico relativo?
Ps: io avrei un 30.49 su TUTTE quindi il vertibile del tuo 44 tanto per restare in tema "vertibili" eheheh

 

[lotto_tom75]

Prima che me ne dimentichi... caro joe saresti in grado pure di realizzare qualcosa di questo tipo (vedi thread relativo)? Se si lo dovresti chiamare "script dei due terzi" o qualcosa del genere . L'avevo dimenticato... quando il buon vincenzo pochi giorni fa me lo ha ricordato in questo suo thread... tnx ps: Ovviamente se qualche punto non ti è chiaro interpellami 24h su 24 per eventuali delucidazioni

 

[Joe91]

Fantastico joe! E' possibile avere il tuo script psichedelico relativo?
Ps: io avrei un 30.49 su TUTTE quindi il vertibile del tuo 44 tanto per restare in tema "vertibili" eheheh

Bhe ... come primo step devi aggiungere al programma precedente,

"il visualizzatore" dei dati in questo nuovo formato.

In pratica ... aggiungi questo visualizzatore/script prima della fine ... del programma.

For N = 1 To 90
Scrivi Format2(N) & " ",1,0
	For R = 1 To 12 : If R = 11 Then R = 12
		If Nu(N,R) = True Then Scrivi SiglaRuota(R) & " ",0,0 Else Scrivi "-- ",0,0
	Next
Scrivi
Next

Per il resto ... la "legge del terzo" e la visione "statica" di esso, anche, per la divisione dei numeri in 60/90 e 30/90 dei 90/90 ...

appare, non facilmente spendibile ed utilizzabile direttamente.

Fa apparire, questa formaluzione ormai obsoleta. (Per quanto matematicamente valida)

In ogni caso ... ti basta sostituire ... le 9 estrazioni in 18 Estrazioni ed è già tutto lì ... già fatto.

Assai più interessante, a parer mio, è la divisione in quartili, dell'intetrvallo considerato,

a cui eventualmente far eseguire l'analisi del "cosa cambia" in essi.

Ma ... in periodi molto-molto più piccoli ... trattando di frequenze.

 

[lotto_tom75]

Bhe ... come primo step devi aggiungere al programma precedente,

"il visualizzatore" dei dati in questo nuovo formato.

In pratica ... aggiungi questo visualizzatore/script prima della fine ... del programma.

For N = 1 To 90
		Scrivi Format2(N) & " ",1,0
		For R = 1 To 12 : If R = 11 Then R = 12
			If Nu(N,R) = True Then Scrivi SiglaRuota(R) & " ",0,0 Else Scrivi "-- ",0,0
		Next
		Scrivi
	Next

Per il resto e la "legge del terzo" e la visione "statica" di esso, anche, per la divisione dei numeri in 60/90 e 30/90 dei 90/90 ...

appare, non facilmente spendibile/utilizzabile direttamente facendo apparire questa formaluzione orami obsoleta.

Ti basta tuttavia sostituire ... le 9 estrazioni in 18 estrazioni ed è già atutto lì.

Assai più interessante, a parer mio, la divisione in quartili dell'inetrvallo considerato ...

ed eventualmente l'analisi sul ... "cosa cambia" in essi.

Anche se non mi somma le presenze riportandomi il valore sulla destra rispetto le varie ruote (come nel tuo...) va bene anche così credo... TNX! Penso che basti (dopo aver creato dim i) aggiungere dopo l'ultimo then... i=i+1 e poi aggiungerlo alla fine del "scrivi... SiglaRuota(R) & i" ma nella forma criptica su una riga non so come farlo... e mi da sempre errore...

Sub Main
Dim Nu(90,12)
Ini = EstrazioneFin - 8 : Fin = EstrazioneFin
For Es = Ini To fin
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(E,R) = True
Next
Next
Next
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0
For E = 1 To 90
If Nu(E,R) = True Then Scrivi Format2(E) & " ",0,0
Next
Scrivi
Next

Scrivi "                                                           "
Scrivi "                                                           "

For N = 1 To 90
		Scrivi Format2(N) & " ",1,0
		For R = 1 To 12 : If R = 11 Then R = 12
			If Nu(N,R) = True Then Scrivi SiglaRuota(R) & " ",0,0 Else Scrivi "-- ",0,0
		Next
		Scrivi
	Next

End Sub

Per quanto riguarda la legge del terzo non ho capito la modifica che basterebbe fare a questo script per ottenere lo script relativo

E aggiungo...

Sarebbe fighissimo se anche solo per una ruota... (es. BA o NZ) lo script riuscisse a verificare la presenza di almeno A per ogni estrazione a ritroso voluta (es. nelle ultime 360 estrazioni) nel gruppo sopra generato ovvero quello costituito ad ogni estrazione dai numeri presenti nelle ultime 8 estrazioni della ruota considerata... Se sono stato anche io troppo sibillino.. fammello sapere che cerco di dipanarti ogni dubbio concettuale in merito Ciao e grazie mitiko

 

[Joe91]

Il secondo passo era ... passare dal "bianco e nero" ... al colore.

Dal digitale-binario, True/False, all'Analogico dell' 1,2,3... con cui colorare.

"E = Estratto(Es,R,P) : Nu(E,R) = True"

diventa:

"E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1"

Per il resto di quello che scrivi ... Estratto O Ambo O ...

differiscono nella forma, nei vettrori o nelle matrici con cui contenerli/conteggiarli.

Apparentemente ... molto diversi, possono essere trattati similmente.

Come avrai notato ... True+True = True. Mentre noi, s'abbisogna "di quantità" da sommare.

Poi, s'avrà il terzo passo, colorare, come già sai.

Ed evitare, di contare, il totale nelle varie ruote ... sulle dita.

 

[lotto_tom75]

Il secondo passo era ... passare dal "bianco e nero" ... al colore.

Dal digitale-binario, True/False, all'Analogico dell' 1,2,3... con cui colorare.

"E = Estratto(Es,R,P) : Nu(E,R) = True"

diventa:

"E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1"

Per il resto di quello che scrivi ... Estratto O Ambo O ...

differiscono nella forma, nei vettrori o nelle matrici con cui contenerli/conteggiarli.

Apparentemente ... molto diversi, possono essere trattati similmente.

Come avrai notato ... True+True = True. Mentre noi, s'abbisogna "di quantità" da sommare.

Poi, s'avrà il terzo passo, colorare, come già sai.

Ed evitare, di contare, il totale nelle varie ruote ... sulle dita.

Provando a modificare lo script "goccia a goccia" come intendi farmi fare e sostituendo la riga da te sopracitata tra " " ho ottenuto solo un report "fantasma" nel senso che al posto delle ruote e dei numeri ci sono spazi... Penso proprio di non essere il discepolo "telepatico" e "intuitivo" che forse pensavi di aver trovato grandissimo e criptico maestro Joe ahahahhah

 

[Joe91]

Ciao Tom ...

Io, decripttato e palesemente pasticcione, non meno che testone,

ti dirò che sempre si prova e riprova ... centinaia di volte, prima di avere il risultato "voluto".

Quindi chiunque ... potrà essere, più bravo, fortunato-logico-conseguenziale-pratico-concludente ...

ma penso, che nessuno, riesca a scrivere tutto subito e bene ... perfettamente funzionante, come previsto.

Quindi se vuoi risultati, armati ... di quel pò di pazienza e di giusta cocciutaggine (a parer mio) necessari,

a superare le difficoltà che ci sono e ci saranno ma che sono superabili.

Dunque ... ancora una piccola nota tecnica ... poi avrai tutto "già fatto!".

Sub Main
	For Colore = 0 To 7

		ColoreTesto Colore : Scrivi "Colore = " & Colore

	Next
End Sub

Il colore Zero è il nero ... poi, 1 blu ... 2 il rosso, ecc.

come noterai i colori partono "da zero" ... le presenze ... da uno (naturalmente!?!).

Ho allineato colori e presenze "shiftando" ... il colore

non si parte dallo Zero = Nero ... ma dall' Uno = Blu.

Quindi prima di Scrivi "Sigla della Ruota" ... si antepone Coloretesto

seguito dal numero di presenze che ne determina il colore.

Si scrive così ... la sigla della ruota, nel colore che ne descrive la frequenza, ed infine ...

si reimposta il colore di default nero, con Coloretesto 0

E' giusto ...quello che scrivi, per il conteggio dei totali "in verticale".

Ma è inutile. Sono tutti e 11 uguali a 45.

Cioè 5 Estratti (in ogniuna delle Ruote) PER ogniuna delle 9 Estrazioni.

Si sa ... che è inutile contarli.

Regola del (For Ever) Lotto.

Per il resto (in orozzontale) "praticamente" non è necessario DIMensionare 90 totali,

a meno che ... non si decida e voglia ... che sia così.

Per ogni linea ... Basta azzerare un totalizzatore ... a cui fa raccogliere le 10 (11 con la Nz) presenze.

Poi scriverlo alla fine della linea ...

E quindi riazzerarlo nuovamente per iniziare ... a conteggiare le "Presenze" del Lottrone Successivo, in ogni ruota.

 

[Joe91]

Un Flash-Back:

Avevi cambiato la campionatura "True/False" in "1+1+1+...."

NEL PRIMO SCRIPT, come ti ho consigliato e come, correttamente, hai fatto.

Ma gli script ... sono 3.

Dopo il primo dedicato alla raccolta dei dati ... ci sono i 2 visualizzatori.

Quindi, nei 2 diversi Script-Visualizzatori, sostituisci "= True" con " > 0 " ... in questo modo:

Sub Main
Dim Nu(90,12)
Ini = EstrazioneFin - 8 : Fin = EstrazioneFin
For Es = Ini To fin
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
E = Estratto(Es,R,P) : Nu(E,R) =  Nu(E,R) +1
Next
Next
Next
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R) & " ",1,0
For E = 1 To 90
If Nu(E,R) > 0 Then Scrivi Format2(E) & " ",0,0
Next
Scrivi
Next

Scrivi "                                                           "
Scrivi "                                                           "

For N = 1 To 90
		Scrivi Format2(N) & " ",1,0
		For R = 1 To 12 : If R = 11 Then R = 12
			If Nu(N,R) > 0 Then Scrivi SiglaRuota(R) & " ",0,0 Else Scrivi "-- ",0,0
		Next
		Scrivi
	Next

End Sub

E ritorna a funzionare ... tutto, apparentemente, come prima.

 

[Joe91]

Buon Giorno a Tutte/i.

Ho già descritto ampiamente ogni singola parte dell'algoritmo ... che ha portato alla stesura di questa utility.

Quindi aggiungo solamente che ho convertito, "in Legenda", il piccolo script che avevo usato

per spiegare, il perchè delle scelte adottate relativamente ai colori.

Ecco dunque, lo script, completo, dei sui 4 componenti principali: Raccolta Dati / 2 Visualizzatori (per Ruota e per Numero) / Legenda.

Sub Main
	'Raccolata dati:
	Scrivi "Controllo Presenze in 9 Estrazioni By Joe",1 : Scrivi 
	Dim Nu(90,12)
	Ini = EstrazioneFin - 8 : Fin = EstrazioneFin 'Controllo su periodo di NOVE Estrazioni
	For Es = Ini To fin
		For R = 1 To 12 : If R = 11 Then R = 12
			For P = 1 To 5
				E = Estratto(Es,R,P) : Nu(E,R) = Nu(E,R) + 1
			Next
		Next
	Next
	
	'Visualizzazione "per Ruote".
	For R = 1 To 12 : If R = 11 Then R = 12
		Scrivi SiglaRuota(R) & " ",1,0
		For E = 1 To 90
			If Nu(E,R) > 0 Then Scrivi Format2(E) & " ",0,0
		Next : Scrivi	
	Next : Scrivi
	
	'Visualizzazione "per Numero" e "Frequenza nel Periodo".
	For E = 1 To 90 'Per ogni Estratto
	Co = 0 'Azzera Contatore_Orizzontale
		Scrivi Format2(E) & "  ",1,0 'Estratto
		For R = 1 To 12 : If R = 11 Then R = 12 'Per ogni ruota
			If Nu(E,R) > 0 Then 'Controlla se c'erano presenze.
			 ColoreTesto(Nu(E,R)) : Scrivi SiglaRuota(R) & " ",1,0
			Else
			 Scrivi "-- ",0,0 ' Caratteri separatori alternativi
			End If
			 ColoreTesto 0 : Co = Co + CInt(Nu(E,R)) 'Incrementa il TOTALE
		Next
		Scrivi FormatSpace(Co,2,1),1 'Scrive il TOTALE (Presenze / Periodo) = Frequenza
	Next : Scrivi
	
	'Legenda :
	 For C = 1 To 5 : ColoreTesto C : Scrivi "Freq=" & C & "  ",1,0 : Next : Scrivi
	
End Sub