Section courante

A propos

Section administrative du site

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

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

on obtiendra le résultat suivant :

ArcCos(0.5)= 1.047197551196598

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