Graphen einer Funktion zeichnen

[Matze]

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. :gruebel:

[Jens Schumann]

Hallo Matze,
dort Beispielhabe ich mal rudimentäres Beipsiel gebracht. Die Umsetzung auf 4 Quadranten musst Du schon selbst machen. Tip: Der Ursprung muss ja nicht immer in der linken oberen Ecke sein. Du kannst jeweils in X- und in Y-Richtiung einen Konstanten Wert addieren. Diesen Wert addierst Du dann auch zu den Funktionswerten.

[mandumoal]

Hi Matze!

Damit kannst du denn "Nullpunkt" eines Steuerelemets auf einen beliebigne Punkt setzen:

Delphi-Quellcode:

SetViewPortOrgEx(Paintbox1.Canvas.Handle, yKoordinate, xKoordinate, nil);

yKoordinate und xKoordinate müssen integer sein.

mfg mandumoal

[Matze]

Oh, danke, das probiere ich gleich mal.

[Matze]

Das geht irgendwie nicht, ich hab's einfach bei ButtonClick eingefügt.

[Matze]

Danke nochmal, ich hab's jetzt gelöst.