En LotusScript, il existe déjà une fonction permettant de connaitre le Cosinus. Cependant, il peut être intéressant d'en reproduire une pour notre plaisir personnel:

Function Cosinus(X As Double) As Double      Dim R,S,I As Double      R=X*X      S=42.0      For I=10 To 1 Step -1           S=4.0*I-2.0+(-R)/S      Next      S=S*S      Cosinus=(S-R)/(S+R) End Function Sub Main()      Dim I As Double      I=0      Do While I<Pi           Print "Cosinus " &Str$(I) &" " &Str$(Cos(I)) &" " &Str$(Cosinus(I))           I=I+0.1      Loop  End Sub