En DarkBASIC, il existe une fonction «ACos» permettant de calculer l'Arc Cosinus d'un cercle en degré, mais pas en radian. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci:
PRINT ArcCos(0.5)
WAIT KEY
FUNCTION ArcTan(X#)
LOCAL A#,B#,N
A# = 1.0 / Sqrt(1.0 + (X# * X#))
B# = 1.0
N = 1
WHILE N<=11
A# = (A# + B#) / 2.0
B# = Sqrt(A# * B#)
INC N
ENDWHILE
ReturnValue#=X# / (Sqrt(1.0 + (X# * X#)) * A#)
ENDFUNCTION ReturnValue#
FUNCTION ArcCos(a#)
PI#=3.141592653589793
IF Abs(a#)=1
ReturnValue# = (1-a#)*PI#/2
ELSE
ReturnValue# = Arctan(-a#/Sqrt(1-a#*a#))+2*Arctan(1)
ENDIF
ENDFUNCTION ReturnValue#
La dernière ligne contient une instruction «PRINT» retournant la valeur 1.047197580337524 lors de l'exécution de se petit programme.
Dernière mise à jour : Samedi, le 4 octobre 2008