unit Unit2;
interface
Procedure FPOLY(X:real; var P:array of real; NP:integer);
implementation
Procedure FPOLY(X:real; var P:array of real; NP:integer);
var
J:integer;
begin
P[1]:=1;
unit Unit2;
interface
Procedure FGAUSS(X:real; A:array of real;
var Y:real;var DYDA:array of real; NA:integer);
implementation
Procedure FGAUSS(X:real; A:array of real;
procedure SPLIE2(X1A, X2A:array of real; YA:matrx2;
M, N:integer;var Y2A:matrx2);
var
YTMP, Y2TMP:array[0..100] of real;
J,K:integer;
begin
For J:= 1 To M
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);
label 10;
var
JL,JU,JM:INTEGER;
begin
JL:=0;
JU:=N + 1;
10: If JU - JL > 1 Then
begin
JM:=(JU + J
Procedure EIGSRT(var D:array of real; var V:matrx2; N:integer);
var
I,K,J:integer; P:real;
begin
For I:=1 To N - 1 do
begin
K:=I;
P:=D[I];
For J:=I + 1 To
