Graphzeichner

[Mackhack]

@Diff:

Hier mal 2 Proceduren wie man auf einfachste Art Lineare und Quadratische Funktionen 3. Grades auf einem Image ausgeben kann...

ImgGraph ist ein TImage

Delphi-Quellcode:

procedure TFrmMain.BtnLinearDrawingClick(Sender: TObject);
var
  M, T: Real;
begin
  ImgGraph.Canvas.Pen.Color := clRed;
  M := StrToFloat(EdtSlope.Text);
  T := StrToFloat(EdtYIntercept.Text);
  Strecke(-5, M * (-5) + T, 5, M * 5 + T);
end;
 
procedure TFrmMain.BtnSquareDrawingClick(Sender: TObject);
var
  A, B, C, X1, X2, Y1, Y2: Real;
begin
  ImgGraph.Canvas.Pen.Color := clgreen;
  A := StrToFloat(EdtA.Text);
  B := StrToFloat(EdtB.Text);
  C := StrToFloat(EdtC.Text);
  X1 := -5;
  while X1 < 5 do
  begin
    X2:= x1 + 0.05;
    Y1:= A * X1 * X1 + B * X1 + C;
    Y2:= A * X2 * X2 + B * X2 + C;
    Strecke(X1, Y1, X2, Y2);
    X1:= X1 + 0.05;
  end;
end;

Der Rest sollte Selbsterklaerend sein... Ich hoffe doch sehr ich mach hier keine Hausaufgaben