En LotusScript, il n'existe une fonction «Atn» permettant de calculer l'ArcTangente d'un cercle. 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 As Double) As Double
- Dim A,B,M,XN As Double
- 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 As Double) As Double
- Dim A,B As Double
- 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
- R=0.0
- Do While R<=1.1
- Print "ArcTan(" & Str$(R) & ")=" & Atn(R) & " " & ArcTan(R)
- R=R+0.1
- Loop
- 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 : Dimanche, le 18 janvier 2015