Comment réaliser une interpolation linéaire 1D et 2D via visual basic et sans données d'une feuille excel?

[cloeclodesonoeuf]

Bonjour à tous,

J'ai un gros problème en ce qui concerne des macros sur les interpolations linéaires, ayant cherché pendant longtemps sur internet pour comprendre (cours de mathématique + programme sur les interpolations) je bloque sur deux problèmes :

-un concernant les interpolations linéaires 1D c'est à dire que dans un premier temps je souhaiterais écrire en langage VBA un algorithme qui calcule l'interpolation linéaire 1D (yi) en un point (xi) à partir de deux valeurs de coordonnées (x1,y1) et (x2,y2) puis un autre programme qui fasse la même chose mais pour deux vecteurs x et y (où x et y sont monotones et croissant)

J'ai commencé un programme avec 4 InputBox me demandant de rentrer les coordonnées x1, y1, x2, y2
puis de faire

m=(y2-y1)/(x2-x1)

MsgBox "On obtient une fonction affine yi= " & m & " xi +p"

Je pense que ce programme n'est pas complet (car nous ne pouvons pas trouver le "p"?) et je n'arrive vraiment pas à voir ce qu'il faut faire pour la suite, de plus les programmes que j'ai trouvé sur internet ne concernent que des macros utilisant des données de feuilles excel.

-Un deuxième problème concernant un algorithme qui calcule l'interpolation linéaire 2D (zi) en un point (xi, yi) à partir de deux valeurs de coordonnées (x1,y1,z1) et (x2,y2,z2) puis un autre programme qui fasse la même chose mais pour deux vecteurs x et y et une matrice z (où la taille de la matrice z est définie par la taille de x et y sachant que x et y sont monotones et croissant)


Merci d'avance à tous pour votre aide,
je continue mes recherches,

[neozenfragance]

Salut,

Pour déterminer une droite de régression y = a*x + b, le plus simple est certainement d'utiliser la fonction VBA Application.WorksheetFunction.LinEst qui correspond à la fonction matricielle DROITEREG d'Excel.

Exemple : coefficients de régression linéaire pour les points (1,3) (2,5) et (3,7)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Regression_Linéaire()
Dim y_connus() As Double
Dim x_connus() As Double
Dim Ordonnée_Origine As Double
Dim Pente As Double
 
ReDim y_connus(1 To 3)
ReDim x_connus(1 To 3)
 
y_connus(1) = 3
y_connus(2) = 5
y_connus(3) = 7
 
x_connus(1) = 1
x_connus(2) = 2
x_connus(3) = 3
 
Pente = Application.WorksheetFunction.LinEst(y_connus, x_connus, True, False)(1) ' Pente = 2
Ordonnée_Origine = Application.WorksheetFunction.LinEst(y_connus, x_connus, True, False)(2) ' Ordonnée_Origine  = 1
 
End Sub

Cdt,
n.