Problem bei Formel zur Aktienanalyse

[Frank Borland]

Zitat von hincapie:

Also, ich habe mich mal etwas näher mit der technischen Analyse von Aktienkursen beschäftigt.
z. B. Momentum = Berechnung aus der Differenz des heutigen Kurses zum Kurs vor z.B. 30 Tagen

Moin!

Delphi-Quellcode:

  Table3.First;
  Table3.MoveBy(Anzahl);
  // an Ende sonst so oft wie Anzahl gegen den letzten Satz
  for i := RecCount-1-Anzahl to RecCount -1 do
  begin
    Value := Momentum(Anzahl);
    Series4.AddY(Value, Table3.FieldByName('Datum').AsString, clTeal);
    Table3.Next;
  end;

besser so:

Delphi-Quellcode:

  Table3.First;
  Table3.MoveBy(Anzahl);
  while not Table3.eof do begin
    Value := Momentum(Anzahl);
    Series4.AddY(Value, Table3.FieldByName('Datum').AsString, clTeal);
    Table3.Next;
  end; // while

wie immer ungetestet

Gruß

Malte