Novità

Domanda per scripters di spaziometria

si scusami ,per scrivere di fretta...

Scusami Lottotom_75
nello script di Joe91 non trovo la scritta ULTIME ESTRAZIONi dove tu dici di inserire il 44.
Mi faresti un'istantanea per farmi vedere dove si trova?
quando hai tempo?
 
alex7878 ha scritto:
si scusami ,per scrivere di fretta...

Scusami Lottotom_75
nello script di Joe91 non trovo la scritta ULTIME ESTRAZIONi dove tu dici di inserire il 44.
Mi faresti un'istantanea per farmi vedere dove si trova?
quando hai tempo?
Clicca per espandere...

Ok quando ho tempo...

44.jpg

:D

ps: Mi devo essere scordato di dirti una cosa fondamentale per excel
L'esagono serve a trovare in automatico i duplicati e segnarli nella terza riga
Il cerchio con la croce greca invece per cancellare tutto quando hai fatto per l'estrazione in corso...
 
Ultima modifica:
Ciao Tom ...

Rivedi il messaggio # 56 (verso il fondo)

Toma d'Alba

Eppoi intendevo ...

Codice: 
Sub Main
Fin  = EstrazioneFin : GeneraAnalitico (Fin) 
	Ta = TabelloneAnalitico (0,0,0)
	Scrivi "Rit." & Space(3),1,0 : For R = 1 To 10 : Scrivi FormatSpace (NomeRuota(R),17),1,0 : Next :Scrivi 
	For Rit = 0 To Ta : K = 0 : If Fin = 8798 And Rit = 39 Then ColoreTesto 2 
	Scrivi FormatSpace(Rit,3,1) ,1,0 : Scrivi " | ",0,0
	For R = 1 To 10  
	For P = 1 To 5 
	TMP = TabelloneAnalitico(Rit,R,P) 
	If TMP > 0 Then K = K + 1 : Scrivi Format2(Tmp) & " ",0,0 Else Scrivi Space(3),0,0
	Next: Scrivi "| ",0,0	
	Next : Scrivi FormatSpace (K,3,1),1 : ColoreTesto 0
	Next	
End Sub

che come vedi ... gli 8 ritardatari a 39 estrazioni ...

se nessuno di essi cade ... passeranno a ritardo 40,

ove saranno ancora più instabili, perchè il loro eccesso sarà ancora maggiore.

:) Ed intanto ... cadono!
 
Joe91 ha scritto:
Ciao Tom ...

Rivedi il messaggio # 56 (verso il fondo)

Toma d'Alba

Eppoi intendevo ...

Codice: 
Sub Main
Fin  = EstrazioneFin : GeneraAnalitico (Fin) 
	Ta = TabelloneAnalitico (0,0,0)
	Scrivi "Rit." & Space(3),1,0 : For R = 1 To 10 : Scrivi FormatSpace (NomeRuota(R),17),1,0 : Next :Scrivi 
	For Rit = 0 To Ta : K = 0 : If Fin = 8798 And Rit = 39 Then ColoreTesto 2 
	Scrivi FormatSpace(Rit,3,1) ,1,0 : Scrivi " | ",0,0
	For R = 1 To 10  
	For P = 1 To 5 
	TMP = TabelloneAnalitico(Rit,R,P) 
	If TMP > 0 Then K = K + 1 : Scrivi Format2(Tmp) & " ",0,0 Else Scrivi Space(3),0,0
	Next: Scrivi "| ",0,0	
	Next : Scrivi FormatSpace (K,3,1),1 : ColoreTesto 0
	Next	
End Sub

che come vedi ... gli 8 ritardatari a 39 estrazioni ...

se nessuno di essi cade ... passeranno a ritardo 40,

ove saranno ancora più instabili, perchè il loro eccesso sarà ancora maggiore.

:) Ed intanto ... cadono!
Clicca per espandere...

Hai fatto bene.. a scrivermelo 2... volte e sono zucchettone :D
Comunque s b a l o r d i t i v a la ricettaaaaaaaaaaaaaaaaaaaaaa :D
No scherzo... il decadimento teorico e non radiattivo da 8 a 2...
Se non son passato alla 5° elementare o prima per aiuti... fa 6!
E se ho capito... ma forse non ho capito... questi 6 vanno sparsi
per le 11 ruote? Probabilità di incocciare un ambetto... Non proprio alta
ma interessante... Mi piace molto, se ho capito..., anche questa tua prospettivaaa :p
 
Ultima modifica:
Ciao Tom.

Secondo me ...

a ritardo 39 sono previsti 0.54 Estratti per ogni ruota.

E' più corretto moltiplicare 0.54 * 10 = 5.4

Dove: 8 (Presenti) - 5.4 (Teorici) = 2.6 (in Eccesso).

Si è vero non è un gioco per Ambo ... a meno che non li si strutturi ... a dovere.

E ... s'è vero che nei vari "qui" tardano ... non è detto che lo facciano anche altrove.

:)
 

Ciao Tom ...

... per prova ... aggiungi, queste linee di codice alla fine dello script.

Codice: 
'Tabellone Analitico Verticale con Colore/Frequenza nel Periodo Selezionato. Beta By Joe
	Rit = 0 : GeneraAnalitico (Fin) : Ta = TabelloneAnalitico (O,0,0)
	For Es = Fin To Fin-Ta Step - 1
		For R = 1 To 12 : If R = 11 Then R = 12
			ColoreTesto 0 : Scrivi FormatSpace (Rit,4),1,0
			For P = 1 To 5
				E = Estratto(Es,R,P)
				If TabelloneAnalitico (Rit,R,P)> 0 Then
					ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",1,0
				Else 
					ColoreTesto 0 : Scrivi "-- ",0,0 
				End If 
			Next
			ColoreTesto 0  : Scrivi FormatSpace (NomeRuota (R),11,1),1
		Next
		Scrivi String (30,"-") : Rit = Rit + 1
	Next

:)
 
Ultima modifica:
Joe91 ha scritto:

Ciao Tom ...

... per prova ... aggiungi, queste linee di codice alla fine dello script.

Codice: 
'Tabellone Analitico Verticale con Colore/Frequenza nel Periodo Selezionato. Beta By Joe
	Rit = 0 : GeneraAnalitico (Fin) : Ta = TabelloneAnalitico (O,0,0)
	For Es = Fin To Fin-Ta Step - 1
		For R = 1 To 12 : If R = 11 Then R = 12
			ColoreTesto 0 : Scrivi FormatSpace (Rit,4),1,0
			For P = 1 To 5
				E = Estratto(Es,R,P)
				If TabelloneAnalitico (Rit,R,P)> 0 Then
					ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",1,0
				Else 
					ColoreTesto 0 : Scrivi "-- ",0,0 
				End If 
			Next
			ColoreTesto 0  : Scrivi FormatSpace (NomeRuota (R),11,1),1
		Next
		Scrivi String (30,"-") : Rit = Rit + 1
	Next

:)
Clicca per espandere...

Appena finisco di calcolare le 50 mln di decine x A lo faccio subito. Al momento spaziometria è un pò indaffarato... :D (Campione irrisorio... su 5.720.645.481.903 decine generabili con 90 numeri ma pur sempre un inizio forse...)
 
Ultima modifica:
50 milioni di decine per ambo ... :eek: non so se stai scherzando ... ma con gli script ? Da pazzi ....
 
LuigiB ha scritto:
50 milioni di decine per ambo ... :eek: non so se stai scherzando ... ma con gli script ? Da pazzi ....
Clicca per espandere...

Ovvia per una volta... t'ho stupito io vai... :D

Comunque scherzavo... :rolleyes:

50mln.jpg

Tanto normale... in effetti non sono :p :D

20 ore ca ci ho messo... (per adesso...) :o

Tanto la fatica... è inutile mi sa... visto che il campione esaminato seppur di notevole misura.. rispetto le decine totali generabili con 90 elementi (5.720.645.481.903) è un'inezia... :(
 
Ultima modifica:
la fatica è inutile è vero ma non certo perche il campione non sia rappreseentativo ...:cool:
 
Ultima modifica di un moderatore:
Joe91 ha scritto:

In questa nuova versione dello script, ho reimpaginato le varie parti che lo componevano.

Ho portato la "Legenda" all'inizio ... e soprattutto ho reso disponibile ... la versione "a colori",

anche nella visualizzazione ... per ruote.

Come si vede ... nel contesto, ove era, ormai, tutto predisposto,

bastava aggiungere: "ColoreTesto(Nu(E,R))".

Detto & fatto!

Terminerò lo script (si fa per dire) con l'aggiunta di una linea di codice.

Una sorta di righello "autodimensionante" che ci aiuti a leggere "le quantità" di Estratti-Diversi ... in ogni ruota.

Estratti che, per contro, quando si ripetono ... non permettono che il numero di essi,

sia il massimo teoricamente possibile.

Abbiamo detto che dovrebbero essere 45 (9Estrazioni X5Estratti) ed invece ...

la presenza di quelli rossi/verdi/gialli, li limita ... un pò. (Circa 9)

Dirò meglio.

Codice: 
Sub Main
	
	Dim Nu(90,12) : Q = 9 ' Quantità Estrazioni Considerate
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe.    Legenda : ",1,0
		
	'Legenda :
	For C = 1 To 5 : ColoreTesto C : Scrivi "Freq = " & C & Space (2),1,0 : Next : Scrivi : Scrivi
	
	'Raccolata dati:
	Ini = EstrazioneFin -(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" 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" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90
			If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : 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
		ColoreTesto 0 : 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
	
End Sub
Clicca per espandere...

Ciao joe :)
Credi ti sia possibile fare questa modifica a questo tuo fantastico script soprastante?

Poter copiare e incollare nell'apposita tabella colorata per l'immissione dei numeri il gruppo numerico che si vuole (come avviene in molte sezioni e script di spaziometria) per poi poterlo elaborare secondo questo tuo tipo di analisi... che per adesso vede "in calcolo" tutti e 90 i numeri appunto...

Grazie mille comunque! :o
 
Caio Tom.

Premesso che non ci ho capito un tubo ... e forse hai già chiesto più o meno la stessa cosa ...

ottenendo sia risposta da Luigi che da Mike,

e questo mi rende ancora più incomprensibile la tua domanda,

Però forse il tuo ragionamento funziona più o meno così ... quando piove ... decicido io quali gocce sono bagnate.

Se è così ... allora, forse dovresti semplicemente mettere

in uscita ... allo script ... un setaccio che lasci passare solo le gocce bagnate.

Quindi dovresti considerare di inserirci, un piccolo script / filtro come questo:

Codice: 
Sub Main
Dim numeri

Call ScegliNumeri(numeri)
For k = 1 To UBound(numeri)
 If Numeri(k) >= Freq Then  Call Scrivi(numeri(k)) 
Next
End Sub

... con cui scegliere ... tu ... cosa scrivere.

Però si deve impilare, per bene, tutta la struttura del castello.

Mi devi dire esattamente cosa vuoi. Altrimenti ... io, mi perdo,

non so come interpretare la tua richiesta ed il castello ... collassa.

:) Buona Giornata
 
Ultima modifica:
Joe91 ha scritto:
Caio Tom.

Premesso che non ci ho capito un tubo ... e forse hai già chiesto più o meno la stessa cosa ...

ottenendo sia risposta da Luigi che da Mike,

e questo mi rende ancora più incomprensibile la tua domanda,

Però forse il tuo ragionamento funziona più o meno così ... quando piove ... decicido io quali gocce sono bagnate.

Se è così ... allora, forse dovresti semplicemente mettere

in uscita ... allo script ... un setaccio che lasci passare solo le gocce bagnate.

Quindi dovresti considerare di inserirci, un piccolo script / filtro come questo:

Codice: 
Sub Main
Dim numeri

Call ScegliNumeri(numeri)
For k = 1 To UBound(numeri)
 If Numeri(k) >= Freq Then  Call Scrivi(numeri(k)) 
Next
End Sub

... con cui scegliere ... tu ... cosa scrivere.

Però si deve impilare, per bene, tutta la struttura del castello.

Mi devi dire esattamente cosa vuoi. Altrimenti ... io, mi perdo,

non so come interpretare la tua richiesta ed il castello ... collassa.

:) Buona Giornata
Clicca per espandere...

Ciao joe per capissi fra me e te ci vogliono degli idraulici che ci facciano da intermediari...
con tutti questi tubi... ahahah :D Cercherò comunque di essere il piu' chiaro possibile (ho implorato i miei due neuroni affinchè mi accontentino nell'impresa...) :p Dunque... lasciando cosi' com'è il tuo fantastico e potentissimo script soprastante... è possibile per te implementare all'inizio.. e non alla fine di esso... questa tabella colorata (x l'immissione di qualunque gruppo numerico voluto) che ti allego? Sarebbe un modo per poter analizzare con il tuo script appunto gruppi numerici contenuti e d.o.c. anzichè tutti e 90 i numeri come adesso...

img tabella da implementare se possibile...

tabella-colorata.jpg

Ciao e GRZ1000 ;)

ps: facendo girare il tuo script con l'ultima modifica da te suggerita da porre alla fine dello stesso... mi appare la tabella (allegata con l'img) ma questa non sembra ancora funzionale alla riduzione dei 90 numeri auspicata... con gruppi d.o.c. decisi di volta in volta dall'utente...
 
Ultima modifica:
Joe91 ha scritto:
Codice: 
Sub Main
	Dim Nu(90,12),Ns : Q = 9 ' Quantità Estrazioni Considerate
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe.    Legenda : ",1,0
	'Legenda :
	For C = 1 To 5 : ColoreTesto C : Scrivi "Freq = " & C & Space(2),1,0 : Next : Scrivi : Scrivi
	ScegliNumeri Ns : Ub = UBound(Ns)
	'Raccolata dati:
	Ini = EstrazioneFin-(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" 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" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90
			For X = 1 To Ub
				If Ns(X) = E Then
					If Nu(E,R) > 0 Then ColoreTesto(Nu(E,R)) : Scrivi Format2(E) & " ",1,0
				End If
			Next
		Next : Scrivi
	Next : Scrivi
End Sub
Clicca per espandere...

Fantasticissimooo JOE!!!

Facendolo girare questa volta...

mi appaiono nuovi colori... (per n. di estrazioni maggiori di 90)

Siccome mi pare che la legenda arrivi solo... fino al bianco = fq 5

A quali frequenze corrispondono questi altri colori che appaiono per valori maggiori di 90 estrazioni?

violetto
celestino
nero

Grazie miliardesime grandissimooo! :D

ps: Ti lascio con un ringraziamento rebus per un tuo parere se lo risolvi... :p

con 90 num. siamo al 3° ciclo di 8 secondo la legge del terzo... e con 60? ;)

GRAZIE ancora e una splendida giornata nonostante il tempo... :rolleyes:
 
Doc ad hoc ...

e ... la "G" di garantita?

... DOP ti ci vorrebbe ... forse

Dove "P" sta per protetta (dagli strali).

Dovevi "proporre" lo script ove i colori sono 7 ...

comunque sia ho modificato leggermente lo script.

Oltre il 7 (una sorta di Fuori8) i colori "riprendono" dal nero.

ed il sistema analogico "si rompe" non permettendoci di discriminare

tra la frequenza della scala-base da quella dell'armonica superiore.

Occorrerebbe reimpostare lo script ... considerando le facility di Spaziometria,

come le usano Luigi, Rubino, Mike etc. etc.

:)

:)
 
Ultima modifica:
Joe91 ha scritto:
Doc ad hoc ...

e ... la "G" di garantita?

... DOP ti ci vorrebbe ... forse

Dove "P" sta per protetta (dagli strali).

Dovevi "proporre" lo script ove i colori sono 7 ...

comunque sia ho modificato leggermente lo script.

Oltre il 7 (una sorta di Fuori7) i colori "riprendono" dal nero.

ed il sistema analogico "si rompe" non permettendoci di discriminare

tra la frequenza della scala-base da quella dell'armonica superiore.

Occorrerebbe reimpostare lo script ... considerando le facility di Spaziometria,

come le usano Luigi, Rubino, Mike etc. etc.

:)

:)
Clicca per espandere...

Ti sembrerà totalmente assurdo quel che dico... ma così a pelle... la tua RISPOSTA-REBUS al mio REBUS NUMERICO mi ricorda in modo impressionante il modo di ragionare e di esprimersi di un grandissimo mentalista del passato. G.R. E adesso continuando questo "botta e risposta" quasi telepatico... (della serie... che ce semo magnati stasera di così pesante? :D) indovina tu a quale personaggio mi riferisco. :o ps: Su DMAX danno dynamo... sai mica come fa? :)
 
Ops ...no.

Mi informo.

Ho sostituito lo script ma forse ho commesso qualche errore ...

... per cui ... e per evitare confusione, ho cancellato il vecchio ... e lo ripeto qui di seguito.

con qualche ulteriore piccolissima modifica.

(Ove ad oggi, sono necessarie 50 Estrazioni per arrivare alla una Freq 8 (nera))

Codice: 
Sub Main
	Dim Nu(90,12),Ns : Q = 50 ' Quantità Estrazioni Considerate
	Scrivi "Controllo Presenze in " & Q & " Estrazioni By Joe.  Legenda : ",1,0
	'Legenda :
	For C = 1 To 8 : ColoreTesto FuoriX  (C,8) : Scrivi "Freq = " & C & Space(2),1,0 : Next : Scrivi : Scrivi
	ScegliNumeri Ns : Ub = UBound(Ns)
	'Raccolata dati:
	Ini = EstrazioneFin-(Q - 1) : Fin = EstrazioneFin 'Controllo su periodo di "Q" 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" e "Frequenza nel Periodo".
	For R = 1 To 12 : If R = 11 Then R = 12
		ColoreTesto 0 : Scrivi SiglaRuota(R) & "  ",1,0
		For E = 1 To 90
			For X = 1 To Ub
				If Ns(X) = E Then
					If Nu(E,R) > 0 Then ColoreTesto FuoriX (Nu(E,R),8) : Scrivi Format2(E) & " ",1,0
				End If
			Next
		Next : Scrivi
	Next : Scrivi
End Sub


:)
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto