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

En Perl, il n'existe aucune fonction «ASin» permettant de calculer l'Arc Sinus 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 ArcSin() {
  6.  my($a) = @_;
  7.  if(abs($a) == 1.0) {
  8.   return pi / 2.0;
  9.  } else {
  10.   return atan($a / sqrt(1 - $a * $a));
  11.  }
  12. }
  13.  
  14. print "ArcSin(0.5)=" . &ArcSin(0.5);

La dernière ligne contient une instruction «print» retournant la valeur 0.5235987901687622 lors de l'exécution de se petit programme.

Dernière mise à jour: Mardi, le 3 janvier 2012