Section courante

A propos

Section administrative du site

En Perl, il existe une fonction «ACos» permettant de calculer l'Arc Cosinus d'un cercle en degré, mais pas en radian. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

  1. #!/usr/bin/perl
  2.  
  3. use Math::Trig;
  4.  
  5. sub ArcCos() {
  6.  my($a) = @_;
  7.  return abs($a) == 1.0 ? (1 - $a) * pi / 2.0 : atan(-$a / sqrt(1 - $a * $a)) + 2 * atan(1);
  8. }
  9.  
  10. print "ArcCos(0.5)=" . &ArcCos(0.5) . "\n";

La dernière ligne contient une instruction «print» retournant la valeur :

1.047197580337524

lors de l'exécution de se petit programme.

Dernière mise à jour : Jeudi, le 17 janvier 2019