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

ATN	ArcTangente
Visual Basic

Syntaxe

Function ATN(n As Double) As Double

Paramètres

Nom	Description
n	Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter. Le paramètre numérique peut être n'importe quelle expression numérique valide.

Description

Cette fonction trigonométrique retourne l'arc tangente.

Remarques

La fonction Atn prend le rapport des deux côtés d'un triangle rectangle (nombre) et renvoie l'angle correspondant en radians. Le rapport est la longueur du côté opposé à l'angle divisé par la longueur du côté adjacent à l'angle. L'intervalle du résultat est de -π / 2 à π / 2 radians. Pour convertir des degrés en radians, multipliez les degrés par π / 180. Pour convertir les radians en degrés, multipliez les radians par 180 / π.
L'exemple suivant utilise la fonction Atn pour calculer la valeur de π:
Dim pi pi = 4 * Atn(1) 'Calcule la valeur de pi.
La fonction Atn est la fonction trigonométrique inverse de Tan, prenant un angle comme paramètre et renvoyant le rapport des deux côtés d'un triangle rectangle. Ne confondez pas Atn avec la cotangente, étant la simple inverse d'une tangente (1 / tangente).

Algorithme

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XN ← X
      BOUCLE FAIRE TANT QUE XN >= 2.0
         XN ← 0.25 x XN
         M ← 2.0 x M
      FIN BOUCLE FAIRE TANT QUE
      BOUCLE FAIRE TANT QUE XN < 0.5
         XN ← 4.0 x XN
         M ← 0.5 x M
      FIN BOUCLE FAIRE TANT QUE
      A ← XN
      B ← 1.0 - XN
      BOUCLE REPETER
         A ← A x (1.0 + 0.5 x B)
         B ← 0.25 x (3.0 + B) x B x B
      FIN BOUCLE JUSQU'A B ← 1.0E - 15
      RETOURNE A x M
   FIN SI

MODULE ATN(X)
   A ← 1.0 / SQRT(1.0 + (X x X))
   B ← 1.0
   BOUCLE POUR N ← 1 JUSQU'A 11
      A ← (A + B) / 2.0
      B ← SQRT(A x B)
   FIN BOUCLE POUR
   RETOURNE X / (SQRT(1.0 + (X x X)) x A)

Exemple

Voici un exemple permet d'afficher les ArcTangente inférieurs à 1 :


									
Sub Main()

 Dim S As String

 Dim R As Double


 S = ""

 R = 0#

 While R < 1.1


  S = S & "ArcTan(" & R & ")=" & Atn(R) & vbCrLf

  R = R + 0.1


 Wend

 MsgBox S

End Sub

on obtiendra le résultat suivant :

ArcTan(0)=0 ArcTan(0,1)=0,099668652491162 ArcTan(0,2)=0,197395559849881 ArcTan(0,3)=0,291456794477867 ArcTan(0,4)=0,380506377112365 ArcTan(0,5)=0,463647609000806 ArcTan(0,6)=0,540419500270584 ArcTan(0,7)=0,610725964389209 ArcTan(0,8)=0,674740942223553 ArcTan(0,9)=0,732815101786507 ArcTan(1)=0,785398163397448 ArcTan(1,1)=0,832981266674432

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

Section courante

A propos

Section administrative du site

ATN