Calcul de dérivée [Résolu]
menesbadour
- Messages postés
- 2
- Date d'inscription
- jeudi 9 février 2006
- Statut
- Membre
- Dernière intervention
- 9 février 2006
- Messages postés
- 2
- Date d'inscription
- jeudi 9 février 2006
- Statut
- Membre
- Dernière intervention
- 9 février 2006
A voir également:
- Calculateur de dérivée
- Calcul de dérivée - Meilleures réponses
- Calcul dérivée - Meilleures réponses
- Calculer la dérivée d'une courbe ✓ - Forum - Visual Basic
- C / C++ / C++.NET : Evaluation d'un polynome, calcul de la dérivée, liste chain&eacut - Guide
- Calculatrice java - Forum - Java
- Récursivité : fonction de calcul de puissance et factorielle - Conseils pratiques - PHP
- Visual Basic / VB.NET : Fonction de calcul d'un intervalle de temps en seconde - CodeS SourceS - Guide
2 réponses
Meilleure réponse
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
Si tu as l'expression de ton polynome, ca devient facile.
La fonction dérivée ci-dessous dérive n'importe quel polynome de niveau > 0
Private Sub Command1_Click()
Dim f1(4) As Long
Dim df1() As Long
' Soit la fonction f1(x) = 4X^4 + 3X^3 + 11X^2 -7X -2
' représentée par le tableau f1 = (4,3,11,-7,-2)
f1(0) = 4
f1(1) = 3
f1(2) = 11
f1(3) = -7
f1(4) = -2
df1 = Derivee(f1)
' En sortie, on obtient un tableau représentant la
' dérivée de f1(x) df1 = (16,9,22,-7)
End Sub
Public Function Derivee(t() As Long) As Long()
Dim dt() As Long
Dim PuissanceMax As Long
Dim Puissance As Long
PuissanceMax = UBound(t)
ReDim dt(PuissanceMax - 1)
Puissance = PuissanceMax
For k = LBound(t) To UBound(t) - 1
dt(k) = t(k) * Puissance
Puissance = Puissance - 1
Next k
Derivee = dt
End Function
Manu
La fonction dérivée ci-dessous dérive n'importe quel polynome de niveau > 0
Private Sub Command1_Click()
Dim f1(4) As Long
Dim df1() As Long
' Soit la fonction f1(x) = 4X^4 + 3X^3 + 11X^2 -7X -2
' représentée par le tableau f1 = (4,3,11,-7,-2)
f1(0) = 4
f1(1) = 3
f1(2) = 11
f1(3) = -7
f1(4) = -2
df1 = Derivee(f1)
' En sortie, on obtient un tableau représentant la
' dérivée de f1(x) df1 = (16,9,22,-7)
End Sub
Public Function Derivee(t() As Long) As Long()
Dim dt() As Long
Dim PuissanceMax As Long
Dim Puissance As Long
PuissanceMax = UBound(t)
ReDim dt(PuissanceMax - 1)
Puissance = PuissanceMax
For k = LBound(t) To UBound(t) - 1
dt(k) = t(k) * Puissance
Puissance = Puissance - 1
Next k
Derivee = dt
End Function
Manu
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2
- Date d'inscription
- jeudi 9 février 2006
- Statut
- Membre
- Dernière intervention
- 9 février 2006