Problème d'angles

[ahille04]

Bonjour à tous,

Nouveau sur ce forum, je suis confronté au problème suivant :
J'ai un triangle aBc dont je connaîs les valeurs des 3 cotés" abc".

Je cherche à trouver l'angle B.
j'applique la formule suivante pour trouver B:

B= arccos ((ab²+bc²+ac²) / (2bc))

pour trouver l' arccos du résultat, j'applique la formule suivante:

arccos = 1/ (sqr(1-B²)) (vue sur wikipédia)

Mais là, le bas blesse, car cela me renvoie une erreur de calcul .... :cry:

J'ajoute que mes années d'école remontent à 35 ans et que j'ai oublié pas mal de choses.... (j'ai d'ailleurs honte.....)

Si quelqu'un peut m'aider ma reconaissance sera, sinon éternelle, du moins grande !

Merci d'avance

Achille04

[fatal_error]

salut,

sans trop tenter de savoir dou viennent ces formules on a le résultat '(théoreme?) d'al-kashi :

Pour l'angle B, cela donne

d'ou l'on déduit :

[ahille04]

salut,

sans trop tenter de savoir dou viennent ces formules on a le résultat '(théoreme?) d'al-kashi :

Pour l'angle B, cela donne

d'ou l'on déduit :

Bonjour, et merci bien pour la réponse, mais cela ne fonctionne pas !

Je m'explique autrement :

J'ai trouvé cette formule sur un site de math pour avoir l'angle souhaité :

B= arccos ((ab²+bc²+ac²) / 2*ab*ac))

Le problème est pour trouver arccos !

Je suis sous visual Basic 6, et cette fonction n'existe pas !

J'ai donc cherché, et trouvé sur le site VB, cette formule pour trouver arccos:

Arccos(x) = atn(-x / sqr(-x*x+1)) + 2*atn(1)

Or cette commande me renvoie une erreur...
Donc je ne comprends pas !

Si vous connaissez une façonde trouver cet angle, sans passer par l'arccos je suis preneur.....

Merci encore d'avoir prit la peine de répondre, et pardon d'abuser !

Achille

[Ericovitchi]

Et ce qu'ils conseillent là ça ne marche pas ?

Ou ça aussi que j'ai trouvé sur internet :

Public Function InvCos(X) As Single
Pi = 3.14
For Ang = 0 To 2 * Pi Step Pi / 100
Aprox1 = Cos(Ang - Pi / 200)
Aprox2 = Cos(Ang + Pi / 200)
If Aprox1 > Aprox2 Then
Temp = Aprox1
Aprox1 = Aprox2
Aprox2 = Temp
End If
If X >= Aprox1 And X <= Aprox2 Then InvCos = Ang: Exit For
Next
End Function

[ahille04]

Affirmatif, avec cette formule ça fonctionne.
Merci à tous, je vais reprendre mes cours de géométrie abandonnés voilà 38 ans.... bonne continuation


Public Function InvCos(X) As Single
Pi = 3.14
For Ang = 0 To 2 * Pi Step Pi / 100
Aprox1 = Cos(Ang - Pi / 200)
Aprox2 = Cos(Ang + Pi / 200)
If Aprox1 > Aprox2 Then
Temp = Aprox1
Aprox1 = Aprox2
Aprox2 = Temp
End If
If X >= Aprox1 And X <= Aprox2 Then InvCos = Ang: Exit For
Next
End Function[/quote]