程序代写代做代考 algorithm Option Explicit
Option Explicit Sub test() Dim someMin As Double Dim lower As Double, upper As Double lower = -1 upper = 3 someMin = fminbr(lower, upper, 0.0000000001) Cells(1, 1) = someMin Cells(1, 2) = f(someMin) End Sub Function f(x As Double) As Double f = (Cos(x) – x) ^ 2 – 2 End Function ‘———————————————————————- ‘ […]
程序代写代做代考 algorithm Option Explicit Read More »