TRIX INDICATOR S&C

Type: Function, Name: NewTRIX

Inputs: Price(NumericSeries), Length(NumericSimple);
Vars: LogP(0), alpha(0), sm1(0), sm2(0), sm3(0);

LogP = Log(Price);

IF CurrentBar = 1 Then Begin
sm1 = LogP;
sm2 = LogP;
sm3 = LogP;
alpha = 2 / (Length + 1);
End Else Begin
sm1 = (LogP — sm1) * alpha + sm1;
sm2 = (sm1 — sm2) * alpha + sm2;
sm3 = (sm2 — sm3) * alpha + sm3;
NewTrix = (sm3 — sm3[1]) * 100;
End;

Type: Indicator , Name: TRIX Indicator S&C

Inputs: Price(Close), TrixLen(3), TSLen(8), ZeroCrss(«Y»), AvgCrss(«Y»);
Vars: TRXval(0), AvgTRX(0);

Condition1 = False;
Condition2 = False;
TRXval = NewTRIX(Price, TRIXLen);
AvgTRX = LinearRegValue(TRXval, TSLen, 0);
Plot1(TRXval, «TRIX»);
Plot2(AvgTRX, «TRIX_LR»);
Plot3(0, «Zero»);
IF UpperStr(ZeroCrss) = «Y» Then Begin
IF Plot1 Crosses Above Plot3 OR Plot1 Crosses Below Plot3 Then
Condition1 = True;
End;

IF UpperStr(AvgCrss) = «Y» Then Begin
IF Plot1 Crosses Above Plot2 OR Plot1 Crosses Below Plot2 Then
Condition2 = True;
End;

IF CheckAlert AND (Condition1 OR Condition2) Then
Alert = True;