Mathematisches Problem

[AMD_prozessor]

Hallo!

Tschuldigung!!! Die Grenzwertrechnung funzt so. Ich hatte statt der Limes() Funktion die SinXdivX Funktion in der Ausgabeschleife. So hier:

Delphi-Quellcode:

procedure TValueTable.ToolButton2Click(Sender: TObject);
var i: Integer; X: RealType;
begin
  //Grenzwertberechnung
  X := 0.1;
  for i := 1 to 100 do
  begin
    AddXValue(X);
    AddYValue( SinXdivX(X) ); //Hier kommen die negativen Zahlenwerte, weil nicht Grenzwert,
    AddTValue(i);             //sondern sin(x)/x berechnet wird
    inc(FTblRow);
    fTable.RowCount := fTable.RowCount + 1;
    X := X + 0.1;
  end;
end;

statt so hier, wie es richtigerweise sein muss:

Delphi-Quellcode:

procedure TValueTable.ToolButton2Click(Sender: TObject);
var i: Integer; X: RealType;
begin
  //Grenzwertberechnung
  X := 0.1;
  for i := 1 to 100 do
  begin
    AddXValue(X);
    AddYValue(  Limes(SinXdivX,X)  );  //So ist es richtig. Jetzt stimmt auch das Ergebnis
    AddTValue(i);
    inc(FTblRow);
    fTable.RowCount := fTable.RowCount + 1;
    X := X + 0.1;
  end;
end;

So, nun funtzt das Ganze. Die Grenzwertberechnung ist also doch richtig.