Re: Kase Indicator

["Glen Wallace" <gcwallace@xxxxxxxx>]

Here it is in MetaStock Language with a MetaStock chart and
TradeStation chart attached for comparison.  Erich, please tell
us about the logic and how the indicator is used.

N1:= 10;
KSDIUP:= If(ATR(N1)>0,
     (Ref(H,-N1)/L)/(Mov(V,N1,S)*Sqrt(N1)),
     Ref((Ref(H,-N1)/L)/(Mov(V,N1,S)*Sqrt(N1)),-1));
KSDIDN:= If(ATR(N1)>0,
     (H/Ref(L,-N1))/(Mov(V,N1,S)*Sqrt(N1)),
     Ref((H/Ref(L,-N1))/(Mov(V,N1,S)*Sqrt(N1)),-1));
Plot:= If(KSDIUP>KSDIDN, LOW,
       If(KSDIUP<KSDIDN, HIGH, (HIGH+LOW)/2));
Plot;



----- Original Message ----- 
From: "Erich Kohlhofer" <KohlhoEG@xxxxxxxxxxxx>
To: <metastock@xxxxxxxxxxxxx>
Sent: Tuesday, July 24, 2001 1:40 AM
Subject: Kase Indicator

> 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

Attachment: Description: "Kase Indicator - TS.gif"

Attachment: Description: "Kase Indicator - MS.gif"