Balance of Power

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

Balance of Power

Bericht door Eric »

In het blad TKA van mei 2008 schrijft Jeroen Bijleveld een artikel over de Balance of Power indicator van Igor Livshin. Het is een countertrend indicator, vergelijkbaar met de RSI.

Code: Selecteer alles

{- Filename: Balance of Power -}

var
  nMA, i: integer;
  sBOP, sMA: TSeries;
  nTrigger: real;
begin
{ Indicator parameters }
  nMA := CreateParameterInteger('MA periode', 1, 999, 14, true);
  nTrigger := CreateParameterReal('Trigger level', 0, 99, 0.3, true);

{ Indicator eigenschappen }
  with Indicator do
  begin
{ Aantal benodigde koersen om eerste indicatorwaarde te berekenen }
    RequiredBars := nMA;
  end;

  sBOP := DivideSeries(SubtractSeries(Close, Open), SubtractSeries(High, Low));
  sMA := MA(sBOP, maSimple, nMA);

  for i:=FirstValidIndex(sMA)+1 to BarCount-1 do
  begin
    if (sMA[i-1] <= -nTrigger) and (sMA[i] > -nTrigger) then Signals[i] := sgEnterLong;
    if (sMA[i-1] >= nTrigger) and (sMA[i] < nTrigger) then Signals[i] := sgEnterShort;
  end;

  with CreateLine(sMA) do
  begin
    Name := 'BOP-MA';
    Color := clLime;
  end;
  with CreateLine(FillSeries(CreateSeries(BarCount), -nTrigger)) do
  begin
    Name := 'Buy level';
    Color := clSilver;
  end;
  with CreateLine(FillSeries(CreateSeries(BarCount), nTrigger)) do
  begin
    Name := 'Sell level';
    Color := clSilver;
  end;
end.
---
Eric
Plaats reactie