Ciao Salvo e tutti
..mi ha incuriosito il tuo script, a solo scopo didattico...
allego una versione diversa che agisce sulle distanze, che potrebbe ovviare a possibili errori, ed accorcia il codice di riga..
è solo uno scopo didattico per tenerci allenati, magari può servire...
PS: se è una...
...mi sembra tu abbia preso una strada tortuosa, nella compilazione dello script...
ti metto qui una soluzione al volo, giusto per limitare la lunga digitazione (ed evitare errori)
Un caro saluto
Option Explicit
'Analisi esito direttrice estrazionale
'Ramco 20/01/2024
Sub Main()
Dim...
Utilizzava il valore dell' I.C. senza decimali, il software arrotondava, ma nelle colorazioni (come è stato menzionato, i decimali venivano considerati)... Alcune assegnazioni, e questo dipendeva dal software in questione, dipendevano dal K "Posizioni" o K "Settimane di Ritardo"...
Si, Joe
ho scritto "Frequenza" nel post per non creare ulteriore confusione, nei quadri di Spaziometria è riportato il titolo "Frequenza" e volevo solo fare riferimento a quello...
Ciao Genios
I.C.
E' il rapporto tra Ritardo Cronologico e Ciclicità effettiva.
Si calcola così:
riporto un esempio reale attuale sul primo ritardatario presente su Bari, ma il concetto è identico e ripetibile per qualsiasi formazione e per qualsiasi esito della formazione stessa...
Alla data...
Ciao a tutti...
intervengo solo per sottolineare che il Kcritico citato, chiamato così a suo tempo dal Prof. Ennio.... non è altro che l'Indice di Convenienza su Spaziometria...
👋
Ciao, ho inserito una tabella veloce (si può fare molto di più a livello grafico, ma non ne ho il tempo) che comunque riassume i dati che ti servono...
Se altri vogliono "abbellire" c'è spazio...
Option Explicit
Sub Main
Dim...
Ciao, ho cercato di fare un minimo d'ordine... cerca di capire cosa mettere prima e cosa mettere dopo, evita le ripetizioni se non servono... (possono solo aumentare gli errori), far ciclare le distanze è inutile, la condizione si attua con l'if... già presente.
Ho inserito la Ruota Nazionale...
Ciao.. senza cambiare nulla, mi son permesso di aggiustare qualche riga... solo x logica ho spostato qualche "if..."
Sub Main
Dim ambata1(1),ambo1(2),ambo2(2),ambo3(2),calc(4),ruota(2),ruote(4),posta(1),poste(2)
Dim ambo4(2),rs
Dim a,b,c,d,x,v,z,p1,p2,p3,es
Dim r1,r2,clp,caso...
...forse è meglio utilizzare la condizione "diverso da"..
If a<>c And b<>c Then....
("a" e "b" sono diversi per forza essendo estratti nella stessa ruota...)