Скачиваний:
47
Добавлен:
12.01.2016
Размер:
415 б
Скачать
Function f(x As Double) As Double
f = x * x - x
End Function
Sub Zoloto()
Const e = 0.000001, tau = (1 + 5 ^ 0.5) / 2
Dim x0 As Double, x1 As Double, x2 As Double, x3 As Double, L1 As Double, T As Double, L As Double
x0 = -1.1
x3 = 3.3
L1 = x3 - x0
T = 1
While x3 - x0 > e
T = T * tau
L = L1 / T
x1 = x3 - L
x2 = x0 + L
If f(x1) < f(x2) Then x3 = x2 Else x0 = x1
Wend
Debug.Print x2; f(x2)
End Sub