Come rilevare ed estrapolare il valore minimo di un vettore escludendo lo 0

[lotto_tom75]

Riesco ad ottenere il valore massimo e a salvarlo nel relativo vettore crtmaxrilevati con l'apposita funzione...

If crt > 0 Then
If MassimoV(crtmaxrilevati) = 0 Or crt > MassimoV(crtmaxrilevati) Then
Erase crtmaxrilevati
crtmaxrilevati = Array(0)
crtmaxrilevati = array_push(crtmaxrilevati,crt)
End If
End If

Ma quando si tratta di valutare il valore minimo crt e di salvarlo nel relativo vettore crtminrilevati mi incarto con il primo elemento del vettore sempre pari a 0 e non riesco a popolarlo con la funzione analoga...

If crt > 0 Then
If MinimoV(crtminrilevati) = 0 Or crt < MinimoV(crtminrilevati) Then
Erase crtminrilevati
crtminrilevati = Array(0)
crtminrilevati = array_push(crtminrilevati,crt)
End If
End If

Ho provato varie soluzioni anche con il for x saltare il primo posto del vettore crtminrilevati ma non funzia...

Ad una semplice verifica del tipo:

   Call Scrivi ("verifica contenuto crtminrilevati: ")
   Dim j
   For j=0 To UBound(crtminrilevati)
   Call Scrivi ("valore crt " & crtminrilevati(j))
   If ScriptInterrotto Then Exit For
   Next

mi da sempre e soltanto

valore crt 0

 

[lotto_tom75]

Riesco ad ottenere il valore massimo e a salvarlo nel relativo vettore crtmaxrilevati con l'apposita funzione...

If crt > 0 Then
If MassimoV(crtmaxrilevati) = 0 Or crt > MassimoV(crtmaxrilevati) Then
Erase crtmaxrilevati
crtmaxrilevati = Array(0)
crtmaxrilevati = array_push(crtmaxrilevati,crt)
End If
End If

Ma quando si tratta di valutare il valore minimo crt e di salvarlo nel relativo vettore crtminrilevati mi incarto con il primo elemento del vettore sempre pari a 0 e non riesco a popolarlo con la funzione analoga...

If crt > 0 Then
If MinimoV(crtminrilevati) = 0 Or crt < MinimoV(crtminrilevati) Then
Erase crtminrilevati
crtminrilevati = Array(0)
crtminrilevati = array_push(crtminrilevati,crt)
End If
End If

Ho provato varie soluzioni anche con il for x saltare il primo posto del vettore crtminrilevati ma non funzia...

Ad una semplice verifica del tipo:

   Call Scrivi ("verifica contenuto crtminrilevati: ")
   Dim j
   For j=0 To UBound(crtminrilevati)
   Call Scrivi ("valore crt " & crtminrilevati(j))
   If ScriptInterrotto Then Exit For
   Next

mi da sempre e soltanto

valore crt 0

Non importa +. Ho risolto.

X chi interessasse la soluzione is:

MinimoV(vettore, 1,ubound(vettore))

Mettendo al secondo parametro della funzione il valore 1 saltiamo il primo posto del vettore popolato sempre dallo 0.

Vista nella guida di spazio

 

[claudio8]

Benedetto help
Notte Tom