Kase Indicator

["Erich Kohlhofer" <KohlhoEG@xxxxxxxxxxxx>]

Hi, this is the Cynthia Kase indicator written for Omega-Tradestation:

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")

Does anyone have the MS code for this?

Erich