salut à tous, j'aimerais savoir comment on fait pour avoir la fonction cos^-1 et sin^-1, que l'on a sur nos calculatrices, j'ai trouvé tan^-1 qui est la fonction atn, mais c'est tout.
merci d'avance et bonne journée à vous.

Bonjour

Private Function ArcSin(ByVal x As Single) As Single
If x = 1 Then
    ArcSin = 0  
Else
    ArcSin = Atn(x / Sqr(1 - x* x))
End If
 End Function

Private Function ArcCos(ByVal x As Single) As Single
If x = 1 Then
    ArcCos = 0  
Else
    ArcCos = Atn(-x / Sqr(1 - x* x)) + 2 * Atn(1)
End If

Attention :
- ces 2 fonctions renvoient une mesure d'angle en radians.
- pour les 2 fonctions, il faut évidemment que  x soit compris entre -1 et 1

Ca marche pas ca. Déja parceque Arcsin de 1 ne fait pas 0. De plus il y a un prb de division par 0 pour x=-1.
Voila une version corrigée. Je crois.

Const Pi = 3.1415926535897932

Private Function ArcSin(ByVal x As Single) As Single

    If x = 1 Then
        ArcSin = Pi / 2
    Else
        If x = -1 Then
            ArcSin = -(Pi / 2)
        Else
            ArcSin = Atn(x / Sqr(1 - x * x))
        End If
    End If
   
End Function

Private Function ArcCos(ByVal x As Single) As Single

    If x = 1 Then
        ArcCos = 0
    Else
        If x = -1 Then
            ArcCos = Pi
        Else
            ArcCos = Atn(-x / Sqr(1 - x * x)) + 2 * Atn(1)
        End If
    End If
   
End Function