Excel équation

Question

Bonjour,  


Je voudrais faire résoudre par Excel l'équation de Colebrook-White : 
https://fr.wikipedia.org/wiki/Cyril_Frank_Colebrook 
Afin de trouver lambda : le coefficient de perte de charge linéaire qui est des 2 cotés !

Mais avec le solver cela ne se fait pas automatiquement pour toutes les cases et en plus je ne sais pas comment l'utiliser pour faire ça ! 

comment peut-on faire ? 

merci

Raymond PENTIER · Answer

Sacrée question !

Mais à mon avis, il te suffit de chercher pour quelle valeur de lambda tu auras zéro comme résultat du calcul :
=1/RACINE(Lambda)+2*LOG(2,51/Re/RACINE(Lambda)+Epsilon/3,7/D)
cette formule étant recopiée dans les cellules de la colonne H
et en définissant 
* les noms D, Epsilon et Re pour les cellules contenant leurs valeurs,
* le nom Lambda pour la colonne G dans laquelle on fera varier les valeurs de lambda par des incrémentations successives.
Tu as ta bonne valeur lorsque le résultat en H atteint zéro.
On peut ainsi se passer du solveur ...
Version 2007 https://www.cjoint.com/?BDtf2YMheGc
Version 2003 https://www.cjoint.com/?BDtf4kqSKmW

Très cordialement.

Raymond PENTIER · Answer

Désolé !
Je m'en suis tenu à ta stricte demande "Je voudrais faire résoudre par Excel l'équation de Colebrook-White ... afin de trouver lambda ".
Il te faudrait donc soit dupliquer la feuille et refaire la procédure pour chaque jeu de valeurs de Re, D et epsilon, soit arriver à créer des abaques.

Je te signale que, si tu n'as pas besoin de conserver côte à côte les différents jeux de valeurs (les trois variables et Lambda), tu peux créer des "toupies" pour faire changer progressivement les paramètres variables. J'y réfléchis pour toi ... à plus tard !

Raymond PENTIER · Answer

Salut, remibarbier !

Je suis assez content de mon fichier, même si toi, tu ne le considéreras pas si efficace que ça ... J'ai trouvé une méthode sans macro et sans solveur, juste en jouant à la toupie, alors je suis satisfait ! 
https://www.cjoint.com/?BDtppHbipgE

Bonne journée.

remibarbier · Answer

j'ai réussi a faire ma macro pour résoudre le problème, elle utilise le solver : 
cela pourra servir a d'autre ! 
je me suis aider de ce site pour les macro : 

https://jml85.pagesperso-orange.fr/Pages/cours_VBA.htm 


Sub Solverauto() 
' 
' Solverauto Macro 
' 
' Touche de raccourci du clavier: Ctrl+ù 
' 
 Dim i As Integer 
 Dim Cel As Range 
 Dim Cel2 As Range 
 Set Cel = Range("$M$5") 
 Set Cel2 = Range("$N$5") 
 Dim nombre As Integer 
  
 nombre = Cel.End(xlDown).Row 
  
 For i = 0 To nombre - 5 
If Cel.Offset(i) <> "" Then 
 Cel2.Offset(i) = 0.05 
  
SolverOk SetCell:=Cel.Offset(i), MaxMinVal:=3, ValueOf:="0", ByChange:=Cel2.Offset(i) 
    SolverSolve (True) 
End If 

Next i 
     
     
     
End Sub

M5 est la cellule a définir a 0 et N5 est la cellule variable dont on cherche la valeur sur le solveur.
i permet de bouclé le solveur avec "nombre" le nombre de ligne que l'on a a partir de m5 a résoudre.
on connais la fin avec Cel.End(xlDown).Row

Raymond PENTIER · Answer

Alors c'est très bien, et ça n'est pas du tout dans mes compétences ...

Sinon, en respectant les ordres de grandeur que tu as bien voulu me communiquer, mon petit montage fonctionne toujours :
https://www.cjoint.com/?BDuewyTGU63

Cordialement.

Excel équation

5 réponses

Discussions similaires

Newsletters