Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Gleichung des dritten Grades. Finden Sie ähnliche Zweige


mashinist   (2001-12-16 23:16) [0]

Ich bin hier, es sieht so aus, als hätte es jeder mit meiner Mathematik schon satt, aber immer noch. Hat jemand ein Stück Code, um eine Gleichung dritten Grades der Form ax ^ 3 + bx ^ 2 + cx + d = 0 zu lösen, mit a, b, c, d: extended;

Hilfe



Builder   (2001-12-17 02:35) [1]

Aber ist es nicht einfacher als zu ficken, sich zu setzen und sich selbst zu schreiben?

Nehmen Sie ein Buch über numerische Methoden - dies ist im ersten Abschnitt.



mashinist   (2001-12-17 11:58) [2]

Klappt nicht.
Schon ausprobiert.



Romkin   (2001-12-17 12:19) [3]

http://alglib.chat.ru/equat/index.html#cube
Meiner Meinung nach erschöpfend
Im Allgemeinen werden Gleichungen über dem zweiten Grad jedoch normalerweise nicht durch exakte Formeln gelöst, sondern durch Algorithmen zum Finden der Wurzeln von Polynomen des n-ten Grades



savva   (2001-12-17 12:31) [4]

Das hat der Blockdiagramm-Editor vorgeschlagen

Procedure CubeEquation(a,b,c:real; var nr:byte; x:array[1..3] of real);
// тока почему то не описаны параметры 8)) сам опишешь
begin
p:=-a*a/3+b;
q:=2*a/3*a/3*a/3-a*b/3+c;
QH:=(p/3)*(p/3)*(p/3)+(q/2)*(q/2);
if QH=0
then
begin
nr:=3;
AH:=abs(q/2);
if AH<>0
then
begin
AH:=sign (q)*exp(ln(AH)/3)
end;
x[1]:=2*AH-a/3;
x[2]:=-AH-a/3;
x[3]:=-AH-a/3
end
else
begin
if QH>0
then
begin
AH:=-q/2+sqrt(QH);
AH:=sign (AH)*exp(ln(abs(AH))/3);
BH:=-q/2-sqrt(QH);
BH:=sign (BH)*exp(ln(abs(BH))/3);
x[1]:=AH+BH-a/3;
if AH=BH
then
begin
nr:=3;
x[2]:=-(AH+BH)/2-a/3;
x[3]:=-(AH+BH)/2-a/3
end
else
begin
nr:=1;
x[2]:=-(AH+BH)/2-a/3;
x[3]:=(AH-BH)/2*sqrt(3)
end;
end
else
begin
nr:=3;
u:=-q/2/sqrt(-p*p*p/27);
u:=arccos(u);
x[1]:=2*sqrt(abs(p/3))*cos(u/3)-a/3;
x[2]:=-2*sqrt(abs(p/3))*cos(u/3+Pi/3)-a/3;
x[3]:=-2*sqrt(abs(p/3))*cos(u/3-Pi/3)-a/3
end;
end;
end;


Ich weiß nicht, ob ich vertrauen soll ...



SergVlad   (2001-12-17 13:58) [5]

Zu mashinist
Haben Sie immer noch Probleme mit Ihren Regulierungsbehörden?



Юрий Зотов   (2001-12-17 14:59) [6]

> Romkin © (17.12.01 12: 19)

Ich werde mir einen Änderungsantrag erlauben - über dem dritten und nicht dem zweiten. Für kubische Gleichungen gibt es jedoch genaue Formeln - zum Beispiel die Cardano-Formel. Es ist viel einfacher, schneller und genauer.



mashinist   (2001-12-17 15:40) [7]

Danke!




Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben





Speicher: 0.56 MB
Zeit: 0.023 c
1-22147
vinni2000
2001-12-20 12:59
2002.01.08
Brauchen Sie Rat auf RichEdit !!!!!!!!


1-21999
Elefant
2001-12-15 02:02
2002.01.08
C ++ oder Delphi


4-22466
Kunst
2001-10-31 15:21
2002.01.08
Und wie kann man die Bewegung der Maus auf die Formgrenzen beschränken?


7-22445
Kirill
2001-09-21 19:03
2002.01.08
In DLL aufnehmen


14-22349
Ivan Shikhalev
2001-11-06 21:48
2002.01.08
zu Anatoly Podgoretsky





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italienisch Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch Bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada Khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch