Vamos criar uma função que pode nos auxiliar a detectar tendências de alta ou baixa.

Código:

Parametro
MediaMovel(9);
Periodos(20);
PeriodoRetracao(5);
var
i : Inteiro;
x,y : Inteiro;
mm : Real;
Inicio
mm := MediaExp(MediaMovel,Fechamento);
x:=0;
y:=0;
Para i := 0 ate Periodos – 1 faca
inicio
Se (mm[i] > mm[i + 1]) entao
x := x + 1
Senao Se (mm[i] < mm[i + 1]) entao
y := y + 1;
fim;

Se (x >= (Periodos – PeriodoRetracao)) entao PaintBar(clVerde)
Senao Se (y >= (Periodos – PeriodoRetracao)) entao PaintBar(clVermelho);

Fim;

Execução

Exemplo:

Adicione o código como uma regra de coloração e altere os parâmetros conforme necessário.