Entwicklung der Sinus-Funktion in einer Taylor-Reihe

[Daniel1988]

Hallo habe jetzt einwenig mal probiert und habe es wenigstens schonmal geschaft eine sinusfunktion zu zeichnen. Nur zeichne ich jetzt alles aufeinmal und zweitens habe ich das nicht mit der Taylorreihe gemacht. Hoffe ihr könnte mir helfen wie ich nun weiter vorgehen muss. Habe mal mein Quellcode hier reingestellt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, h, x, y, xoffset, yoffset, ix, iy, endwert :integer;
kopfstand : boolean;
deltay, ydiffz,ymin, ymax, omega, sy, t :double;
begin
kopfstand:=true;
omega:=2;
h:=image1.height;
ymin:=-1.1;
ymax:=1.1;
ydiffz:=ymax-ymin;
deltay:=ydiffz/h;
xoffset:=10;
yoffset:=h div 2;

with image1.canvas do
     begin
     moveto (xoffset,10);
     lineto (xoffset, h-10);
     moveto (image1.width-10, yoffset);
     pen.color:=clblue;
     end;

Endwert:=trunc(2*pi/0.01/omega);
for i:=0 to endwert do
         begin
         t:=i*0.01;
         sy:=sin(omega*t);
         x:=i;
         y:=trunc(sy/deltay);
         ix:=trunc(x+xoffset);
         with image1.Canvas do
              begin
              if kopfstand then
                 begin
                 y:=h-y;
                 iy:=trunc(y-yoffset);
                 end
              else iy:=trunc(y+yoffset);
              if i=0 then
                 moveto(ix,iy)
              else
                  lineto(ix,iy);
              end;
         end;

end;