VPF::экстремум методом Фибоначчи - Форум программистов

ViktorFiskov

Дата 16.1.2014, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 16.1.2014

Репутация: нет
Всего: нет

Уважаемые программисты прошу вас помочь доработать алгоритм по нахождению экстремума методом с использованием чисел Фибоначчи. программа будет несколько больше пока что не получается сам алгоритм.
Заранее спасибо, ребятишки)
код программы приведен ниже:

Код


Function Fib(ByVal i As Double) As Double
If i = 0 Then
Fib = 0
ElseIf i = 1 Then
Fib = 1
Else
Fib = Fib(i - 1) + Fib(i - 2)
End If
End Function
Function F(x)
F = -1612.10599999961 + 5.4115285714288 * x + -4.4928571428572E-03 * x ^ 2

End Function
Private Sub Command5_Click()
Form1.Cls
Dim vs, i As Integer
vs = 30
For i = 0 To vs - 1
Print i, Fib(i)
Next i

a = 580 ' получение значения начало отрезка - точки a

b = 620 ' получение значения конца отрезка - точки b

e = 0.1 'получение значения погрешности

N = (b - a) / e ' получение вспомогательного числа
Do While s - q = 0
Fib (s) > N > Fib(s - 1)
Emin = (b - a) / Fib(s)
q = 1
X1 = a
If X2 < X1 Then
q = q + 1
X1 = X2
X2 = X1 + Emin * Fib(s - q)
Else
X1 = X2
X2 = X1 - Emin * Fib(s - q)
End If
For q = 0 To 30
Print i, Fib(i), q, N, s, Fib(s), Emin, F(X1), F(X2)
Next q
Loop

End Sub

Добавлено: заранее извиняюсь за оформление))) не любитель форумов((((

Это сообщение отредактировал(а) Akina - 16.1.2014, 15:33

Присоединённый файл ( Кол-во скачиваний: 0 )

new_fibonacci.rar 4,53 Kb

Akina

Дата 16.1.2014, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(ViktorFiskov @ 16.1.2014, 15:45

)

не любитель форумов

Это не оправдывает наплевательского отношения к тем, кто мог бы Вам помочь.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »