Discussion :

[Poirot]

Bonjour a tous,

Je desire faire des operations mathematiques sur une multitude de fonctions.

Je m'explique, je definis la fonction mathematique suivante dans un module a part:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Function g(x As Double) As Double
 
    g = x ^ 2
 
End Function

Je peux appeler la fonction avec g(x) dans n'importe quel module mais ce n'est pas ce que je veux faire.

Je desire maintenant faire une simple operation sur la fonction, je vais translater la fonction sur l'axe des x:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Function Translate(f, x As Double, a As Double) As Double
 
    Translate = f(x + a)
 
End Function

Et ensuite, je fais par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Translate(g, 1, 2)

Ca ne marche pas (je le savais avant de le faire), mais je sais pas comment passer la fonction elle meme en variable... Si je definis 20 fonctions et que je dois faire des operations de derivations, etc... c'est quand meme bien pratique. Sinon je dois faire un module pour chaque operation et chaque fonction...

Quelqu'un a une solution?

Merci beaucoup!

Poirot

[goldstar]

Bonjour,

Un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Translate(g(4), 1, 2)

[Poirot]

ca ne marche pas malheureusement...

Quelqu'un a une autre idee?

[Ashireon]

Bonsoir j'espere comprendre ce que tu veux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function g(x As Double) As Double
 
    g = (translate(x,a)) ^ 2
 
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Function Translate(x As Double, a As Double) As Double
 
    Translate = x + a
 
End Function

??

[Poirot]

Oui ce que tu as fait va marcher mais c pas ce que je veux faire.

Ce que je veux, c'est que ma fonction soit reconnu comme un variable generique.

Par exemple, je definis 20 fonctions g1, g2, etc... de la meme maniere que mon premier poste. Les fonctions prennent un "double" et renvoie un "double".

Ensuite je veux faire une operation de derivation sur certaines d'entre elle. Je voudrais donc une fonction qui prenne en variable d'entree:
- ma fonction
- le point dont je voudrais calculer la derivee.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function Derivation(f, x0 As Double) As Double
 
    Dim DX As Double
    DX = 10 ^ (-9)
 
    Derivation = (f(x0 + DX) - f(x0)) / DX
 
End Function

Ensuite je souhaiterais appeler la fonction "Derivation" de la maniere suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Derivation(g1,12)
Derivation(g5,2)

Seulement pour que mon operateur "Derivation" marche, il faut que je remplace "f" a l'interieur de ma fonction "Derivation" par "g1" ou "g5"... Je dois donc creer 20 fonctions de derivations, une pour chaque fonction...

Je voudrais donc plutot "factoriser" mon code, de la maniere que j'ai decris plus haut, j'espere que c plus clair maintenant...

Merci beaucoup!

Il n'y a aucun moyen de factoriser mon code ?