You've already forked lazarus-ccr
LazStats: Less hints and warnings.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7631 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -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;
|
||||||
|
@ -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);
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
@ -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';
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
Reference in New Issue
Block a user