Fonction arccosinus [Résolu]

ctavan 2 Messages postés dimanche 20 novembre 2005Date d'inscription 20 novembre 2005 Dernière intervention - 20 nov. 2005 à 12:55 - Dernière réponse : Vb Lover 221 Messages postés vendredi 30 novembre 2001Date d'inscription 13 février 2010 Dernière intervention
- 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 

3 réponses

Meilleure réponse
ctavan 2 Messages postés dimanche 20 novembre 2005Date d'inscription 20 novembre 2005 Dernière intervention - 20 nov. 2005 à 14:49
3
Merci
Merci beaucoup, je viens d'essayer et ca a fonctionné. Un grand merci.

Céline

Merci ctavan 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 20 nov. 2005 à 13:18
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/
Vb Lover 221 Messages postés vendredi 30 novembre 2001Date d'inscription 13 février 2010 Dernière intervention - 20 nov. 2005 à 20:06
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.