Wilders Average

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

Wilders Average

Bericht door Eric » wo jul 04, 2007 2:27 pm

Welles Wilder gebruikte vaak een eigen voortschrijdend gemiddelde, dat wordt berekend uit:

MA = MA * (n-1) / n + koers / n

Dit is de TA-script implementatie:

Code: Selecteer alles

{- Filename: WildersAverage -}

function WildersAverage(Series: TSeries; Periode: integer): TSeries;
var
  i, j, Count: integer;
  Value: real;
begin
  Count := GetArrayLength(Series);
  Result := CreateSeries(Count);
  j := 0;
  for i:=FirstValidIndex(Series) to Count-1 do
  begin
    j := j + 1;
    if j <= Periode then
      Value := Value + Series[i]/Periode
    else
      Value := (Periode-1)/Periode * Value + Series[i]/Periode;
    if j >= Periode then Result[i] := Value;
  end;
end;

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

{ Indicator eigenschappen }
  with Indicator do 
  begin
{ Aantal benodigde koersen om eerste indicatorwaarde te berekenen }
    RequiredBars := 5*MAPeriode;
    NewBand := false;
    ScaleRange := srCommon;
  end;

  sMA := WildersAverage(Close, MAPeriode);
  Signals := CrossingsToEntrySignals(Crossings(Close, sMA));
  
  with CreateLine(sMA) do
  begin
    Name := 'Wilders Average';
    Color := clBlue;
  end;
end.
>> Zoek naar boeken van Welles Wilder <<

---
Eric

Plaats reactie