Entwicklung der Sinus-Funktion in einer Taylor-Reihe

[Daniel1988]

Hallo,

ich studiere im 3. Semester an einer Fachhochschule und habe nun auch Maschinenbauinformatik habe mich davor aber nie mit delphi befasst und nun haben wir wieder ein Praktikum und ich habe keine ahnung wie ich dort vorgehen muss. Ich hoffe ihr könnt mir helfen!

Gruß Daniel

[jfheins]

Hattest du in Mathe schon Taylorreihen? Und was genau hast du schon gemacht und was verstehst du nicht?

[Daniel1988]

Ja, hatte in Mathe schon Taylorreihen.

Ich habe noch nichts gemacht weil ich nicht weiß wie ich Anfangen muss. (wie gesagt ist für mich neuland alles)

[Wolfgang Mix]

@Daniel1988

Die Taylorreihe mußt ja nicht selber herleiten, die Folge ergibt sich aus dem Arbeitsblatt.
Zunächst brauchst Du eine Potenzfunktion (suche unter power), einer Funktion für Falkultät
und die Umrechnung von Bogenmaß in Gradmaß (RadToDeg).

Ist hier alles unter Suchen oder in der Delphi-Reference zu finden

[Edit ]Außerdem müßte Dein Titel besser
Entwicklung der Sinus-Funktion mittels einer Taylor-Reihe heißen, denn
die Taylor-Reihe hast Du ja schon [/Edit]

Gruß

Wolfgang

[Daniel1988]

Zitat:

Zitat von Wolfgang Mix

@Daniel1988

Die Taylorreihe mußt ja nicht selber herleiten, die Folge ergibt sich aus dem Arbeitsblatt.
Zunächst brauchst Du eine Potenzfunktion (suche unter power), einer Funktion für Falkultät
und die Umrechnung von Bogenmaß in Gradmaß (RadToDeg).

Ist hier alles unter Suchen oder in der Delphi-Reference zu finden

Gruß

Wolfgang

ich bin neuling wo soll das sein? Sorry das ich es nicht weiß

[Wolfgang Mix]

hier und hier

[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;

[Wolfgang Mix]

Zeile 24:
Endwert auf pi/0.02/omega ändern (Soll ja nur bis 90 Grad sein)
zeile 24:
Statt for-to do die Button-Clicks zählen
(hatte ich gerade eben hier erfragt, wie man das anstellt)
Dann fügst Du im Design noch ein Memofeld ein und gibts
für jeden Button-Click den Sinuswert aus.
Die Taylorreihe für Sinus zeige ich dir dann im Delphi-Code

Gruß

Wolfgang

[kunta]

Wenn das der Prof. Kettner sieht...

[fh_beng]

Es ist doch nichts schlimmes. Er informiert sich doch schließlich und zeigt Engagement. Nur mal so, ich kenne Prof. Kettner auch und beschäftige mich zur zeit auch mit dieser Aufgabe ;-)