-
Function BICO(N,K:Integer):real;
begin
BICO:=Int(Exp(FACTLN(N)-FACTLN(K)-FACTLN(N-K)));
end;
http://www.codebf.com/read/168081/5449446
-
Function BS(N:integer; A:real):real;
label 5,6,15;
var
B:array[1..20] of real;
DEL,R,EPS,S,AK,A2,DA,AJP,AJM,Q1,Q2,OMEG:real;
M:integer;
begin
If A = 0 Then
begin
If
http://www.codebf.com/read/168081/5449447
-
procedure GSER(var GAMSER:real; A:real; X:real; var GLN:real);
label 1;
const
ITMAX=100; EPS=0.3E-6;
var
N:Integer;
SUM,DEL,AP:Real;
begin
GLN:=GAMMLN(A);
If X
http://www.codebf.com/read/168081/5449448
-
Function ASS(N:integer; B:real):real;
var
DB:real;A:array[1..15] of real; I:integer;
begin
A[1]:=Exp(-B) / B;
If N = 1 Then
ASS:=A[N]
else
begin
DB:=1 / B;
http://www.codebf.com/read/168081/5449449
-
Function PLGNDR(L, M:integer; X:real):real;
var
PMM,SOMX2,FACT,PMMP1,PLL:real;
I,LL:integer;
begin
If (M < 0) Or (M > L) Or (Abs(X) > 1) Then
ShowMessage('bad arguments');
http://www.codebf.com/read/168081/5449451
-
Function GAMMLN(XX:real):real;
const
STP=2.50662827465; HALF=0.5; ONE=1.0; FPF=5.5;
var
X,TMP,SER:double;
J:integer;
COF:array[1..6] of double;
begin
COF[1]:=76.18009173; COF[2]
http://www.codebf.com/read/168081/5449452
-
program d8r1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
http://www.codebf.com/read/168081/5449557
-
Procedure FOUR1(var DATA:array of real; NN, ISIGN:integer);
var
N,J,JJ,I,M,II,MM,ISTEP,MMAX:integer;
THETA,WR,WI,WPR,SUM,WTEMP,Y1,Y2,TEMPR,TEMPI,WPI:real;
begin
N:=2 * NN;
J:=1;
http://www.codebf.com/read/168081/5449609
-
Procedure REALFT(var DATA:array of real; N, ISIGN:integer);
var
I,I1,I2,I3,I4,N2P3:integer;
WR,WI,C1,C2,THETA,WPR,WPI,WIS,WRS,WRI,H1R,H1I,H2R,H2I,WTEMP:real;
begin
THETA:=6.2831853071
http://www.codebf.com/read/168081/5449610
-
Procedure CORREL(DATA1,DATA2:array of real;N:integer;var ANS:array of real);
var
FFT:array[0..128] of real;
NO2,I:integer; DUM,DUM1,DUM2:real;
begin
TWOFFT(DATA1, DATA2, FFT, ANS, N)
http://www.codebf.com/read/168081/5449611
