Section courante

A propos

Section administrative du site

En Visual Basic .NET (VB .NET), il existe une fonction «ArcSin» dans la classe «Math» (Math.Asin), permettant de calculer l'Arc Sinus d'un cercle, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

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

on obtiendra le résultat suivant :

ArcSin(0.5)= 0.5235987755982989

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