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

zusammenfalten · markieren

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

Wo liegt denn dein Problem? Die Funktion sieht schon mal ganz gut aus. Warum überzeichnest du aber das gesamtze Feld, nachdem du einen Punkt gesetzt hast? So wirst du nichts sehen können.
ich schlage so etas vor:

markieren

Delphi-Quellcode:

while x<100 do
  begin
    x:=x+0.01;
    y:=u_t*cos(2*pi*f_t*x); //Formel
    image1.canvas.Rectangle(0,0,image1.Width,image1.Height); // a
    image1.canvas.pixels[round(x+50),round(-y+100)]:=clblack;
    sleep(50); // damit siehst du wie die Funktion gezeichnet werden soll.
    

  end;

a sollte nur drin sein, wenn du sleep (oder delay...) in der Funktion hast, dann siehst du die einzelnen Punkte.

Auch solltest du nicht die Größe des Fenster hart einbauen. eher oben in eine Variable die Fenstergröße einlesen und dann unten in deinen zeichenbefehl einbauen. Alles andere ist recht hässlich und führt zu viel Arbeit, wenn du mal die Fenstergrößer andern willst.
Am Besten baust du dir gleich eine Funktion wie:

markieren

Delphi-Quellcode:

Procedure Funktionzeichnen(image: Tcanvas; sleeptime: integer; col: tcolor usw. );
begin
y=...
zeichnen;
sleep(sleeptime);
end;

Die kannst du dann immer benutzen, wenn du ein ähnliches Problem hast. Dann musst du nur etwas die Parameter an deine speziellee Funktion anpassen und die y=-Zeile anpassen. Das halte ich am programmiertechnisch schönsten.

Hast Du auch daran gedacht, dass Delphi bei Cos Bogenmaß zurück gibt?

Frank

Meinst du vielleicht, dass cos einen Wert im Bogenmaß erwartet? Und mit dem Faktor 2\pi hat er das anscheinend auch gemacht.

Unit

System

Kategorie

Trigonometrie

function Cos(X: Extended): Extended;

Beschreibung

Cos gibt den Cosinus des Winkels X im Bogenmaß zurück.

Ich würde mal sagen, dass heisst eher:

Zitat:

Cos gibt den Cosinus des Winkels (X im Bogenmaß) zurück.

Was soll es denn bedeuten, dass die Funktionen einen Wert im Bogenmaß zurück gibt?

Naja ich schreibe immer...

CX := cos(Winkel*180/Pi)

Daher liefert folgende procedure auch das "richtige" Ergebniss..

markieren

Delphi-Quellcode:

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

Frank...

Hallo Frank,

setze einmal die Zahl 90 als Schleifenendwert ein und prüfe, ob das Ergebnis immer noch stimmt.

Gruß Hawkeye

Sorry dreeeeeeeer!!!

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

markieren

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