Fonction ACos

Signaler
Messages postés
9
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
9 mars 2013
-
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
aider moi
Function ACos(ByVal number As Double) As Double
If Abs(number) <> 1 Then
ACos = 1.5707963267949 - Atn(number / Sqr(1 - number * number))
ElseIf number = -1 Then
ACos = 3.14159265358979
End If
End Function



RACHID CHOURAN

4 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
bonjour (ben non !)
et quelle est la question ? en dehors du fait que tu auras une magnifique erreur pour number hors de la plage -1 à 1 ? (because la racine carrée d'un nombre négatif n'est pas un réel)
et si number dans cette plage : quel résultat (que nous ignorons) attends-tu autre que celui que tu obtiens ?

T'es vachement précis, dans tes questions !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
et le plus étrange, dans ta fonction, c'est que l'on y trouve deux nombres décimaux exprimés sous leur forme littérale !
3.14159265358979 , qui n'est autre que 4 * Atn(1)
et un
1.5707963267949, qui n'est autre que 2 * Atn(1)

Question, que cherches-tu à retourner exactement (Valeur de ton Acos) ?
Serait-ce l' "arccosinus" d'un nombre nb ?
Si oui (on ne sait jamais) , nul besoin d'une fonction ===>>

Atn(-nb / Sqr(-nb * nb + 1)) + 2 * Atn(1)

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
en te rappelant (si "arccosinus") que ,s'agissant alors de la réciproque de la fonction cosinus dans l'intervalle 0 à Pi, nb doit bien évidemment être compris dans l'intervalle -1 à 1, bornes exclues (donc ni 1 ni -1)!




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
51
Pourquoi écrire une fonction ACOS
si tu as math.acos
msdn