Section courante

A propos

Section administrative du site

En Visual Basic, il existe déjà une fonction permettant de connaitre l'ArcTangente. Cependant, il peut être intéressant d'en reproduire une pour notre plaisir personnel. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci avec un préalable la fonction de racine carré :

  1. Function SquareRoot(X)
  2.  Dim A,B,M,XN
  3.  If X=0.0Then
  4.   SquareRoot =0.0
  5.  Else
  6.   M=1.0
  7.   XN=X
  8.   Do While XN>=2.0
  9.    XN=0.25*XN
  10.    M=2.0*M
  11.   Loop
  12.   Do While XN<0.5
  13.    XN=4.0*XN
  14.    M=0.5*M
  15.   Loop
  16.   A=XN
  17.   B=1.0-XN
  18.   Do
  19.    A=A*(1.0+0.5*B)
  20.    B=0.25*(3.0+B)*B*B
  21.   Loop Until B<1.0E-15
  22.   SquareRoot=A*M
  23.  End If
  24. End Function
  25.  
  26. Function ArcTan(X)
  27.  A = 1.0 / SquareRoot(1.0 + (X * X))
  28.  B = 1.0
  29.  For N=1 to 11
  30.   A = (A + B) / 2.0
  31.   B = SquareRoot(A * B)
  32.  Next
  33.  ArcTan=X/(SquareRoot(1.0+(X*X))*A)
  34. End Function
  35.  
  36. Sub Main()
  37.  Dim R As Double
  38.  Dim S As String
  39.  S = ""
  40.  R = 0.0
  41.  Do While R<=1.1
  42.    S = S & "ArcTan(" &CStr(R) &")=" &Atn(R) &" " & ArcTan(R) & vbCrLf
  43.    R=R+0.1
  44.  Loop
  45.  MsgBox S 
  46. End Sub

on obtiendra le résultat suivant :

ArcTan(0.00000)= 0.000000
ArcTan(0.10000)= 0.099668
ArcTan(0.20000)= 0.197396
ArcTan(0.30000)= 0.291457
ArcTan(0.40000)= 0.380506
ArcTan(0.50000)= 0.463648
ArcTan(0.60000)= 0.540420
ArcTan(0.70000)= 0.610726
ArcTan(0.80000)= 0.674741
ArcTan(0.90000)= 0.732815
ArcTan(1.00000)= 0.785398


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