Naja das hab ich mir selbst ausgedacht mit der 0 Stelle, das ist etwas schwer zu verstehn, aber das brauchst du ja nicht oder? Weil das funktioniert ja. Also es werden die richtigen Nullstellen in der Listbox ausgegeben
Die Ableitungen habe ich aus dem Kurvenprofi (eine Software zur Kurvendarstellung an der ich meine Ergebnisse kontrolliere). Die müssten so stimmen, da bin ich mir sicher
So sieht mein Text für die Sinusableitungen in Delphi aus:
Delphi-Quellcode:
a:=strtofloat(form1.Edit10.text) ;
b:=strtofloat(form1.Edit11.text) ;
form1.Label9.Caption:=floattostr(a)+'*sin('+floattostr(b)+')';
a:=a*2;
form1.Label10.Caption:=floattostr(a)+'*sin('+floattostr(b)+')';
a:=-2*a;
form1.Label11.Caption:=floattostr(a)+'*sin('+floattostr(b)+')';
a:=2*a;
form1.Label12.caption:=floattostr(a)+'*sin('+floattostr(b)+')';
label9 = funktion
label10 = 1. Ableitung
label11 = 2. Abl.
label12 = 3. Abl.
Und hier die Ableitungen für Cosinus in Delphi:
Delphi-Quellcode:
a:=strtofloat(form1.Edit12.text) ;
b:=strtofloat(form1.Edit13.text) ;
form1.Label9.Caption:=floattostr(a)+'*cos('+floattostr(b)+')';
a:=a*2;
form1.Label10.Caption:=floattostr(a)+'*cos('+floattostr(b)+')';
a:=-2*a;
form1.Label11.Caption:=floattostr(a)+'*cos('+floattostr(b)+')';
a:=2*a;
form1.Label12.caption:=floattostr(a)+'*cos('+floattostr(b)+')';
label9 = funktion
label10 = 1. Ableitung
label11 = 2. Abl.
label12 = 3. Abl.
Also ich brauch jetz Hilfe bei der Ermittlung von Extrema und Wendepunkte bei a*sin(b*x) und a*cos(b*x). Da weis ich nicht, wie ich das herausbekommen soll über Delphi 