unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
type
T
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
type
T
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
type
T
unit Unit2;
interface
uses
unit1;
Function GASDEV:real;
procedure AVEVAR(DATA:array of real; N:integer; var AVE, VAR1:real);
implementation
Function GASDEV:real;
var
V1,V2,FAC,R:real
unit Unit2;
interface
Function GAMMLN(xx:real):real;
Function T(Y:real):real;
procedure IAP(X, A:real; NMAX:integer; VAR F:array of real);
procedure BESIAN(X, A:real; NM, IH:integer; VAR F:arra
unit Unit2;
interface
Function GAMMLN(xx:real):real;
Function T(Y:real):real;
procedure JAP(X, A:real; NMAX:integer; VAR F:array of real);
procedure BESJAN(X, A:real; NM, IH:integer; VAR FF:arr
procedure QSIMP(A, B:real; var S:real);
const
EPS = 0.000001; JMAX = 20;
var
J:integer; OST,OS,ST:real;
begin
OST:=-1E+30;
OS:=-1E+30;
For J:=1 To JMAX do
begin
procedure QUAD3D(XX1, XX2:real; var SS:real);
begin
QGAUSX(XX1, XX2, SS);
end;
Function F(ZZ:real):real;
begin
Z := ZZ;
F := FUNC(X, Y, Z);
end;
Function G(YY:real):real;
var
