SaittaTrend

Typ : Function, Name : CriteriaCounter

Inputs: Criteria(TrueFalse), Length(Numeric);
Vars: Accum(0);

For value1 = 0 To Length-1 Begin
IF Criteria[value1] Then
Accum = Accum + 1;
End;

IF Accum <> 0 Then Begin
CriteriaCounter = Accum;
Accum = 0;
End;





Typ : Indicator, Name : SaittaTrend

Inputs: Criteria(Close Cross Over Average(C, 10) Or C Cross Under Average(C, 10)),
Length(40);

Plot1(CriteriaCounter(Criteria, Length), "");