Dérivée d'une courbe

Bonsoir,

Je travaille sur une macro et je bloque complètement...

La macro génère des graphiques a partir de données sur une feuille excel, jusqu'ici aucun problème (heureusement d'ailleurs.. :mrgreen:)

Mon problème arrive donc, je voudrais pouvoir afficher la dérivée de ces courbes, pour cela je voulais donc utiliser un lissage avec une moyenne mobile :

Code:

---

1 2 3 4 5 6

ActiveChart.SeriesCollection(1).Trendlines.Add   With ActiveChart.SeriesCollection(1).Trendlines(1) .Type = xlMovingAvg .Period = 10 End With

---

Mais le soucis étant qu'il n'y pas moyen (à ma connaissance) de récuperer l'equation de cette courbe lissée...


Des idées sur la facon dont je pourrais procéder?


Même la plus petite piste sera la bienvenue ! :)

Bonjour,

Je n'ai pas trop compris ce que tu veux faire. Qu'entends-tu par

Citation:

---

je voudrais pouvoir afficher la dérivée de ces courbes

---

???
Pour l'équation de la courbe de tendance tu peux l'afficher grâce à

Code:

---

1 2 3 4 5

With ActiveChart.SeriesCollection(1).Trendlines(1) .Type = xlMovingAvg .Period = 10 .DisplayEquation =True End With

---

Mais de ce que j'ai compris ce n'est pas exactement ça que tu souhaites, si?

Bonjour issoram,

En fait, je voudrais afficher une courbe de tendance (ca j'ai réussi), et également afficher la dérivée de celle-ci. (Je ne sais pas si c'est vraiment plus clair.. :mrgreen:)

Malheureusement le "DisplayEquation" ne fonctionne pas étant donné que c'est une moyenne mobile (et non polynomiale ou autre). Je cherche donc un autre de moyen d'obtenir cette dérivée.

Citation:

---

également afficher la dérivée de celle-ci

---

= afficher l'équation de la dérivée ou afficher la courbe de la dérivée?

Je me disais bien aussi que je n'avais pas apporté beaucoup de précision :aie:

Je voudrais afficher la courbe de la dérivée


En tout cas merci beaucoup issoram de t'interesser à mon problème.

Bon ok,

Tout d'abord est ce que cela a vraiment un sens de dériver une moyenne mobile? ça ne me parait pas évident.

Mais si tu souhaites réellement le faire, voilà ce que je ferais:

1) Récupérer l'ensemble des points (x,y) de ta courbe
2) Construire "manuellement" le tableau des moyennes mobiles
3) Construire "manuellement" le tableau des dérivées en utilisant les différences finies (ça te parle?). Par contre il faut que le nombre de points soient significatifs que tes x soit suffisamment proches pour obtenir un résultat probant.
4) Afficher graphiquement ce tableau

Il y a peut être plus simple mais je n'ai pas trouvé autre chose.

Merci encore une fois!

Ta réponse me convient, juste un petit soucis au niveau du 3), les différences finies ca ne me parle pas vraiment :mrgreen:.
Mes graphiques sont construit sur 2150 points, (350 a 2500).

Pour approximer la dérivée en un point (a ici) tu peux utiliser une des 3 formules
(approximations) suivantes

1. f'(a) = ( f(a+h)-f(a) ) / h
2. f'(a) = ( f(a)-f(a-h) ) / h
3. f'(a) = ( f(a+h)-f(a-h) ) / 2h

Ce qui dans ton cas, si MoyMobile est le tableau des moyennes mobiles et X le tableau des x correspondants (tableaux à 1 dimension ayant le même nombre d'éléments), donnerait :

Code:

---

1 2 3 4 5 6 7

Dim TabDeriv() as Double 'tableau des dérivées   Redim TabDeriv(Lbound(X) to Ubound(X)-1) For i = Lbound(X) to Ubound(X)-1 TabDeriv(i) = (MoyMobile(i+1) - MoyMobile(i))/(X(i+1)-X(i)) 'Correspond à la première formule Next i

---

Je te renvoie à Wikipédia pour plus de détails sur les différences finies.

Bon courage à toi ;)

Super!

Merci beaucoup pour tes explications! :D