Sub erst()
Dim Minn As Integer, Maxn As Integer, p As Integer, yp As Double, gk As Double, ak As Double
Minn = Range("B5").Value
Maxn = Range("B6").Value
p = Range("B7").Value
yp = Range("B8").Value
For i = 10 To Maxn - Minn + 10
Cells(i, 1) = Minn + i - 10
Next i
rmin = Mini(Minn, p)
rmax = Maxi(Maxn, p)
Dim ywerte() As Double
ReDim ywerte(rmin To rmax + 1) As Double
ywerte(p) = yp
For i = p To rmax - 1
ywerte(i + 1) = gk(i) - (ak(i) * ywerte(i))
Next i
For i = p To rmin + 1 Step -1
ywerte(i) = (gk(i) - ywerte(i + 1)) / ak(i)
Next i
For i = Minn To Maxn
Cells(i - rmin + 10, 2) = ywerte(i)
Next i
End Sub
Function Mini(a As Integer, b As Integer) As Integer
If a < b Then Mini = a Else Mini = b
End Function
Function Maxi(a As Integer, b As Integer) As Integer
If a < b Then Maxi = b Else Maxi = a
End Function
Function g(ByVal k As Integer) As Double
g = gk
End Function
Function a(ByVal k As Integer) As Double
a = ak
End Function