Gladir.com - JavaScript - Atn/ATan/ArcTan/ArcTangente


En ColdFusion, il existe déjà une fonction permettant de connaitre 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é:
<CFSCRIPT>
function SquareRoot(X) {
  var A = 0;
  var B = 0;
  var M = 0;
  var XN = 0; 
  if(X EQ 0.0) {
     return 0.0; 
  } else {
     M=1.0; 
     XN=X; 
     while(XN GTE 2.0) {
        XN=0.25*XN; 
        M=2.0*M; 
     }
     while(XN LT 0.5) {
        XN=4.0*XN; 
        M=0.5*M; 
     }
     A=XN; 
     B=1.0-XN; 
     do { 
        A=A*(1.0+0.5*B); 
        B=0.25*(3.0+B)*B*B; 
     } while(B GTE 1.0E-15); 
     return A*M; 
  }
} 
   
function ArcTan(X) {
  var A = 1.0 / SquareRoot(1.0 + (X * X));
  var B = 1.0;
  var N = 1;
  while(N LTE 11) {
     A = (A + B) / 2.0;
     B = SquareRoot(A * B);
     N = N + 1;
  }
  return X / (SquareRoot(1.0 + (X * X)) * A);
} 
   
R=0.0;
while(R LTE 1.1) {
   WriteOutput("ArcTan(" & R & ")=" & ArcTan(R) & "<BR>"); 
   R = R + 0.1;      
}   
</CFSCRIPT>

on obtiendra le résultat suivant:
ArcTan(0.00000)= 0.000000
ArcTan(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: Mardi, le 7 février 2006