Section courante

A propos

Section administrative du site

COSH

 Cosinus hyperbolique
Delphi/Kylix/Lazarus Math

Syntaxe

Function Cosh(X:Extended):Extended;

Paramètres

Nom Description
X Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction trigonométrique retourne le «Cosinus» hyperbolique.

Algorithme

MODULE ABS(valeur)
   SI valeur < 0 ALORS
      RETOURNE - valeur
   SINON
      RETOURNE valeur
   FIN SI

MODULE EXP(x)
   Inverse ← faux
   n ← 0
   dl ← 1
   i ← 1
   SI x < 0 ALORS
      Inverse ← vrai
      x ← -x
   FIN SI
   BOUCLE FAIRE TANT QUE x >= 2
      x ← x / 2
      n ← n + 1
   FIN BOUCLE FAIRE TANT QUE
   x ← x / 16
   n ← n + 4
   q ← x
   BOUCLE FAIRE TANT QUE q > 1.0E - 15
      dl ← dl + q
      i ← i + 1
      q ← q x x / i
   FIN BOUCLE FAIRE TANT QUE
   BOUCLE POUR i ← 1 JUSQU'A n
      dl ← dl x dl
   FIN BOUCLE POUR
   SI Inverse ALORS
      dl ← 1 / dl
   FIN SI
   RETOURNE dl

MODULE COSH( Valeur)
   Valeur ← ABS(Valeur)
   SI Valeur > 88,029691931 ALORS
      RETOURNE Infini
   SINON
      RETOURNE ( EXP( Valeur ) + EXP( - Valeur ) ) / 2,0
   FIN SI

Exemple

Voici un exemple permet d'afficher les Cosinus hyperbolique inférieurs à π :

  1. Program CosHSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils,Math;
  5.  
  6. Var
  7.  I:Real;
  8.  
  9. BEGIN
  10.  I := 0;
  11.  While I < PI do Begin
  12.    WriteLn('Cosh(',I:1:1,')=',CosH(I):1:6);
  13.    I := I + 0.1;
  14.  End;
  15. END.

on obtiendra le résultat suivant :

Cosh(0.0)=1.000000
Cosh(0.1)=1.005004
Cosh(0.2)=1.020067
Cosh(0.3)=1.045339
Cosh(0.4)=1.081072
Cosh(0.5)=1.127626
Cosh(0.6)=1.185465
Cosh(0.7)=1.255169
Cosh(0.8)=1.337435
Cosh(0.9)=1.433086
Cosh(1.0)=1.543081
Cosh(1.1)=1.668519
Cosh(1.2)=1.810656
Cosh(1.3)=1.970915
Cosh(1.4)=2.150899
Cosh(1.5)=2.352410
Cosh(1.6)=2.577465
Cosh(1.7)=2.828316
Cosh(1.8)=3.107474
Cosh(1.9)=3.417733
Cosh(2.0)=3.762197
Cosh(2.1)=4.144314
Cosh(2.2)=4.567909
Cosh(2.3)=5.037220
Cosh(2.4)=5.556946
Cosh(2.5)=6.132288
Cosh(2.6)=6.769004
Cosh(2.7)=7.473465
Cosh(2.8)=8.252724
Cosh(2.9)=9.114579
Cosh(3.0)=10.067655
Cosh(3.1)=11.121491

Dernière mise à jour : Mercredi, le 18 février 2015