Kurvendiskussion - Nullstellen Extrema usw. mit Tchart

**SeriousToni**

Ich bin auf ein Problem gestoßen, wo ich gerade nicht alleine weiterkomme:
Ich möchte gerne die Schnittpunkte des Funktionsgraphen (series1) mit der x und y Achse in eine Listbox bringen.
Das Gleiche möchte ich für Extrema und Wendepunkte.
Ich arbeite mit dem Tchart.

zusammenfalten · markieren

Delphi-Quellcode:

			x:=strtofloat(form1.Edit16.Text);

while x<= strtofloat(form1.Edit17.Text) do

  begin

  y:=(strtofloat(form1.Edit1.text)*x*x)+(strtofloat(form1.edit2.Text)*x)+strtofloat(form1.Edit3.Text);

  form2.series1.addxy(x,y);

  form2.Series2.addxy(x,0);

  form2.Series3.AddXY(0,y);

  if y=0 then  begin

    form1.ListBox1.Items.Add('X-Achse:'+floattostr(x)); end;

  if x=0 then begin

    form1.ListBox1.Items.Add('Y-Achse:'+floattostr(y)); end;

  x:=x+0.01;

  end;

Leider scheint er nicht so recht zu checken, wann y bzw. x wirklich Null ist, denn es steht nichts in der Listbox nach berechnung des Graphen! Hierbei handelt es sich um die Achsenschnittpunkte mit der Funktion.
Die Anweisung an sich funktioniert, ich weis nur nicht warum er sie nicht ausführt, da x und y ja auch zeitweise 0 sind!
Ich habe noch versucht über series1 (also dem Tchart-Funktionsgraphen) selbst prüfen zu lassen, wenn der x oder y value 0 ist, aber dazu scheint es keine Anweisung zu geben, die das prüft.

Wie kann ich das hier Lösen, mache ich etwas falsch?

Kurvendiskussion - Nullstellen Extrema usw. mit Tchart

Kurvendiskussion - Nullstellen Extrema usw. mit Tchart

Forumregeln