Інтерполяція функції в прямокутнику, Детальна інформація

D1^:=D2^;

k:=k+1;

End;

End;

Function Drib(xx,yy:Real):Real;

Var n:Integer;

Function GetH(m,k:Integer):Real;

Begin

If m=n+1 Then GetH:=0

Else

Begin

GetH:=(xx-X[m-1])/(B[m,k]+GetH(m+1,k));

End;

End;

Function GetL(m,k:Integer):Real;

Begin

If m=n+1 Then GetL:=0

Else

GetL:=(yy-Y[m-1])/(B[k,m]+GetL(m+1,k));

End;

Function GetG(k:Integer):Real;

Begin

If k=n+1 Then GetG:=0

Else

GetG:=(xx-X[k-1])*(yy-Y[k-1])/

(B[k,k]+GetH(k+1,k)+GetL(k+1,k)+GetG(k+1));

End;

Begin

If Nx
Drib:=B[0,0]+GetH(1,0)+GetL(1,0)+GetG(1);