unit Unit2;
interface
USES
UNIT1;
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
implementation
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
var
K,J:in
unit Unit2;
interface
procedure POLDIV(U:array of real; N:integer;V:array of real; NV:integer;
var Q, R:array of real);
implementation
procedure POLDIV(U:array of real;
unit Unit2;
interface
uses
unit1;
procedure CHEBFT(A, B:real; var C:array of real; N:integer);
procedure CHEBPC(C:array of real;var D:array of real; N:integer);
procedure PCSHFT(A, B:real;
unit Unit2;
interface
USES
unit1;
Function BESSJ0(X:real):real;
Procedure ZBRAK(X1, X2:real; N:integer;
var XB1, XB2:array of real;var NB:integer);
implementation
