Bräuchte Hilfe beim Zeichnen von u=u_t*cos(2*pi*f_t*t)

[Mavarik]

Sorry dreeeeeeeer!!!

 Form1.Canvas.LineTo(trunc(sin(i*Pi/180)*100)+100,trunc(Cos(i*Pi/180)*100)+100); oder auch...

Delphi-Quellcode:

  Form1.Canvas.moveTo(trunc(sin(0*Pi/180)*100)+100,trunc(Cos(0*Pi/180)*100)+100);
  for i:=1 to 360 do
    begin
      Form1.Canvas.LineTo(trunc(sin(i*Pi/180)*100)+100,trunc(Cos(i*Pi/180)*100)+100);
    end;

Frank