Aide pour un exercice : exponentielle

Signaler
Messages postés
90
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
31 mars 2010
-
Messages postés
90
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
31 mars 2010
-
salut,

quelqu'un peut m'aider dans cet exercice svp ? je suis vraiment coincé, c'est la premiere fois que je vois ce genre de questions à résoudre :

une valeur réelle x étant lue en donnée, on desire calculer une valeur approché de exp(x)=1+x/1!+x2/2!+x3 ...xn/n!.... on dira que la somme 1+x/1!+x2/2!+x3 ...xn/n!.... approxime exp(x) avec une précision E, si la valeur absolue de xn+1/(n+1)!<=E

écrire le programmme vb.net qui permet de claculer exp(x) avec une précision E

vraiment un grand merci d'avance pour celui qui va m'aider, je suis vraiment coincé et en plus de ça on vient de commencer le vb.net (une semaine), et on a deja pas mal d'exercices à faire pour demain ( il mre reste encore 3 autres et celui la, qui est à mon avis le plus difficile )

4 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Salut,

Tiens, un développent limité. En principe, on parle de l'ordre du développement.
exp(x) = 1 + x + ... + xn / n! + xn Epsioln(x)

exp(x) env= somme de k de 0 à n des xk / k!
n représente l'ordre du développement limité donc ton E je suppose.

Donc, tu peux faire un boucle for de 0 à E et additionner à chaque itération, le coefficient i du polynôme

__________
  Kenji
Messages postés
90
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
31 mars 2010

je suis perdu ^^

tu peu me filer un exemple de code stp ? car comme je l'ai dit ça fait juste une semaine que j'ai commencé le vb, donc pour moi ça reste encore un univers à explorer

merci pour ta réponse
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
Normalemet, on n'est pas la pour te faire le travail à ta place.





Public Function Exp(ByVal x As Double, ByVal Rang As UInteger) As Double
  Dim Result As Double=0.0#
  For i As UInteger=0UITo Rang
    Result += (System.Math.Pow(x, i) / Fact(i))
  Next i
  Return Result
End Function

Public Function Fact(ByVal n As UInteger) As ULong
  Dim Result As ULong=1UL
  While n >1UI
    Result *= n
    n -=1UI
  End While
  Return Result
End Function








__________
  Kenji
Messages postés
90
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
31 mars 2010

merci pour l'aide :p