Section courante

A propos

Section administrative du site

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

Algorithme

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XNX
      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
      AXN
      B ← 1.0 - XN
      BOUCLE REPETER
         AA 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 :

  1. Sub Main()
  2.  Dim S As String
  3.  Dim R As Double
  4.  S = ""
  5.  R = 0#
  6.  While R < 1.1
  7.   S = S & "ArcTan(" & R & ")=" & Atn(R) & vbCrLf
  8.   R = R + 0.1
  9.  Wend
  10.  MsgBox S
  11. 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