5 *)
if fT
begin
fmin: = fT;
x1min: = x1;
x2min: = x2
end;
end; (* Крок 7 *)
writeln ('fmin = ', Fmin: 6: 3);
writeln ('x1min = ', X1min: 6: 3);
writeln ('x2min = ', X2min: 6: 3);
end.
Б. Результати роботи програми
Пошук глобального багатовимірного мінімуму функції
(для курсового проекту з прикладної математики)
Автор: Ткаченко К.С. М-21д
Введіть інтервал зміни x1
Введіть a1: -5
Введіть b1: 5
Введіть інтервал зміни x2
Введіть a2: -5
Введіть b2: 5
Введіть похибка eps: 0.0001
Введіть ймовірність пошуку P: 0.95
Введіть коефіцієнт alpha: 20
Введіть коефіцієнт dV: 1
Алгоритм пошуку глобального мінімуму по координатній сітці з рівномірним кроком
Число випробувань N = 905
fmin = -2.500 p> x1min = -0.500 p> x2min = 2.000
Алгоритм пошуку глобального мінімуму функції методом випадкового пошуку
Число випробувань N = 299
fmin = -2.469 p> x1min = -0.677 p> x2min = 2.173
