Type : Indicator, Name : Oscillator of Kase Indicator
input: N1(10);
var:KSDIUP(0),KSDIDN(0),jj(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];
jj=ksdidn-ksdiup;
if KSDIUP>KSDIDN then plot1(jj,»l»);
if KSDIUP<KSDIDN then plot2(jj,»h»);