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