Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Trigonométrie - ArcCos Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

En Perl, il existe une fonction «ACos» permettant de calculer l'Arc Cosinus d'un cercle en degrée, 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: Mardi, le 3 janvier 2012