Chaikin Money Flow

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

Chaikin Money Flow

Bericht door Eric »

De Money Flow van Marc Chaikin.

Code: Selecteer alles

{- Filename: Chaikin Money Flow -}

function ChaikinMoneyFlow(Periode: integer): TSeries;
var
  sTeller, sAD: TSeries;
begin
  sTeller := SubtractSeries(SubtractSeries(Close, Low), SubtractSeries(High, Close));
  sAD := MultiplySeries(DivideSeries(sTeller, SubtractSeries(High, Low)), Volume);
  Result := DivideSeries(SumSeries(sAD, Periode), SumSeries(Volume, Periode));
end;

var
  Periode: integer;
  sMFI: TSeries;
begin
{ Indicator parameters }
  Periode := CreateParameterInteger('Periode', 1, 999, 21, true);

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

  sMFI := ChaikinMoneyFlow(Periode);

  with CreateLine(sMFI) do
  begin
    Name := 'MFI';
    Color := clLime;
    LineType := ltBar;
  end;
  with CreateLine(FillSeries(CreateSeries(BarCount), 0)) do
  begin
    Name := '0';
    Color := clSilver;
  end;
end.
---
Eric
Plaats reactie