Section courante

A propos

Section administrative du site

En Visual Basic (VB), il n'existe aucune fonction «ArcCos» ou «ACos» permettant de calculer l'Arc Cosinus d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

  1. Function ACos(a As Double) As Double
  2.    Const PI = 3.14159265358979
  3.    If Abs(a) = 1 Then
  4.       ACos = (1 - a) * PI / 2
  5.    Else
  6.       ACos = Atn(-a / Sqr(1 - a * a)) + 2 * Atn(1)
  7.    End If
  8. End Function
  9.  
  10. Sub Main()
  11.  MsgBox "ACos(0.5)=" & ACos(0.5)
  12. End Sub

on obtiendra le résultat suivant :

ACos(0.5)= 1.047197551196598

Dernière mise à jour : Lundi, le 19 novembre 2012