Joe91
Advanced Member >PLATINUM PLUS<
Ciao Luigi,
Buon Giorno a tutti.
Sul Tabellone Analitico, è possibile contare tutti i 90 numeri, dal capolista del ritardo, fino al novantesimo Estratto,
Cioè Dal capolista del ritardo fino al quinto estratto dell'ultima estrazione.
Creeando una corrispondenza biunivoca tra i 90 Estratti e le 90 Posizioni Di Ritardo.
L'istruzione NumeroPosRit ci restituisce quale ESTRATTO alla specifica Estrazione occupa la "Posizione di Ritardo" nella Ruota.
NumeroPosRit (8497,BA_,1) restituisce 58, (Che è il capolista del ritardo).
Funziona correttamente, per tutti i 90 Estratti e le 90 Posizioni.
L'istruzione "inversa" invece, non riesce, a "posizionare distintamente" gli estratti-isocroni
elencandoli uno o più, come se fossero uno solo. Alla stessa posizione.
In sintesi restituisce, al massimo, quante sono le linee occupate nel tabellone-analitico-compatto.
E, non riesce a formare la corrispondenza biunivoca tra le 90 Posizioni ed i 90 Estratti.
Quanto detto ... alla versione 1.3.38 di Spaziometria, e, nel ringraziare sin d'ora Luigi,
allego un piccolo script ... per la verifica di quanto ho esposto.
Buon_Week_End
Buon Giorno a tutti.
Sul Tabellone Analitico, è possibile contare tutti i 90 numeri, dal capolista del ritardo, fino al novantesimo Estratto,
Cioè Dal capolista del ritardo fino al quinto estratto dell'ultima estrazione.
Creeando una corrispondenza biunivoca tra i 90 Estratti e le 90 Posizioni Di Ritardo.
L'istruzione NumeroPosRit ci restituisce quale ESTRATTO alla specifica Estrazione occupa la "Posizione di Ritardo" nella Ruota.
NumeroPosRit (8497,BA_,1) restituisce 58, (Che è il capolista del ritardo).
Funziona correttamente, per tutti i 90 Estratti e le 90 Posizioni.
L'istruzione "inversa" invece, non riesce, a "posizionare distintamente" gli estratti-isocroni
elencandoli uno o più, come se fossero uno solo. Alla stessa posizione.
In sintesi restituisce, al massimo, quante sono le linee occupate nel tabellone-analitico-compatto.
E, non riesce a formare la corrispondenza biunivoca tra le 90 Posizioni ed i 90 Estratti.
Quanto detto ... alla versione 1.3.38 di Spaziometria, e, nel ringraziare sin d'ora Luigi,
allego un piccolo script ... per la verifica di quanto ho esposto.
Codice:
'Test NumeroPosRit / Numero / PosNumeroRit By Joe
Sub Main()
R=BA_ : Es=EstrazioneFin
Scrivi NomeRuota (R) & " " & DataEstrazione (Es),1
Scrivi
Scrivi "Pos Nu Pos"
For P = 1 To 90
Scrivi Format2 (P) & " ",0,0
NPR = NumeroPosRit (Es,R,P)
PNR = PosNumeroRit (Es,R,NPR)
Scrivi Format2 (NPR) & " ",0,0
Scrivi Format2 (PNR) & " "
Next
End Sub
Buon_Week_End