14 lines
296 B
ObjectPascal
14 lines
296 B
ObjectPascal
uses NumLibABC;
|
|
|
|
// Ñëó÷àéíûé ïîèñê ARS
|
|
begin
|
|
var f:function(x:array of real):real:=
|
|
x->4*Sqr(x[0]-5)+Sqr(x[1]-6);
|
|
var x:=Arr(-8.0,9.0);
|
|
var (t,R):=(1.0,1e-6);
|
|
var oL:=new FMinN(x,f);
|
|
oL.ARS(R,t);
|
|
Write('Àðãóìåíòû: '); oL.x.Println;
|
|
Writeln('Çíà÷åíèå ôóíêöèè: ',f(oL.x))
|
|
end.
|