Terni consecutivi

[Reacher]

Buongiorno avrei bisogno di aiuto per uno script che elenchi le terni consecutive sortite.
L ho approntato con tutte le combinazioni possibili con if... End if
A b c d e sono le posizioni con tutte le variabili.
Ma in alcune estrazioni ci possono essere più Terni consecutivi e non mi compaiono.

 

[joe]

Buongiorno avrei bisogno di aiuto per uno script che elenchi le terni consecutive sortite.
L ho approntato con tutte le combinazioni possibili con if... End if
A b c d e sono le posizioni con tutte le variabili.
Ma in alcune estrazioni ci possono essere più Terni consecutivi e non mi compaiono.

Non si riesce a capire bene cosa fa lo script che hai, e cosa, invece, dovrebbe fare.

 

[Reacher]

Semplicemente un Elenco di terni consecutivi sortiti

 

[joe]

E' semplicemente questo ?

10361 29/12/2023 VE 25.26.27
10379 30/01/2024 MI 69.70.71
10383 06/02/2024 GE 52.53.54
10392 22/02/2024 FI 49.50.51
10405 15/03/2024 FI 60.61.62
10416 04/04/2024 VE 21.22.23
10439 14/05/2024 VE 53.54.55
10446 25/05/2024 GE 25.26.27
10470 06/07/2024 FI 52.53.54
10473 12/07/2024 FI 63.64.65
10473 12/07/2024 MI 61.62.63
10473 12/07/2024 TO 29.30.31
10499 27/08/2024 RO 39.40.41
10525 11/10/2024 BA 75.76.77
10527 15/10/2024 RO 22.23.24
10531 22/10/2024 BA 08.09.10
10599 18/02/2025 PA 78.79.80
10610 08/03/2025 FI 29.30.31
10627 08/04/2025 CA 67.68.69
10633 18/04/2025 BA 83.84.85
10649 16/05/2025 NA 74.75.76
10652 22/05/2025 FI 16.17.18
10653 23/05/2025 MI 77.78.79
10660 05/06/2025 GE 71.72.73
10673 27/06/2025 NA 87.88.89
10683 15/07/2025 NA 57.58.59
10771 16/12/2025 MI 13.14.15
10781 03/01/2026 PA 20.21.22
10798 03/02/2026 RO 75.76.77
10802 12/02/2026 NA 79.80.81

 

[Reacher]

Si infatti
Solo che nello script mi perdo con le posizioni... Anche se Ho utilizzato if.... Puoi postarlo?

 

[joe]

Si infatti
Solo che nello script mi perdo con le posizioni... Anche se Ho utilizzato if.... Puoi postarlo?

Se hai uno script da correggere, posso cercare di aggiungere il mio aiuto.

Farlo io, no.

 

[Reacher]

Sub Main()
Dim a,b,c,d,e,n,r1,p1,p2,p3,p4,p5
Dim ruote(12),number(4)
Dim posta(2)
'posta(1) = 1
posta(2) = 2
ruote(1) = 1
ruote(2) = 2
ruote(3) = 3
ruote(4) = 4
ruote(5) = 5
ruote(6) = 6
ruote(7) = 7
ruote(8) = 8
ruote(9) = 9
ruote(10) = 10
ruote(12) = 12
For n = 10750 To EstrazioneFin
For r1 = 1 To 12
For p1 = 1 To 5
For p2 = p1 + 1 To 5
For p3 = p2 + 1 To 5
For p4 = p3 + 1 To 5
For p5 = p4 + 1 To 5
a = Estratto(n,r1,p1)
b = Estratto(n,r1,p2)
c = Estratto(n,r1,p3)
d = Estratto(n,r1,p4)
e = Estratto(n,r1,p5)
If Distanza(a,b) = 1 And Distanza(b,c) = 1 Or Distanza(b,c) = 1 And Distanza(c,d) = 1 Or Distanza(c,d) = 1 And Distanza(d,e) = 1 Or Distanza(a,d) = 1 And Distanza(d,e) = 1 Or Distanza(a,c) = 1 And Distanza(c,d) = 1 Or Distanza(a,c) = 1 And Distanza(c,e) = 1 Or Distanza(b,d) = 1 And Distanza(b,e) = 1 Then
Scrivi DataEstrazione & " " & SiglaRuota(r1) & " " & a & " " & b & " " & c
End If
Next:Next
Next:Next
Next
Next
Next
End Sub

Prego... comunque nel frattempo ho cercato di modificare.

 

[joe]

Hai scritto molto e forse troppo per questo ho richiesto lo script.

Per migliorarlo ... come prima cosa devi decidere cosa vuoi ottenere.

Perché potrebbe essere un ottimo esercizio voler provare ad imitare Spaziometria,

Ma se, nel programma già ci sono ruotine di calcolo (forse anche più evolute e veloci) relative a quanto si vuole ottenere,

potrebbe diventare uno spreco di risorse ... applicarsi nel tentativo di clonare l'esistente.

In concreto Spaziometria potrebbe avere già quello che chiedi come ad esempio :




Da quello che vedo, in ogni caso lo sviluppo delle formazioni che contempli tutti i 10 terni

un test condizionale come filtro (con tanti If) è difficile da scrivere e molto pesante da elaborare per il computer.

 

[Reacher]

Infatti ho valutato diversi filtri ma resta fuori qualcosa... Come dici tu.
Intanto è esercizio per imparare script e nel modo in cui lo scrivo lo capisco.
Grazie comunque

 

[joe]

Direi prima cosa:

Gli Estratti sono 5 dunque E(5)

For P = 1 To 5

E(P) = Estratto (Es,R,P)

Next

e cosi hai un un solo vettore (o Array) i 5 Estratti.

In Spaziometria ci sono istruzioni di livello più alto come GetArray ecc. ma con il piccolo script di 3 righe,

hai il polso della situazione sapendo cosa hai fatto e cosa c'è in ogni E(P).

A,B,C vanno bene e bastano 3 Variabili ... Esattamente quante sono le cifre di una terna o un Terno.

Fino a qui è tutto chiaro ?

 

[Reacher]

ok elimino p2 p3 p4 p5 e lascio for p1 to 5

 

[joe]

ok elimino p2 p3 p4 p5 e lascio for p1 to 5

No.

Ogni variabile, con nome diverso, per il computer è una cosa a sè.

Dunque tratta p1, p2, p3, p4, p5 come fossero cane, gatto, pesce, luna e pizza.

Mentre E(5) è un vettrore che può contenere 5 Estratti.

Cioè li considera "5 cose" (simili tra loro) ad ognuna delle quali è assegnato un "indirizzo" suo e diverso da quello dalle altre.

Nell' Estrazione del 17/22026 er Bari si potrà scrivere :

Sub Main ()
Dim E(5),P

E(1) = 40
E(2) = 72
E(3) = 47
E(4) = 39
E(5) = 63

'Come vedi gli estratti sono tutti "E" ognuno con una posizione "P" diversa.

'Però con un ciclo For-Next

'puoi scriveri tutti e 5, uno ad uno, richiamando ognuna delle loro posizioni'

utilizzando come "Indice" (o indirizzo) una sola variabile ad esempio "P" come Posizione

For P = 1 To 5
Scrivi E(P)
Next

End Sub

 

[Reacher]

Ok

 

[joe]

Se metti insieme lo script al messaggio #10 e la seconda parte di quello del messagio #12

vedi che lo script è in grado di caricare i 5 estratti memorizzarli indicizzati nel vettore "E" (e poi di scriverli).

In sintesi li ha in pugno e li puoi organizzare in terni.

Cioè nei terni da controllare.

 

[Reacher]

No, non mi trovo non ottengo quello che voglio.
Con questo script elenca solo gli estratti di ogni ruota.
Comunque alla fine ci sono riuscito col mio script

 

[joe]

No, non mi trovo non ottengo quello che voglio.
Con questo script elenca solo gli estratti di ogni ruota.
Comunque alla fine ci sono riuscito col mio script

Si è vero. Bene.

Lo script che hai proposto non era funzionante con errori di logica e molto difficile da controllare.

Cioè capire e verificare se quando funzionante fornisce risultati utili, giusti, completi.

Le prime modifiche che ho proposto hanno SOLO riguardato,

la lettura degli estratti e la loro organizzazione in memoria.

Dunque se hai uno script funzionante puoi verificare i suoi risultati

con quelli che ti ho fornito come elenco e con quelli riportati in grafica

cioè con quelli prodotti dalla ricerca statistica di Spaziometria.

In sintesi ogni mio ulteriore intervento diventa inutile.

 

[Reacher]

Sicuramente la tua logica è buona ma in questo caso non adatta
Ti ringrazio comunque

 

[joe]

Sicuramente la tua logica è buona ma in questo caso non adatta
Ti ringrazio comunque

Non sono in accordo con quanto scrivi.

Perché alcuni messaggi fa hai scritto che la lista dei terni che ti ho fornito

ad esempio, era quella che intendevi ottenere.

Dunque i miei suggerimenti sono palesemente adatti al raggiungimento dello scopo.

Mentre, per contro, non è affatto dimostrato che il tuo script lo possa fare correttamente.

 

[Reacher]

Siccome hai detto che non fai script mi chiedo come hai ottenuto quella lista... La domanda sorge spontanea

 

[joe]

Siccome hai detto che non fai script mi chiedo come hai ottenuto quella lista... La domanda sorge spontanea

La risposta è semplicissima: Perché io sono capace di ottenerla.

PS: Che io non sia in grado di preparare questo script ... sembra una barzelletta mal raccontata.

Transeat