1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TForm1.DrawGraph;
Var ix, iy:Real; // Tatsächlich Pixel
    x, x1:Real; // Stelle X, Stelle X-1
    f, f1:Real; // Funktionswert(x), funktionswert(x-1)
    i:Integer; // Laufwert
    ix1,iy1: Real; // Tatsächliche Pixel f(x-1)
begin

i := 0;
While (i <= 400) Do
  Begin
  x := (i - 200) / 20;
  f := sin(x);

  x1 := (i - 201) / 20;
  f1 := sin(x1);

  ix := (x*20) + 200;    // 20px entspricht der Skalierung
  iy := PaintBox1.Height/2-Round((f*20));  // Funktionswert mal Skalierung

  ix1 := (x1*20) + 200;    // 20px entspricht der Skalierung
  iy1 := PaintBox1.Height/2-Round((f1*20));  // Funktionswert mal Skalierung

  if (frac(iy) = 0) AND (frac(ix) = 0) AND (ix1>=0) then
    begin
    With PaintBox1.Canvas Do
      Begin
      MoveTo( Trunc(ix1),Trunc(iy1) );
      LineTo( Trunc(ix), Trunc(iy) );
      Pixels[Trunc(ix),Trunc(iy)] := clBlack;
      end;
    end;
  
  i:=i+1;
  End;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

unit FunctionPlotter;

{
Autor: Udontknow (Andreas Kreul, webmaster at xnebula dot de)

Diese Unit stellt eine Klasse zum Zeichnen von Funktionen auf Zeichenflächen
(Canvas) zur Verfügung. Die Berechnung der Werte erfolgt über eine extern
zuzuweisende Funktion (Event OnPlot).

}

interface

uses Classes, Controls, Graphics;

type TPlotEvent=function(X:Real):Real of Object;

type TFunctionPlotter=class(TComponent)
  private
    FOnPlot:TPlotEvent;
  public
    procedure PlotFunction(MinX,MaxX,MinY,MaxY:Real; Canvas:TCanvas; Width,Height:Integer); virtual;
  published
    property OnPlot:TPlotEvent read FOnPlot write FOnPlot;
end;

procedure Register;

implementation

{ TFunctionPlotter }

procedure Register;
begin
  RegisterComponents('Win32',[TFunctionPlotter]);
end;

procedure TFunctionPlotter.PlotFunction(MinX, MaxX, MinY, MaxY: Real; Canvas:TCanvas; Width,Height:Integer);
var Row,Column:Integer;
var X,Y:Real;
var PixelPerHeightUnit:Real;
var PixelPerWidthUnit:Real;
begin
  PixelPerHeightUnit:=Height/(MaxY-MinY);
  PixelPerWidthUnit:=Width/(MaxX-MinX);

  Canvas.MoveTo(-2,0);
  for Column:=-1 to Width-1 do
  begin

    //Was für ein X-Wert der Funktion entspricht dieser Column?
    X := MinX + Column/PixelPerWidthUnit;

    //Y-Wert zu X-Wert durch Funktion berechnen
    Y := FOnPlot(X);

    //Was für eine Row entspricht dem errechneten Y-Wert?
    Row :=Height -Trunc(Y*PixelPerHeightUnit-MinY*PixelPerHeightUnit);

    //Zeichnen
    Canvas.LineTo(Column,Row);
  end;
end;

end.