pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Lazstats: Merge LatinSpecsUnit with LatinSqrsUnit. Inherit from BasicStatsReportFormUnit. Remove LatinSpecsUnit from project, delete files. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7922 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-12-04 23:58:20 +00:00
parent 77d3a8e70f
commit d2ffe083b1
9 changed files with 1436 additions and 1721 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
applications/lazstats/source/units/functionslib.pas
View File

@ -120,10 +120,10 @@ label
var
// vtimesw, v, ainverse : matrix;
// w : vector;
ainverse : array of array of double;
ainverse : array of array of double = nil;
m, nm,l,k,j,its,i: integer;
z,y,x,scale,s,h,g,f,c,anorm: double;
rv1: array of double;
rv1: array of double = nil;
BEGIN
setlength(rv1,n);
@ -930,7 +930,9 @@ procedure SVDinverse(VAR a : DblDyneMat; N : integer);
// a shorter version of the matinv routine that ignores v, w, and vtimes w
// matrices in the singular value decompensation inverse procedure
var
v, w, vtimesw : DblDyneMat;
v: DblDyneMat = nil;
w: DblDyneMat = nil;
vtimesw: DblDyneMat = nil;
begin
SetLength(v,N,N);
SetLength(w,N,N);
@ -1387,8 +1389,9 @@ end; // End ord function
procedure Rank(v1col : integer; VAR Values : DblDyneVec);
// calculates the ranks for values stored in the data grid in column v1col
var
pcntiles, CatValues : DblDyneVec;
freq : IntDyneVec;
pcntiles: DblDyneVec = nil;
CatValues : DblDyneVec = nil;
freq : IntDyneVec = nil;
i, j, nocats : integer;
Temp, cumfreq, upper, lower : double;
@ -1463,8 +1466,11 @@ procedure PRank(v1col: integer; var Values: DblDyneVec; AReport: TStrings);
// computes the percentile ranks of values stored in the data grid
// at column v1col
var
pcntiles, cumfm, CatValues: DblDyneVec;
freq, cumf: IntDyneVec;
pcntiles: DblDyneVec = nil;
cumfm: DblDyneVec = nil;
CatValues: DblDyneVec = nil;
freq: IntDyneVec = nil;
cumf: IntDyneVec = nil;
Temp: double;
i, j, nocats, ncases: integer;
begin