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

LazStats: Refactor ResistanceLineUnit, use report-and-chart template form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7755 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-09 21:35:35 +00:00
parent 5c7f373489
commit ae55a077f0
10 changed files with 1068 additions and 1181 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
applications/lazstats/LazStats.ini
View File

@ -64,3 +64,4 @@ correlation, means, standard deviations and confidence interval for each correla
160=Correspondence analysis is a method for examining the relationship between two sets of categorical variables much as in a Chi-Squared analysis of a two-way contingency table. In fact, a typical chi-squared analysis is completed as part of this procedure. In addition, visualization of the relationships among the columns or rows of the analysis is performed in a manner similar to factor analysis. The data analyzed in the visualization is the table of relative proportions, that is, the original frequency values divided by the sum of all frequencies. The relative proportions of the row sums and the column sums are termed the �masses� of the rows or columns. The method used to analyze the relative proportions involves what is now called the �Generalized Singular Value Decomposition� or more simply the generalized SVD. This method obtains roots and vectors of a rectangular matrix by decomposing that matrix into three portions: a matrix of left singular column vectors (A) that has n rows and q columns (n � q), a square diagonal matrix with q rows and columns of singular values (D), and a transposed matrix (B�) that is m x q in size of right generalized singular vectors (m = q-1). Completing this analysis involves several steps. The first is to obtain the (regular) SVD analysis of a matrix Q defined as Dr-1/2PDc -1/2 where Dr and Dc are diagonal matrices of row and column relative proportions and P is the matrix of relative proportions. The SVD of Q gives Q = U D V� where D is the desired diagonal matrix of eigenvalues and U�U = V�V = I. It should be noted that the first of the q roots is trivial and to be ignored. At this point we obtain A = Dr1/2U and B = Dc 1/2 V. The results of this SVD analysis is available on the output. Now P = ADB�. The row coordinates F and column coordinates G are then computed according to the table: Analysis Choice Button Selected Row Coordinates Column Coordinates Row Profile Row F = Dr-1AD G = Dc-1B Column Profile Column F = Dr-1A G = Dc-1BD Both Profiles Both F = Dr-1AD G = Dc-1BD If Row profiles are computed, the row coordinates are weighted centroids of the column coordinates and the inertias D2 refer only to the row points. If the column profiles are computed, the column coordinates are weighted eentroids of the row coordinates and the inertias D2 refer only to the column points. If both profiles are selected, neither row or column coordinates are weighted centroids of the other but the inertias D2 refer to both sets of points. The q-1 inertias are plotted in a manner similar to a scree plot of roots in a factor analysis. The total inertia is, in fact, the chi-squared statistic divided by the total of all cell frequencies. You may elect to plot the coordinates for any two pairs of coordinates. This will provide a graphical representation of the separation of the row or column categories similar to a plot of variables in a discriminant function analysis or factors in a factor analysis. A way of looking at correspondence analysis is to consider it as a method for decomposing the overall inertia by identifying a small number of dimensions in which the deviations from the expected values can be represented. This is similar to factor analysis where the total variance is decomposed so as to arrive at a lower dimensional representation of variables.
161=Directions:\n(1) Select the X variable common to all of the Y variables to be selected.\n(2) Select the Y variables.\n(3) Enter a label for the plot.\n(4) Select the options desired.\n(5) Click the Compute button to obtain results.
162=This procedure plots the frequency of cases in each of the groups in a group variable. The group variable should be defined as an integer variable.\n\nSelect the variable and type of plot and click the Compute button for the results.
163=The Resistant Line procedure creates three equal groups by sorting on the X variable and obtaining the median value of each group.\nThe median values for these three groups on both the X and Y variables are then plotted. The line from the low group median to the middle group median is plotted as well as the line from the middle group to the top group median. A comparison of the slope of these two lines gives an indication of the degree to which the data fit a straight line. Enter the X and Y variables to be analyzed and click the compute button.

2
applications/lazstats/source/forms/analysis/descriptive/normalityunit.pas
View File

@ -126,6 +126,8 @@ begin
Grid.Color := clSilver;
Grid.Style := psSolid;
end;
PageControl.ActivePage := ChartPage;
end;

6
applications/lazstats/source/forms/analysis/descriptive/plotxyunit.lfm
View File

@ -19,17 +19,17 @@ inherited PlotXYFrm: TPlotXYFrm
TabOrder = 11
end
inherited ComputeBtn: TButton
Left = 238
Left = 237
Top = 459
TabOrder = 10
end
inherited ResetBtn: TButton
Left = 176
Left = 175
Top = 459
TabOrder = 9
end
inherited HelpBtn: TButton
Left = 117
Left = 116
Top = 459
TabOrder = 8
end

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

@ -39,18 +39,19 @@ type
procedure XOutBtnClick(Sender: TObject);
procedure YInBtnClick(Sender: TObject);
procedure YOutBtnClick(Sender: TObject);
private
{ private declarations }
procedure PlotXY(XPoints, YPoints, UpConf, LowConf: DblDyneVec;
XMean, YMean, R, Slope, Intercept: Double);
protected
procedure AdjustConstraints; override;
procedure Compute; override;
procedure UpdateBtnStates; override;
function Validate(out AMsg: String; out AControl: TWinControl;
Xcol,Ycol: Integer): Boolean; reintroduce;
public
{ public declarations }
constructor Create(AOwner: TComponent); override;
procedure Reset; override;
end;
@ -82,6 +83,7 @@ begin
Marks.Source := TListChartSource.Create(self);
Marks.Style := smsLabel;
Grid.Visible := false;
TickColor := clNone;
end;
with FChartFrame.Chart.AxisList.Add do
begin
@ -89,6 +91,7 @@ begin
Marks.Source := TListChartSource.Create(self);
Marks.Style := smsLabel;
Grid.Visible := false;
TickColor := clNone;
end;
PageControl.ActivePage := ChartPage;
@ -204,7 +207,7 @@ begin
t := InverseT(confBand, DF);
for i := 0 to N-1 do
begin
predicted := slope * xValues[i] + intercept;
predicted := intercept + slope * xValues[i];
seData := sePred * sqrt(1.0 + 1/N + sqr(xValues[i] - XMean) / SXX);
upConf[i] := predicted + t * seData;
lowConf[i] := predicted - t * seData;

426
applications/lazstats/source/forms/analysis/descriptive/resistancelineunit.lfm
View File

@ -1,107 +1,130 @@
object ResistanceLineForm: TResistanceLineForm
inherited ResistanceLineForm: TResistanceLineForm
Left = 581
Height = 480
Height = 438
Top = 301
Width = 535
Width = 883
HelpType = htKeyword
HelpKeyword = 'html/ResistantLineforBivariateData.htm'
Caption = 'Resistant Line for Bivariate Data'
ClientHeight = 480
ClientWidth = 535
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = ResetBtnClick
Position = poMainFormCenter
LCLVersion = '2.0.10.0'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = HorCenterBevel
AnchorSideTop.Side = asrBottom
ClientHeight = 438
ClientWidth = 883
inherited ParamsPanel: TPanel
Height = 422
Width = 320
ClientHeight = 422
ClientWidth = 320
inherited CloseBtn: TButton
Left = 265
Top = 397
TabOrder = 11
end
inherited ComputeBtn: TButton
Left = 181
Top = 397
TabOrder = 10
end
inherited ResetBtn: TButton
Left = 119
Top = 397
TabOrder = 9
end
inherited HelpBtn: TButton
Tag = 163
Left = 60
Top = 397
TabOrder = 8
end
inherited ButtonBevel: TBevel
Top = 381
Width = 320
end
object Label1: TLabel[5]
AnchorSideLeft.Control = VarList
AnchorSideTop.Control = ParamsPanel
Left = 8
Height = 15
Top = 144
Top = 0
Width = 46
BorderSpacing.Left = 8
Caption = 'Variables'
ParentColor = False
end
object Label2: TLabel
object Label2: TLabel[6]
AnchorSideLeft.Control = XEdit
AnchorSideTop.Control = Label1
Left = 188
Left = 181
Height = 15
Top = 144
Top = 0
Width = 93
Caption = 'Selected Variables'
ParentColor = False
end
object Label3: TLabel
object Label3: TLabel[7]
AnchorSideLeft.Control = XEdit
AnchorSideBottom.Control = XEdit
Left = 188
Left = 181
Height = 15
Top = 183
Top = 21
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'X Variable'
ParentColor = False
end
object Label4: TLabel
object Label4: TLabel[8]
AnchorSideLeft.Control = YEdit
AnchorSideBottom.Control = YEdit
Left = 188
Left = 181
Height = 15
Top = 300
Top = 101
Width = 51
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 2
Caption = 'Y Variable'
ParentColor = False
end
object XEdit: TEdit
object XEdit: TEdit[9]
AnchorSideLeft.Control = XInBtn
AnchorSideLeft.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = XOutBtn
AnchorSideBottom.Side = asrBottom
Left = 188
Left = 181
Height = 23
Top = 200
Width = 136
Top = 38
Width = 139
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Right = 16
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 3
Text = 'XEdit'
end
object YEdit: TEdit
object YEdit: TEdit[10]
AnchorSideLeft.Control = XEdit
AnchorSideRight.Control = XEdit
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = YOutBtn
AnchorSideBottom.Side = asrBottom
Left = 188
Left = 181
Height = 23
Top = 317
Width = 136
Top = 118
Width = 139
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 12
ReadOnly = True
TabOrder = 6
Text = 'Edit1'
Text = 'YEdit'
end
object XInBtn: TBitBtn
AnchorSideLeft.Control = HorCenterBevel
object XInBtn: TBitBtn[11]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
AnchorSideRight.Control = XEdit
AnchorSideBottom.Control = XOutBtn
Left = 152
Height = 28
Top = 175
Width = 28
Anchors = [akLeft, akBottom]
Left = 147
Height = 26
Top = 17
Width = 26
BorderSpacing.Right = 8
BorderSpacing.Bottom = 4
Glyph.Data = {
@ -146,16 +169,17 @@ object ResistanceLineForm: TResistanceLineForm
Spacing = 0
TabOrder = 1
end
object YInBtn: TBitBtn
AnchorSideLeft.Control = HorCenterBevel
object YInBtn: TBitBtn[12]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Bevel1
AnchorSideTop.Control = XOutBtn
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = YEdit
Left = 152
Height = 28
Top = 292
Width = 28
Left = 147
Height = 26
Top = 97
Width = 26
BorderSpacing.Top = 24
BorderSpacing.Right = 8
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -199,14 +223,14 @@ object ResistanceLineForm: TResistanceLineForm
Spacing = 0
TabOrder = 4
end
object XOutBtn: TBitBtn
object XOutBtn: TBitBtn[13]
AnchorSideLeft.Control = XInBtn
AnchorSideBottom.Control = Bevel1
Left = 152
Height = 28
Top = 207
Width = 28
Anchors = [akLeft, akBottom]
AnchorSideTop.Control = XInBtn
AnchorSideTop.Side = asrBottom
Left = 147
Height = 26
Top = 47
Width = 26
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
@ -249,14 +273,14 @@ object ResistanceLineForm: TResistanceLineForm
Spacing = 0
TabOrder = 2
end
object YOutBtn: TBitBtn
object YOutBtn: TBitBtn[14]
AnchorSideLeft.Control = YInBtn
AnchorSideTop.Control = YInBtn
AnchorSideTop.Side = asrBottom
Left = 152
Height = 28
Top = 324
Width = 28
Left = 147
Height = 26
Top = 127
Width = 26
BorderSpacing.Top = 4
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -300,272 +324,184 @@ object ResistanceLineForm: TResistanceLineForm
Spacing = 0
TabOrder = 5
end
object ResetBtn: TButton
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 326
Height = 25
Top = 447
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 11
end
object ComputeBtn: TButton
AnchorSideRight.Control = CloseBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 388
Height = 25
Top = 447
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 12
end
object CloseBtn: TButton
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 472
Height = 25
Top = 447
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Close'
ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 13
end
object GroupBox1: TGroupBox
object OptionsGroup: TGroupBox[15]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1
AnchorSideRight.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 340
Height = 152
Top = 144
Width = 187
Anchors = [akTop, akRight]
AnchorSideBottom.Control = ButtonBevel
Left = 0
Height = 228
Top = 153
Width = 264
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Options'
ClientHeight = 132
ClientWidth = 183
Enabled = False
ClientHeight = 208
ClientWidth = 260
TabOrder = 7
object Label5: TLabel
AnchorSideLeft.Control = GroupBox1
object ConfLabel: TLabel
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = ConfEdit
AnchorSideTop.Side = asrCenter
Left = 32
Height = 15
Top = 101
Top = 131
Width = 74
BorderSpacing.Left = 32
Caption = '% Confidence'
ParentColor = False
end
object DescChk: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = PointsChk
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = ConfEdit
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 21
Width = 155
Top = 158
Width = 153
BorderSpacing.Left = 12
Caption = 'Print Descriptive Statistics'
TabOrder = 1
Caption = 'Print descriptive statistics'
TabOrder = 7
end
object ConfEdit: TEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Control = ConfLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ConfChk
AnchorSideTop.Side = asrBottom
Left = 114
Height = 23
Top = 97
Top = 127
Width = 57
Alignment = taRightJustify
BorderSpacing.Left = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
BorderSpacing.Bottom = 8
TabOrder = 5
Text = '95.0'
end
object LineChk: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = DescChk
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = OptionsBevel
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 40
Top = 70
Width = 146
BorderSpacing.Left = 12
BorderSpacing.Top = 12
Caption = 'Plot the Regression Line'
TabOrder = 2
end
object MeansChk: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = LineChk
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 59
Top = 89
Width = 99
BorderSpacing.Left = 12
Caption = 'Plot the Means'
TabOrder = 3
end
object ConfChk: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = MeansChk
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 78
Top = 108
Width = 155
BorderSpacing.Left = 12
Caption = 'Plot the Confidence Band'
TabOrder = 4
end
object PointsChk: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
object GridChk: TCheckBox
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = DescChk
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 2
Width = 153
Top = 177
Width = 248
BorderSpacing.Left = 12
BorderSpacing.Top = 2
Caption = 'Plot All of the points First'
BorderSpacing.Bottom = 12
Caption = 'Enter Predicted Y and Residual Y in the Grid'
TabOrder = 6
end
object PlotMediansChk: TRadioButton
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = OptionsGroup
Left = 12
Height = 19
Top = 6
Width = 215
BorderSpacing.Left = 12
BorderSpacing.Top = 6
Caption = 'Plot the three medians and slope line'
OnChange = PlotMediansChkChange
TabOrder = 0
end
object PlotPointsChk: TRadioButton
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = PlotMediansChk
AnchorSideTop.Side = asrBottom
Left = 12
Height = 19
Top = 27
Width = 146
BorderSpacing.Left = 12
BorderSpacing.Top = 2
Caption = 'Plot points and linear fit'
OnChange = PlotMediansChkChange
TabOrder = 1
end
object VarList: TListBox
AnchorSideLeft.Control = Owner
object OptionsBevel: TBevel
AnchorSideLeft.Control = OptionsGroup
AnchorSideTop.Control = PlotPointsChk
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = OptionsGroup
AnchorSideRight.Side = asrBottom
Left = 12
Height = 12
Top = 46
Width = 236
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 12
BorderSpacing.Right = 12
Shape = bsBottomLine
end
end
object VarList: TListBox[16]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = XInBtn
AnchorSideBottom.Control = StdCorChk
AnchorSideBottom.Control = OptionsGroup
Left = 8
Height = 205
Top = 161
Width = 136
Height = 128
Top = 17
Width = 131
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 2
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Constraints.MinHeight = 200
ItemHeight = 0
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 0
end
object StdCorChk: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = PlotMediansChk
Left = 8
Height = 19
Top = 374
Width = 330
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
Caption = 'Option: Compute a standard product-moment correlation.'
OnChange = StdCorChkChange
TabOrder = 8
end
object PlotMediansChk: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = GridChk
Left = 8
Height = 19
Top = 393
Width = 265
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
Caption = 'Plot the Three Medians and Slope Line (in Red)'
TabOrder = 9
inherited ParamsSplitter: TSplitter
Left = 332
Height = 438
end
object GridChk: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Bevel2
Left = 8
Height = 19
Top = 412
Width = 248
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
Caption = 'Enter Predicted Y and Residual Y in the Grid'
TabOrder = 10
end
object Bevel1: TBevel
AnchorSideLeft.Control = YInBtn
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
AnchorSideTop.Side = asrCenter
Left = 161
Height = 57
Top = 235
Width = 10
Shape = bsSpacer
end
object Bevel2: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 8
Top = 431
Width = 535
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
end
object Memo1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 120
Top = 8
Width = 519
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'The Resistant Line procedure creates three equal groups by sorting on the X variable and obtaining the median value of each group.'#13#10#13#10'The median values for these three groups on both the X and Y variables are then plotted. The line from the low group median to the middle group median is plotted as well as the line from the middle group to the top group median. A comparison of the slope of these two lines gives an indication of the degree to which the data fit a straight line. Enter the X and Y variables to be analyzed and click the compute button.'
ParentColor = False
WordWrap = True
end
object HorCenterBevel: TBevel
AnchorSideLeft.Control = VarList
AnchorSideTop.Control = Memo1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = XEdit
AnchorSideRight.Side = asrBottom
Left = 8
Height = 16
Top = 128
Width = 316
Anchors = [akTop, akLeft, akRight]
Shape = bsSpacer
inherited PageControl: TPageControl
Left = 341
Height = 422
Width = 534
end
end

1142
applications/lazstats/source/forms/analysis/descriptive/resistancelineunit.pas
View File

File diff suppressed because it is too large Load Diff

6
applications/lazstats/source/forms/simulations/distribunit.lfm
View File

@ -21,17 +21,17 @@ inherited DistribFrm: TDistribFrm
TabOrder = 6
end
inherited ComputeBtn: TButton
Left = 70
Left = 69
Top = 387
TabOrder = 5
end
inherited ResetBtn: TButton
Left = 8
Left = 7
Top = 387
TabOrder = 4
end
inherited HelpBtn: TButton
Left = -51
Left = -52
Top = 387
Visible = False
end

1
applications/lazstats/source/forms/simulations/distribunit.pas
View File

@ -95,7 +95,6 @@ begin
FChartFrame.Chart.Legend.ColumnCount := 3;
FChartFrame.Chart.Legend.TextFormat := tfHTML;
// InitToolbar(FChartFrame.ChartToolbar, tpTop);
tbErase := TToolButton.Create(self);
tbErase.ImageIndex := 6;
tbErase.Caption := 'Erase';

10
applications/lazstats/source/units/gridprocs.pas
View File

@ -14,6 +14,8 @@ function CollectValues(AGrid: TStringGrid; AColIndex: Integer;
procedure GetMinMax(AGrid: TStringGrid; AColIndex: Integer;
const AColCheck: IntDyneVec; out AMin, AMax: Double);
function GetVariableIndex(AGrid: TStringGrid; const AVarName: String): Integer;
function GoodRecord(AGrid: TStringGrid; ARow: integer;
const AColCheck: IntDyneVec): boolean;
@ -93,6 +95,14 @@ begin
end;
{ Finds the index of the variable with the specified name among the columns of
the grid. }
function GetVariableIndex(AGrid: TStringGrid; const AVarName: String): Integer;
begin
Result := AGrid.Rows[0].IndexOf(AVarName);
end;
{ Checks whether all cells specified for the given row in the columns listed in
the GridPos array are "valid": not filtered and not empty }
function GoodRecord(AGrid: TStringGrid; ARow: integer;

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

@ -51,11 +51,14 @@ procedure Calc_MeanVarStdDev(const AData: DblDyneVec; out AMean, AVariance, AStd
procedure Calc_MeanVarStdDevSS(const AData: DblDyneVec; out AMean, AVariance, AStdDev, ASumOfSquares: Double);
procedure Calc_SumSS(const AData: DblDyneVec; out Sum, SS: Double);
function Calc_Median(const AData: DblDyneVec): Double;
implementation
uses
Math;
Math,
Utils;
// Calculates the error function
// /x
@ -572,6 +575,21 @@ begin
end;
function Calc_Median(const AData: DblDyneVec): Double;
var
N, midPt: integer;
begin
SortOnX(AData);
N := Length(AData);
midPt := N div 2;
if odd(N) then
Result := AData[midPt] // odd no. of values
else
Result := (AData[midPt-1] + AData[midPt]) / 2; // even no. of values
end;
initialization
InitFactLn();