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

LazStats: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-08-23 14:31:27 +00:00
parent db4a9f929b
commit 2d32856cbc
6 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
applications/lazstats/source/forms/analysis/comparisons/twocorrsunit.pas
View File

@ -198,6 +198,7 @@ end;
procedure TTwoCorrsFrm.ComputeBtnClick(Sender: TObject); procedure TTwoCorrsFrm.ComputeBtnClick(Sender: TObject);
var var
lReport: TStrings;
Corxy, Corxz, Coryz, Cor1, Cor2, alpha, tvalue, df1, df2: double; Corxy, Corxz, Coryz, Cor1, Cor2, alpha, tvalue, df1, df2: double;
CorDif, zOne, zTwo, zDif, StdErr, zValue, zprobability: double; CorDif, zOne, zTwo, zDif, StdErr, zValue, zprobability: double;
UCL, LCL, ztest, ConfLevel, tprobability, ttest: double; UCL, LCL, ztest, ConfLevel, tprobability, ttest: double;
@ -208,10 +209,9 @@ var
SSize1, SSize2, SSize, v1, v2, v3, grp, ncases, NoSelected: integer; SSize1, SSize2, SSize, v1, v2, v3, grp, ncases, NoSelected: integer;
min, max, grpval, ncases1, ncases2, i: integer; min, max, grpval, ncases1, ncases2, i: integer;
cellstring: string; cellstring: string;
ColNoSelected: IntDyneVec;
msg: String; msg: String;
C: TWinControl; C: TWinControl;
lReport: TStrings; ColNoSelected: IntDyneVec = nil;
begin begin
if not Validate(msg, C) then if not Validate(msg, C) then
begin begin
@ -221,7 +221,7 @@ begin
exit; exit;
end; end;
SetLength(ColNoSelected,NoVariables); SetLength(ColNoSelected, NoVariables);
Corxy := 0.0; Corxy := 0.0;
Corxz := 0.0; Corxz := 0.0;
Coryz := 0.0; Coryz := 0.0;

7
applications/lazstats/source/forms/analysis/descriptive/plotxyunit.pas
View File

@ -353,9 +353,9 @@ var
xmin, xmax, ymin, ymax: Double; xmin, xmax, ymin, ymax: Double;
begin begin
if ChartForm = nil then if ChartForm = nil then
ChartForm := TChartForm.Create(Application); ChartForm := TChartForm.Create(Application)
else
ChartForm.Clear; ChartForm.Clear;
// Titles // Titles
ChartForm.SetTitle('X vs. Y plot using file ' + OS3MainFrm.FileNameEdit.Text); ChartForm.SetTitle('X vs. Y plot using file ' + OS3MainFrm.FileNameEdit.Text);
@ -376,6 +376,7 @@ begin
if ConfChk.Checked then if ConfChk.Checked then
ChartForm.PlotXY(ptLines, XPoints, LowConf, 'Lower confidence band', clRed); ChartForm.PlotXY(ptLines, XPoints, LowConf, 'Lower confidence band', clRed);
ChartForm.Chart.Prepare;
ChartForm.GetXRange(xmin, xmax, false); ChartForm.GetXRange(xmin, xmax, false);
ChartForm.GetYRange(ymin, ymax, false); ChartForm.GetYRange(ymin, ymax, false);

2
applications/lazstats/source/forms/analysis/multiple_regression/lsmrunit.pas
View File

@ -51,7 +51,7 @@ type
procedure InBtnClick(Sender: TObject); procedure InBtnClick(Sender: TObject);
procedure OutBtnClick(Sender: TObject); procedure OutBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject); procedure ResetBtnClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean); procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
private private
{ private declarations } { private declarations }
FAutoSized: boolean; FAutoSized: boolean;

2
applications/lazstats/source/forms/analysis/multivariate/correspondenceunit.pas
View File

@ -216,7 +216,7 @@ begin
SetLength(Freq,Nrows+1,Ncols+1); SetLength(Freq,Nrows+1,Ncols+1);
SetLength(Prop,Nrows+1,Ncols+1); SetLength(Prop,Nrows+1,Ncols+1);
SetLength(Expected,Nrows,Ncols); SetLength(Expected,Nrows,Ncols);
SetLength(CellChi,Nrows,Ncols); SetLength(CellChi, Nrows, Ncols);
for i := 1 to Nrows + 1 do for i := 1 to Nrows + 1 do
for j := 1 to Ncols + 1 do Freq[i-1,j-1] := 0; for j := 1 to Ncols + 1 do Freq[i-1,j-1] := 0;
RowLabels[Nrows] := 'Total'; RowLabels[Nrows] := 'Total';

2
applications/lazstats/source/forms/analysis/nonparametric/sensunit.pas
View File

@ -50,7 +50,7 @@ type
procedure InBtnClick(Sender: TObject); procedure InBtnClick(Sender: TObject);
procedure OutBtnClick(Sender: TObject); procedure OutBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject); procedure ResetBtnClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean); procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
private private
{ private declarations } { private declarations }
FAutoSized: Boolean; FAutoSized: Boolean;

2
applications/lazstats/source/forms/mainunit.pas
View File

@ -524,7 +524,9 @@ end;
procedure TOS3MainFrm.FormCreate(Sender: TObject); procedure TOS3MainFrm.FormCreate(Sender: TObject);
var var
helpfn: String; helpfn: String;
{$IFNDEF USE_EXTERNAL_HELP_VIEWER}
lhelpfn: String; lhelpfn: String;
{$ENDIF}
begin begin
// Reduce ultra-wide width of Inputbox windows // Reduce ultra-wide width of Inputbox windows
cInputQueryEditSizePercents := 0; cInputQueryEditSizePercents := 0;