ИНДИКАТОР КЕСА

Type : Indicator, Name : Kase Indicator

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<KSDIDN then plot2(h,»h»);

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