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