Section courante

A propos

Section administrative du site

Bien qu'en Liberty BASIC, il existe une fonction «ArcCos» ou «ArCos» sous le nom de «ACS», permettant de calculer l'Arc Cosinus d'un cercle, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. PRINT "ArcCos(0.5)="; ACos(0.5)
  2.  
  3. FUNCTION ACos(a)
  4.    IF ABS(a) = 1 THEN
  5.       ACos = (1 - a) * PI / 2
  6.    ELSE
  7.       ACos = ATN(0 - a / SQR(1.0 - a * a)) + 2.0 * ATN(1.0)
  8.    END IF
  9. END FUNCTION

on obtiendra le résultat suivant :

ArcCos(0.5)=1.047197551196598

Dernière mise à jour : Samedi, le 23 août 2014