Triangular Moving Average

Kant-en-klare, geteste indicatoren en handelssystemen
Plaats reactie
Eric
Berichten: 2952
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Triangular Moving Average

Bericht door Eric » vr jul 28, 2006 4:22 pm

Een triangular moving average is een twee-traps moving average met de halve periode.

Code: Selecteer alles

{- Filename: Triangular Moving Average -}

function TMA(Series: TSeries; Period: integer): TSeries;
var
  HalfPeriod: integer;
begin
  HalfPeriod := round((Period + 1.1) / 2);
  Result := MA(MA(Series, maSimple, HalfPeriod), maSimple, HalfPeriod);
end;

var
  MAPeriode: integer;
  sTMA: TSeries;
begin
{ Indicator parameters }
  MAPeriode := CreateParameterInteger('MA periode', 1, 999, 13, true);

{ Indicator eigenschappen }
  with Indicator do 
  begin
    ShortName := 'TMA';
{ Aantal benodigde koersen om eerste indicatorwaarde te berekenen }
    RequiredBars := MAPeriode+1;
    NewBand := false;
    ScaleRange := srCommon;
  end;

{ Indicatorberekening }
  sTMA := TMA(Close, MAPeriode);

{ signalen }
  Signals := CrossingsToEntrySignals(Crossings(Close, sTMA));

{ lijn }
  with CreateLine(sTMA) do
  begin
    Color := clLime;
  end;
end.

Plaats reactie