Section courante

A propos

Section administrative du site

En Pascal, il n'existe pas toujours une fonction «Atn», «ATan» ou «ArcTan» permettant de calculer l'ArcTangente d'un cercle. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci avec un préalable la fonction de racine carré:

  1. Function SquareRoot(X:Real):Real;
  2. Var
  3.  A,B,M,XN:Real;
  4. Begin
  5.  If X=0.0Then Begin
  6.   SquareRoot:=0.0;
  7.  End
  8.   Else
  9.  Begin
  10.   M:=1.0;
  11.   XN:=X;
  12.   While XN>=2.0 do Begin
  13.    XN:=0.25*XN;
  14.    M:=2.0*M;
  15.   End;
  16.   While XN<0.5 do Begin
  17.    XN:=4.0*XN;
  18.    M:=0.5*M;
  19.   End;
  20.   A:=XN;
  21.   B:=1.0-XN;
  22.   Repeat
  23.    A:=A*(1.0+0.5*B);
  24.    B:=0.25*(3.0+B)*B*B;
  25.   Until B<1.0E-15;
  26.   SquareRoot:=A*M;
  27.  End;
  28. End;
  29.  
  30. Function Atn(X:Real):Real;
  31. Var
  32.  A,B:Real;
  33.  N:Integer;
  34. Begin
  35.  A := 1.0 / SquareRoot(1.0 + (X * X));
  36.  B := 1.0;
  37.  For N:=1 to 11 do Begin
  38.   A := (A + B) / 2.0;
  39.   B := Sqrt(A * B);
  40.  End;
  41.  Atn:=X/(Sqrt(1.0+(X*X))*A);
  42. End;
  43.  
  44. Var
  45.  R:Real;
  46.  
  47. BEGIN
  48.  R:=0.0;
  49.  While R<=1.1 do Begin
  50.   WriteLn('ArcTan(',R:0:5,')=',Atn(R):0:5);
  51.   R:=R+0.1;
  52.  End;
  53. END.

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 25 octobre 2016