Section courante

A propos

Section administrative du site

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 : Jeudi, le 17 janvier 2019