Langage de programmation - LotusScript - Référence de procédures, d'instructions et de fonctions

ACOS	ArcCosinus
LotusScript

Syntaxe

Function ACOS(n As Double) As Double

Paramètres

Nom	Description
n	Ce paramètre permet d'indiquer l'expression à traiter. La valeur doit être situé situé entre -1 et 1 inclusivement, sinon une erreur se produira.

Retour

Valeur	Description
0 à π	Ces valeurs sont les seules pouvant être retourné.

Description

Cette fonction trigonométrique retourne l'«ArcCosinus».

Algorithme

MODULE ABS(valeur)
   SI valeur < 0 ALORS
      RETOURNE - valeur
   SINON
      RETOURNE valeur
   FIN SI

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XN ← X
      BOUCLE FAIRE TANT QUE XN >= 2.0
         XN ← 0.25 x XN
         M ← 2.0 x M
      FIN BOUCLE FAIRE TANT QUE
      BOUCLE FAIRE TANT QUE XN < 0.5
         XN ← 4.0 x XN
         M ← 0.5 x M
      FIN BOUCLE FAIRE TANT QUE
      A ← XN
      B ← 1.0 - XN
      BOUCLE REPETER
         A ← A x (1.0 + 0.5 x B)
         B ← 0.25 x (3.0 + B) x B x B
      FIN BOUCLE JUSQU'A B ← 1.0E - 15
      RETOURNE A x M
   FIN SI

MODULE ARCTAN(X)
   A ← 1.0 / SQRT(1.0 + (X x X))
   B ← 1.0
   BOUCLE POUR N ← 1 JUSQU'A 11
      A ← (A + B) / 2.0
      B ← SQRT(A x B)
   FIN BOUCLE POUR
   RETOURNE X / (SQRT(1.0 + (X x X)) x A)

MODULE ACOS(a)
   PI ← 3.141592653589793
   SI ABS(a) = 1.0 ALORS
      RETOURNE (1 - a ) x PI / 2.0
   SINON
      RETOURNE ARCTAN(-a / SQRT(1 - a x a)) + 2 x ARCTAN(1)
   FIN SI

Remarque

Vous pouvez utilisez la fonction «@Acos» sous l'application de chiffrier électronique Lotus 1-2-3.

Exemple

Voici un exemple montrant l'Arc Cosinus de 0,5 :


				
Sub Main()

     Print "ACos(0.5)=" & Acos(0.5)

End Sub

on obtiendra le résultat suivant :

ACos(0.5)= 1.047197551196598

Voir également

Dernière mise à jour : Mercredi, le 7 janvier 2015

Section courante

A propos

Section administrative du site

ACOS