'когда i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:
Dim myArrayVB_2(20000, 1) As Single 'Автомат-ки обнуляется.
'Значение первой границы массива myArrayVB_2:
Dim N_1_myArrayVB_2 As Integer
'Счетчик элементов массива:
Dim ii As Integer = -1
'Рисуем линию уровня f(x, y) = LevelCurves:
Private Sub PlotLevelCurve(ByVal g As Graphics, _
ByVal LevelCurves As Single, ByVal x_min As Single, _
ByVal x_max As Single, ByVal y_min As Single, _
ByVal y_max As Single, _
Optional ByVal step_size As Single = 0.1, _
Optional ByVal start_x As Single = 1.0, _
Optional ByVal start_y As Single = 1.0, _
Optional ByVal tolerance As Single = 0.02)
'Объявляем индексы элементов всех массивов:
Dim i, j As Integer
'Программируем 1-й массив для рисования здесь.
'Задаем границы индексов 1-го массива myArrayVB(i, j):
Dim N_x As Integer = 2000
Dim N_y As Integer = 1
'Объявляем 1-й массив myArrayVB(i, j) переменных Single,
'когда i = 0,1,2,3,...,N_x; j = 0,1,2,3,...,N_y:
Dim myArrayVB(N_x, N_y) As Single 'Автомат-ки обнуляется.
'Значение первой границы массива myArrayVB:
Dim N_1_myArrayVB As Integer
'Объявляем переменные для точек линий уровня:
Dim num_points As Integer
Dim x0 As Single : Dim y0 As Single
Dim x1 As Single : Dim y1 As Single
Dim x2 As Single : Dim y2 As Single
Dim dx As Single : Dim dy As Single
'Находим точку (x0, y0) на линии уровня LevelCurves:
FindPointOnCurve(x0, y0, LevelCurves, _
start_x, start_y, tolerance)
'Начальная точка линии:
num_points = 1
'Следующая линия уровня LevelCurves:
x2 = x0
y2 = y0
i = -1 'Задаем до цикла.
'Начало цикла Do - Loop:
Do
x1 = x2
y1 = y2
'Находим следующую точку на линии:
Gradient(x2, y2, dx, dy)