chebev.txt

《Delphi常用数值算法集》的配书源码

Function CHEBEV(A, B:real; C:array of real; M:integer; X:real):real;
var
    D,DD,Y,Y2,SV:real;  J:integer;
begin
    If (X - A) * (X - B) > 0 Then ShowMessage('X not in range.');
    D:=0; 
    DD:=0; 
    Y:=(2* X - A - B) / (B - A);
    Y2:=2* Y;
    For J:=M DownTo 2 do
    begin
        SV:=D;
        D:=Y2 * D - DD + C[J];
        DD:=SV;
    end;
    CHEBEV:=Y * D - DD + 0.5 * C[1];
end;