A voir également:
- Calculateur de dérivée
- Calculateur de dérivé - Meilleures réponses
- Calculateur 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
- Algorithme calcul dérivée ✓ - Forum - Delphi / Pascal
- Madhava de sangamagrama utilise la somme des termes d’une suite pour calculer les décimales du nombre π ; cependant il ne peut e - Guide
- Calculatrice polonaise inverse en c ✓ - Forum - C / C++ / C++.NET
2 réponses
econs
- Messages postés
- 4030
- 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