Hi!
Ich möchte den Graphen einer beliebigen Funktion auf eine PaintBox zeichnen lassen,. Es geht auch, aber irgendwie nicht so richtig.
Hier mal mein bisheriger Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
x,y: integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
for x:=1 to 10 do
begin
PaintBox1.Canvas.Moveto(x,50-y);
y:=round(a*(x*x)+b*x+c);
ListBox1.Items.Add(IntToStr(x)+' ==> '+IntToStr(y));
PaintBox1.Canvas.LineTo(x,50-y);
end;
end;
Wie kann ich ein Achsenkreuz machen, das in der Mitte (0/0) hat und nach links hin negativ wird, nach rechts positiv, ...
Wenn ich das mit den canvas mache, dann gibt es da ja keine negative Koordinaten.
