For Schleifen

Versuche schon seit einigen Minuten eine For Schleife mit folgender Sturktur zum laufen zu bringen. Dabei sollen alle Werte die größer als 15 sind durch ein Fragezeichen ersetzt und jeweils der Wert vor dem Wert größer 15 und der danach. Um die ? wieder einen ordentlichen Wert zu geben sollen diese interpoliert werden. Der Datensatz besteht dabei nur aus y Werten. Das Problem ist nur das die Schleife immer direkt das i zu dem Endwert inkrementiert und in der if Schleife danach für i der letzte Platzhalter steht. Die Schleife läuft also einfach nicht von i=0 bis Endwert!

Dim y,i

y=ChL2_v_r_o_u.y

For i=0 to NumberOfElements(y)-1 do

if y[i] > 15 then
y[i-1] = ?
y[i] = ?
y[i+1] = ?

end

end

return InterpolateVoidValues(y)

Auch habe ich es schon mit einer “For Each Value…In” Anweisung probiert:

Dim y,i

y=ChL2_v_r_o_u.y

For Each Value i In y do

if y[i] > 15 then
y[i-1] = ?
y[i] = ?
y[i+1] = ?

end

end

return InterpolateVoidValues(y)

Aber dabei besteht genau das gleiche Problem!

i isn’t the highest index and y[i+1] does exist! The loop with the “For Each Values…End” function does work. But how can I work with the ValuesAboveLevel function? How do I get all elements higher than 15 replaced through a interpolated value when using the ValuesAboveLevel function?