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

LazStats: Inherit form in StemLeafUnit from TBasicStatsParamsForm. Minor refactoring.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7761 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-10-10 17:53:35 +00:00
parent cd11e879cf
commit 65ee7405e5
7 changed files with 251 additions and 347 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
applications/lazstats/LazStats.ini
View File

@ -49,7 +49,7 @@ correlation, means, standard deviations and confidence interval for each correla
145=Directions: First click on the variable name that represents the sample lot number. Next, click on the variable that represents the measurement. Click the Compute Button to obtain the results. NOTE! Equal group (lot) sizes of 2 to 25 required for Sigma analysis. Control limits are plus and minus 3 sigma. Up to 200 lots may be analyzed.
146=Description: Straight Line Depreciation calculates the depreciation allowance for an asset over one period in it's life. The function divides the cost minus the salvage value by the number of years of useful life of the asset. Cost is the inital amount paid for the asset. Salvage is the value left at the end of the asset's life. EXAMPLE: What is the depreciation value on might expect for a computer purchased for $2,000.00 and expected to have a useful life of three years with no residual value? ANSWER: Approximately $666.67
147=R = Kr / (1 + (K - 1) r where R is the estimated reliability of a test when increased by a factor of K. K is the number of items in the lengthened test divided by the number of items in the original test. r is the reliability of the original test.
148=Directions: Click on the variables from the left list of available variables. Click the right-pointing arrow to enter your selection(s). You can remove a selected variable by clicking on it and click the left-pointing arrow button. Click the Compute button to do the analysis. NOTE: Some leaves may represent fragments smaller than the leaf depth.
148=Click on the variables from the left list of available variables.\nClick the right-pointing arrow to enter your selection(s).\nYou can remove a selected variable by clicking on it and click the left-pointing arrow button.\nClick the Compute button to do the analysis.\n\nNOTE:\nSome leaves may represent fragments smaller than the leaf depth.
149=Description: Sum of Years Digits Depreciation calculates depreciation amounts for an asset using an accelerated depreciation method. This allows for higher depreciation in the early years of an asset's life. Cost is the initial cost of the asset. Salvage is the value of the asset at the end of it's life expectancy. Life is the length of the asset's life expectancy. Period is the period that you wish to calculate the depreciation. EXAMPLE: What is the depreciation for period 1, 2 or 3 that one can claim for a computer purchased at a price of $2,000.00 and expected to have a useful life of 3 years with no salvage value? ANSWER: $1,000.00 the first year, $666.67 the second period and $333.33 the last year.
150=New variables may be created that are transformations of an existing variable or a combination of two variables or a variable and a constant. For example, you may want to create a new variable that is the natural log of an existing variable. As another example, you may want to create a variable that is the product of two other variables. To create the new variable, enter a name for the new variable in the edit box provided for the new variable name. Next, select the transformation in the list of functions available. The selected transformation will be shown in a box below the list of functions. Next, click on the name of the variable for the first arguement of the function to be performed and use the corresponding right arrow button to enter it. If a second variable is required (V2) click on the name of the variable and enter it with the corresponding arrow for V2. If a constant is required, click on the constant edit box and enter the value. Click on the Compute button.
151=Directions: For Dependent samples, click on the three variables representing X, Y and Z (in that order.) The test will compare the r(x,y) with the r(x,z). For Independent samples, click on the X and Y variables to be correlated and then the variable representing the group coding variable. The correlations obtained in each of two groups will be compared.
@ -64,4 +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.
163=The Resistant Line procedure creates three equal groups by sorting on the X variable and obtaining the median value of each group.\n\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/LazStats.lpi
View File

@ -280,7 +280,7 @@
<Unit22>
<Filename Value="forms\analysis\descriptive\stemleafunit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="StemLeafFrm"/>
<ComponentName Value="StemLeafForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="StemLeafUnit"/>

243
applications/lazstats/source/forms/analysis/descriptive/stemleafunit.lfm
View File

@ -1,57 +1,53 @@
object StemLeafFrm: TStemLeafFrm
Left = 519
Height = 296
inherited StemLeafForm: TStemLeafForm
Height = 339
Top = 257
Width = 407
Width = 684
HelpType = htKeyword
HelpKeyword = 'html/StemandLeafPlot.htm'
AutoSize = True
Caption = 'Stem and Leaf Analysis'
ClientHeight = 296
ClientWidth = 407
OnActivate = FormActivate
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '2.0.10.0'
object TestChk: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Bevel1
ClientHeight = 339
ClientWidth = 684
inherited ParamsPanel: TPanel
Height = 323
ClientHeight = 323
inherited CloseBtn: TButton
Top = 298
TabOrder = 9
end
inherited ComputeBtn: TButton
Top = 298
TabOrder = 8
end
inherited ResetBtn: TButton
Top = 298
TabOrder = 7
end
inherited HelpBtn: TButton
Tag = 148
Top = 298
TabOrder = 6
end
inherited ButtonBevel: TBevel
Top = 282
end
object TestChk: TCheckBox[5]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ButtonBevel
AnchorSideBottom.Side = asrBottom
Left = 8
Left = 0
Height = 19
Top = 228
Top = 263
Width = 202
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
Caption = 'Show All Scaled Values and Srrings'
TabOrder = 0
TabOrder = 5
end
object Panel1: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TestChk
Left = 8
Height = 212
Top = 8
Width = 391
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BevelOuter = bvNone
ClientHeight = 212
ClientWidth = 391
Constraints.MinHeight = 200
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
object Label1: TLabel[6]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = ParamsPanel
Left = 0
Height = 15
Top = 0
@ -59,48 +55,46 @@ object StemLeafFrm: TStemLeafFrm
Caption = 'Available Variables:'
ParentColor = False
end
object VarList: TListBox
AnchorSideLeft.Control = Panel1
object VarList: TListBox[7]
AnchorSideLeft.Control = ParamsPanel
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = AllBtn
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Side = asrBottom
AnchorSideBottom.Control = TestChk
Left = 0
Height = 195
Height = 238
Top = 17
Width = 167
Width = 121
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 2
BorderSpacing.Right = 8
BorderSpacing.Right = 4
ItemHeight = 0
MultiSelect = True
OnDblClick = VarListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 0
end
object InBtn: TBitBtn
AnchorSideLeft.Control = Panel1
object InBtn: TBitBtn[8]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = VarList
Left = 181
Height = 28
Left = 132
Height = 26
Top = 17
Width = 28
Width = 26
Images = MainDataModule.ImageList
ImageIndex = 1
OnClick = InBtnClick
Spacing = 0
TabOrder = 1
end
object OutBtn: TBitBtn
AnchorSideLeft.Control = Panel1
object OutBtn: TBitBtn[9]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = InBtn
AnchorSideTop.Side = asrBottom
Left = 181
Height = 28
Top = 49
Width = 28
Left = 132
Height = 26
Top = 47
Width = 26
BorderSpacing.Top = 4
Images = MainDataModule.ImageList
ImageIndex = 0
@ -108,14 +102,13 @@ object StemLeafFrm: TStemLeafFrm
Spacing = 0
TabOrder = 2
end
object AllBtn: TBitBtn
AnchorSideLeft.Control = Panel1
object AllBtn: TBitBtn[10]
AnchorSideLeft.Control = ParamsPanel
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = OutBtn
AnchorSideTop.Side = asrBottom
Left = 175
Left = 125
Height = 25
Top = 101
Top = 97
Width = 40
AutoSize = True
BorderSpacing.Top = 24
@ -123,128 +116,42 @@ object StemLeafFrm: TStemLeafFrm
OnClick = AllBtnClick
TabOrder = 3
end
object Label2: TLabel
object Label2: TLabel[11]
AnchorSideLeft.Control = SelectList
AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1
AnchorSideTop.Control = ParamsPanel
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
Left = 223
Left = 169
Height = 15
Top = 0
Width = 96
Caption = 'Selected Variables:'
ParentColor = False
end
object SelectList: TListBox
object SelectList: TListBox[12]
AnchorSideLeft.Control = AllBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Control = ParamsPanel
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel1
AnchorSideBottom.Control = VarList
AnchorSideBottom.Side = asrBottom
Left = 223
Height = 195
Left = 169
Height = 238
Top = 17
Width = 168
Width = 122
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Left = 4
BorderSpacing.Top = 2
ItemHeight = 0
MultiSelect = True
OnDblClick = SelectListDblClick
OnSelectionChange = VarListSelectionChange
TabOrder = 4
end
end
object CloseBtn: TButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 340
Height = 25
Top = 263
Width = 55
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Close'
ModalResult = 11
OnClick = CloseBtnClick
TabOrder = 2
end
object ComputeBtn: TButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = CloseBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 256
Height = 25
Top = 263
Width = 76
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Compute'
OnClick = ComputeBtnClick
TabOrder = 3
end
object ResetBtn: TButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ComputeBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 194
Height = 25
Top = 263
Width = 54
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Reset'
OnClick = ResetBtnClick
TabOrder = 4
end
object HelpBtn: TButton
Tag = 148
AnchorSideRight.Control = ResetBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 135
Height = 25
Top = 263
Width = 51
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Left = 12
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Help'
OnClick = HelpBtnClick
TabOrder = 5
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CloseBtn
Left = 0
Height = 8
Top = 247
Width = 407
Anchors = [akLeft, akRight, akBottom]
Shape = bsBottomLine
inherited ParamsSplitter: TSplitter
Height = 339
end
end

307
applications/lazstats/source/forms/analysis/descriptive/stemleafunit.pas
View File

@ -5,84 +5,74 @@ unit StemLeafUnit;
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
StdCtrls, ExtCtrls, Buttons, Math, Clipbrd,
MainUnit, Globals, OutputUnit, DataProcs, ContextHelpUnit;
MainUnit, Globals, BasicStatsReportFormUnit;
type
{ TStemLeafForm }
{ TStemLeafFrm }
TStemLeafFrm = class(TForm)
Bevel1: TBevel;
HelpBtn: TButton;
TStemLeafForm = class(TBasicStatsReportForm)
InBtn: TBitBtn;
OutBtn: TBitBtn;
AllBtn: TBitBtn;
Panel1: TPanel;
ResetBtn: TButton;
ComputeBtn: TButton;
CloseBtn: TButton;
TestChk: TCheckBox;
Label1: TLabel;
Label2: TLabel;
VarList: TListBox;
SelectList: TListBox;
procedure AllBtnClick(Sender: TObject);
procedure CloseBtnClick(Sender: TObject);
procedure ComputeBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
procedure InBtnClick(Sender: TObject);
procedure OutBtnClick(Sender: TObject);
procedure ResetBtnClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; User: boolean);
procedure SelectListDblClick(Sender: TObject);
procedure VarListDblClick(Sender: TObject);
procedure VarListSelectionChange(Sender: TObject; {%H-}User: boolean);
private
{ private declarations }
FAutoSized: Boolean;
procedure UpdateBtnStates;
protected
procedure AdjustConstraints; override;
procedure Compute; override;
procedure UpdateBtnStates; override;
public
{ public declarations }
constructor Create(AOwner: TComponent); override;
procedure Reset; override;
end;
var
StemLeafFrm: TStemLeafFrm;
StemLeafForm: TStemLeafForm;
implementation
{ TStemLeafFrm }
{$R *.lfm}
procedure TStemLeafFrm.ResetBtnClick(Sender: TObject);
var
i: integer;
uses
Utils, MathUnit, GridProcs;
{ TStemLeafForm }
constructor TStemLeafForm.Create(AOwner: TComponent);
begin
VarList.Clear;
for i := 1 to NoVariables do
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
SelectList.Clear;
UpdateBtnStates;
inherited;
FReportFrame.BorderSpacing.Right := 0;
end;
procedure TStemLeafFrm.FormCreate(Sender: TObject);
procedure TStemLeafForm.AdjustConstraints;
begin
Assert(OS3MainFrm <> nil);
inherited;
ParamsPanel.Constraints.MinWidth := 4*CloseBtn.Width + 3*CloseBtn.BorderSpacing.Left;
ParamsPanel.Constraints.MinHeight := AllBtn.Top + AllBtn.Height +
TestChk.BorderSpacing.Top + TestChk.Height +
ButtonBevel.Height + CloseBtn.BorderSpacing.Top + CloseBtn.Height;
end;
procedure TStemLeafFrm.FormShow(Sender: TObject);
begin
ResetBtnClick(self);
end;
procedure TStemLeafFrm.HelpBtnClick(Sender: TObject);
begin
if ContextHelpForm = nil then
Application.CreateForm(TContextHelpForm, ContextHelpForm);
ContextHelpForm.HelpMessage((Sender as TButton).Tag);
end;
procedure TStemLeafFrm.AllBtnClick(Sender: TObject);
procedure TStemLeafForm.AllBtnClick(Sender: TObject);
var
i: integer;
begin
@ -92,47 +82,38 @@ begin
UpdateBtnStates;
end;
procedure TStemLeafFrm.CloseBtnClick(Sender: TObject);
begin
Close;
end;
procedure TStemLeafFrm.ComputeBtnClick(Sender: TObject);
procedure TStemLeafForm.Compute;
var
i, j, k, L, ncases, noselected, largest, smallest: integer;
minsize, maxsize, stem, minstem, maxstem, bin, index: integer;
leafvalue, counter, smallcount, testvalue, largestcount: integer;
cellstring, outline, astring: string;
selected: IntDyneVec;
bins: IntDyneVec;
frequency: IntDyneVec;
ValueString: StrDyneVec;
values: DblDyneVec;
leafcount: IntDyneMat;
min, max, temp, X, stemsize: double;
outline, astring: string;
selected: IntDyneVec = nil;
bins: IntDyneVec = nil;
frequency: IntDyneVec = nil;
ValueString: StrDyneVec = nil;
values: DblDyneVec = nil;
leafCount: IntDyneMat = nil;
min, max, stemsize: double;
lReport: TStrings;
begin
noselected := SelectList.Items.Count;
if (noselected = 0) then
begin
MessageDlg('No variables were selected.', mtError, [mbOK], 0);
ErrorMsg('No variables were selected.');
exit;
end;
SetLength(selected,noselected);
SetLength(values,NoCases);
SetLength(bins,100);
SetLength(frequency,100);
SetLength(ValueString,NoCases);
SetLength(leafcount,100,10);
SetLength(selected, noselected);
SetLength(bins, 100);
SetLength(frequency, 100);
SetLength(leafCount, 100,10);
// Get selected variables
for i := 1 to noselected do
begin
cellstring := SelectList.Items.Strings[i-1];
for j := 1 to NoVariables do
if (cellstring = OS3MainFrm.DataGrid.Cells[j,0]) then selected[i-1] := j;
end;
// Get column indices of selected variables
for i := 0 to noselected - 1 do
selected[i] := GetVariableIndex(OS3MainFrm.DataGrid, SelectList.Items[i]);
lReport := TStringList.Create;
try
@ -143,24 +124,23 @@ begin
for j := 0 to noselected - 1 do
begin
k := selected[j];
lReport.Add('Stem and Leaf Plot for variable: %s', [OS3MainFrm.DataGrid.Cells[k,0]]);
ncases := 0;
min := 1.0e308;
max := -1.0e308;
minsize := 1000;
maxsize := -1000;
lReport.Add('Stem and Leaf Plot for variable "%s"', [OS3MainFrm.DataGrid.Cells[k, 0]]);
lReport.Add('');
// Store values of the variable
for i := 1 to NoCases do
// Stores values of the variable
values := CollectValues(OS3MainFrm.DataGrid, k);
nCases := Length(values);
SetLength(valueString, nCases);
Calc_MaxMin(values, max, min);
minSize := MaxInt;
maxSize := -Maxint;
for i := 0 to High(values) do
begin
if not ValidValue(i,k) then continue;
values[ncases] := StrToFloat(OS3MainFrm.DataGrid.Cells[k,i]);
ValueString[ncases] := Trim(OS3MainFrm.DataGrid.Cells[k,i]);
if (values[ncases] < min) then min := values[ncases];
if (values[ncases] > max) then max := values[ncases];
if Length(ValueString[ncases]) > maxsize then maxsize := Length(ValueString[ncases]);
if Length(ValueString[ncases]) < minsize then minsize := Length(ValueString[ncases]);
ncases := ncases + 1;
valueString[i] := Trim(OS3MainFrm.DataGrid.Cells[k, i]);
maxSize := Math.Max(maxSize, Length(valueString[i]));
minSize := Math.Min(minSize, Length(valueString[i]));
end;
largest := ceil(max);
@ -168,7 +148,7 @@ begin
stemsize := 1.0;
if ((largest > 0) and (largest > 10)) then
begin
while (largest > 10)do
while (largest > 10) do
begin
largest := largest div 10;
stemsize := stemsize * 10.0;
@ -190,16 +170,13 @@ begin
// multiply values by 10, round and save value divided by 10
for i := 0 to ncases - 1 do
begin
temp := floor(values[i] * 10);
temp := temp / 10.0;
values[i] := temp;
astring := format('%4.1f',[values[i]]);
ValueString[i] := astring;
values[i] := floor(values[i] * 10) / 10;;
ValueString[i] := Format('%4.1f', [values[i]]);
end;
// get max and min stem values for creating bins for stem values
minstem := 999;
maxstem := -999;
minstem := MaxInt;
maxstem := -MaxInt;
for i := 0 to ncases - 1 do
begin
stem := floor(values[i]);
@ -218,30 +195,27 @@ begin
begin
if (values[i] > values[k]) then // swap values
begin
X := values[i];
values[i] := values[k];
values[k] := X;
cellstring := ValueString[i];
ValueString[i] := ValueString[k];
ValueString[k] := cellstring;
Exchange(values[i], values[k]);
Exchange(valueString[i], valueString[k]);
end;
end;
end;
(*
// check sizes - delete if ok
{
// check sizes - delete if ok
outline := format('maxsize, minsize,stemsize: %10d %10d %10.2f',[maxsize, minsize, stemsize]);
OutputFrm.RichEdit.Lines.Add(outline);
OutputFrm.ShowModal;
OutputFrm.RichEdit.Clear;
*)
}
if TestChk.Checked then
begin // test output
lReport.Add('value ValueString');
lReport.Add(' Value ValueString');
lReport.Add('---------- --------------------');
for i := 0 to ncases - 1 do
lReport.Add('%10.1f %s',[values[i],ValueString[i]]);
lReport.Add('%10.1f %s', [values[i], valueString[i]]);
lReport.Add('');
end;
lReport.Add('');
lReport.Add('Frequency Stem & Leaf');
// initialize leaf count for the bins
@ -259,7 +233,7 @@ begin
frequency[bin] := frequency[bin] + 1; // count number of stem values
end else
begin
MessageDlg('Error in bin value', mtError, [mbOK], 0);
ErrorMsg('Error in bin value');
exit;
end;
@ -271,13 +245,13 @@ begin
leafcount[bin,leafvalue] := leafcount[bin,leafvalue] + 1
else
begin
MessageDlg('Error in leafvalue', mtError, [mbOK], 0);
ErrorMsg('Error in leafvalue');
exit;
end;
end;
// get max leaf counters
largestcount := 0;
largestCount := 0;
for i := 0 to 99 do // bin
begin
if frequency[i] = 0 then continue; // skip empty bins
@ -289,23 +263,23 @@ begin
end;
// determine leaf depth needed to get counter <= 50
if (largestcount > 50) then
if (largestCount > 50) then
begin
smallcount := 2;
testvalue := largestcount;
smallCount := 2;
testvalue := largestCount;
while (testvalue > 50) do
begin
testvalue := largestcount div smallcount;
smallcount := smallcount + 1;
testvalue := largestCount div smallCount;
smallCount := smallCount + 1;
end;
smallcount := smallcount - 1; // leaf depth needed to reduce line lengths to 50 or less
smallCount := smallCount - 1; // leaf depth needed to reduce line lengths to 50 or less
end else
smallcount := 1;
smallCount := 1;
// rescale leafs
for i := 0 to 99 do // bin
for k := 0 to 9 do // leaf
leafcount[i,k] := leafcount[i,k] div smallcount;
leafCount[i,k] := leafCount[i,k] div smallcount;
// plot results
for i := 0 to 99 do
@ -314,8 +288,8 @@ begin
outline := format('%6d %3d ',[frequency[i], bins[i]]);
for k := 0 to 9 do
begin
if leafcount[i,k] = 0 then continue;
for L := 1 to leafcount[i,k] do
if leafCount[i,k] = 0 then continue;
for L := 1 to leafCount[i,k] do
outline := outline + Format('%d',[k]);
end;
lReport.Add(outline);
@ -329,43 +303,19 @@ begin
lReport.Add('Max. Value: %8.3f', [max]);
lReport.Add('No. of good cases: %8d', [ncases]);
lReport.Add('');
lReport.Add('-------------------------------------------------------------');
lReport.Add(DIVIDER_SMALL);
lReport.Add('');
end; // next jth variable
end;
DisplayReport(lReport);
FReportFrame.DisplayReport(lReport);
finally
lReport.Free;
frequency := nil;
bins := nil;
ValueString := nil;
values := nil;
selected := nil;
leafcount := nil;
end;
end;
procedure TStemLeafFrm.FormActivate(Sender: TObject);
var
w: Integer;
begin
if FAutoSized then
exit;
w := MaxValue([HelpBtn.Width, ResetBtn.Width, ComputeBtn.Width, CloseBtn.Width]);
HelpBtn.Constraints.MinWidth := w;
ResetBtn.Constraints.MinWidth := w;
ComputeBtn.Constraints.MinWidth := w;
CloseBtn.Constraints.MinWidth := w;
Constraints.MinWidth := Width;
Constraints.MinHeight := Height;
FAutoSized := true;
end;
procedure TStemLeafFrm.InBtnClick(Sender: TObject);
procedure TStemLeafForm.InBtnClick(Sender: TObject);
var
i: integer;
begin
@ -383,7 +333,8 @@ begin
UpdateBtnStates;
end;
procedure TStemLeafFrm.OutBtnClick(Sender: TObject);
procedure TStemLeafForm.OutBtnClick(Sender: TObject);
var
i: integer;
begin
@ -400,11 +351,41 @@ begin
UpdateBtnStates;
end;
procedure TStemLeafFrm.UpdateBtnStates;
procedure TStemLeafForm.Reset;
var
i: integer;
begin
inherited;
VarList.Clear;
for i := 1 to NoVariables do
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
SelectList.Clear;
UpdateBtnStates;
end;
procedure TStemLeafForm.SelectListDblClick(Sender: TObject);
var
index: Integer;
begin
index := Selectlist.ItemIndex;
if index > -1 then
begin
VarList.Items.Add(SelectList.Items[index]);
SelectList.Items.Delete(index);
UpdateBtnStates;
end;
end;
procedure TStemLeafForm.UpdateBtnStates;
var
lSelected: Boolean;
i: Integer;
begin
inherited;
lSelected := false;
for i := 0 to VarList.Items.Count-1 do
if VarList.Selected[i] then
@ -424,13 +405,25 @@ begin
OutBtn.Enabled := lSelected;
end;
procedure TStemLeafFrm.VarListSelectionChange(Sender: TObject; User: boolean);
procedure TStemLeafForm.VarListDblClick(Sender: TObject);
var
index: Integer;
begin
index := VarList.ItemIndex;
if index > -1 then
begin
SelectList.Items.Add(VarList.Items[index]);
VarList.Items.Delete(index);
UpdateBtnStates;
end;
end;
procedure TStemLeafForm.VarListSelectionChange(Sender: TObject; User: boolean);
begin
UpdateBtnStates;
end;
initialization
{$I stemleafunit.lrs}
end.

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

@ -2086,9 +2086,9 @@ end;
// Menu "Analysis" > "Descriptive" > "Stem and Leaf Plot"
procedure TOS3MainFrm.mnuAnalysisDescr_StemLeafClick(Sender: TObject);
begin
if StemLeafFrm = nil then
Application.CreateForm(TStemLeafFrm, StemLeafFrm);
StemLeafFrm.Show;
if StemLeafForm = nil then
Application.CreateForm(TStemLeafForm, StemLeafForm);
StemLeafForm.Show;
end;
// Menu "Analysis" > "Descriptive" > "3-D Variable Rotation"

6
applications/lazstats/source/forms/misc/basicstatsparamsformunit.pas
View File

@ -72,6 +72,7 @@ end;
procedure TBasicStatsParamsForm.Activate;
var
w: Integer;
topSpacing, bottomSpacing: Integer;
begin
if FAutoSized then
exit;
@ -84,7 +85,10 @@ begin
AdjustConstraints;
Constraints.MinHeight := ParamsPanel.Constraints.MinHeight + ParamsPanel.BorderSpacing.Around*2;
topSpacing := max(ParamsPanel.BorderSpacing.Top, ParamsPanel.BorderSpacing.Around);
bottomSpacing := max(ParamsPanel.BorderSpacing.Bottom, ParamsPanel.BorderSpacing.Around);
Constraints.MinHeight := ParamsPanel.Constraints.MinHeight + topSpacing + bottomSpacing;
Constraints.MinWidth := ParamsPanel.Constraints.MinWidth + 300;
if Width < Constraints.MinWidth then Width := 1; // enforce constraints

6
applications/lazstats/source/forms/misc/basicstatsreportformunit.pas
View File

@ -43,9 +43,9 @@ begin
FReportFrame.Parent := Self;
FReportFrame.Align := alClient;
FReportFrame.BorderSpacing.Left := 4;
FReportFrame.BorderSpacing.Top := 8;
FReportFrame.BorderSpacing.Bottom := 8;
FReportFrame.BorderSpacing.Right := 8;
FReportFrame.BorderSpacing.Top := 4;
FReportFrame.BorderSpacing.Bottom := 4;
FReportFrame.BorderSpacing.Right := 4;
InitToolbar(FReportFrame.ReportToolbar, tpRight);