Метод Розенброка

Public Class Rosenbrok
    Implements iOpt2D
 
    'макс. число неудачных серий 
    Const N As Integer = 5
    'направления
    Private d() As Point
    'величина шага вдоль каждого направления
    Private delta As Point
 
    Public Function optimize(x0 As Point, f As FuncND, params As iOptParameters, Optional ByRef n_iter As Integer = 0) As Point Implements iOpt2D.optimize
        'конвертация параметров метода в нужный формат
        Dim p As RbOptParameters = CType(params, RbOptParameters)
        'инициализация массивов
        ReDim d(x0.UBound)
        delta = New Point(x0)
        Dim y1, y2, yi, yi1, t, v As Point
        Dim ai, b1 As Point
        Dim f1, f2 As Double
        Dim flag As Boolean = False
        'число неудачных серий
        Dim l As Integer = 0
        Dim r As Point
        Dim di As Point
        Dim lamda As Point
        Dim dt As Point
        'заполнение начальных направлений (координатные направления)
        For i = 0 To x0.UBound
            di = New Point(x0)
            di(i) = 1
            d(i) = di
            'начальный шаг по всем направлениям = 1
            delta(i) = 1
        Next
        y1 = x0.Clone
        For i = 0 To x0.UBound
            'шаг 2
            yi = y1
            yi1 = yi + d(i) * delta(i)
            f1 = f(yi)
            f2 = f(yi1)
            If f2 < f1 Then
                delta(i) *= alfa
                yi = yi1
                f1 = f(yi)
            End If
            If f2 >= f1 Then
                delta(i) *= beta
            End If
            'шаг 3
            'If i < x0.UBound   то дальше попадем в шаг 2
            If i = x0.UBound Then
                If f2 < f1 Then y1 = yi1 : i = 0
                If f2 = f1 Then
                    f1 = f(y1)
                    'if f2 < f1   то дальше попадем в шаг 4
                    If f2 = f1 Then l += 1
                    If l < N Then
                        'шаг 4
                        y2 = yi1
                        t = y2 - y1
                        If t.RVLength <= eps Then Return y2
                        If t.RVLength > eps Then
                   
                       'вот тут надо дописать 4 шаг
                            
                        End If
                    End If
                End If
            End If
            If l = N Then
                'достигнуто макс. кол-во неудачных серий
                For j = 0 To x0.UBound
                    If Math.Abs(delta(i)) <= eps Then flag = True
                    If Math.Abs(delta(i)) >= eps Then flag = False
                Next j
                If flag = True Then Return y1
                If flag = False Then y1 = yi1 : i = 0
            End If
        Next i
    End Function
End Class