14 lines
296 B
ObjectPascal
14 lines
296 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> 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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: '); oL.x.Println;
|
|||
|
|
Writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ',f(oL.x))
|
|||
|
|
end.
|