Vertical Horizontal Filter

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

Vertical Horizontal Filter

Bericht door Eric » ma feb 13, 2006 2:12 pm

Het Vertical Horizontal Filter (door Adam White) is een maat voor de trend. Hoe hoger de VHF waarde, hoe sterker de trend.

Code: Selecteer alles

{- Filename: VerticalHorizontalFilter -}

const
  sHelpText = 'Het Vertical Horizontal Filter (door Adam White) is een maat voor de '+
    'trend. Hoe hoger de VHF waarde, hoe sterker de trend';
    
var
  Periode: integer;
  HS, LS, DNOM, VHF: TSeries;
begin
{ Indicator parameters }
  Periode := CreateParameterInteger('Periode', 1, 999, 28, true);

{ Indicator eigenschappen }
  with Indicator do 
  begin
    ShortName := 'VHF';
{ Aantal benodigde koersen om eerste indicatorwaarde te berekenen }
    RequiredBars := Periode;
    HelpText := sHelpText;
  end;

  HS := HighSeries(Close, Periode);
  LS := LowSeries(Close, Periode);
{ Deze code wordt gebruikt door de DLL implementatie van de VHF
  HS := HighSeries(ShiftSeries(High, 1), Periode);
  LS := LowSeries(ShiftSeries(Low, 1), Periode);
}
  DNOM := MultiplySeriesBy(MA(AbsSeries(Momentum(Close, 1)), maSimple, Periode), Periode);
  VHF := DivideSeries(SubtractSeries(HS, LS), DNOM);
  CreateLine(VHF).Color := clLime;
end.

Plaats reactie