per LuigiB

[Beppignello]

ciao LuigiB

vorrei chiederti una info in merito all'istruzione
call ordinamatrice

se ho una arrays, rit(9990,3)

dove ho ritardo dell'ambo ,1
dove ho l'ambo ,2
dove ho quanti ambi , 3 (sincroni,isocroni)


come mai quando ordino per colonna 1, che vuol dire per ritardo
mi esclude quelli con ritardo zero??

sia se ordino in forma 1 sia per -1
ottengo sempre l'esclusione dei ritardi zero?

ti risulta qualcosa simile?

grazie per una eventuale risposta.

 

[LuigiB]

ciao , il segunete script dovrebbe ordinare una matrice a 2 dimensioni geenrando dei numeri casuali
e facendo l'ordinamento concatenato di 3 valori per ogni elemento della matrice.
Si puo cambiare per fargli ordinare ina funzione di una sola colonna senza problemi basta modificare 1,2,3 con 1.
a me sembra che funzioni , provalo anche tu , se questo script funziona ci deve essere un problema da qualche altra parte

Option Explicit
Sub Main
    Dim k,s
    ReDim aVTest(1000,3)
    For k = 1 To UBound(aVTest)
        aVTest(k,0) = k
        aVTest(k,1) = NumeroCasuale(0,1000)
        aVTest(k,2) = NumeroCasuale(0,100)
        aVTest(k,3) = NumeroCasuale(0,10)
    Next

    Call OrdinaMatrice(aVTest,1,"1,2,3")

    Call Scrivi("Ordinamento per val1, val2 ,val3")
    aVTest(0,0) = "Val.Orig."
    aVTest(0,1) = "Val.1"
    aVTest(0,2) = "Val.2"
    aVTest(0,3) = "Val.3"
    Call ScriviMatrice(aVTest,,10)


End Sub