Thema: Delphi funktion zeichen

Einzelnen Beitrag anzeigen

freaky-girl

Registriert seit: 29. Dez 2008
3 Beiträge
 
#1

funktion zeichen

  Alt 2. Jan 2009, 22:04
ich möchte eine funktion anzeigen lassen. aber ich komm einfach nicht weiter. bei y=x und y=3x etc klappt es, auch bei x*x aber sobald ich zB x+5 versuche, wird der graph total schief. von anderen möglichen funktionen mal abgesehen (probleme mit y-achse)

hier mein code:
----------------------------------------------------------------
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var i,xn,yn, fx, fy:integer; //i=x,
begin
xn:=image1.Canvas.PenPos.X; // Koordinatenursrung bei (100,100)
yn:=image1.Canvas.PenPos.Y;
image1.Canvas.Pen.Color:=clRed;

begin // f(i)=y
for i:=-100 to 150 do
fx:=i; // x wert setzen
fy:=round(i*5); // y wert setzen (funktion i*5, zum testen andere funktion eintragen)

image1.Canvas.moveTo(xn,yn); // mitte auf koord. ursprung setzen
Image1.Canvas.LineTo(xn+fx,yn-fy); // linie zeichnen
----------------------------------------------------------------

ich bin mit sicher, es lässt sich ganz einfach lösen


[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]
  Mit Zitat antworten Zitat