Calcul de dérivée [Résolu]
menesbadour
- 9 févr. 2006 à 21:23
- 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:
- Calculateur de derivée
- Calculateur dérivée - Meilleures réponses
- Calcul de dérivé - Meilleures réponses
- Calculer la dérivée d'une courbe ✓ - Forum - Visual Basic
- Une simple calculatrice - Codes sources - Visual Basic / VB.NET (Maths)
- Calculer la date de pâques - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Calculatrice - Codes sources - Visual Basic / VB.NET (VBA)
- Calculateur de taxe - Codes sources - Visual Basic / VB.NET (Maths)
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
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 90 internautes 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.