Veja uma regra de coloração simples para determinar preços entre bandas.
Código:
var
mm9,mm80 : Real;
vSup, vInf : Real;
Inicio
mm9 := MediaExp(9,Fechamento);
mm80 := MediaExp(80,Fechamento);
Se ( mm9 > mm80 ) entao
inicio
vSup := mm9;
vInf := mm80;
fim
Senao
inicio
vSup := mm80;
vInf := mm9;
fim;
Plot(vSup);
Plot2(vInf);
Se (Maxima <= vSup) e (Minima >= vInf) entao PaintBar(ClVermelho);
Se
(Abertura <= vSup) e (Abertura >= vInf) e
(Fechamento <= vSup) e (Fechamento >= vInf)
entao PaintBar(clVermelho);
Fim;
