calcul de dérivéeRésolu

Question

Bonjour &#224; tous!

Est il possible de faire un calcul de d&#233;riv&#233; tout bete sous excel vba?
(j'ai un nuage de point que je lisse en une fonction polynomiale et je souhaite la d&#233;river)
Je me doute que c'est rudimentaire comme question mais j' y arrive p&#244;!

Menes

econs · Answer

Si tu as l'expression de ton polynome, ca devient facile.

La fonction d&#233;riv&#233;e ci-dessous d&#233;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&#233;sent&#233;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&#233;sentant la 

    '   d&#233;riv&#233;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

menesbadour · Answer

merci manu de t'etre pench&#233; sur mon probleme!
(j'ai bien l'expression de mon polynome!!!)
@+

Menes

Calcul de dérivée

2 réponses