RESOLUTION D'UNE EQUATION DU TROISIEME DEGRE

Commentaire de comemich le 06/10/2007 17:24:04

Oui, il serait judicieux de remplacer Pi par Math.Pi dans la ligne:
RacineDegré3.Add(2 * Math.Sqrt(-p / 3) * Math.Cos((Math.Acos(Cosinus) + 2 * k * Pi) / 3) + y)
ce qui donne
RacineDegré3.Add(2 * Math.Sqrt(-p / 3) * Math.Cos((Math.Acos(Cosinus) + 2 * k * Math.Pi) / 3) + y)

Commentaire de eBulle68 le 08/10/2007 11:44:38

pour la ligne RacineDegré3 = New Collection il me met " agrument non facultatif" et pour les autres, il connait pas ces fonctions.. du coup je sais pas trop quoi faire, ai-je oublié de charger une référence ou quelque chose?

Commentaire de eBulle68 le 09/10/2007 08:46:50

Mais pourtant ca doit bien être adaptable, non?

Commentaire de eBulle68 le 10/10/2007 11:06:20

Non c'est pas trop pressé...
A vrai dire je cherche a faire une feuille de calcul me permettant a tout moment de connaitre la hauteur d'eau dans un bassin. J'ai une relation entre le volume et le temps, puis entre le volume et la hauteur d'eau, mais du fait du bassin bizarre (une sorte de lingot inversé), cette dernière est du 3eme degré, c'est à dire v=f(h) du type v=a*h^3 + b*h^2 + c*h + d

Voilà pourquoi je cherche une macro qui me permette de résoudre efficacement les polynômes du 3eme degré. Je suis pas très pressé, il s'agit d'un travail personnel avant tout. Me demandez pas trop pourquoi je fais ca, c'est plus un défi qu'autre chose... J'aimais bien les problèmes de vidange de baignoire quand j'étais petit ^^

Commentaire de Abdelelansari le 26/01/2008 15:38:17

je suis un prof de math et voila mon programme pour la resolution d'equation du 3 degre'
Const PI As Single = 3.14159265358979
Dim e As Long
Dim f As Long
Dim g As Long
Dim p As Long
Dim q As Long
Dim k As Long
Dim x As Integer
Dim t As Integer
Dim s1 As Long
Dim s2 As Long
Dim s3 As Long
Dim s4 As Long
Dim s5 As Long
Dim s6 As Long
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
e = b / (3 * a)
f = c / a
g = d / a
p = (-3 * (e ^ 2)) + f
q = (2 * (e ^ 3)) - (e * f) + g
k = ((4 * (p ^ 3)) / 27) + (q ^ 2)
If k < 0 Then
   x = ((3 * q) / (2 * p)) * Sqr(-3 / p)
   t = (1 / 3) * (Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1))
   s1 = -e + Sqr(-4 * p / 3) * Cos(t)
   s2 = -e + Sqr(-4 * p / 3) * Cos(t + 2 * PI / 3)
   s3 = -e + Sqr(-4 * p / 3) * Cos(t + 4 * PI / 3)
   Text1.Text = " Les trois solutions sont : " & s1 & " et " & s2 & " et " & s3
   Text2.Text = "  "
   Text3.Text = " "
   Text4.Text = " "
ElseIf k = 0 Then
   s4 = -e - ((4 * q) ^ (1 / 3))
   s5 = -e + ((q / 2) ^ (1 / 3))
   Text1.Text = " Les deux solutions sont : " & s4 & " et " & s5
   Text2.Text = "  "
   Text3.Text = "  "
   Text4.Text = "  "
Else
   s6 = -e + (((-q + Sqr(k)) / 2) ^ (1 / 3)) - (((q + Sqr(k)) / 2) ^ (1 / 3))
   Text1.Text = " La solution est : " & s6
   Text2.Text = "  "
   Text3.Text = "  "
   Text4.Text = "  "
End If
End Sub
je vous demande de faire analyse et me faire des remarques
Merci infiniment