-
Procedure SINFT(var Y:array of real; N:integer);
var
I,J,M,JJ:integer; THETA,WR,WI,WPR,WPI,WTEMP,Y1,Y2,SUM:real;
begin
THETA:=3.14159265358979 / N;
WR:=1;
WI:=0;
WPR:=-2 *
http://www.codebf.com/read/168081/5449613
-
Procedure COSFT(var Y:array of real; N, ISIGN:integer);
var
THETA,WR,WI,WPR,SUM,WTEMP,Y1,Y2,WPI,EVEN,ODD,ENF0,SUM0,SUME:real;
I,J,M,JJ:integer;
begin
THETA:=3.14159265358979 / N;
http://www.codebf.com/read/168081/5449614
-
Function PROBKS(ALAM:real):real;
label 99;
const
EPS1 = 0.001; EPS2 = 0.00000001;
var
A2,FAC,TERMBF,TERM,AAA,PRO:real; J:integer;
begin
A2:=-2 * Sqr(ALAM);
FAC:=2;
P
http://www.codebf.com/read/168081/5449615
-
procedure MDIAN2(X:array of real; N:integer;var XMED:real);
label 1;
var
BIG,AMP,AFAC,A,AP,AM,SUM,SUMX,EPS,XP,XM,XX,DUM,BBB,AA:real;
J,NP,NM:integer;
begin
BIG:=1E+30;
AFAC:=1.5
http://www.codebf.com/read/168081/5449616
-
procedure KSTWO(DATA1:array of real; N1:integer;
DATA2:array of real; N2:integer;var D, PROB:real);
label 1;
var
J1,J2:integer; FO1,FO2,FN1,FN2,EN1,EN2,AM,DT:real;
begin
http://www.codebf.com/read/168081/5449617
-
procedure AVEVAR(DATA:array of real; N:integer; var AVE, VAR1:real);
var
J:integer; S:real;
begin
AVE:=0;
VAR1:=0;
For J:=1 To N do
AVE:=AVE + DATA[J];
AVE:=AVE /
http://www.codebf.com/read/168081/5449618
-
procedure CHSTWO(BINS1, BINS2:array of real;
NBINS, KNSTRN:integer;var DF, CHSQ, PROB:real);
var
J:integer;
begin
DF:=NBINS - 1 - KNSTRN;
CHSQ:=0;
For
http://www.codebf.com/read/168081/5449619
-
procedure MDIAN1(var X:array of real; N:integer;var XMED:real);
var
N2:integer;
begin
SORT(N, X);
N2:=N div 2;
If 2 * N2 = N Then
XMED:=0.5 * (X[N2] + X[N2 + 1])
El
http://www.codebf.com/read/168081/5449622
-
procedure KSONE(DATA:array of real; N:integer; var D, PROB:real);
var
J:integer; EN,FO,FQ,DT,FF:real;
begin
SORT(N, DATA);
EN:=N;
D:=0;
FO:=0;
For J:=1 To N do
http://www.codebf.com/read/168081/5449623
-
procedure FTEST(DATA1:array of real; N1:integer;
DATA2:array of real; N2:integer;var F, PROB:real);
var
DF1,DF2,DUM1,DUM2,AVE1,VAR1,AVE2,VAR2:real;
begin
AVEVAR(DA
http://www.codebf.com/read/168081/5449624
