-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
22. Apr 2007
Hallo Nikolas - vielen Dank für deine Hilfe! Wir haben unsere Noten am Freitag bekommen und ich habe 13 Punkte (1-) auf die Arbeit bekommen. Ich wollte mich nochmal bei dir bedanken da du ja auch durchaus zu dieser Note mit deiner Hilfe (und vor allem Gedult) dazu beigetragen hast! Vielen Dank! Ich hab dem Lehrer auch gesagt, dass die Sache nicht ganz allein auf meinem Mist gewachsen ist...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
//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)+')';
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
Oops, da hab ich ja nochwas falsch, das stimmt, also hier die richtigen Ableitungen:
fsin(x) =a*sin(b*x)
fsin'(x) =b*a*cos(b*x)
fsin''(x) =-b*a*sin(b*x)
fsin'''(x) =b*a*cos(b*x)
fcos(x)=a*cos(b*x)
fcos'(x)=-b*a*sin(b*x)
fcos''(x)=b*a*cos(b*x)
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
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 :)...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
Die Ableitung zu sinus:
//Ableitungen
a:=strtofloat(form1.Edit10.text) ;
b:=strtofloat(form1.Edit11.text) ;
form1.Label9.Caption:=a+'*sin('+b+'*x)';
form1.Label10.Caption:='2*a*cos(b*x)';
form1.Label11.Caption:='-2*a*sin(b*x)';
form1.Label12.caption:='-2*a*cos(b*x)';
Label9 - Funktion
Label10- 1.Ableitung
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
ah mein Helfer ist wieder hier :thumb:
Also mit der quadrat. Funktion das funktioniert jetzt, danke, wie gesagt, ich weis nicht wie ich die Extrema und WP von cos und sin Funktionen herausbekommen soll wenn a und b variabel sind?? :pale:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
also die Extrema für a*x*x+b*x+c funktionieren jetzt! Hatte einen Geistesblitz, ich brauch ja nur den Scheitelpunkt berechnen ^^
Ich hänge aber noch an den Wendepunkten und Extrema von Sinus und Cosinusfunktionen :( Weis jemand, wie ich das am besten berechnen kann? Das Problem ist, das die Funktionen ja a*sin(b*x) bzw. cos sind, a und b sind variabel vom Nutzer einzugeben.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
26. Mär 2007
Ich lasse nun auch die Ableitungen berechnen, das ist ja an sich nicht schwer da die Formel ja einfach ist, hier ein Beispiel aus meinem Program :)
//Ableitungen
form1.Label9.Caption:=form1.Edit1.Text+'*x*x + '+form1.Edit2.Text+'*x + '+form1.Edit3.Text;
a:=strtofloat(form1.Edit1.Text)*2;
form1.Label10.Caption:=floattostr(a)+'*x + '+form1.Edit2.text;
form1.Label11.Caption:=floattostr(a);...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
So du hast mir schonmal ein wenig auf die Sprünge geholfen, ich habe jetzt folgenden Code:
//Nullstelle positiv
form1.ListBox1.clear;
a:=0;
b:=strtofloat(form1.Edit11.text);
c:=0;
d:=strtofloat(form1.Edit17.text);
while a<d do begin
xo1:=c*(pi/b);
form1.ListBox1.Items.Add(floattostr(xo1));
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
den grünen hab ich ja auch mit der Hand gezeichnet - aber ich glaub ich hab den Fehler jetzt gefunden und es müsste wieder Funktionieren!
So, also bleiben wir beim sinus-Problem, ok ich werde mir den mal aufzeichnen und deinen Hinweis anschauen - vielleicht bekomm ichs hin
btw welche Polynome? die x³ Funktion?? Umm ich glaub die mach ich wieder raus weil das is mir zu kompliziert mit der...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
hier einmal ein Bild- der rote Graph ist die Darstellung von Tchart - der grüne den ich mit der Hand gezeichnet hab, wäre aber richtig! :o
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
c und d gibt der Benutzer ein - sorry wegen dem end; das gehörte zur Procedur weiter oben
Dieses Intervall muss sowiso eingegeben werden damit der Computer den Graphen in einem Bereich zeichnen kann (siehe Post davor, da siehst du wie ich den Graphen zeichnen lasse, x erhöht sich immer um einen Pixel im Intervall) da nehme ich das c und d heraus, aus dem eingegebenen Intervall
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
Waah! Hilfe!! Ich habe gerade festgestellt das Tchart die Funktionen falsch darstellt!!
y:=(x*x)-(4*x)+3 ; wird an einer falschen Stelle dargestellt z.B. !! Kacke woran liegt das, Mittwoch muss die Arbeit fertig sein und jetzt sehe ich, dass meine Funktionen gar nicht richtig dargestellt werden!! Ich hab als Beispiel mal y:=(x*x)-(4*x)+3 ; probiert, egal ob mit oder ohne Klammern, die...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
Also ich bin jetzt bei der Sinus Nullstelle:
Das ist mein Code
while c<d do begin
xo1:=c*(pi/b);
form1.ListBox1.Items.Add(floattostr(xo1));
c:=c+1; end; end;
c ergibt sich aus dem Startintervall und
d ergibt sich aus dem Endintervall
das der Nutzer beliebig eingeben kann.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
Danke für die Hilfe ihr beiden! Also ich glaube ich lasse diese x³ Funktion besser weg, weil das ist ja ein riesen Aufwand wenn ich mir diese Newtonformel so bei Wikipedia anschaue :o
PS: Ja, is Projektarbeit für die Schule ^^
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
das Programm stellt Funktionen wie ax³+bx²+cx+d, oder ax²+bx+c oder mx+n oder a*sin(b*x) bzw. cos und tan dar!
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SeriousToni,
25. Mär 2007
Ich bin auf ein Problem gestoßen, wo ich gerade nicht alleine weiterkomme:
Ich möchte gerne die Schnittpunkte des Funktionsgraphen (series1) mit der x und y Achse in eine Listbox bringen.
Das Gleiche möchte ich für Extrema und Wendepunkte.
Ich arbeite mit dem Tchart.
x:=strtofloat(form1.Edit16.Text);
while x<= strtofloat(form1.Edit17.Text) do
begin
...