Calcul de dérivée [Résolu]
menesbadour
- Messages postés
- 2
- Date d'inscription
- jeudi 9 février 2006
- Dernière intervention
- 9 février 2006
- Messages postés
- 2
- Date d'inscription
- jeudi 9 février 2006
- Dernière intervention
- 9 février 2006
A voir également:
- Calcul de dérivée
- Calculateur dérivée - Meilleures réponses
- Calculateur de derivee - 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
- 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
- Visual Basic / VB.NET : Une simple calculatrice - CodeS SourceS - Guide
2 réponses
Meilleure réponse
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- 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
121 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2
- Date d'inscription
- jeudi 9 février 2006
- Dernière intervention
- 9 février 2006
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.