Fonction arccosinus [Résolu]

Messages postés
2
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
20 novembre 2005
- - Dernière réponse : Vb Lover
Messages postés
221
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
13 février 2010
- 20 nov. 2005 à 20:06
Bonjour,

quelqu'un pourrait il me dire comment implémanter la fonction
arccosinus sur VBA? J'ai essayé Acos, ... mais cela ne fonctionne pas!
J'ai bien un argument inférieur à l'unité.

D'avance merci beaucoup pour votre aide

Céline
Afficher la suite 
A voir également:

3 réponses

Meilleure réponse
Messages postés
2
Date d'inscription
dimanche 20 novembre 2005
Statut
Membre
Dernière intervention
20 novembre 2005
3
Merci
Merci beaucoup, je viens d'essayer et ca a fonctionné. Un grand merci.

Céline

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 154 internautes nous ont dit merci ce mois-ci

Messages postés
15838
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
71
0
Merci
En cherchant un peu sur google, je suis tombé sur cà (à tester si ca donne des résultats corrects) :




Private Function acos(x As Double) As Double


acos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)



End Function

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en français : www.ProgOtoP.com/popapi/
Messages postés
221
Date d'inscription
vendredi 30 novembre 2001
Statut
Membre
Dernière intervention
13 février 2010
3
0
Merci
la formule de DarK Sidious est le bonne, mais si tu veux être
complètement correcte sur le domaine de définition de l'arccos, alors
voilà:



If Abs(x) < 1 Then

ACos = Atn(-x / Sqr(1 - x * x)) + 2*Atn(1)

ElseIf x = 1 Then

ACos = 0

ElseIf x = -1 Then

ACos = 4*Atn(1)

Else

msgbox "Non défini pour |x|>1"

End If