Ease of Movement

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

Ease of Movement

Bericht door Eric » do jun 14, 2007 12:11 pm

Een vrij onbekende volume-indicator is de Ease of Movement indicator van Richard W. Arms.

Voor de berekening wordt eerst de "Midpoint Move" berekend:

MidpointMove = (High+Low)/2 - (High[gisteren]+Low[gisteren])/2;

en de Box Ratio:

BoxRatio = Volume / (High-Low).

Deze worden door elkaar gedeeld.

Hoge Ease of Movement waarden betekenen stijgende koersen met een laag volume. Lage (negatieve) Ease of Movement waarden betekenen dalende koersen met een laag volume. Bij stabiele koers of een hoog volume is de indicatorwaarde rond nul.

De indicator geeft een signaal wanneer de (gemiddelde) waarde de nullijn kruist.

Code: Selecteer alles

{- Filename: Ease of Movement -}

var
  nMA: integer;
  sHiLo, sMM, sBR, sEMV, sMA, sZero: TSeries;
begin
{ Indicator parameters }
  nMA := CreateParameterInteger('MA periode', 1, 999, 9, true);

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

  sHiLo := AddSeries(High, Low);
  sMM := DivideSeriesBy(SubtractSeries(sHiLo, ShiftSeries(sHiLo, 1)), 2);
  sBR := DivideSeries(Volume, SubtractSeries(High, Low));
  sEMV := MultiplySeriesBy(DivideSeries(sMM, sBR), 1000000);
  sMA := MA(sEMV, maExponential, nMA);
  sZero := FillSeries(CreateSeries(BarCount), 0);
  Signals := CrossingsToEntrySignals(Crossings(sMA, sZero));
  
  with CreateLine(sEMV) do
  begin
    Name := 'EMV';
    Color := clLime;
  end;
  with CreateLine(sMA) do
  begin
    Name := 'MA';
    Color := clRed;
  end;
  with CreateLine(sZero) do
  begin
    Name := '0';
    Color := clSilver;
  end;
end.
---
Eric

Plaats reactie