{ Downloaded From https://www.WiseStockTrader.com }
{OBTR Histogram Channel - FP}
OBTR:=Cum(If(C > Ref(C,-1),1,-1) *
(If(Ref(C,-1) < L,{Then} (H - Ref(C,-1)),
{Else}If(Ref(C,-1) > H,{Then} (Ref(C,-1) - L),
{Else} (H - L)))));
ShortMA:= Input("ShortMA -",1,200,8);
LongMA:= Input("LongMA -",1,200,17);
SignalMA:= Input("SignalMA - ",1,200,9);
MACDOBTR:=Mov(OBTR,ShortMA,E) - Mov(OBTR,LongMA,E);
If(MACDOBTR>=Ref(MACDOBTR,-1),MACDOBTR,0);
If(MACDOBTR<Ref(MACDOBTR,-1),MACDOBTR,0);
Mov(Mov(MACDOBTR,ShortMA,E)-Mov(MACDOBTR,LongMA,E), SignalMA,E);

Periods:= Input("Enter number of periods", 1, 200, 20);
UpperChannelLine:= Ref(HHV(MACDOBTR, Periods), -1);
LowerChannelLine:= Ref(LLV(MACDOBTR, Periods), -1);
UpperChannelLine; 
(UpperChannelLine + LowerChannelLine)/2;
LowerChannelLine;
{End}