Comment faire une Intégrale

[Christophe V.]

Salut @ tous
Depuis un certain temps je cherche à créer une fonction qui calcule l'intégrale d'une courbe expérimentale.

Autrement dit l'aire sous la courbe. Pour cela je veux utiliser la méthode des trapèzes (je pense que C la plus simple mais y'a surement mieux)

En utilisant la formule : x(n-1)-x(n)*y(n) on fait la somme des rectangle
Et puis en additionnant la somme des triangles x(n-1)-x(n)*(y(n)-y(n-1))

On devrait obtenir la surface sous la courbe

La formule fonctionne dans une feuille XL mais pour la convertir en fonction, je m'emmèle les pinceaux avec "For each in "

Merci d'avance pour votre aide

 

[PhiBou]

Bonjour Christophe V, le Forum

Tes coordonnées étant dans x(n) et y(n) ---> avec n de 1 à Nbre
Cette petite procédure calcule l'aire :

For i = 1 To Nbre - 1
somme1 = somme1 + (x(i + 1) - x(i)) * y(i)
somme2 = somme2 + (x(i + 1) - x(i)) * y(i + 1)
Next i
Result = (somme1 + somme2)/2

Bonne journée

PhiBou

 

[Christophe V.]

Merci Phibou mais comment faits tu pour déterminer le nombre de valeur dans une des matrices ?

G essayé : Nbre = Application.WorksheetFunction.CountA(x())
Et ca ne marche pas.

@+

 

[PhiBou]

Bonsoir Christophe,

Un petite feuille explicative serait bienvenue...

@ - x -

 

[Christophe V.]

Fausse alerte ! En m'appliquant un peu ca marche. Voici quand même la syntaxe :
Function Intégrale(X, Y) As Variant

Dim i As Integer
Dim somme1 As Variant
Dim somme2 As Variant

NbreVal = Application.WorksheetFunction.CountA(X)

For i = 1 To NbreVal - 1
somme1 = somme1 + (X(i + 1) - X(i)) * Y(i)
somme2 = somme2 + (X(i + 1) - X(i)) * Y(i + 1)
Next i
Intégrale = (somme1 + somme2) / 2

End Function

Merci encore