Курсовая работа: Программная модель поиска глобального минимума нелинейных "овражных" функций двух переменных
ActiveCell(j, "c") = Range("w1")
ActiveCell(j, "d") = Range("w2")
ActiveCell(j, "e") = Range("w3")
ActiveCell(j, "f") = Range("z1")
'Вывод номера шага(этапа) вычисления минимума функции
ActiveCell(j, "g") = i
j = j + 1
i = i + 1
Range("w3").Select
'Сравнение значения модуля градиента и погрешности
Loop While ActiveCell > Range("y3")
End Sub
Sub Кнопка4_Щелкнуть()
'Очистка диапазона ячеек
Range("a2", "g40").Clear
Range("x1", "x2").Clear
Range("y1", "y3").Clear
Range("v1", "v2").Clear
Range("z1").Clear
EndSub
Код формы “Метод наискорейшего спуска”
Private Sub CB1_Click()
End
End Sub
Private Sub CB2_Click()
Range("Z1").Select
Lbl1.Caption = ActiveCell
Range("c2").Select
ActiveCell = Range("w1")