Section courante

A propos

Section administrative du site

EXP

Exponentielle
Visual Basic

Syntaxe

Function EXP(n As Double) As Double

Paramètres

Nom Description
n Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter. Le paramètre n peut être n'importe quelle expression numérique valide.

Description

Cette fonction retourne la valeur exponentielle.

Remarques

Algorithme

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
      xx / 2
      nn + 1
   FIN BOUCLE FAIRE TANT QUE
   xx / 16
   nn + 4
   qx
   BOUCLE FAIRE TANT QUE q > 1.0E - 15
      dldl + q
      ii + 1
      qq x x / i
   FIN BOUCLE FAIRE TANT QUE
   BOUCLE POUR i ← 1 JUSQU'A n
      dldl x dl
   FIN BOUCLE POUR
   SI Inverse ALORS
      dl ← 1 / dl
   FIN SI
   RETOURNE dl

Exemple

Voici un exemple permet d'afficher les exposants inférieurs à 2 :

  1. Sub Main()
  2.  Dim S As String
  3.  Dim I As Double
  4.  S = ""
  5.  FOR I = 0 TO 2.0 STEP 0.1
  6.   S = S & "Exp(" & I & ")=" & exp(I) & vbCrLf
  7.  NEXT 
  8.  MsgBox S
  9. End Sub

on obtiendra le résultat suivant :

Exp(0)=1
Exp(0.1)=1.1051709180756477
Exp(0.2)=1.2214027581601699
Exp(0.3)=1.3498588075760032
Exp(0.4)=1.4918246976412703
Exp(0.5)=1.6487212707001282
Exp(0.6)=1.8221188003905089
Exp(0.7)=2.0137527074704766
Exp(0.8)=2.4596031111569494
Exp(0.9)=2.718281828459045
Exp(1.0)=3.0041660239464325
Exp(1.2)=3.3201169227365472
Exp(1.3)=3.6692966676192444
Exp(1.4)=4.055199966844675
Exp(1.5)=4.481689070338065
Exp(1.6)=4.953032424395117
Exp(1.7)=5.473947391727202
Exp(1.8)=6.049647464412949
Exp(1.9)=6.685894442279273


Dernière mise à jour : Lundi, le 19 novembre 2012