Résolution d'équations sous excel

[mario_fanelli]

Bonsoir tout le monde :

Je cherche à résoudre l'équation suivante : (t-x)^x = cste
Je cherche x et t c'est le temps.

Est ce que c'est possible de résoudre ce type d'équations sur Excel, et si pouvez-vous me conseiller comment faire?

Merci d'avance!

 

[Staple1600]

Re : Résolution d'équations sous excel

Bonsoir

Est ce que c'est possible de résoudre ce type d'équations sur Excel, et si pouvez-vous me conseiller comment faire?
!

Mon conseil sera le suivant
Regarder dans les fils existants du forum relatifs à la résolution d'équation s'il n'y a d'exemples susceptibles de t'aider.

Il te suffit d'utiliser=7&prefixchoice[]=&prefixchoice[]=Excel_2010&prefixchoice[]=Excel_2007&prefixchoice[]=Excel_2003&prefixchoice[]=Excel_2002&prefixchoice[]=Excel_2000&prefixchoice[]=MAC&prefixchoice[]=Toutes_Versions&prefixchoice[]=Access&prefixchoice[]=Word&prefixchoice[]=Outlook&prefixchoice[]=Power_Point&prefixchoice[]=Visio&prefixchoice[]=Project&prefixchoice[]=Autres&childforums=1&replyless=0&type[]=1"] le moteur de recherche du forum.

EDITION: salutations du matin, 13GIBE59, Job75

 

[13GIBE59]

Re : Résolution d'équations sous excel

Bonjour Mario, Staple.

Mario, ton équation s'apparente à une équation du type : ax² + bx +c = 0.


Une simple recherche sur internet fait le reste...

 

[kiki29]

Re : Résolution d'équations sous excel

Salut, consulter Google

sinon pour rappel voir Équation du second degré - Wikipédia

 

[job75]

Re : Résolution d'équations sous excel

Bonjour mario_fanelli, salut Jean-Marie, Jean-Bernard, kiki29,

Je cherche à résoudre l'équation suivante : (t-x)^x = cste

Où donc voyez-vous une équation du second degré ?

Pour calculer x il faut bien sûr se donner t et la constante.

Sur Excel 2003 menu Outils => Valeur cible.

Fichier joint.

A+

 

[job75]

Re : Résolution d'équations sous excel

Re,

On peut, avec un graphique, étudier la courbe x = f(t). La macro (Alt+F11) :

Sub Cible()
Dim cel As Range
Application.ScreenUpdating = False
For Each cel In Range("A4", [A65536].End(xlUp))
  cel.GoalSeek Goal:=[D1], ChangingCell:=cel.Offset(, 2)
Next
End Sub

Fichier (2).

Edit : avec K=50000, les valeurs T<12 donnent pour la cible des valeurs aberrantes.

Question du nombre d'itérations peut-être...

Où plutôt la question de la précision des calculs ?

A+

 

[mario_fanelli]

Re : Résolution d'équations sous excel

Bonjour!

Merci d'avoir vu que c'était pas une équation linéaire!
Merci pour vos réponses, ça m'a bien aidé.

Par contre, j'aurais une autre question, pour que ce soit compréhensible, je vais vous expliquer brièvement le projet (cf fichier joint).

En ouvrant le tableur, je vais rentrer les valeurs des trois paramètres A, B et C. La constante dont je parlais précédemment sera égale à la multiplication de ces trois facteurs.

Mais quand j'utilise "valeur cible", on me demande une valeur et pas une cellule, donc je dois changer manuellement la valeur cible. Est ce que c'est possible de changer cette valeur automatiquement?

Et sinon, le deuxième tableur que vous m'avez envoyé, c'est super d'avoir x en fonction du temps, c'est pile ce que je voulais. Et s'il y a un bug à cause de nombre d'itérations, est ce vous savez comment changez e nombre d'itérations?

Merci beaucoup pour aide!

 

[mario_fanelli]

Re : Résolution d'équations sous excel

Désolé, je viens de voir que si on change la valeur de la constante, ça marche! Super, merci beaucoup!

Par contre, comme t c'est le temps, c'est vrai que ça m'arrangerait que ça commence à 0. Pour x, j'ai pas besoin d'une super bonne précision. Enfin, c'est déjà super!

Merci beaucoup!

 

[job75]

Re : Résolution d'équations sous excel

Re,

Juste pour votre fichier du post #7 avec la macro adaptée :

Sub Cible()
Dim cel As Range
Application.ScreenUpdating = False
[C7:C65536].ClearContents 'ajouté au cas où l'on modifie les données
For Each cel In Range("A7", [A65536].End(xlUp))
  On Error Resume Next
  cel.Offset(, 3).GoalSeek Goal:=cel, ChangingCell:=cel.Offset(, 2)
  If Err Then cel.Offset(, 2) = "n/a"
Next
End Sub

Edit : ajouté [C7:C65536].ClearContents

pour le cas où l'on relance la macro après avoir modifié B7 ou la constante.

A+