{- Filename: CompositeIndex -}
(************************************************
Indicator gemaakt op: 1/29/2008
Auteur: <www.JSTAS.com>
************************************************)
var
  i    : integer;
  Calc : real   ;
  SRSI3, SRSId, CI, MA1, MA2 : TSeries;

begin
  With Indicator do
  begin
    ShortName    := 'Comp_Index' ;
    RequiredBars := 33           ;
  end;
  
  Begin
    i     := 1                     ;
    SRSId := CreateSeries(Barcount);
    SRSI3 := CreateSeries(BarCount);
    CI    := CreateSeries(BarCount);
    MA1   := CreateSeries(BarCount);
    MA2   := CreateSeries(Barcount);
  End;

  For i:= 1 to (Barcount-1) do
    Begin
      SRSI3 := MA((RSI(Close,3)),maSimple, 3);
      SRSId := Momentum((RSI(Close,14)),9);
      Calc  := SRSI3[i]+SRSId[i];
      CI[i] :=Calc;
      MA1   := MA(CI,maSimple,13);
      MA2   := MA(CI,maSimple,33);
  End;

  With CreateLine(CI) Do
    Begin
      Width :=2      ;
      Color := ClAqua;
  End;

  With CreateLine(MA1) Do
    Begin
      Color := CLFuchsia;
  End;
  With CreateLine(MA2) Do
    Begin
      Color := ClGreen;
  End;
end.