Kase Indicator

Type : Indicator, Name : Kase Indicator

{idea from Cynthia Kase, code by Mark Brown}

input: N1(10);

var:KSDIUP(0),KSDIDN(0);

if average(@TrueRange, n1) > 0 then
KSDIUP = ((high[N1]/low))/(( average(V, N1) * SquareRoot(n1)))
else KSDIUP = KSDIUP[1];

if average(@TrueRange, n1) > 0 then
KSDIDN = ((high/low[N1]))/(( average(V, N1) * SquareRoot(n1)))
else KSDIDN = KSDIDN[1];

if KSDIUP>KSDIDN then plot1(l,"l");
if KSDIUP
if KSDIUP=KSDIDN then plot3((h+l)/2,"m");