dans Variation je pense qu'il y a une erreur de parenthèse.
Mais même rectifié, pour les inputs du post #1, je trouve un Deltah de -0.4m.
Cependant (si j'ai bien compris) DeltaH est le niveau par rapport à l'origine. Donc s'agissant d'un abaissement il serait normal que DeltaH soit négatif. Non ?
Bonjour Nicolas,
Pas encore compris pourquoi, mais peut être que cela vous aidera à avancer.
Nous serons deux.
While Abs(Y - w) > 0.01 est impossible car Abs(Y - w) =57.6687486 et ne bouge pas.
Rajouter deux lignes de code pour suivre la convergence dans la feuille :
VB:
While Abs(Y - w) > 0.01
Range("A1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A1] = Abs(Y - w) ' rajoute la convergence en colonne A pour essayer de comprendre'
w = barrage(Bb, h, Am)
Y = variation(Ac, AlphaS, Vs) ', Bb, h, Am)
Wend
Je ne comprend pas pourquoi vous faites un test de convergence car :
1- w = barrage(Bb, h, Am) est constant =57.5919
2-Y = variation(Ac, AlphaS, Vs) est constant =-0.07676
D'autre part vous donnez Alpha=26, hors un angle s'exprime en radians donc compris entre +/-2Pi.
J'ai modifié le code pour tracer aussi W et Y :
VB:
While Abs(Y - w) > 0.01
Range("A1:C1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[A1] = Abs(Y - w)
w = barrage(Bb, h, Am) ' Cte
[B1] = w
Y = variation(Ac, AlphaS, Vs) ', Bb, h, Am)
[C1] = Y
Wend
Aucune idée.
Cependant, je réitère, le VBA (et XL) ne travaille qu'avec des angles en radians.
Alpha étant un angle il m'étonnerait que 26 soit exprimé en radians.
Généralement on exprime un angle en radian entre +/-2 pi.
26 radians feraient 1489°.
Peut être une piste.
dans Variation je pense qu'il y a une erreur de parenthèse.
Mais même rectifié, pour les inputs du post #1, je trouve un Deltah de -0.4m.
Cependant (si j'ai bien compris) DeltaH est le niveau par rapport à l'origine. Donc s'agissant d'un abaissement il serait normal que DeltaH soit négatif. Non ?