Accueil de Gladir.com Notes légal de Gladir.com Flux RSS des nouvelles du site Gladir.com - Delphi/Kylix/Lazarus - Trigonométrie - ASin/ArcSin Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

En Delphi, il existe une fonction «ArcSin» permettant de calculer l'Arc Sinus d'un cercle, mais il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Program ArcSinus;
  2.  
  3. {$APPTYPE CONSOLE}
  4.      
  5. Uses SysUtils;
  6.      
  7. Function _ArcTan(X:Real):Real;
  8. Var
  9.  A,B:Real;
  10.  N:Integer;
  11. Begin
  12.  A := 1.0 / Sqrt(1.0 + (X * X));
  13.  B := 1.0;
  14.  For N:=1 to 11 do Begin
  15.   A := (A + B) / 2.0;
  16.   B := Sqrt(A * B);
  17.  End;
  18.  _ArcTan:=X/(Sqrt(1.0+(X*X))*A);
  19. End;
  20.      
  21. Function _ArcSin(a:Real):Real;Begin
  22.  If Abs(a)=1.0Then _ArcSin:=PI/2.0
  23.               Else _ArcSin:=_ArcTan(a/Sqrt(1.0-a*a));
  24. End;
  25.      
  26. BEGIN
  27.  WriteLn('ArcSin(0.5)=',_ArcSin(0.5):0:15);
  28. END.

on obtiendra le résultat suivant :

ArcSin(0.5)=0.523598787005540


Dernière mise à jour: Jeudi, le 16 juin 2011