Langage de programmation - Perl - Référence de procédures et fonctions

TAN	Tangente
Perl	POSIX

Syntaxe

sub POSIX::tan($expression);

Paramètres

Nom	Description
$expression	Ce paramètre permet d'indiquer l'expression ou la valeur à convertir.

Description

Cette fonction trigonométrique retourne la «tangente».

Algorithme

MODULE COS(X)
   R ← X x X
   S ← 42.0
   BOUCLE POUR I ← 10 JUSQU'A 1
      S ← 4.0 x I - 2.0 + (-R) / S
   FIN BOUCLE POUR
   S ← S x S
   RETOURNE (S - R) / (S + R)

MODULE SIN(X)
   R ← X x X
   S ← 42.0
   BOUCLE POUR I ← 10 JUSQU'A 1
      S ← 4.0 x I - 2.0 + (-R) / S
   FIN BOUCLE POUR
   RETOURNE 2.0 x X x S / (R + S x S)

MODULE POSIX::TAN(X)
   RETOURNE SIN(X)/COS(X)

Exemple

Voici un exemple permet d'afficher les tangentes inférieurs à π :


#!/usr/bin/perl

     

use strict;

use Math::Trig;


use POSIX;

 
my $I = 0;

while($I < pi) {


    print "TAN(" . $I . ")=" . POSIX::tan($I) . "n";


    $I += 0.1;

}

on obtiendra le résultat suivant :

TAN(0)=0 TAN(0.1)=0.10033467208545055 TAN(0.2)=0.2027100355086725 TAN(0.3)=0.3093362496096233 TAN(0.4)=0.4227932187381618 TAN(0.5)=0.5463024898437905 TAN(0.6)=0.6841368083416923 TAN(0.7)=0.8422883804630794 TAN(0.8)=1.029638557050364 TAN(0.9)=1.260158217550339 TAN(1.0)=1.5574077246549018 TAN(1.1)=1.9647596572486512 TAN(1.2)=2.5721516221263188 TAN(1.3)=3.6021024479679786 TAN(1.4)=5.797883715482894 TAN(1.5)=14.101419947171763 TAN(1.6)=-34.23253273555705 TAN(1.7)=-7.696602139459134 TAN(1.8)=-4.286261674628054 TAN(1.9)=-2.9270975146777674 TAN(2.0)=-2.1850398632615162 TAN(2.1)=-1.7098465429045056 TAN(2.2)=-1.3738230567687935 TAN(2.3)=-1.1192136417341305 TAN(2.4)=-0.916014289673409 TAN(2.5)=-0.7470222972386589 TAN(2.6)=-0.6015966130897574 TAN(2.7)=-0.47272762910303623 TAN(2.8)=-0.3555298316511746 TAN(2.9)=-0.24640539397196493 TAN(3.0)=-0.14254654307427644 TAN(3.1)=-0.041616654585634565

Voir également

Langage de programmation - Fonction C pour Linux - tan

Dernière mise à jour : Dimanche, le 18 octobre 2015

Section courante

A propos

Section administrative du site

TAN

Perl