Section courante

A propos

Section administrative du site

Bien qu'en Visual Basic .NET (VB .NET), il existe une fonction «ArcCos» ou «ArCos» dans la classe «Math» (Math.Acos), permettant de calculer l'Arc Cosinus d'un cercle, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Module Module1
  2.  
  3.     Function ArcCos(ByVal a As Double) As Double
  4.         If Math.Abs(a) = 1.0 Then
  5.             Return (1 - a) * Math.PI / 2.0
  6.         Else
  7.             Return Math.Atan(-a / Math.Sqrt(1 - a * a)) + 2 * Math.Atan(1)
  8.         End If
  9.     End Function
  10.  
  11.     Sub Main()
  12.         Console.WriteLine("ArcCos(0.5)=" & ArcCos(0.5))
  13.     End Sub
  14.  
  15. End Module

on obtiendra le résultat suivant :

ArcCos(0.5)= 1.047197551196598

Dernière mise à jour : Samedi, le 22 octobre 2016