Hi-Lo activator

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

Hi-Lo activator

Bericht door Eric » do jul 27, 2006 4:57 pm

De Hi-Lo Activator van Robert Krausz. Deze wordt besproken door Ron Schelling in TKA magazine van dec 2002.

Code: Selecteer alles

{- Filename: Hi-Lo Activator -}

type
  TPositionType = (ptUnknown, ptLong, ptShort);
var
  i, MAPeriode: integer;
  StopLevel: TSeries;
  Position: TPositionType;
  MAHigh, MALow: TSeries;
begin
  MAPeriode := CreateParameterInteger('MA periode', 1, 99, 3, true);

{ Indicator eigenschappen }
  with Indicator do
  begin
    ShortName := 'HiLo';  // naam boven grafiek
    SupportedSignals := [sgEnterLong, sgEnterShort];  // aan/verkoopsignalen
    SignalSize := 1;  // grootte signaleringen
    NewBand := false;  // indicator komt door hoofdgrafiek heen
    ScaleRange := srCommon;  // indicatorschaal is identiek aan de hoofdgrafiek
    CanUseParentDelta := true;  // we kunnen ook het verschil met de hoofdgrafiek weergeven
    RequiredBars := MAPeriode+100;  // aantal benodige koersen om eerste indicatorwaarde te berekenen
  end;

{ Indicatorberekening }

{ beginsituatie: Long of short is nog niet bekend }
  Position := ptUnknown;
  StopLevel := CreateSeries(BarCount);
  MAHigh := MA(High, maSimple, MAPeriode);
  MALow := MA(Low, maSimple, MAPeriode);
  for i:=FirstValidIndex(MAHigh)+2 to BarCount-1 do
  begin
    if (Close[i] < MALow[i-1]) and (Close[i-1] > MALow[i-2]) then
    begin
      EnterShort(i);
      Position := ptShort;
    end;
    if (Close[i] > MAHigh[i-1]) and (Close[i-1] < MAHigh[i-2]) then
    begin
      EnterLong(i);
      Position := ptLong;
    end;
    case Position of
      ptShort: StopLevel[i] := MAHigh[i];
      ptLong: StopLevel[i] := MALow[i];
    end;
  end;

  with CreateLine(StopLevel) do
  begin
    Name := 'Hi-Lo';
    ColorType := ctIndicator;
    Color := RGB(0,255,0);
    LineType := ltDot;
    Width := 2;
  end;
end.

Plaats reactie