KASE CD

Type : Indicator, Name : Kase CD

inputs:
LEN(30),
Smooth(3),
Strength(1);

vars:
RWH(0),
RWL(0),
PEAK(0),
KCD(0);

RWH = (H[0] — L[LEN]) / (AvgTrueRange(LEN) * SquareRoot(LEN));
RWL = (H[LEN] — L[0]) / (AvgTrueRange(LEN) * SquareRoot(LEN));

PEAK = WAverage((RWH — RWL),Smooth);
KCD = (PEAK) — average(Peak,8);

plot1(KCD,»KCD»);
plot2(0,»Zero»);

if CheckAlert then begin
if BullishDivergence(low,plot1,Strength,15) = 1
then Alert = true;
if BearishDivergence(high,plot1,Strength,15) = 1
then Alert = true;
end;