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