Section courante

A propos

Section administrative du site

En LotusScript, il existe une fonction «ASin», permettant de calculer l'Arc Sinus d'un cercle, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Function ArcSin(a As Double) As Double
  2.      If Abs(a)=1 Then 
  3.           ArcSin = a*Pi/2
  4.      Else 
  5.           ArcSin = Atn(a/Sqr(1-a*a))
  6.      End If
  7. End Function
  8.  
  9. Sub Main()
  10.      Print "ArcSin(0.5)=" & Str$(ArcSin(0.5))
  11. End Sub

on obtiendra le résultat suivant :

ArcSin(0.5)= 0.5235987755982989

Dernière mise à jour : Dimanche, le 18 janvier 2015