Pretendo construir un screener con el indicador filtro de kalman, presente en la biblioteca de prorealcode.

El screener calcula el número de giros(el inverso al número de giros) que se han producido en el anterior indicador en las últimas 250 barras(es lo que me permite la versión completa), con objeto de buscar los valores que menos giros tengan, es decir, valores en los que la tendencia sea más constante en el tiempo. Esto es lo que he construido, pero el resultado del screener no es el esperado y no sé por qué, a ver si alguien ayudar.

Saludos

REM
TIMEFRAME(1 hour)

Series = TotalPrice

ONCE Pred = Series

IF BarIndex = 0 THEN
KF = Series
ELSE
Smooth = Pred + (Series - Pred) * SQRT((K / 10000) * 2)
Velo = Velo + ((K / 10000) * (Series - Pred))
Pred = Smooth + Velo
KF = Pred
ENDIF

once nintervalos=0
FOR i=0 TO 250 DO
cambioup=kf[i]> kf[i+1] and kf[i+1]<kf[i+2]
cambiodw=kf[i]< kf[i+1] and kf[i+1]>kf[i+2]
if cambioup or cambiodw then
nintervalos=nintervalos + 1
else
endif

NEXT


//c1=volume>4000000
c2=barindex>253
SCREENER[c2](1/nintervalos*1000 as " menor numero giros")