En DarkBASIC, il existe déjà une fonction permettant de connaître 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é:
R#=0.0
WHILE R#<=1.1
PRINT "ArcTan(";R#;")=";ArcTan(R#)
INC R#,0.1
ENDWHILE
WAIT KEY
FUNCTION SquareRoot(X#)
LOCAL A#,B#,M#,XN#
IF X#=0.0 THEN ReturnValue#=0.0:EXITFUNCTION
M#=1.0
XN#=X#
WHILE XN#>=2.0
XN#=0.25*XN#
M#=2.0*M#
ENDWHILE
WHILE XN#<0.5
XN#=4.0*XN#
M#=0.5*M#
ENDWHILE
A#=XN#
B#=1.0-XN#
REPEAT
A#=A#*(1.0+0.5*B#)
B#=0.25*(3.0+B#)*B#*B#
UNTIL B#<0.000000000000001
ReturnValue#=A#*M#
ENDFUNCTION ReturnValue#
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#
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 : Samedi, le 4 octobre 2008