Langage de programmation - Visual Basic (VB) - Référence de procédures et de fonctions

TAN	Tangente
Visual Basic

Syntaxe

Function TAN(n As Double) As Double

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)

Remarques

La fonction TAN calcule la tangente d'un angle exprimé en radians, et non en degrés. Il est donc essentiel de convertir les degrés en radians si l'angle fourni est exprimé en degrés, en multipliant par π/180.
La tangente représente, dans un triangle rectangle, le rapport entre la longueur du côté opposé à l'angle et celle du côté adjacent. Cela donne à TAN une utilité importante en géométrie, en physique et en ingénierie.
Certains angles particuliers posent problème pour la fonction TAN, notamment quand l'argument approche de π/2, 3π/2,... Dans ces cas-là, la tangente n'est pas définie et le résultat peut être extrêmement grand ou générer une erreur d'approximation.
La fonction est très utile pour les calculs impliquant des mouvements pendulaires, des pentes ou l'analyse de forces en diagonale, car la tangente relie directement un angle à une pente ou une proportion.
Comme toutes les fonctions trigonométriques de Visual Basic, TAN fait appel aux mathématiques fondamentales et peut être combinée avec ATN (arctangente) pour résoudre des équations inverses dans les calculs de trigonométrie.
Il est important de bien préparer le paramètre passé à TAN, car un nombre erroné ou mal converti en radians peut conduire à des résultats incohérents ou totalement faux dans les calculs qui en dépendent.
En dehors de la géométrie classique, TAN trouve également son utilité en informatique graphique, notamment pour calculer les angles de caméra, les projections en 3D, ou dans certaines fonctions de distorsion et de modélisation.

Exemple

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




Sub Main()

 Dim I As Double

 Dim S As String


 Const PI=3.141592653589793  

 I = 0

 WHILE I < PI


    S = S & "TAN(" & I & ")=" & tan(I) & vbCrLf

    I = I + 0.1


 WEND 

 MsgBox S

End Sub

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

Dernière mise à jour : Lundi, le 19 novembre 2012

Section courante

A propos

Section administrative du site

TAN