Einzelnen Beitrag anzeigen

SeriousToni

Registriert seit: 12. Jan 2007
39 Beiträge
 
Delphi 2005 Personal
 
#26

Re: Kurvendiskussion - Nullstellen Extrema usw. mit Tchart

  Alt 26. Mär 2007, 21:13
Delphi-Quellcode:
//Ableitungen Sinus
a:=strtofloat(form1.Edit10.text) ;
b:=strtofloat(form1.Edit11.text) ;
form1.Label9.Caption:=floattostr(a)+'*sin('+floattostr(b)+')';
a:=a*b;
form1.Label10.Caption:=floattostr(a)+'*sin('+floattostr(b)+')';
a:=(-b)*a;
form1.Label11.Caption:=floattostr(a)+'*sin('+floattostr(b)+')';
a:=b*a;
form1.Label12.caption:=floattostr(a)+'*sin('+floattostr(b)+')';
Delphi-Quellcode:
//Ableitungen Kosinus
a:=strtofloat(form1.Edit12.text) ;
b:=strtofloat(form1.Edit13.text) ;
form1.Label9.Caption:=floattostr(a)+'*cos('+floattostr(b)+')';
a:=a*(-b);
form1.Label10.Caption:=floattostr(a)+'*cos('+floattostr(b)+')';
a:=b*a;
form1.Label11.Caption:=floattostr(a)+'*cos('+floattostr(b)+')';
a:=(-b)*a;
form1.Label12.caption:=floattostr(a)+'*cos('+floattostr(b)+')';
Ja wenn du sie so in Delphi eingibst funktionieren sie aber, die Ableitungen.
Wenn es nach dem Kurvenprofi geht zumindest.


Also das ist ja ne schlaue Überlegung von dir!
Ich hab bis jetzt folgendes, aber die Werte die mir geliefert werden stimmen noch nicht weil ich n nicht für z in die Formel einsetzen kann, weil z ist ja im Prinzip die jeweilige Nullstelle. Also wenn ich Nullstelle Nr.2 haben will setz ich für z 2 ein und ich bekomme 4,7 raus. Wenn ich Nullstelle Nr.-3 haben will setz ich für z -3 ein und erhalte -10,99. Also immer ein Wert mit einer ungeraden Zahl*pi durch 2, wie du gesagt hast - wie bringe ich das aber im Bezug auf das Intervall in Bezug? Ich habe in meinem Programm praktisch die Intervalgrenze n selbst eingesetzt, was aber falsch ist, da n <> z ist, denn n ist mit z.B. -5 vielleicht der Startintervall, aber im Bezug auf z wäre -5 die Nullstelle Nr.-5! Verstehst du wie ich das meine? In ein n passt praktisch ein 1/pi*z

Hier mal der Code
Delphi-Quellcode:
n:=strtofloat(form1.Edit16.Text);
//bx:=((2*z)-1)*pi/2;
while (n>=strtofloat(form1.Edit16.Text)) and (n<=strtofloat(form1.Edit17.Text)) do
begin
  z:=((2*n)-1)*pi/2/b;
  form1.ListBox2.Items.Add(floattostr(z)) ;
  n:=n+1;
end;
edit 16 ist das Startinterval, edit17 das Endinterval, z die nullstelle nr.z, n eine zählvariable im bezug auf das Intervall
Jeder mag dicke Brüste!
  Mit Zitat antworten Zitat