Calcul de l'involute inverse par dichotomie

[starbaits]

Re-Bonjour, (j'en profite parce que votre forum est vivant).

Voilà j'ai fait une petite macro qui me permet de trouver un angle alpha a partir de son involute.
Petit rappel involute(alpha)= tan(alpha)-alpha (qui ne possède pas de fonction réciproque bien-sûr)
Le problème c'est que ma boucle n'a pas l'air de s'achever. Voici le code.

A et B correspondent à des angles exprimé en radian. J'ai vérifié avec un tracé graphique, la solution se situe bien entre ces deux angles. La cellule (35,5) est la valeure de mon involute et je voudrais l'angle dans la cellule (36,5)

Private Sub CommandButton2_Click()
A = 0.1745
B = 0.8727
D = Cells(35, 5).Value
epsilon = 0.001
While A + B > epsilon
C = (A + B) / 2

FA = Tan(A) - A - D
FB = Tan(B) - B - D
FC = Tan(C) - C - D

If FA * FC > 0 Then A = C
If FB * FC > 0 Then B = C
Wend

Cells(36, 5).Value = A

End Sub

 

[starbaits]

Re : Calcul de l'involute inverse par dichotomie

Tu as tout à fait raison , ce n'était pas la somme mais la différence entre A et B. Tu as tord par contre, A et B sont modifiés par l'intermédiaire de C. Merci bien

 

[starbaits]

Re : Calcul de l'involute inverse par dichotomie

Regarde. Si A=1 et B=8 initialement
C=(8+1)/2=4.5
Après si la condition FA * FC > 0 est vérifié (ou l'autre condition, ce qui est vrai à chaque fois (principe de la méthode dichotomique))
alors A=C=4.5
donc à la prochaine boucle A=4.5 B=8 et C=(4.5+8)/2 = 6.25
etc....

 

[ODVJ]

Re : Calcul de l'involute inverse par dichotomie

Bonsoir à tous,

voilà une feuille qui permet de calculer les valeurs par intervalle de définition de tan(x) à l'intérieur d'un intervalle que tu choisis.
j'ai simplement habillé ta dichotomie.

si tu veux une solution par la méthode de newton regarde INVOLUTE - ANGLE angle, itération, involute, newton, réciproque ☼ Code source N°7637 ☼ Visual Basic, VB6, VB.NET, VB 2005

A+