Matrixmultiplikation-Interpolation
23.02.2006 12:06:36
Sven
ich habe eine Frage bzgl. der Interpolation bzgl. nachträglichen Multiplikation von Daten.
Das Makro zur Interpolation lautet:
Public
Function Interpolieren(x_v As Object, y_v As Object, X As Variant) As Double
Dim n As Long, ind As Long, i As Long
n = x_v.Columns.Count
If X < x_v(1) Then
Interpolieren = y_v(1)
ElseIf X > x_v(n) Then
Interpolieren = y_v(n)
Else
For i = 1 To n
If x_v(i) <= X Then
ind = ind + 1
Else
ind = ind
End If
Next
Dim X1 As Variant, X2 As Variant, Y1 As Double, Y2 As Double
X1 = x_v(ind)
X2 = x_v(ind + 1)
Y1 = y_v(ind)
Y2 = y_v(ind + 1)
Interpolieren = (Y1 * (X2 - X) + Y2 * (X - X1)) / (X2 - X1)
End If
End Function
Ich hätte gern eine Lösung dafür, das ich mein Ergebnis in Zelle E5 erlange ohne vorher die interploierten Werte in den Feldern D5:D14 ausweisen zu müssen. Die Interpolation für den einen Vektor der Matrixmultiplikation müßte also innerhalb der Matrixformel erfolgen.
Bitte um dringende Hilfe!!!!
Datei ist angehängt unter https://www.herber.de/bbs/user/31349.xls
Gruß Sven
Anzeige