15 lines
470 B
ObjectPascal
15 lines
470 B
ObjectPascal
uses NumLibABC;
|
|
|
|
// Аппроксимация табличной функции полиномами Чебышева
|
|
// по методу наименьших квадратов
|
|
begin
|
|
var e:=0.1;
|
|
var x:=ArrGen(12,i->0.25*i-2); x.Println;
|
|
var y:=x.Select(z->2*z-5*Sqr(z)+8*z*Sqr(z)).ToArray; y.Println;
|
|
var oL:=new ApproxCheb(x,y,e);
|
|
oL.f.Println; // аппроксимированные значения
|
|
Println(oL.r,oL.tol); // предлагаемая степень полинома и вычисленная погрешность
|
|
oL.MakeCoef; // раскодированные коэффициенты
|
|
oL.c.Println;
|
|
end.
|