Dérivation fonction quelconque vb

Version imprimable

16/06/2008, 11h27
bdsss

Dérivation fonction quelconque vb

Bonjour, j'ai besoin de dériver une fonction quelconque dans vb. Je souhaiterais en effet taper une fonction dans excel, de plusieurs variables, et pouvoir calculer la dérivée en fonction de chacune des variables. Quelqu'un pourrait-il me dire si c'est envisageable?

Merci beaucoup d'avance.

Pour un polynôme c'est facile mais pour une fonction bizarre, je ne sais pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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

16/06/2008, 13h47
bdsss

Merci pour ta réponse!

Nous n'avons pas de fonction très compliquée, mais nous pouvons rencontrer des trucs du style : f(x) = a/(b*x), à dériver par rapport à x. Le code est-il différent?

Autre question : Dans nos expressions, nous avons plusieurs formules, avec un nombre différent de variables pour chacune. Est-il possible pour vb de reconnaître le nombre de variable qu'il y a, et de dériver par rapport à chacune? (notre but étant de montrer l'influence de chaque paramètre dans l'expression générale)

PS : on est presque débutant en vb, donc désolé si les questions paraissent un peu primaires...:roll:
16/06/2008, 15h00
Aspic

Non je crois que ca sera le même code puisque :

f(x) = a/(b*x) = a * (b*x)^(-1)

Et la puissance dans ce cas est -1 et ensuite on dérive ;)

Pour dérivé en fonction d'une variable, il suffit d'adapter le code si haut. Par contre, pour les fonctions du type ln, exp, sh, ch, th, sin, cos, tan, cotan ca ne marchera pas.