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

[Andre_Schmidt]

Hallo Leute....

ich hab mich gerade mal an einem graph probiert, und zwar möcht ich die Funktion u=u_t*cos(2*pi*f_t*t) zeichnen.
kann mir jemand ein wenig auf die sprünge helfen wie ich weiter verfahren könnte!?

Angenommen mein Canvas ist 100 Pixel breit ( b= 0..100) b=100 = 1ms, dann ist
t := 0.0001 * b/100; aber wie bring ich das mit in meinen quellcode rein

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var x,y,u_t,f_t,t: real;
begin
x:=10;
u_t:=4;  //Amplitude
f_t:=2;  //Frequenz
  while x<100 do
  begin
    x:=x+0.01;
    y:=u_t*cos(2*pi*f_t*x); //Formel
    image1.canvas.pixels[round(x+50),round(-y+100)]:=clblack;
    image1.canvas.Rectangle(0,0,image1.Width,image1.Height);
  end;
end;

end.

gruß andre