Interpolation
09.08.2016 08:25:23
Nermin
diesmal habe ich was zum Teilen. Im Nachfolgenden seht ihr den Code für eine lineare Interpolation, wie Sie mein Vorgänger verwendet hat.
Public Function InterpLIN(Xi As Range, Yi As Range, x) As Double
'Führt für x eine lineare Interpolation zwischen 2 Punkten aus.
'Bei Extrapolation wird die Steigung des ersten bzw. letzten Segments weitergeführt.
Dim y0, m, i, n
For i = 1 To Xi.Count
If Not (IsEmpty(Xi(i))) Then
n = n + 1
End If
Next
If x Xi(n) Then
m = 0
y0 = 0
ElseIf x >= Xi(n) Then
m = (Yi(n - 1) - Yi(n)) / (Xi(n - 1) - Xi(n))
y0 = Yi(n - 1) - Xi(n - 1) * m
Else
For i = 1 To n - 1
If (x >= Xi(i)) And (x
Da das Ganze hier ein Geben und Nehmen ist: ich habe keine Möglichkeit meinen Vorgänger zu fragen, was welche Zeile wo und wie macht :D daher würde ich einen oder mehrere der klugen Köpfe hier, die verstehen was welche Zeile macht, mir zu erklären was da genau wo passiert, damit ich es auch bei mir verwenden kann.Am Besten mit Apostroph hinter die jeweilige Zeile :)
Liebe Grüße,
Nermin