Section courante

A propos

Section administrative du site

TAN

 Tangente
Fortran

Syntaxe

FUNCTION TAN(n)

Paramètres

Nom Description
n Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

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 TAN(X)
   RETOURNE SIN(X)/COS(X)

Exemple

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

  1. PROGRAM tansamples
  2.     REAL I,PI
  3.     PARAMETER (PI = 3.14159)
  4.     I = 0
  5.     DO WHILE (I < PI)
  6.         PRINT'(a, f7.5, a, f7.5)', 'TAN(', I, ')=', tan(I)
  7.         I = I + 0.1
  8.     END DO
  9. END  

on obtiendra le résultat suivant :

TAN(0.00000)=0.00000
TAN(0.10000)=0.10033
TAN(0.20000)=0.20271
TAN(0.30000)=0.30934
TAN(0.40000)=0.42279
TAN(0.50000)=0.54630
TAN(0.60000)=0.68414
TAN(0.70000)=0.84229
TAN(0.80000)=1.02964
TAN(0.90000)=1.26016
TAN(1.00000)=1.55741
TAN(1.10000)=1.96476
TAN(1.20000)=2.57215
TAN(1.30000)=3.60211
TAN(1.40000)=5.79789
TAN(1.50000)=*******
TAN(1.60000)=*******
TAN(1.70000)=*******
TAN(1.80000)=*******
TAN(1.90000)=*******
TAN(2.00000)=*******
TAN(2.10000)=*******
TAN(2.20000)=*******
TAN(2.30000)=*******
TAN(2.40000)=-.91601
TAN(2.50000)=-.74702
TAN(2.60000)=-.60160
TAN(2.70000)=-.47273
TAN(2.80000)=-.35553
TAN(2.90000)=-.24641
TAN(3.00000)=-.14255
TAN(3.10000)=-.04162

Dernière mise à jour : Dimanche, le 16 novembre 2014