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

LazStats: some more refactoring for LatinSpecsUnits, complete help for this form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7448 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-05-11 16:21:39 +00:00
parent 907ce43f18
commit 06b3dbaa64
6 changed files with 206 additions and 326 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applications/lazstats/LazStats.chm
View File

Binary file not shown.

BIN
applications/lazstats/docs/HelpNDoc/LazStats.hnd
View File

Binary file not shown.

2
applications/lazstats/source/LazStats.lpi
View File

@ -1435,12 +1435,14 @@
</Item4> </Item4>
<Item5> <Item5>
<Name Value="EConvertError"/> <Name Value="EConvertError"/>
<Enabled Value="False"/>
</Item5> </Item5>
<Item6> <Item6>
<Name Value="EPrinter"/> <Name Value="EPrinter"/>
</Item6> </Item6>
<Item7> <Item7>
<Name Value="Exception"/> <Name Value="Exception"/>
<Enabled Value="False"/>
</Item7> </Item7>
</Exceptions> </Exceptions>
</Debugging> </Debugging>

2
applications/lazstats/source/forms/analysis/comparisons/latinspecsunit.pas
View File

@ -74,8 +74,8 @@ type
private private
{ private declarations } { private declarations }
FAutoSized: Boolean; FAutoSized: Boolean;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean;
procedure UpdateBtnStates; procedure UpdateBtnStates;
function Validate(out AMsg: String; out AControl: TWinControl): Boolean;
public public
{ public declarations } { public declarations }
procedure PrepareForPlan(APlan: integer); procedure PrepareForPlan(APlan: integer);

522
applications/lazstats/source/forms/analysis/comparisons/latinsqrsunit.pas
View File

@ -25,6 +25,8 @@ type
procedure HelpBtnClick(Sender: TObject); procedure HelpBtnClick(Sender: TObject);
private private
{ private declarations } { private declarations }
function CheckDataCol(ACol: Integer): boolean;
function GetRange(ACol: Integer; out ARange, AMin, AMax: Integer): boolean;
procedure Plan1; procedure Plan1;
procedure Plan2; procedure Plan2;
procedure Plan3; procedure Plan3;
@ -47,8 +49,26 @@ implementation
uses uses
Math, Utils; Math, Utils;
const
NO_VALID_NUMBER_ERROR = 'No valid number in row %d of variable "%s"';
{ TLatinSqrsFrm } { TLatinSqrsFrm }
function TLatinSqrsFrm.CheckDataCol(ACol: Integer): Boolean;
var
i: Integer;
value: Double;
begin
Result := false;
for i := 1 to NoCases do
if not TryStrToFloat(OS3MainFrm.DataGrid.Cells[ACol, i], value) then
begin
ErrorMsg(NO_VALID_NUMBER_ERROR, [i, OS3MainFrm.DataGrid.Cells[ACol, 0]]);
exit;
end;
Result := true;
end;
procedure TLatinSqrsFrm.ComputeBtnClick(Sender: TObject); procedure TLatinSqrsFrm.ComputeBtnClick(Sender: TObject);
var var
btn: Integer; btn: Integer;
@ -83,6 +103,32 @@ begin
Application.CreateForm(TLatinSpecsFrm, LatinSpecsFrm); Application.CreateForm(TLatinSpecsFrm, LatinSpecsFrm);
end; end;
function TLatinSqrsFrm.GetRange(ACol: Integer; out ARange, AMin, AMax: Integer): boolean;
var
i: Integer;
mn, mx, value: Double;
begin
Result := true;
mn := MaxInt;
mx := -MaxInt;
for i := 1 to NoCases do
begin
if TryStrToFloat(OS3MainFrm.DataGrid.Cells[ACol, i], value) then
begin
if value < mn then mn := value;
if value > mx then mx := value;
end else
begin
ErrorMsg(NO_VALID_NUMBER_ERROR, [i, OS3MainFrm.DataGrid.Cells[ACol, 0]]);
Result := false;
exit;
end;
end;
AMin := round(mn);
AMax := round(mx);
ARange := AMax - AMin + 1;
end;
procedure TLatinSqrsFrm.HelpBtnClick(Sender: TObject); procedure TLatinSqrsFrm.HelpBtnClick(Sender: TObject);
begin begin
if ContextHelpForm = nil then if ContextHelpForm = nil then
@ -99,8 +145,7 @@ var
FactorC: string; FactorC: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, minA, minB, minC, maxA, maxB, maxC, rangeA, rangeB, rangeC: integer; i, j, rangeA, rangeB, rangeC, mn, mx: integer;
value: integer;
cellcnts: IntDyneMat; cellcnts: IntDyneMat;
celltotals: DblDyneMat; celltotals: DblDyneMat;
Ctotals: DblDyneVec; Ctotals: DblDyneVec;
@ -136,29 +181,10 @@ begin
end; end;
// determine no. of levels in A, B and C // determine no. of levels in A, B and C
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minC := MaxInt; if not GetRange(CCol, rangeC, mn, mx) then exit;
maxA := -MaxInt; if not CheckDataCol(Datacol) then exit;
maxB := -MaxInt;
maxC := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[ACol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[BCol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]);
if value < minC then minC := value;
if value > maxC then maxC := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeC := maxC - minC + 1;
// check for squareness // check for squareness
if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) then if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) then
@ -201,9 +227,9 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrTofloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[row-1,col-1] := cellcnts[row-1,col-1] + 1; cellcnts[row-1,col-1] := cellcnts[row-1,col-1] + 1;
celltotals[row-1,col-1] := celltotals[row-1,col-1] + data; celltotals[row-1,col-1] := celltotals[row-1,col-1] + data;
@ -280,7 +306,7 @@ begin
// show ANOVA table results // show ANOVA table results
lReport := TStringList.Create; lReport := TStringList.Create;
try try
lReport.Add('LATIN SQUARE ANALYSIS PLAN 1 RESULTS'); lReport.Add('LATIN SQUARE ANALYSIS Plan 1 Results');
lReport.Add(''); lReport.Add('');
lReport.Add('-----------------------------------------------------------'); lReport.Add('-----------------------------------------------------------');
lReport.Add('Source SS DF MS F Prob.>F'); lReport.Add('Source SS DF MS F Prob.>F');
@ -308,9 +334,9 @@ begin
lReport.Add('%10s', [FactorA]); lReport.Add('%10s', [FactorA]);
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
Design[row-1, col-1] := 'C' + IntToStr(slice); Design[row-1, col-1] := 'C' + IntToStr(slice);
end; end;
for i := 0 to p - 1 do for i := 0 to p - 1 do
@ -412,9 +438,9 @@ var
FactorD: string; FactorD: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, minA, minB, minC, maxA, maxB, maxC: integer; i, j, k: integer;
minD, maxD, rangeD, rangeA, rangeB, rangeC: integer; rangeA, rangeB, rangeC, rangeD: integer;
value: integer; mn, mx, minD: Integer;
cellcnts: IntDyneCube; cellcnts: IntDyneCube;
celltotals: DblDyneCube; celltotals: DblDyneCube;
Ctotals: DblDyneVec; Ctotals: DblDyneVec;
@ -457,33 +483,13 @@ begin
end; end;
// determine no. of levels in A, B and C // determine no. of levels in A, B and C
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minC := MaxInt; if not GetRange(CCol, rangeC, mn, mx) then exit;
minD := MaxInt; if not GetRange(DCol, rangeD, mn, mx) then exit;
maxA := -MaxInt; if not CheckDataCol(DataCol) then exit;
maxB := -MaxInt; minD := mn;
maxC := -MaxInt; p := rangeA;
maxD := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[ACol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[BCol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]);
if value < minC then minC := value;
if value > maxC then maxC := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]);
if value < minD then minD := value;
if value > maxD then maxD := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeC := maxC - minC + 1;
rangeD := maxD - minD + 1;
// check for squareness // check for squareness
if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) then if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) then
@ -491,7 +497,6 @@ begin
ErrorMsg('In a Latin square the range of values should all be equal.'); ErrorMsg('In a Latin square the range of values should all be equal.');
exit; exit;
end; end;
p := rangeA;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(cellcnts, rangeA+1, rangeB+1, rangeD+1); SetLength(cellcnts, rangeA+1, rangeB+1, rangeD+1);
@ -545,10 +550,10 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
block := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]); block := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Dcol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[row-1,col-1,block-1] := cellcnts[row-1,col-1,block-1] + 1; cellcnts[row-1,col-1,block-1] := cellcnts[row-1,col-1,block-1] + 1;
celltotals[row-1,col-1,block-1] := celltotals[row-1,col-1,block-1] + data; celltotals[row-1,col-1,block-1] := celltotals[row-1,col-1,block-1] + data;
@ -683,7 +688,7 @@ begin
lReport := TStringList.Create; lReport := TStringList.Create;
try try
lReport.Add(''); lReport.Add('');
lReport.Add('LATIN SQUARE ANALYSIS PLAN 2 RESULTS'); lReport.Add('LATIN SQUARE ANALYSIS Plan 2 Results');
lReport.Add(''); lReport.Add('');
lReport.Add('-----------------------------------------------------------'); lReport.Add('-----------------------------------------------------------');
lReport.Add('Source SS DF MS F Prob.>F'); lReport.Add('Source SS DF MS F Prob.>F');
@ -721,10 +726,10 @@ begin
lReport.Add('%10s', [FactorA]); lReport.Add('%10s', [FactorA]);
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol, i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol, i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol, i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol, i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol, i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol, i]));
block := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol, i]); block := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Dcol, i]));
if block = minD + k then if block = minD + k then
Design[row-1, col-1] := 'C' + IntToStr(slice); Design[row-1, col-1] := 'C' + IntToStr(slice);
end; end;
@ -847,9 +852,9 @@ var
FactorD: string; FactorD: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, m, minA, minB, minC, maxA, maxB, maxC: integer; i, j, k, m: integer;
minD, maxD, rangeA, rangeB, rangeC, rangeD: integer; rangeA, rangeB, rangeC, rangeD: integer;
value: integer; minD, mn, mx: Integer;
cellcnts: IntDyneCube; cellcnts: IntDyneCube;
celltotals: DblDyneQuad; celltotals: DblDyneQuad;
ABmat, ACmat, BCmat: DblDyneMat; ABmat, ACmat, BCmat: DblDyneMat;
@ -895,37 +900,13 @@ begin
end; end;
// determine no. of levels in A, B and C // determine no. of levels in A, B and C
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minC := MaxInt; if not GetRange(CCol, rangeC, mn, mx) then exit;
minD := MaxInt; if not GetRange(DCol, rangeD, mn, mx) then exit;
maxA := -MaxInt; if not CheckDataCol(DataCol) then exit;
maxB := -MaxInt; minD := mn;
maxC := -MaxInt; p := rangeA;
maxD := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[ACol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[BCol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]);
if value < minC then minC := value;
if value > maxC then maxC := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]);
if value < minD then minD := value;
if value > maxD then maxD := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeC := maxC - minC + 1;
rangeD := maxD - minD + 1;
// check for squareness // check for squareness
if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) or (rangeA <> rangeD) then if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) or (rangeA <> rangeD) then
@ -933,7 +914,6 @@ begin
ErrorMsg('In a Latin square the range of values should all be equal.'); ErrorMsg('In a Latin square the range of values should all be equal.');
exit; exit;
end; end;
p := rangeA;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(cellcnts, p+1, p+1, p+1); SetLength(cellcnts, p+1, p+1, p+1);
@ -1003,10 +983,10 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
block := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]); block := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Dcol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[row-1,col-1,slice-1] := cellcnts[row-1,col-1,slice-1] + 1; cellcnts[row-1,col-1,slice-1] := cellcnts[row-1,col-1,slice-1] + 1;
celltotals[row-1,col-1,slice-1,block-1] := celltotals[row-1,col-1,slice-1,block-1] + data; celltotals[row-1,col-1,slice-1,block-1] := celltotals[row-1,col-1,slice-1,block-1] + data;
@ -1149,7 +1129,7 @@ begin
// show ANOVA table results // show ANOVA table results
lReport := TStringList.Create; lReport := TStringList.Create;
try try
lReport.Add('LATIN SQUARE ANALYSIS PLAN 3 RESULTS'); lReport.Add('LATIN SQUARE ANALYSIS Plan 3 Results');
lReport.Add(''); lReport.Add('');
lReport.Add('-----------------------------------------------------------'); lReport.Add('-----------------------------------------------------------');
lReport.Add('Source SS DF MS F Prob.>F'); lReport.Add('Source SS DF MS F Prob.>F');
@ -1188,10 +1168,10 @@ begin
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
block := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]); block := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Dcol,i]));
if block = minD + k then if block = minD + k then
Design[row-1,col-1] := 'C' + IntToStr(slice); Design[row-1,col-1] := 'C' + IntToStr(slice);
end; end;
@ -1427,9 +1407,9 @@ var
FactorD: string; FactorD: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, minA, minB, minC, maxA, maxB, maxC: integer; i, j, k: integer;
minD, maxD, rangeA, rangeB, rangeC, rangeD: integer; rangeA, rangeB, rangeC, rangeD: integer;
value: integer; mn, mx: Integer;
cellcnts: IntDyneMat; cellcnts: IntDyneMat;
ABmat: DblDyneMat; ABmat: DblDyneMat;
ABCmat: DblDyneCube; ABCmat: DblDyneCube;
@ -1473,37 +1453,12 @@ begin
end; end;
// determine no. of levels in A, B and C // determine no. of levels in A, B and C
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minC := MaxInt; if not GetRange(CCol, rangeC, mn, mx) then exit;
minD := MaxInt; if not GetRange(DCol, rangeD, mn, mx) then exit;
maxA := -MaxInt; if not CheckDataCol(DataCol) then exit;
maxB := -MaxInt; p := rangeA;
maxC := -MaxInt;
maxD := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[ACol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[BCol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]);
if value < minC then minC := value;
if value > maxC then maxC := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]);
if value < minD then minD := value;
if value > maxD then maxD := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeC := maxC - minC + 1;
rangeD := maxD - minD + 1;
// check for squareness // check for squareness
if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) then if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeB <> rangeC) then
@ -1511,7 +1466,6 @@ begin
ErrorMsg('In a Latin square the range of values should be equal for A,B and C.'); ErrorMsg('In a Latin square the range of values should be equal for A,B and C.');
exit; exit;
end; end;
p := rangeA;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(ABmat, p+1, p+1); SetLength(ABmat, p+1, p+1);
@ -1562,10 +1516,10 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
block := StrToInt(OS3MainFrm.DataGrid.Cells[Dcol,i]); block := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Dcol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[row-1,col-1] := cellcnts[row-1,col-1] + 1; cellcnts[row-1,col-1] := cellcnts[row-1,col-1] + 1;
ABCmat[row-1,col-1,slice-1] := ABCmat[row-1,col-1,slice-1] + data; ABCmat[row-1,col-1,slice-1] := ABCmat[row-1,col-1,slice-1] + data;
@ -1684,9 +1638,9 @@ begin
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
Design[row-1,col-1] := 'C' + IntToStr(slice); Design[row-1,col-1] := 'C' + IntToStr(slice);
end; end;
for i := 0 to p - 1 do for i := 0 to p - 1 do
@ -1933,9 +1887,9 @@ var
GroupFactor: string; GroupFactor: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, minA, minB, minGrp, maxA, maxB, maxGrp: integer; i, j, k: integer;
mn, mx: Integer;
rangeA, rangeB, rangeGrp: integer; rangeA, rangeB, rangeGrp: integer;
value: integer;
cellcnts: IntDyneMat; cellcnts: IntDyneMat;
ABmat: DblDyneMat; ABmat: DblDyneMat;
ABCmat: DblDyneCube; ABCmat: DblDyneCube;
@ -1982,30 +1936,11 @@ begin
end; end;
// determine no. of levels in A, B and Group // determine no. of levels in A, B and Group
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minGrp := MaxInt; if not GetRange(GrpCol, rangeGrp, mn, mx) then exit;
maxA := -MaxInt; if not CheckDataCol(DataCol) then exit;
maxB := -MaxInt; p := rangeA;
maxGrp := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[ACol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[BCol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]);
if value < minGrp then minGrp := value;
if value > maxGrp then maxGrp := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeGrp := maxGrp - minGrp + 1;
// check for squareness // check for squareness
if (rangeA <> rangeGrp) then if (rangeA <> rangeGrp) then
@ -2013,7 +1948,6 @@ begin
ErrorMsg('ERROR! In a Latin square the range of values should be equal for A,B and C.'); ErrorMsg('ERROR! In a Latin square the range of values should be equal for A,B and C.');
exit; exit;
end; end;
p := rangeA;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(ABmat, p+1, p+1); SetLength(ABmat, p+1, p+1);
@ -2074,10 +2008,10 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); group := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i]));
subject := StrToInt(OS3MainFrm.DataGrid.Cells[Sbjcol,i]); subject := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Sbjcol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[group-1,row-1] := cellcnts[group-1,row-1] + 1; cellcnts[group-1,row-1] := cellcnts[group-1,row-1] + 1;
ABCmat[group-1,row-1,subject-1] := ABCmat[group-1,row-1,subject-1] + data; ABCmat[group-1,row-1,subject-1] := ABCmat[group-1,row-1,subject-1] + data;
@ -2272,9 +2206,9 @@ begin
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); // A (column) effect row := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i])); // A (column) effect
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); // B (cell) effect col := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i])); // B (cell) effect
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); // group (row) group := Round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i])); // group (row)
Design[group-1,row-1] := 'B' + IntToStr(col); Design[group-1,row-1] := 'B' + IntToStr(col);
end; end;
@ -2444,17 +2378,17 @@ end;
procedure TLatinSqrsFrm.Plan6; procedure TLatinSqrsFrm.Plan6;
var var
n : integer; // no. of subjects per cell n: integer; // no. of subjects per cell
Acol, Bcol, SbjCol, Grpcol, DataCol: integer; // variable columns in grid Acol, Bcol, SbjCol, GrpCol, DataCol: Integer; // variable columns in grid
FactorA: string; FactorA: string;
FactorB: string; FactorB: string;
SubjectFactor: string; SubjectFactor: string;
GroupFactor: string; GroupFactor: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, minA, minB, minGrp, maxA, maxB, maxGrp: integer; i, j, k: integer;
rangeA, rangeB, rangeGrp: integer; rangeA, rangeB, rangeGrp: integer;
value: integer; mn, mx: Integer;
cellcnts: IntDyneMat; cellcnts: IntDyneMat;
ABmat: DblDyneMat; ABmat: DblDyneMat;
ABCmat: DblDyneCube; ABCmat: DblDyneCube;
@ -2501,39 +2435,18 @@ begin
end; end;
// determine no. of levels in A, B and Group // determine no. of levels in A, B and Group
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minGrp := MaxInt; if not GetRange(GrpCol, rangeGrp, mn, mx) then exit;
maxA := -MaxInt; if not CheckDataCol(DataCol) then exit;
maxB := -MaxInt; p := rangeA;
maxGrp := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[ACol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[BCol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]);
if value < minGrp then minGrp := value;
if value > maxGrp then maxGrp := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeGrp := maxGrp - minGrp + 1;
// check for squareness // check for squareness
if (rangeA <> rangeGrp) then if (rangeA <> rangeGrp) then
begin begin
ErrorMsg('In a Latin square the range of values should be equal for A,B and C.'); ErrorMsg('In a Latin square the range of values should be equal for A, B and C.');
exit; exit;
end; end;
p := rangeA;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(ABmat, p+1, p+1); SetLength(ABmat, p+1, p+1);
@ -2594,11 +2507,12 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); group := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i]));
subject := StrToInt(OS3MainFrm.DataGrid.Cells[Sbjcol,i]); subject := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Sbjcol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[group-1,row-1] := cellcnts[group-1,row-1] + 1; cellcnts[group-1,row-1] := cellcnts[group-1,row-1] + 1;
ABCmat[group-1,row-1,subject-1] := ABCmat[group-1,row-1,subject-1] + data; ABCmat[group-1,row-1,subject-1] := ABCmat[group-1,row-1,subject-1] + data;
Subjtotals[group-1,subject-1] := Subjtotals[group-1,subject-1] + data; Subjtotals[group-1,subject-1] := Subjtotals[group-1,subject-1] + data;
@ -2791,9 +2705,9 @@ begin
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); // A (column) effect row := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i])); // A (column) effect
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); // B (cell) effect col := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i])); // B (cell) effect
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); // group (row) group := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i])); // group (row)
Design[group-1,row-1] := 'B' + IntToStr(col); Design[group-1,row-1] := 'B' + IntToStr(col);
end; end;
@ -2828,7 +2742,6 @@ begin
// show table of means for ABmat // show table of means for ABmat
lReport.Add(''); lReport.Add('');
lReport.Add('Cell means and totals'); lReport.Add('Cell means and totals');
lReport.Add('');
cellstring := '----------'; cellstring := '----------';
for i := 1 to p + 1 do cellstring := cellstring + '----------'; for i := 1 to p + 1 do cellstring := cellstring + '----------';
@ -2971,9 +2884,9 @@ var
GroupFactor: string; GroupFactor: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, minA, minB, minC, minGrp, maxA, maxB, maxC, maxGrp: integer; i, j, k: integer;
rangeA, rangeB, rangeC, rangeGrp: integer; rangeA, rangeB, rangeC, rangeGrp: integer;
value: integer; mn, mx: Integer;
cellcnts: IntDyneMat; cellcnts: IntDyneMat;
ABmat: DblDyneMat; ABmat: DblDyneMat;
ABCmat: DblDyneCube; ABCmat: DblDyneCube;
@ -3024,45 +2937,19 @@ begin
end; end;
// determine no. of levels in A, B, C and Group // determine no. of levels in A, B, C and Group
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minGrp := MaxInt; if not GetRange(CCol, rangeC, mn, mx) then exit;
maxA := -MaxInt; if not GetRange(GrpCol, rangeGrp, mn, mx) then exit;
maxB := -MaxInt; if not CheckDataCol(DataCol) then exit;
minC := MaxInt; p := rangeA;
maxC := -MaxInt;
maxGrp := -MaxInt;
for i := 1 to NoCases do
begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]);
if value < minA then minA := value;
if value > maxA then maxA := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]);
if value < minB then minB := value;
if value > maxB then maxB := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]);
if value < minC then minC := value;
if value > maxC then maxC := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]);
if value < minGrp then minGrp := value;
if value > maxGrp then maxGrp := value;
end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeC := maxC - minC + 1;
rangeGrp := maxGrp - minGrp + 1;
// check for squareness // check for squareness
if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeA <> rangeGrp) then if (rangeA <> rangeB) or (rangeA <> rangeC) or (rangeA <> rangeGrp) then
begin begin
ErrorMsg('In a Latin square the range of values should be equal for A,B and C.'); ErrorMsg('In a Latin square the range of values should be equal for A, B and C.');
exit; exit;
end; end;
p := rangeA;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(ABmat, p+1, p+1); SetLength(ABmat, p+1, p+1);
@ -3129,11 +3016,11 @@ begin
// Read in the data // Read in the data
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); row := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i]));
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); col := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i]));
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); slice := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i]));
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); group := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i]));
subject := StrToInt(OS3MainFrm.DataGrid.Cells[Sbjcol,i]); subject := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Sbjcol,i]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,i]);
cellcnts[group-1,row-1] := cellcnts[group-1,row-1] + 1; cellcnts[group-1,row-1] := cellcnts[group-1,row-1] + 1;
ABCmat[group-1,row-1,slice-1] := ABCmat[group-1,row-1,slice-1] + data; ABCmat[group-1,row-1,slice-1] := ABCmat[group-1,row-1,slice-1] + data;
@ -3198,7 +3085,7 @@ begin
lReport := TStringList.Create; lReport := TStringList.Create;
try try
// test block // test block
lReport.Add('LATIN SQUARES REPEATED ANALYSIS PLAN 7 (superimposed squares)'); lReport.Add('LATIN SQUARES REPEATED ANALYSIS Plan 7 (superimposed squares)');
lReport.Add(''); lReport.Add('');
lReport.Add('Sums for ANOVA Analysis'); lReport.Add('Sums for ANOVA Analysis');
lReport.Add(''); lReport.Add('');
@ -3315,7 +3202,7 @@ begin
probab := probf(fab, dfab, dferrwithin); probab := probf(fab, dfab, dferrwithin);
// show ANOVA table results // show ANOVA table results
lReport.Add('LATIN SQUARES REPEATED ANALYSIS PLAN 7 (superimposed squares)'); lReport.Add('LATIN SQUARES REPEATED ANALYSIS Plan 7 (superimposed squares)');
lReport.Add(''); lReport.Add('');
lReport.Add('-----------------------------------------------------------'); lReport.Add('-----------------------------------------------------------');
lReport.Add('Source SS DF MS F Prob.>F'); lReport.Add('Source SS DF MS F Prob.>F');
@ -3357,10 +3244,10 @@ begin
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); // A (column) effect row := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i])); // A (column) effect
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); // B (cell) effect col := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i])); // B (cell) effect
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); // C (cell) effect slice := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i])); // C (cell) effect
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); // group (row) group := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i])); // group (row)
Design[group-1,row-1] := 'BC' + IntToStr(col) + IntToStr(slice); Design[group-1,row-1] := 'BC' + IntToStr(col) + IntToStr(slice);
end; end;
@ -3571,9 +3458,10 @@ var
GroupFactor: string; GroupFactor: string;
DataVar: string; DataVar: string;
cellstring: string; cellstring: string;
i, j, k, m, minA, minB, minC, minGrp, maxA, maxB, maxC, maxGrp: integer; i, j, k, m: integer;
mn, mx: Integer;
n, subject, nosubjects, rangeA, rangeB, rangeC, rangeGrp: integer; n, subject, nosubjects, rangeA, rangeB, rangeC, rangeGrp: integer;
p, q, rows, value: integer; p, q, rows: integer;
ABC, AGC: DblDyneCube; ABC, AGC: DblDyneCube;
AB, AC, BC, RC: DblDyneMat; AB, AC, BC, RC: DblDyneMat;
A, B, C, Persons, Gm, R: DblDyneVec; A, B, C, Persons, Gm, R: DblDyneVec;
@ -3595,7 +3483,7 @@ var
fc, frows, fcxrow, fsubwgrps, fa, fb, fac, fbc, fabprime, fabcprime: double; fc, frows, fcxrow, fsubwgrps, fa, fb, fac, fbc, fabprime, fabcprime: double;
probc, probrows, probcxrow, probsubwgrps, proba, probb: double; probc, probrows, probcxrow, probsubwgrps, proba, probb: double;
probac, probbc, probabprime, probabcprime: double; probac, probbc, probabprime, probabcprime: double;
data : double; data, value: double;
lReport: TStrings; lReport: TStrings;
begin begin
@ -3627,40 +3515,26 @@ begin
end; end;
// determine no. of levels in A, B, C and Group // determine no. of levels in A, B, C and Group
minA := MaxInt; if not GetRange(ACol, rangeA, mn, mx) then exit;
minB := MaxInt; if not GetRange(BCol, rangeB, mn, mx) then exit;
minGrp := MaxInt; if not GetRange(CCol, rangeC, mn, mx) then exit;
maxA := -MaxInt; if not GetRange(GrpCol, rangeGrp, mn, mx) then exit;
maxB := -MaxInt; if not CheckDataCol(DataCol) then exit;
minC := MaxInt; p := rangeA;
maxC := -MaxInt; q := rangeC;
maxGrp := -MaxInt;
nosubjects := 0; nosubjects := 0;
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
value := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); if TryStrToFloat(OS3MainFrm.DataGrid.Cells[SbjCol,i], value) then
if value < minA then minA := value; begin
if value > maxA then maxA := value; if value > nosubjects then nosubjects := round(value);
end else
value := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); begin
if value < minB then minB := value; ErrorMsg(NO_VALID_NUMBER_ERROR, [i, SubjectFactor]);
if value > maxB then maxB := value; exit;
end;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]);
if value < minC then minC := value;
if value > maxC then maxC := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[sbjcol,i]);
if value > nosubjects then nosubjects := value;
value := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]);
if value < minGrp then minGrp := value;
if value > maxGrp then maxGrp := value;
end; end;
rangeA := maxA - minA + 1;
rangeB := maxB - minB + 1;
rangeC := maxC - minC + 1;
rangeGrp := maxGrp - minGrp + 1;
// check for squareness // check for squareness
if (rangeA <> rangeB) then if (rangeA <> rangeB) then
@ -3668,8 +3542,6 @@ begin
ErrorMsg('In a Latin square the range of values should be equal for A,B and C.'); ErrorMsg('In a Latin square the range of values should be equal for A,B and C.');
exit; exit;
end; end;
p := rangeA;
q := rangeC;
// set up an array for cell counts and for cell sums and marginal sums // set up an array for cell counts and for cell sums and marginal sums
SetLength(ABC, p+1, p+1, q+1); SetLength(ABC, p+1, p+1, q+1);
@ -3686,8 +3558,8 @@ begin
SetLength(R, p+1); SetLength(R, p+1);
SetLength(cellcnts, p+1); SetLength(cellcnts, p+1);
SetLength(Design, rangegrp, p); SetLength(Design, rangegrp, p);
SetLength(RowLabels, 100); // TODO: create RowLabels and ColLabels with proper size SetLength(RowLabels, MaxValue([n, p, rangegrp, nosubjects])+1);
SetLength(ColLabels, 100); SetLength(ColLabels, MaxValue([n, p, rangeGrp, nosubjects])+1);
// initialize arrays // initialize arrays
for i := 0 to p-1 do for i := 0 to p-1 do
@ -3760,11 +3632,11 @@ begin
// Read in the data // Read in the data
for index := 1 to NoCases do for index := 1 to NoCases do
begin begin
i := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,index]); i := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,index]));
j := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,index]); j := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,index]));
k := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,index]); k := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,index]));
m := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,index]); m := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,index]));
subject := StrToInt(OS3MainFrm.DataGrid.Cells[Sbjcol,index]); subject := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Sbjcol,index]));
data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,index]); data := StrToFloat(OS3MainFrm.DataGrid.Cells[DataCol,index]);
cellcnts[j-1] := cellcnts[j-1] + 1; cellcnts[j-1] := cellcnts[j-1] + 1;
ABC[i-1,j-1,k-1] := ABC[i-1,j-1,k-1] + data; ABC[i-1,j-1,k-1] := ABC[i-1,j-1,k-1] + data;
@ -3862,7 +3734,7 @@ begin
// test block // test block
lReport := TStringList.Create; lReport := TStringList.Create;
try try
lReport.Add('LATIN SQUARES REPEATED ANALYSIS PLAN 9'); lReport.Add('LATIN SQUARES REPEATED ANALYSIS Plan 9');
lReport.Add(''); lReport.Add('');
lReport.Add('Sums for ANOVA Analysis'); lReport.Add('Sums for ANOVA Analysis');
lReport.Add(''); lReport.Add('');
@ -4031,7 +3903,7 @@ begin
probabcprime := probf(fabcprime,dfabcprime,dferrwithin); probabcprime := probf(fabcprime,dfabcprime,dferrwithin);
// show ANOVA table results // show ANOVA table results
lReport.Add('LATIN SQUARES REPEATED ANALYSUS PLAN 9'); lReport.Add('LATIN SQUARES REPEATED ANALYSIS Plan 9');
lReport.Add(''); lReport.Add('');
lReport.Add('-----------------------------------------------------------'); lReport.Add('-----------------------------------------------------------');
lReport.Add('Source SS DF MS F Prob.>F'); lReport.Add('Source SS DF MS F Prob.>F');
@ -4077,10 +3949,10 @@ begin
lReport.Add('%10s', [GroupFactor]); lReport.Add('%10s', [GroupFactor]);
for i := 1 to NoCases do for i := 1 to NoCases do
begin begin
row := StrToInt(OS3MainFrm.DataGrid.Cells[Acol,i]); // A (column) effect row := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Acol,i])); // A (column) effect
col := StrToInt(OS3MainFrm.DataGrid.Cells[Bcol,i]); // B (cell) effect col := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Bcol,i])); // B (cell) effect
slice := StrToInt(OS3MainFrm.DataGrid.Cells[Ccol,i]); // C (cell) effect slice := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Ccol,i])); // C (cell) effect
group := StrToInt(OS3MainFrm.DataGrid.Cells[Grpcol,i]); // group (row) group := round(StrToFloat(OS3MainFrm.DataGrid.Cells[Grpcol,i])); // group (row)
Design[group-1, row-1] := 'B' + IntToStr(col); Design[group-1, row-1] := 'B' + IntToStr(col);
end; end;

6
applications/lazstats/source/units/utils.pas
View File

@ -10,6 +10,7 @@ uses
function AnySelected(AListbox: TListBox): Boolean; function AnySelected(AListbox: TListBox): Boolean;
procedure ErrorMsg(const AMsg: String); procedure ErrorMsg(const AMsg: String);
procedure ErrorMsg(const AMsg: String; const AParams: array of const);
procedure Exchange(var a, b: Double); overload; procedure Exchange(var a, b: Double); overload;
procedure Exchange(var a, b: Integer); overload; procedure Exchange(var a, b: Integer); overload;
@ -35,6 +36,11 @@ begin
MessageDlg(AMsg, mtError, [mbOK], 0); MessageDlg(AMsg, mtError, [mbOK], 0);
end; end;
procedure ErrorMsg(const AMsg: String; const AParams: array of const);
begin
ErrorMsg(Format(AMsg, AParams));
end;
procedure Exchange(var a, b: Double); procedure Exchange(var a, b: Double);
var var
tmp: Double; tmp: Double;