hallo nochmal,
da mir keiner auf mein vorherigen topic antwortet....werde ich das letzte mal was einfaches fragen...was bei mir irgendwie net funktionieren will
und zwar die ableitung der funktion ax²+bx+c soll graphisch dargestellt werden, aber wird net korrekt eingestellt
Delphi-Quellcode:
bereich:= Round(StrToInt(intervall.Text)/2);
...
procedure TForm1.AbleitungClick(Sender: TObject);
var f1,f2,x1,x2:integer;
begin
new_b:=a*2;
new_c:=b;
abl_ausg.Visible:=true;
if new_c=0 then
Abl_ausg.Caption:='y=f(x)='+floattostr(new_b)+'x'
else
Abl_ausg.Caption:='y=f(x)='+floattostr(new_b)+'x'+'+'+floattostr(new_c);
if a=0 then
begin
Abl_ausg.Caption:='y=f(x)='+floattostr(new_c)
end;
graphbox.Canvas.pen.color :=clRed; //Ändert die Farbe des Stift-Objekts Pen
graphbox.Canvas.pen.width :=1; //Ändert die Strichstärke des Stift-Objekts Pen
f1:=Round(graphbox.height/2)-(new_b*(-bereich))+new_c;
f2:=Round(graphbox.height/2)-(new_b*(bereich))+new_c;
x1:= Round(graphbox.width/2)-bereich;
x2:= Round(graphbox.width/2)+bereich;
graphbox.canvas.MoveTo(x1,f1);
graphbox.Canvas.LineTo(x2,f2);
end;
dies will einfach net funktionieren, stellt falsch dar