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é :
- Function SquareRoot(X)
- Dim A,B,M,XN
- If X=0.0Then
- SquareRoot =0.0
- Else
- M=1.0
- XN=X
- Do While XN>=2.0
- XN=0.25*XN
- M=2.0*M
- Loop
- Do While XN<0.5
- XN=4.0*XN
- M=0.5*M
- Loop
- A=XN
- B=1.0-XN
- Do
- A=A*(1.0+0.5*B)
- B=0.25*(3.0+B)*B*B
- Loop Until B<1.0E-15
- SquareRoot=A*M
- End If
- End Function
-
- Function ArcTan(X)
- A = 1.0 / SquareRoot(1.0 + (X * X))
- B = 1.0
- For N=1 to 11
- A = (A + B) / 2.0
- B = SquareRoot(A * B)
- Next
- ArcTan=X/(SquareRoot(1.0+(X*X))*A)
- End Function
-
- Sub Main()
- Dim R As Double
- Dim S As String
- S = ""
- R = 0.0
- Do While R<=1.1
- S = S & "ArcTan(" &CStr(R) &")=" &Atn(R) &" " & ArcTan(R) & vbCrLf
- R=R+0.1
- Loop
- MsgBox S
- End Sub
on obtiendra le résultat suivant :
ArcTan(0.00000)= 0.000000ArcTan(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