Re: TSI Indicator

[Jim Johnson <jejohn@xxxxxxxxxxxxxxxx>]

Hello mguess,


{function}

 {FORMAT: TSI(Price,r,s,u)         Where: r = length of first EMA
smoothing of 1 day momentum,                          s = length of
second EMA smoothing of 1 day smooting, u = length of third EMA
smooting of 1 daymomentum.}

Inputs:    Price(NumericSeries), r(NumericSimple), s(NumericSimple),
               u(NumericSimple);

Value1= 100*TXAverage(Price-Price[1],r,s,u) ;  { Numerator }

Value2=TXAverage(AbsValue(Price-Price[1]),r,s,u) ;   { Denominator }

If Value2 <> 0 then TSI = Value1 / Value2

Else TSI = 0




{indicator}

{FORMAT: Ergotic_TSI(Price, r, s, u,, SmthLen)
        where r = length of first EMA smoothing of 1 day momentum,
                         s = length of second EMA smoothing of 1 day smooting,
                        u = length of third EMA smooting of 1 daymomentum,
                        SmthLen = length of ema signal line.}


Inputs: Price(medianprice), r(4),  s(8), u(6), Zeroline(0), SmthLen(3);

Value1 = TSI(Price, r, s, u);

Value2 = XAverage(TSI(Price, r, s, u), SmthLen);

Plot1(Value1, "Ergotic");
Plot2(0," ZLine");
Plot3(Value2, "SigLin");





Sunday, December 23, 2001, 4:52:06 PM, you wrote:

m> Does anyone have the code for the TSI (Trend Strength Indicator, I
m> believe) described in the current issue of Active Trader?

m> Thnx,

m> Michael



-- 
Best regards,
 Jim                            mailto:jejohn@xxxxxxxxxxxxxxxx