14 lines
344 B
ObjectPascal
14 lines
344 B
ObjectPascal
uses NumLibABC;
|
|
|
|
// Ïîèñê ìèíèìóìà ìåòîäîì Õóêà-Äæèâñà
|
|
function f(x:array of real):real:=100*Sqr(x[1]-Sqr(x[0]))+Sqr(1-x[0]);
|
|
|
|
begin
|
|
var xb:=Arr(-1.2,1.0);
|
|
var oL:=new FMinN(xb,f);
|
|
var r:=oL.HJ;
|
|
Writeln('Êîëè÷åñòâî èòåðàöèé: ',oL.iter);
|
|
Write('Çíà÷åíèÿ àðãóìåíòîâ: '); r.Println;
|
|
Writeln('Ïîëó÷åííîå çíà÷åíèå ôóíêöèè: ',f(r));
|
|
end.
|