You've already forked lazarus-ccr
LazStats: Adding original source, part 6.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7885 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
948
applications/lazstats/source_orig/mainunit.lfm
Normal file
948
applications/lazstats/source_orig/mainunit.lfm
Normal file
@@ -0,0 +1,948 @@
|
|||||||
|
object OS3MainFrm: TOS3MainFrm
|
||||||
|
Left = 43
|
||||||
|
Height = 519
|
||||||
|
Top = 133
|
||||||
|
Width = 723
|
||||||
|
Caption = 'LazStats Sept. 5, 2013'
|
||||||
|
ClientHeight = 499
|
||||||
|
ClientWidth = 723
|
||||||
|
Font.CharSet = ANSI_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -11
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Pitch = fpFixed
|
||||||
|
Font.Quality = fqDraft
|
||||||
|
Menu = MainMenu1
|
||||||
|
OnClick = FormClick
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30.4'
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 35
|
||||||
|
Top = 0
|
||||||
|
Width = 723
|
||||||
|
Align = alTop
|
||||||
|
ClientHeight = 35
|
||||||
|
ClientWidth = 723
|
||||||
|
TabOrder = 0
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 15
|
||||||
|
Height = 15
|
||||||
|
Top = 9
|
||||||
|
Width = 64
|
||||||
|
Caption = 'No. Cases'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 138
|
||||||
|
Height = 15
|
||||||
|
Top = 9
|
||||||
|
Width = 92
|
||||||
|
Caption = 'No. Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 297
|
||||||
|
Height = 15
|
||||||
|
Top = 10
|
||||||
|
Width = 92
|
||||||
|
Caption = 'Current File:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NoCasesEdit: TEdit
|
||||||
|
Left = 88
|
||||||
|
Height = 22
|
||||||
|
Top = 6
|
||||||
|
Width = 40
|
||||||
|
TabStop = False
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'NoCasesEdit'
|
||||||
|
end
|
||||||
|
object NoVarsEdit: TEdit
|
||||||
|
Left = 240
|
||||||
|
Height = 22
|
||||||
|
Top = 3
|
||||||
|
Width = 48
|
||||||
|
TabStop = False
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'NoVarsEdit'
|
||||||
|
end
|
||||||
|
object FileNameEdit: TEdit
|
||||||
|
Left = 392
|
||||||
|
Height = 22
|
||||||
|
Top = 8
|
||||||
|
Width = 305
|
||||||
|
TabStop = False
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'FileNameEdit'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 41
|
||||||
|
Top = 458
|
||||||
|
Width = 723
|
||||||
|
Align = alBottom
|
||||||
|
ClientHeight = 41
|
||||||
|
ClientWidth = 723
|
||||||
|
TabOrder = 1
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 11
|
||||||
|
Height = 15
|
||||||
|
Top = 15
|
||||||
|
Width = 29
|
||||||
|
Caption = 'Row:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 129
|
||||||
|
Height = 15
|
||||||
|
Top = 15
|
||||||
|
Width = 50
|
||||||
|
Caption = 'Column:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 257
|
||||||
|
Height = 15
|
||||||
|
Top = 11
|
||||||
|
Width = 92
|
||||||
|
Caption = 'Filter Status'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object RowEdit: TEdit
|
||||||
|
Left = 41
|
||||||
|
Height = 22
|
||||||
|
Top = 8
|
||||||
|
Width = 73
|
||||||
|
TabStop = False
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'RowEdit'
|
||||||
|
end
|
||||||
|
object ColEdit: TEdit
|
||||||
|
Left = 177
|
||||||
|
Height = 22
|
||||||
|
Top = 8
|
||||||
|
Width = 65
|
||||||
|
TabStop = False
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'ColEdit'
|
||||||
|
end
|
||||||
|
object FilterEdit: TEdit
|
||||||
|
Left = 352
|
||||||
|
Height = 22
|
||||||
|
Top = 8
|
||||||
|
Width = 231
|
||||||
|
TabStop = False
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'FilterEdit'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object DataGrid: TStringGrid
|
||||||
|
Left = 0
|
||||||
|
Height = 423
|
||||||
|
Top = 35
|
||||||
|
Width = 723
|
||||||
|
Align = alClient
|
||||||
|
AutoEdit = False
|
||||||
|
ColCount = 2
|
||||||
|
DefaultColWidth = 80
|
||||||
|
Options = [goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs, goSmoothScroll]
|
||||||
|
RowCount = 2
|
||||||
|
TabOrder = 2
|
||||||
|
TabStop = False
|
||||||
|
TitleFont.CharSet = ANSI_CHARSET
|
||||||
|
TitleFont.Color = clBlack
|
||||||
|
TitleFont.Height = -11
|
||||||
|
TitleFont.Name = 'Courier New'
|
||||||
|
TitleFont.Pitch = fpFixed
|
||||||
|
TitleFont.Quality = fqDraft
|
||||||
|
OnClick = DataGridClick
|
||||||
|
OnKeyDown = DataGridKeyDown
|
||||||
|
OnKeyPress = DataGridKeyPress
|
||||||
|
end
|
||||||
|
object MainMenu1: TMainMenu
|
||||||
|
left = 16
|
||||||
|
top = 360
|
||||||
|
object MenuItem1: TMenuItem
|
||||||
|
Caption = 'FILES'
|
||||||
|
object SaveFileBtn: TMenuItem
|
||||||
|
Caption = 'Save File (.LAZ)'
|
||||||
|
OnClick = SaveFileBtnClick
|
||||||
|
end
|
||||||
|
object OpenFileBtn: TMenuItem
|
||||||
|
Caption = 'Open File (.LAZ)'
|
||||||
|
OnClick = OpenFileBtnClick
|
||||||
|
end
|
||||||
|
object NewFileBtn: TMenuItem
|
||||||
|
Caption = 'New File'
|
||||||
|
OnClick = NewFileBtnClick
|
||||||
|
end
|
||||||
|
object CloseFileBtn: TMenuItem
|
||||||
|
Caption = 'Close File'
|
||||||
|
OnClick = CloseFileBtnClick
|
||||||
|
end
|
||||||
|
object MenuItem12: TMenuItem
|
||||||
|
Caption = '-----------------------'
|
||||||
|
end
|
||||||
|
object MenuItem13: TMenuItem
|
||||||
|
Caption = 'Import File of Type'
|
||||||
|
object TabFileInBtn: TMenuItem
|
||||||
|
Caption = 'TAB Separated'
|
||||||
|
OnClick = TabFileInBtnClick
|
||||||
|
end
|
||||||
|
object CSVFileIn: TMenuItem
|
||||||
|
Caption = 'Comma Separated'
|
||||||
|
OnClick = CSVFileInClick
|
||||||
|
end
|
||||||
|
object SSVFileIn: TMenuItem
|
||||||
|
Caption = 'Space Separated'
|
||||||
|
OnClick = SSVFileInClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object TabFileOut: TMenuItem
|
||||||
|
Caption = 'Export File of Type'
|
||||||
|
object MenuItem20: TMenuItem
|
||||||
|
Caption = 'Tab Separated'
|
||||||
|
OnClick = MenuItem20Click
|
||||||
|
end
|
||||||
|
object CSVFileOut: TMenuItem
|
||||||
|
Caption = 'Comma Separated'
|
||||||
|
OnClick = CSVFileOutClick
|
||||||
|
end
|
||||||
|
object SSVFileOut: TMenuItem
|
||||||
|
Caption = 'Space Separated'
|
||||||
|
OnClick = SSVFileOutClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem15: TMenuItem
|
||||||
|
Caption = '---------------------'
|
||||||
|
end
|
||||||
|
object MenuItem16: TMenuItem
|
||||||
|
Caption = 'Exit'
|
||||||
|
OnClick = MenuItem16Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem2: TMenuItem
|
||||||
|
Caption = 'Variables'
|
||||||
|
object DefineVar: TMenuItem
|
||||||
|
Caption = 'Define'
|
||||||
|
OnClick = DefineVarClick
|
||||||
|
end
|
||||||
|
object PrintDefs: TMenuItem
|
||||||
|
Caption = 'Print Definitions'
|
||||||
|
OnClick = PrintDefsClick
|
||||||
|
end
|
||||||
|
object Transform: TMenuItem
|
||||||
|
Caption = 'Transform Variables'
|
||||||
|
OnClick = TransformClick
|
||||||
|
end
|
||||||
|
object Recode: TMenuItem
|
||||||
|
Caption = 'Recode Variables'
|
||||||
|
OnClick = RecodeClick
|
||||||
|
end
|
||||||
|
object Equation: TMenuItem
|
||||||
|
Caption = 'Equation Editor'
|
||||||
|
OnClick = EquationClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem3: TMenuItem
|
||||||
|
Caption = 'Tools'
|
||||||
|
object FormatGrid: TMenuItem
|
||||||
|
Caption = 'Format Grid Cells'
|
||||||
|
OnClick = FormatGridClick
|
||||||
|
end
|
||||||
|
object SortCases: TMenuItem
|
||||||
|
Caption = 'Sort Cases'
|
||||||
|
OnClick = SortCasesClick
|
||||||
|
end
|
||||||
|
object PrintGrid: TMenuItem
|
||||||
|
Caption = 'Print Grid File'
|
||||||
|
OnClick = PrintGridClick
|
||||||
|
end
|
||||||
|
object MenuItem28: TMenuItem
|
||||||
|
Caption = 'Show Output Form'
|
||||||
|
OnClick = MenuItem28Click
|
||||||
|
end
|
||||||
|
object SelectCases: TMenuItem
|
||||||
|
Caption = 'Select Cases'
|
||||||
|
OnClick = SelectCasesClick
|
||||||
|
end
|
||||||
|
object LoadSubFile: TMenuItem
|
||||||
|
Caption = 'Load a Sub File'
|
||||||
|
end
|
||||||
|
object MenuItem30: TMenuItem
|
||||||
|
Caption = 'Swap Rows and Columns of Grid'
|
||||||
|
OnClick = MenuItem30Click
|
||||||
|
end
|
||||||
|
object SwapDecType: TMenuItem
|
||||||
|
Caption = 'Change English to European or Vice Versa'
|
||||||
|
OnClick = SwapDecTypeClick
|
||||||
|
end
|
||||||
|
object StrToIntegers: TMenuItem
|
||||||
|
Caption = 'Convert strings to integer codes'
|
||||||
|
OnClick = StrToIntegersClick
|
||||||
|
end
|
||||||
|
object smooth: TMenuItem
|
||||||
|
Caption = 'Smooth Data in a Variable'
|
||||||
|
OnClick = smoothClick
|
||||||
|
end
|
||||||
|
object Calculater: TMenuItem
|
||||||
|
Caption = 'Calculator'
|
||||||
|
OnClick = CalculaterClick
|
||||||
|
end
|
||||||
|
object JPEGView: TMenuItem
|
||||||
|
Caption = 'JPEG Image Viewer'
|
||||||
|
OnClick = JPEGViewClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem4: TMenuItem
|
||||||
|
Caption = 'Edit'
|
||||||
|
object blockcopy: TMenuItem
|
||||||
|
Caption = 'Copy a Block of Cells'
|
||||||
|
OnClick = blockcopyClick
|
||||||
|
end
|
||||||
|
object BlockPaste: TMenuItem
|
||||||
|
Caption = 'Paste a Block of Cells'
|
||||||
|
OnClick = BlockPasteClick
|
||||||
|
end
|
||||||
|
object BlockCut: TMenuItem
|
||||||
|
Caption = 'Cut a Block of Cells'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object InsNewCol: TMenuItem
|
||||||
|
Caption = 'Insert New Column Before Current One'
|
||||||
|
OnClick = InsNewColClick
|
||||||
|
end
|
||||||
|
object CopyCol: TMenuItem
|
||||||
|
Caption = 'Copy Column'
|
||||||
|
OnClick = CopyColClick
|
||||||
|
end
|
||||||
|
object CutCol: TMenuItem
|
||||||
|
Caption = 'Cut Column'
|
||||||
|
OnClick = CutColClick
|
||||||
|
end
|
||||||
|
object PasteCol: TMenuItem
|
||||||
|
Caption = 'Paste Column'
|
||||||
|
OnClick = PasteColClick
|
||||||
|
end
|
||||||
|
object NewRow: TMenuItem
|
||||||
|
Caption = 'Insert New Row'
|
||||||
|
OnClick = NewRowClick
|
||||||
|
end
|
||||||
|
object CopyRow: TMenuItem
|
||||||
|
Caption = 'Copy Row'
|
||||||
|
OnClick = CopyRowClick
|
||||||
|
end
|
||||||
|
object CutRow: TMenuItem
|
||||||
|
Caption = 'Cut Row'
|
||||||
|
OnClick = CutRowClick
|
||||||
|
end
|
||||||
|
object PasteRow: TMenuItem
|
||||||
|
Caption = 'Paste Row'
|
||||||
|
OnClick = PasteRowClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem5: TMenuItem
|
||||||
|
Caption = 'Analyses'
|
||||||
|
object MenuItem32: TMenuItem
|
||||||
|
Caption = 'Descriptive'
|
||||||
|
object Distributions: TMenuItem
|
||||||
|
Caption = 'Distribution Statistics'
|
||||||
|
OnClick = DistributionsClick
|
||||||
|
end
|
||||||
|
object FreqAnal: TMenuItem
|
||||||
|
Caption = 'Frequency Analysis'
|
||||||
|
OnClick = FreqAnalClick
|
||||||
|
end
|
||||||
|
object GrpFreq: TMenuItem
|
||||||
|
Caption = 'Plot Group Frequencies'
|
||||||
|
OnClick = GrpFreqClick
|
||||||
|
end
|
||||||
|
object CrossTabs: TMenuItem
|
||||||
|
Caption = 'Cross Tabulation'
|
||||||
|
OnClick = CrossTabsClick
|
||||||
|
end
|
||||||
|
object Breakdown: TMenuItem
|
||||||
|
Caption = 'Breakdown'
|
||||||
|
OnClick = BreakdownClick
|
||||||
|
end
|
||||||
|
object BoxPlot: TMenuItem
|
||||||
|
Caption = 'Box Plot'
|
||||||
|
OnClick = BoxPlotClick
|
||||||
|
end
|
||||||
|
object NormalityTests: TMenuItem
|
||||||
|
Caption = 'Normality Tests'
|
||||||
|
OnClick = NormalityTestsClick
|
||||||
|
end
|
||||||
|
object ThreeDRotate: TMenuItem
|
||||||
|
Caption = '3-D Variable Rotation'
|
||||||
|
OnClick = ThreeDRotateClick
|
||||||
|
end
|
||||||
|
object PlotXvsY: TMenuItem
|
||||||
|
Caption = 'Plot X vs Y'
|
||||||
|
OnClick = PlotXvsYClick
|
||||||
|
end
|
||||||
|
object BubblePlot: TMenuItem
|
||||||
|
Caption = 'Repeated Measures Bubble Plot'
|
||||||
|
OnClick = BubblePlotClick
|
||||||
|
end
|
||||||
|
object StemLeaf: TMenuItem
|
||||||
|
Caption = 'Stem and Leaf Plot'
|
||||||
|
OnClick = StemLeafClick
|
||||||
|
end
|
||||||
|
object MultXvsY: TMenuItem
|
||||||
|
Caption = 'Multiple Group X vs Y Plot'
|
||||||
|
OnClick = MultXvsYClick
|
||||||
|
end
|
||||||
|
object XvsMultY: TMenuItem
|
||||||
|
Caption = 'X versus Multiple Y Plot'
|
||||||
|
OnClick = XvsMultYClick
|
||||||
|
end
|
||||||
|
object CompareDists: TMenuItem
|
||||||
|
Caption = 'Compare Distributions'
|
||||||
|
OnClick = CompareDistsClick
|
||||||
|
end
|
||||||
|
object ResistanceLine: TMenuItem
|
||||||
|
Caption = 'Resistant Line for Bivariate Data'
|
||||||
|
OnClick = ResistanceLineClick
|
||||||
|
end
|
||||||
|
object DataSmooth: TMenuItem
|
||||||
|
Caption = 'Data Smoothing'
|
||||||
|
OnClick = DataSmoothClick
|
||||||
|
end
|
||||||
|
object homotest: TMenuItem
|
||||||
|
Caption = 'Brown-Forsythe test for homogeneity of variance'
|
||||||
|
OnClick = homotestClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object OneSampTests: TMenuItem
|
||||||
|
Caption = 'One Sample Tests'
|
||||||
|
OnClick = OneSampTestsClick
|
||||||
|
end
|
||||||
|
object MenuItem34: TMenuItem
|
||||||
|
Caption = 'Comparisons'
|
||||||
|
object PropDiff: TMenuItem
|
||||||
|
Caption = 'Difference beween Proportions'
|
||||||
|
OnClick = PropDiffClick
|
||||||
|
end
|
||||||
|
object CorrDiff: TMenuItem
|
||||||
|
Caption = 'Difference Between Correlations'
|
||||||
|
OnClick = CorrDiffClick
|
||||||
|
end
|
||||||
|
object ttests: TMenuItem
|
||||||
|
Caption = 't-tests'
|
||||||
|
OnClick = ttestsClick
|
||||||
|
end
|
||||||
|
object Anova: TMenuItem
|
||||||
|
Caption = '1,2 or 3 Way ANOVAs'
|
||||||
|
OnClick = AnovaClick
|
||||||
|
end
|
||||||
|
object WithinAnova: TMenuItem
|
||||||
|
Caption = 'Within Subjects ANOVA'
|
||||||
|
OnClick = WithinAnovaClick
|
||||||
|
end
|
||||||
|
object AxSAnova: TMenuItem
|
||||||
|
Caption = 'A x S ANOVA'
|
||||||
|
OnClick = AxSAnovaClick
|
||||||
|
end
|
||||||
|
object ABSAnova: TMenuItem
|
||||||
|
Caption = 'A x B x S ANOVA'
|
||||||
|
OnClick = ABSAnovaClick
|
||||||
|
end
|
||||||
|
object BinA: TMenuItem
|
||||||
|
Caption = 'B Nested in A ANOVA'
|
||||||
|
OnClick = BinAClick
|
||||||
|
end
|
||||||
|
object NestedABC: TMenuItem
|
||||||
|
Caption = 'ABC ANOVA with B Nested in A'
|
||||||
|
OnClick = NestedABCClick
|
||||||
|
end
|
||||||
|
object OneCaseAnova: TMenuItem
|
||||||
|
Caption = '2 or 3 Way ANOVA with One Case Per Cell'
|
||||||
|
OnClick = OneCaseAnovaClick
|
||||||
|
end
|
||||||
|
object Ancova: TMenuItem
|
||||||
|
Caption = 'ANCOVA by Regression'
|
||||||
|
OnClick = AncovaClick
|
||||||
|
end
|
||||||
|
object GLM: TMenuItem
|
||||||
|
Caption = 'General Linear Model'
|
||||||
|
OnClick = GLMClick
|
||||||
|
end
|
||||||
|
object LatinSquares: TMenuItem
|
||||||
|
Caption = 'Latin and Greco-Latin Squares'
|
||||||
|
OnClick = LatinSquaresClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem35: TMenuItem
|
||||||
|
Caption = 'Correlation'
|
||||||
|
object MenuItem71: TMenuItem
|
||||||
|
Caption = 'Product-Moment'
|
||||||
|
OnClick = MenuItem71Click
|
||||||
|
end
|
||||||
|
object MenuItem72: TMenuItem
|
||||||
|
Caption = 'Partial, Semipartial'
|
||||||
|
OnClick = MenuItem72Click
|
||||||
|
end
|
||||||
|
object MenuItem73: TMenuItem
|
||||||
|
Caption = 'Autocorrelation'
|
||||||
|
OnClick = MenuItem73Click
|
||||||
|
end
|
||||||
|
object MenuItem74: TMenuItem
|
||||||
|
Caption = 'Canonical'
|
||||||
|
OnClick = MenuItem74Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem36: TMenuItem
|
||||||
|
Caption = 'Multiple Regression'
|
||||||
|
object LSMRitem: TMenuItem
|
||||||
|
Caption = 'Least Squares Multiple Regression'
|
||||||
|
OnClick = LSMRitemClick
|
||||||
|
end
|
||||||
|
object MenuItem75: TMenuItem
|
||||||
|
Caption = 'Forward Stepwise'
|
||||||
|
OnClick = MenuItem75Click
|
||||||
|
end
|
||||||
|
object MenuItem76: TMenuItem
|
||||||
|
Caption = 'Backward Stepwise'
|
||||||
|
OnClick = MenuItem76Click
|
||||||
|
end
|
||||||
|
object MenuItem77: TMenuItem
|
||||||
|
Caption = 'Simultaneous'
|
||||||
|
OnClick = MenuItem77Click
|
||||||
|
end
|
||||||
|
object MenuItem78: TMenuItem
|
||||||
|
Caption = 'Block Entry'
|
||||||
|
OnClick = MenuItem78Click
|
||||||
|
end
|
||||||
|
object MenuItem79: TMenuItem
|
||||||
|
Caption = 'Best Combination'
|
||||||
|
OnClick = MenuItem79Click
|
||||||
|
end
|
||||||
|
object MenuItem80: TMenuItem
|
||||||
|
Caption = 'Binary Logistic'
|
||||||
|
OnClick = MenuItem80Click
|
||||||
|
end
|
||||||
|
object MenuItem81: TMenuItem
|
||||||
|
Caption = 'Cox Proportional Hazzards Survival Regression'
|
||||||
|
OnClick = MenuItem81Click
|
||||||
|
end
|
||||||
|
object MenuItem82: TMenuItem
|
||||||
|
Caption = 'Linear Programming'
|
||||||
|
OnClick = MenuItem82Click
|
||||||
|
end
|
||||||
|
object TwoSLSReg: TMenuItem
|
||||||
|
Caption = 'Two Stage Least Squares Regression'
|
||||||
|
OnClick = TwoSLSRegClick
|
||||||
|
end
|
||||||
|
object WLSReg: TMenuItem
|
||||||
|
Caption = 'Weighted Least Squares Regression'
|
||||||
|
OnClick = WLSRegClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem37: TMenuItem
|
||||||
|
Caption = 'Multivariate'
|
||||||
|
object MenuItem83: TMenuItem
|
||||||
|
Caption = 'MANOVA / Discriminant Function'
|
||||||
|
OnClick = MenuItem83Click
|
||||||
|
end
|
||||||
|
object MenuItem84: TMenuItem
|
||||||
|
Caption = 'Hierarchical Analysis'
|
||||||
|
OnClick = MenuItem84Click
|
||||||
|
end
|
||||||
|
object MenuItem29: TMenuItem
|
||||||
|
Caption = 'Average Link Clustering'
|
||||||
|
OnClick = MenuItem29Click
|
||||||
|
end
|
||||||
|
object MenuItem31: TMenuItem
|
||||||
|
Caption = 'K Means Clustering'
|
||||||
|
OnClick = MenuItem31Click
|
||||||
|
end
|
||||||
|
object MenuItem33: TMenuItem
|
||||||
|
Caption = 'Single Link Clustering'
|
||||||
|
OnClick = MenuItem33Click
|
||||||
|
end
|
||||||
|
object MenuItem85: TMenuItem
|
||||||
|
Caption = 'Path Analysis'
|
||||||
|
OnClick = MenuItem85Click
|
||||||
|
end
|
||||||
|
object MenuItem86: TMenuItem
|
||||||
|
Caption = 'Factor Analysis'
|
||||||
|
OnClick = MenuItem86Click
|
||||||
|
end
|
||||||
|
object MenuItem87: TMenuItem
|
||||||
|
Caption = 'Canonical Correlation'
|
||||||
|
OnClick = MenuItem87Click
|
||||||
|
end
|
||||||
|
object MenuItem88: TMenuItem
|
||||||
|
Caption = 'General Linear Model'
|
||||||
|
OnClick = MenuItem88Click
|
||||||
|
end
|
||||||
|
object BartlettTest: TMenuItem
|
||||||
|
Caption = 'Bartlett Test of Sphericity'
|
||||||
|
OnClick = BartlettTestClick
|
||||||
|
end
|
||||||
|
object Correspondence: TMenuItem
|
||||||
|
Caption = 'Correspondence Analysis'
|
||||||
|
OnClick = CorrespondenceClick
|
||||||
|
end
|
||||||
|
object MedianPolish: TMenuItem
|
||||||
|
Caption = 'Median Polishing for a 2x2 Table'
|
||||||
|
OnClick = MedianPolishClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem38: TMenuItem
|
||||||
|
Caption = 'Cross-Classification'
|
||||||
|
object MenuItem89: TMenuItem
|
||||||
|
Caption = 'AxB Log Linear'
|
||||||
|
OnClick = MenuItem89Click
|
||||||
|
end
|
||||||
|
object MenuItem90: TMenuItem
|
||||||
|
Caption = 'AxBxC Log Linear'
|
||||||
|
OnClick = MenuItem90Click
|
||||||
|
end
|
||||||
|
object MenuItem91: TMenuItem
|
||||||
|
Caption = 'Log Linear Screen'
|
||||||
|
OnClick = MenuItem91Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem39: TMenuItem
|
||||||
|
Caption = 'Measurement Programs'
|
||||||
|
object MenuItem92: TMenuItem
|
||||||
|
Caption = 'Generate Sample Test Data'
|
||||||
|
OnClick = MenuItem92Click
|
||||||
|
end
|
||||||
|
object MenuItem93: TMenuItem
|
||||||
|
Caption = 'Classical Test Analysis'
|
||||||
|
OnClick = MenuItem93Click
|
||||||
|
end
|
||||||
|
object MenuItem94: TMenuItem
|
||||||
|
Caption = 'Rasch Test Calibration'
|
||||||
|
OnClick = MenuItem94Click
|
||||||
|
end
|
||||||
|
object MenuItem95: TMenuItem
|
||||||
|
Caption = 'Successive Interval Scaling'
|
||||||
|
OnClick = MenuItem95Click
|
||||||
|
end
|
||||||
|
object MenuItem96: TMenuItem
|
||||||
|
Caption = 'Guttman Scalogram Analysis'
|
||||||
|
OnClick = MenuItem96Click
|
||||||
|
end
|
||||||
|
object MenuItem97: TMenuItem
|
||||||
|
Caption = 'Weighted Composite Reliability'
|
||||||
|
OnClick = MenuItem97Click
|
||||||
|
end
|
||||||
|
object MenuItem98: TMenuItem
|
||||||
|
Caption = 'Kuder-Richardson #21 Reliability'
|
||||||
|
OnClick = MenuItem98Click
|
||||||
|
end
|
||||||
|
object MenuItem99: TMenuItem
|
||||||
|
Caption = 'Spearman-Brown Prophecy Reliability'
|
||||||
|
OnClick = MenuItem99Click
|
||||||
|
end
|
||||||
|
object MenuItem100: TMenuItem
|
||||||
|
Caption = 'Reliability Due to Test Variance Change'
|
||||||
|
OnClick = MenuItem100Click
|
||||||
|
end
|
||||||
|
object MenuItem101: TMenuItem
|
||||||
|
Caption = 'Differential Item Functioning'
|
||||||
|
OnClick = MenuItem101Click
|
||||||
|
end
|
||||||
|
object MenuItem102: TMenuItem
|
||||||
|
Caption = 'Polytomous DIF Analysis'
|
||||||
|
OnClick = MenuItem102Click
|
||||||
|
end
|
||||||
|
object GrdBkMnu: TMenuItem
|
||||||
|
Caption = 'Grade Book'
|
||||||
|
OnClick = GrdBkMnuClick
|
||||||
|
end
|
||||||
|
object ItemBankMenuItem: TMenuItem
|
||||||
|
Caption = 'Item Banking'
|
||||||
|
OnClick = ItemBankMenuItemClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem40: TMenuItem
|
||||||
|
Caption = 'Nonparametric'
|
||||||
|
object SimpChiSqr: TMenuItem
|
||||||
|
Caption = 'Simple ChiSquare for Categories'
|
||||||
|
OnClick = SimpChiSqrClick
|
||||||
|
end
|
||||||
|
object MenuItem103: TMenuItem
|
||||||
|
Caption = 'Contingency Chi Square'
|
||||||
|
OnClick = MenuItem103Click
|
||||||
|
end
|
||||||
|
object MenuItem104: TMenuItem
|
||||||
|
Caption = 'Spearman Rank Correlation'
|
||||||
|
OnClick = MenuItem104Click
|
||||||
|
end
|
||||||
|
object MenuItem105: TMenuItem
|
||||||
|
Caption = 'Mann-Whitney U Test'
|
||||||
|
OnClick = MenuItem105Click
|
||||||
|
end
|
||||||
|
object MenuItem106: TMenuItem
|
||||||
|
Caption = 'Fisher''s Exact Test'
|
||||||
|
OnClick = MenuItem106Click
|
||||||
|
end
|
||||||
|
object MenuItem107: TMenuItem
|
||||||
|
Caption = 'Kendall''s Coefficient of Concordance'
|
||||||
|
OnClick = MenuItem107Click
|
||||||
|
end
|
||||||
|
object MenuItem108: TMenuItem
|
||||||
|
Caption = 'Kruskal-Wallis One Way ANOVA'
|
||||||
|
OnClick = MenuItem108Click
|
||||||
|
end
|
||||||
|
object MenuItem109: TMenuItem
|
||||||
|
Caption = 'Matched Pairs Signed Ranks Test'
|
||||||
|
OnClick = MenuItem109Click
|
||||||
|
end
|
||||||
|
object MenuItem110: TMenuItem
|
||||||
|
Caption = 'Cochran Q Test'
|
||||||
|
OnClick = MenuItem110Click
|
||||||
|
end
|
||||||
|
object MenuItem111: TMenuItem
|
||||||
|
Caption = 'Sign Test'
|
||||||
|
OnClick = MenuItem111Click
|
||||||
|
end
|
||||||
|
object MenuItem112: TMenuItem
|
||||||
|
Caption = 'Friedman Two Way ANOVA'
|
||||||
|
OnClick = MenuItem112Click
|
||||||
|
end
|
||||||
|
object MenuItem113: TMenuItem
|
||||||
|
Caption = 'Probability of a binomial event'
|
||||||
|
OnClick = MenuItem113Click
|
||||||
|
end
|
||||||
|
object MenuItem114: TMenuItem
|
||||||
|
Caption = 'Kendall''s Tau and Parrtial Tau'
|
||||||
|
OnClick = MenuItem114Click
|
||||||
|
end
|
||||||
|
object MenuItem115: TMenuItem
|
||||||
|
Caption = 'Kaplan-Meier Survival Analysis'
|
||||||
|
OnClick = MenuItem115Click
|
||||||
|
end
|
||||||
|
object RiditAnalysis: TMenuItem
|
||||||
|
Caption = 'RIDIT Analysis'
|
||||||
|
OnClick = RiditAnalysisClick
|
||||||
|
end
|
||||||
|
object WghtedKappa: TMenuItem
|
||||||
|
Caption = 'Kappa and Weighted Kappa'
|
||||||
|
OnClick = WghtedKappaClick
|
||||||
|
end
|
||||||
|
object GenKappa: TMenuItem
|
||||||
|
Caption = 'Generalized Kappa'
|
||||||
|
OnClick = GenKappaClick
|
||||||
|
end
|
||||||
|
object RunsTest: TMenuItem
|
||||||
|
Caption = 'Runs Test for Normality'
|
||||||
|
OnClick = RunsTestClick
|
||||||
|
end
|
||||||
|
object Sens: TMenuItem
|
||||||
|
Caption = 'Sen''s Slope Analysis'
|
||||||
|
OnClick = SensClick
|
||||||
|
end
|
||||||
|
object KSTest: TMenuItem
|
||||||
|
Caption = 'Kolmogorov-Smirnov Test'
|
||||||
|
OnClick = KSTestClick
|
||||||
|
end
|
||||||
|
object SRHItem: TMenuItem
|
||||||
|
Caption = 'Scheirer-Ray-Hart 2-way ANOVA'
|
||||||
|
OnClick = SRHItemClick
|
||||||
|
end
|
||||||
|
object lifetable: TMenuItem
|
||||||
|
Caption = 'LIFE TABLE'
|
||||||
|
OnClick = lifetableClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem41: TMenuItem
|
||||||
|
Caption = 'Statistical Process Control'
|
||||||
|
object MenuItem116: TMenuItem
|
||||||
|
Caption = 'XBAR Chart'
|
||||||
|
OnClick = MenuItem116Click
|
||||||
|
end
|
||||||
|
object MenuItem117: TMenuItem
|
||||||
|
Caption = 'Range Chart'
|
||||||
|
OnClick = MenuItem117Click
|
||||||
|
end
|
||||||
|
object MenuItem118: TMenuItem
|
||||||
|
Caption = 'S Control Chart'
|
||||||
|
OnClick = MenuItem118Click
|
||||||
|
end
|
||||||
|
object MenuItem6: TMenuItem
|
||||||
|
Caption = 'CUMSUM Chart'
|
||||||
|
OnClick = MenuItem6Click
|
||||||
|
end
|
||||||
|
object MenuItem119: TMenuItem
|
||||||
|
Caption = 'Defect (nonconformity) c Chart'
|
||||||
|
OnClick = MenuItem119Click
|
||||||
|
end
|
||||||
|
object pcontrochart: TMenuItem
|
||||||
|
Caption = 'p Control Chart'
|
||||||
|
OnClick = pcontrochartClick
|
||||||
|
end
|
||||||
|
object MenuItem120: TMenuItem
|
||||||
|
Caption = 'Defects per Unit u Chart'
|
||||||
|
OnClick = MenuItem120Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem9: TMenuItem
|
||||||
|
Caption = 'Financial'
|
||||||
|
object MenuItem10: TMenuItem
|
||||||
|
Caption = 'Loan Amortization Schedule'
|
||||||
|
OnClick = MenuItem10Click
|
||||||
|
end
|
||||||
|
object MenuItem11: TMenuItem
|
||||||
|
Caption = 'Sum of years digits depreciation'
|
||||||
|
OnClick = MenuItem11Click
|
||||||
|
end
|
||||||
|
object MenuItem14: TMenuItem
|
||||||
|
Caption = 'Straight line depreciation'
|
||||||
|
OnClick = MenuItem14Click
|
||||||
|
end
|
||||||
|
object MenuItem17: TMenuItem
|
||||||
|
Caption = 'Internal rate of return'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem18: TMenuItem
|
||||||
|
Caption = 'Present Value'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem19: TMenuItem
|
||||||
|
Caption = 'Period Payment'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem21: TMenuItem
|
||||||
|
Caption = 'Payment'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem22: TMenuItem
|
||||||
|
Caption = 'No. of Periods'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem23: TMenuItem
|
||||||
|
Caption = 'Net Present Value'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem24: TMenuItem
|
||||||
|
Caption = 'Interest Rate'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem25: TMenuItem
|
||||||
|
Caption = 'Interest Payment'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem26: TMenuItem
|
||||||
|
Caption = 'Future Value'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object MenuItem27: TMenuItem
|
||||||
|
Caption = 'Double Declining Value'
|
||||||
|
OnClick = MenuItem27Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MatManMnu: TMenuItem
|
||||||
|
Caption = 'Matrix Manipulation'
|
||||||
|
OnClick = MatManMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Option: TMenuItem
|
||||||
|
Caption = 'Options'
|
||||||
|
object ShowOpts: TMenuItem
|
||||||
|
Caption = 'Show Options'
|
||||||
|
OnClick = OptionClick
|
||||||
|
end
|
||||||
|
object PicView: TMenuItem
|
||||||
|
Caption = 'View Pictures'
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem7: TMenuItem
|
||||||
|
Caption = 'Simulations'
|
||||||
|
object ScatPlot: TMenuItem
|
||||||
|
Caption = 'Bivariate Scatter Plot'
|
||||||
|
OnClick = ScatPlotClick
|
||||||
|
end
|
||||||
|
object MultDists: TMenuItem
|
||||||
|
Caption = 'Multivariate Distribution'
|
||||||
|
OnClick = MultDistsClick
|
||||||
|
end
|
||||||
|
object TypeErrors: TMenuItem
|
||||||
|
Caption = 'Type 1 and Type 2 Error Curves'
|
||||||
|
OnClick = TypeErrorsClick
|
||||||
|
end
|
||||||
|
object Power: TMenuItem
|
||||||
|
Caption = 'Power Curves for a z test'
|
||||||
|
OnClick = PowerClick
|
||||||
|
end
|
||||||
|
object DistPlots: TMenuItem
|
||||||
|
Caption = 'Distribution Plots and Critical Values'
|
||||||
|
OnClick = DistPlotsClick
|
||||||
|
end
|
||||||
|
object SeqValues: TMenuItem
|
||||||
|
Caption = 'Generate Sequential Values'
|
||||||
|
OnClick = SeqValuesClick
|
||||||
|
end
|
||||||
|
object RandomVals: TMenuItem
|
||||||
|
Caption = 'Random Theoretical Values'
|
||||||
|
OnClick = RandomValsClick
|
||||||
|
end
|
||||||
|
object Probabilities: TMenuItem
|
||||||
|
Caption = 'Probabilities'
|
||||||
|
object probgtz: TMenuItem
|
||||||
|
Caption = 'Probability > z'
|
||||||
|
OnClick = probgtzClick
|
||||||
|
end
|
||||||
|
object Probltz: TMenuItem
|
||||||
|
Caption = 'Probability < z'
|
||||||
|
OnClick = ProbltzClick
|
||||||
|
end
|
||||||
|
object probzbetween: TMenuItem
|
||||||
|
Caption = 'Prob between 2 z values'
|
||||||
|
OnClick = probzbetweenClick
|
||||||
|
end
|
||||||
|
object inversez: TMenuItem
|
||||||
|
Caption = 'z for a given cum. Probability'
|
||||||
|
OnClick = inversezClick
|
||||||
|
end
|
||||||
|
object Chiprob: TMenuItem
|
||||||
|
Caption = 'Chisquare Probability'
|
||||||
|
OnClick = ChiprobClick
|
||||||
|
end
|
||||||
|
object tprob: TMenuItem
|
||||||
|
Caption = 'Student t probability'
|
||||||
|
OnClick = tprobClick
|
||||||
|
end
|
||||||
|
object Fprob: TMenuItem
|
||||||
|
Caption = 'F probability'
|
||||||
|
OnClick = FprobClick
|
||||||
|
end
|
||||||
|
object HypergeoProb: TMenuItem
|
||||||
|
Caption = 'Hypergeometric probability'
|
||||||
|
OnClick = HypergeoProbClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MenuItem8: TMenuItem
|
||||||
|
Caption = 'Help'
|
||||||
|
object About: TMenuItem
|
||||||
|
Caption = 'About...'
|
||||||
|
OnClick = AboutClick
|
||||||
|
end
|
||||||
|
object GridUse: TMenuItem
|
||||||
|
Caption = 'Using the Grid'
|
||||||
|
OnClick = GridUseClick
|
||||||
|
end
|
||||||
|
object HelpContents: TMenuItem
|
||||||
|
Caption = 'General Help'
|
||||||
|
OnClick = HelpContentsClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object OpenDialog1: TOpenDialog
|
||||||
|
left = 80
|
||||||
|
top = 360
|
||||||
|
end
|
||||||
|
object SaveDialog1: TSaveDialog
|
||||||
|
left = 144
|
||||||
|
top = 360
|
||||||
|
end
|
||||||
|
end
|
||||||
299
applications/lazstats/source_orig/mainunit.lrs
Normal file
299
applications/lazstats/source_orig/mainunit.lrs
Normal file
@@ -0,0 +1,299 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TOS3MainFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TOS3MainFrm'#10'OS3MainFrm'#4'Left'#2'+'#6'Height'#3#7#2#3'Top'#3
|
||||||
|
+#133#0#5'Width'#3#211#2#7'Caption'#6#22'LazStats Sept. 5, 2013'#12'ClientHei'
|
||||||
|
+'ght'#3#243#1#11'ClientWidth'#3#211#2#12'Font.CharSet'#7#12'ANSI_CHARSET'#10
|
||||||
|
+'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#11'Courier Ne'
|
||||||
|
+'w'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Quality'#7#7'fqDraft'#4'Menu'#7#9'Ma'
|
||||||
|
+'inMenu1'#7'OnClick'#7#9'FormClick'#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6
|
||||||
|
+#8'0.9.30.4'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'#'#3'Top'#2#0#5'W'
|
||||||
|
+'idth'#3#211#2#5'Align'#7#5'alTop'#12'ClientHeight'#2'#'#11'ClientWidth'#3
|
||||||
|
+#211#2#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#15#6'Height'#2#15#3'T'
|
||||||
|
+'op'#2#9#5'Width'#2'@'#7'Caption'#6#9'No. Cases'#11'ParentColor'#8#0#0#6'TLa'
|
||||||
|
+'bel'#6'Label2'#4'Left'#3#138#0#6'Height'#2#15#3'Top'#2#9#5'Width'#2'\'#7'Ca'
|
||||||
|
+'ption'#6#13'No. Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'
|
||||||
|
+#3')'#1#6'Height'#2#15#3'Top'#2#10#5'Width'#2'\'#7'Caption'#6#13'Current Fil'
|
||||||
|
+'e:'#11'ParentColor'#8#0#0#5'TEdit'#11'NoCasesEdit'#4'Left'#2'X'#6'Height'#2
|
||||||
|
+#22#3'Top'#2#6#5'Width'#2'('#7'TabStop'#8#8'TabOrder'#2#0#4'Text'#6#11'NoCas'
|
||||||
|
+'esEdit'#0#0#5'TEdit'#10'NoVarsEdit'#4'Left'#3#240#0#6'Height'#2#22#3'Top'#2
|
||||||
|
+#3#5'Width'#2'0'#7'TabStop'#8#8'TabOrder'#2#1#4'Text'#6#10'NoVarsEdit'#0#0#5
|
||||||
|
+'TEdit'#12'FileNameEdit'#4'Left'#3#136#1#6'Height'#2#22#3'Top'#2#8#5'Width'#3
|
||||||
|
+'1'#1#7'TabStop'#8#8'TabOrder'#2#2#4'Text'#6#12'FileNameEdit'#0#0#0#6'TPanel'
|
||||||
|
+#6'Panel2'#4'Left'#2#0#6'Height'#2')'#3'Top'#3#202#1#5'Width'#3#211#2#5'Alig'
|
||||||
|
+'n'#7#8'alBottom'#12'ClientHeight'#2')'#11'ClientWidth'#3#211#2#8'TabOrder'#2
|
||||||
|
+#1#0#6'TLabel'#6'Label4'#4'Left'#2#11#6'Height'#2#15#3'Top'#2#15#5'Width'#2
|
||||||
|
+#29#7'Caption'#6#4'Row:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3
|
||||||
|
+#129#0#6'Height'#2#15#3'Top'#2#15#5'Width'#2'2'#7'Caption'#6#7'Column:'#11'P'
|
||||||
|
+'arentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3#1#1#6'Height'#2#15#3'Top'#2
|
||||||
|
+#11#5'Width'#2'\'#7'Caption'#6#13'Filter Status'#11'ParentColor'#8#0#0#5'TEd'
|
||||||
|
+'it'#7'RowEdit'#4'Left'#2')'#6'Height'#2#22#3'Top'#2#8#5'Width'#2'I'#7'TabSt'
|
||||||
|
+'op'#8#8'TabOrder'#2#0#4'Text'#6#7'RowEdit'#0#0#5'TEdit'#7'ColEdit'#4'Left'#3
|
||||||
|
+#177#0#6'Height'#2#22#3'Top'#2#8#5'Width'#2'A'#7'TabStop'#8#8'TabOrder'#2#1#4
|
||||||
|
+'Text'#6#7'ColEdit'#0#0#5'TEdit'#10'FilterEdit'#4'Left'#3'`'#1#6'Height'#2#22
|
||||||
|
+#3'Top'#2#8#5'Width'#3#231#0#7'TabStop'#8#8'TabOrder'#2#2#4'Text'#6#10'Filte'
|
||||||
|
+'rEdit'#0#0#0#11'TStringGrid'#8'DataGrid'#4'Left'#2#0#6'Height'#3#167#1#3'To'
|
||||||
|
+'p'#2'#'#5'Width'#3#211#2#5'Align'#7#8'alClient'#8'AutoEdit'#8#8'ColCount'#2
|
||||||
|
+#2#15'DefaultColWidth'#2'P'#7'Options'#11#15'goFixedHorzLine'#10'goVertLine'
|
||||||
|
+#10'goHorzLine'#13'goRangeSelect'#11'goColSizing'#9'goEditing'#6'goTabs'#14
|
||||||
|
+'goSmoothScroll'#0#8'RowCount'#2#2#8'TabOrder'#2#2#7'TabStop'#8#17'TitleFont'
|
||||||
|
+'.CharSet'#7#12'ANSI_CHARSET'#15'TitleFont.Color'#7#7'clBlack'#16'TitleFont.'
|
||||||
|
+'Height'#2#245#14'TitleFont.Name'#6#11'Courier New'#15'TitleFont.Pitch'#7#7
|
||||||
|
+'fpFixed'#17'TitleFont.Quality'#7#7'fqDraft'#7'OnClick'#7#13'DataGridClick'#9
|
||||||
|
+'OnKeyDown'#7#15'DataGridKeyDown'#10'OnKeyPress'#7#16'DataGridKeyPress'#0#0#9
|
||||||
|
+'TMainMenu'#9'MainMenu1'#4'left'#2#16#3'top'#3'h'#1#0#9'TMenuItem'#9'MenuIte'
|
||||||
|
+'m1'#7'Caption'#6#5'FILES'#0#9'TMenuItem'#11'SaveFileBtn'#7'Caption'#6#16'Sa'
|
||||||
|
+'ve File (.LAZ)'#7'OnClick'#7#16'SaveFileBtnClick'#0#0#9'TMenuItem'#11'OpenF'
|
||||||
|
+'ileBtn'#7'Caption'#6#16'Open File (.LAZ)'#7'OnClick'#7#16'OpenFileBtnClick'
|
||||||
|
+#0#0#9'TMenuItem'#10'NewFileBtn'#7'Caption'#6#8'New File'#7'OnClick'#7#15'Ne'
|
||||||
|
+'wFileBtnClick'#0#0#9'TMenuItem'#12'CloseFileBtn'#7'Caption'#6#10'Close File'
|
||||||
|
+#7'OnClick'#7#17'CloseFileBtnClick'#0#0#9'TMenuItem'#10'MenuItem12'#7'Captio'
|
||||||
|
+'n'#6#23'-----------------------'#0#0#9'TMenuItem'#10'MenuItem13'#7'Caption'
|
||||||
|
+#6#19'Import File of Type'#0#9'TMenuItem'#12'TabFileInBtn'#7'Caption'#6#13'T'
|
||||||
|
+'AB Separated'#7'OnClick'#7#17'TabFileInBtnClick'#0#0#9'TMenuItem'#9'CSVFile'
|
||||||
|
+'In'#7'Caption'#6#15'Comma Separated'#7'OnClick'#7#14'CSVFileInClick'#0#0#9
|
||||||
|
+'TMenuItem'#9'SSVFileIn'#7'Caption'#6#15'Space Separated'#7'OnClick'#7#14'SS'
|
||||||
|
+'VFileInClick'#0#0#0#9'TMenuItem'#10'TabFileOut'#7'Caption'#6#19'Export File'
|
||||||
|
+' of Type'#0#9'TMenuItem'#10'MenuItem20'#7'Caption'#6#13'Tab Separated'#7'On'
|
||||||
|
+'Click'#7#15'MenuItem20Click'#0#0#9'TMenuItem'#10'CSVFileOut'#7'Caption'#6#15
|
||||||
|
+'Comma Separated'#7'OnClick'#7#15'CSVFileOutClick'#0#0#9'TMenuItem'#10'SSVFi'
|
||||||
|
+'leOut'#7'Caption'#6#15'Space Separated'#7'OnClick'#7#15'SSVFileOutClick'#0#0
|
||||||
|
+#0#9'TMenuItem'#10'MenuItem15'#7'Caption'#6#21'---------------------'#0#0#9
|
||||||
|
+'TMenuItem'#10'MenuItem16'#7'Caption'#6#4'Exit'#7'OnClick'#7#15'MenuItem16Cl'
|
||||||
|
+'ick'#0#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption'#6#9'Variables'#0#9'TMenuIte'
|
||||||
|
+'m'#9'DefineVar'#7'Caption'#6#6'Define'#7'OnClick'#7#14'DefineVarClick'#0#0#9
|
||||||
|
+'TMenuItem'#9'PrintDefs'#7'Caption'#6#17'Print Definitions'#7'OnClick'#7#14
|
||||||
|
+'PrintDefsClick'#0#0#9'TMenuItem'#9'Transform'#7'Caption'#6#19'Transform Var'
|
||||||
|
+'iables'#7'OnClick'#7#14'TransformClick'#0#0#9'TMenuItem'#6'Recode'#7'Captio'
|
||||||
|
,'n'#6#16'Recode Variables'#7'OnClick'#7#11'RecodeClick'#0#0#9'TMenuItem'#8'E'
|
||||||
|
+'quation'#7'Caption'#6#15'Equation Editor'#7'OnClick'#7#13'EquationClick'#0#0
|
||||||
|
+#0#9'TMenuItem'#9'MenuItem3'#7'Caption'#6#5'Tools'#0#9'TMenuItem'#10'FormatG'
|
||||||
|
+'rid'#7'Caption'#6#17'Format Grid Cells'#7'OnClick'#7#15'FormatGridClick'#0#0
|
||||||
|
+#9'TMenuItem'#9'SortCases'#7'Caption'#6#10'Sort Cases'#7'OnClick'#7#14'SortC'
|
||||||
|
+'asesClick'#0#0#9'TMenuItem'#9'PrintGrid'#7'Caption'#6#15'Print Grid File'#7
|
||||||
|
+'OnClick'#7#14'PrintGridClick'#0#0#9'TMenuItem'#10'MenuItem28'#7'Caption'#6
|
||||||
|
+#16'Show Output Form'#7'OnClick'#7#15'MenuItem28Click'#0#0#9'TMenuItem'#11'S'
|
||||||
|
+'electCases'#7'Caption'#6#12'Select Cases'#7'OnClick'#7#16'SelectCasesClick'
|
||||||
|
+#0#0#9'TMenuItem'#11'LoadSubFile'#7'Caption'#6#15'Load a Sub File'#0#0#9'TMe'
|
||||||
|
+'nuItem'#10'MenuItem30'#7'Caption'#6#29'Swap Rows and Columns of Grid'#7'OnC'
|
||||||
|
+'lick'#7#15'MenuItem30Click'#0#0#9'TMenuItem'#11'SwapDecType'#7'Caption'#6'('
|
||||||
|
+'Change English to European or Vice Versa'#7'OnClick'#7#16'SwapDecTypeClick'
|
||||||
|
+#0#0#9'TMenuItem'#13'StrToIntegers'#7'Caption'#6' Convert strings to integer'
|
||||||
|
+' codes'#7'OnClick'#7#18'StrToIntegersClick'#0#0#9'TMenuItem'#6'smooth'#7'Ca'
|
||||||
|
+'ption'#6#25'Smooth Data in a Variable'#7'OnClick'#7#11'smoothClick'#0#0#9'T'
|
||||||
|
+'MenuItem'#10'Calculater'#7'Caption'#6#10'Calculator'#7'OnClick'#7#15'Calcul'
|
||||||
|
+'aterClick'#0#0#9'TMenuItem'#8'JPEGView'#7'Caption'#6#17'JPEG Image Viewer'#7
|
||||||
|
+'OnClick'#7#13'JPEGViewClick'#0#0#0#9'TMenuItem'#9'MenuItem4'#7'Caption'#6#4
|
||||||
|
+'Edit'#0#9'TMenuItem'#9'blockcopy'#7'Caption'#6#21'Copy a Block of Cells'#7
|
||||||
|
+'OnClick'#7#14'blockcopyClick'#0#0#9'TMenuItem'#10'BlockPaste'#7'Caption'#6
|
||||||
|
+#22'Paste a Block of Cells'#7'OnClick'#7#15'BlockPasteClick'#0#0#9'TMenuItem'
|
||||||
|
+#8'BlockCut'#7'Caption'#6#20'Cut a Block of Cells'#7'Visible'#8#0#0#9'TMenuI'
|
||||||
|
+'tem'#9'InsNewCol'#7'Caption'#6'%Insert New Column Before Current One'#7'On'
|
||||||
|
+'Click'#7#14'InsNewColClick'#0#0#9'TMenuItem'#7'CopyCol'#7'Caption'#6#11'Cop'
|
||||||
|
+'y Column'#7'OnClick'#7#12'CopyColClick'#0#0#9'TMenuItem'#6'CutCol'#7'Captio'
|
||||||
|
+'n'#6#10'Cut Column'#7'OnClick'#7#11'CutColClick'#0#0#9'TMenuItem'#8'PasteCo'
|
||||||
|
+'l'#7'Caption'#6#12'Paste Column'#7'OnClick'#7#13'PasteColClick'#0#0#9'TMenu'
|
||||||
|
+'Item'#6'NewRow'#7'Caption'#6#15'Insert New Row'#7'OnClick'#7#11'NewRowClic'
|
||||||
|
+'k'#0#0#9'TMenuItem'#7'CopyRow'#7'Caption'#6#8'Copy Row'#7'OnClick'#7#12'Cop'
|
||||||
|
+'yRowClick'#0#0#9'TMenuItem'#6'CutRow'#7'Caption'#6#7'Cut Row'#7'OnClick'#7
|
||||||
|
+#11'CutRowClick'#0#0#9'TMenuItem'#8'PasteRow'#7'Caption'#6#9'Paste Row'#7'On'
|
||||||
|
+'Click'#7#13'PasteRowClick'#0#0#0#9'TMenuItem'#9'MenuItem5'#7'Caption'#6#8'A'
|
||||||
|
+'nalyses'#0#9'TMenuItem'#10'MenuItem32'#7'Caption'#6#11'Descriptive'#0#9'TMe'
|
||||||
|
+'nuItem'#13'Distributions'#7'Caption'#6#23'Distribution Statistics'#7'OnClic'
|
||||||
|
+'k'#7#18'DistributionsClick'#0#0#9'TMenuItem'#8'FreqAnal'#7'Caption'#6#18'Fr'
|
||||||
|
+'equency Analysis'#7'OnClick'#7#13'FreqAnalClick'#0#0#9'TMenuItem'#7'GrpFreq'
|
||||||
|
+#7'Caption'#6#22'Plot Group Frequencies'#7'OnClick'#7#12'GrpFreqClick'#0#0#9
|
||||||
|
+'TMenuItem'#9'CrossTabs'#7'Caption'#6#16'Cross Tabulation'#7'OnClick'#7#14'C'
|
||||||
|
+'rossTabsClick'#0#0#9'TMenuItem'#9'Breakdown'#7'Caption'#6#9'Breakdown'#7'On'
|
||||||
|
+'Click'#7#14'BreakdownClick'#0#0#9'TMenuItem'#7'BoxPlot'#7'Caption'#6#8'Box '
|
||||||
|
+'Plot'#7'OnClick'#7#12'BoxPlotClick'#0#0#9'TMenuItem'#14'NormalityTests'#7'C'
|
||||||
|
+'aption'#6#15'Normality Tests'#7'OnClick'#7#19'NormalityTestsClick'#0#0#9'TM'
|
||||||
|
+'enuItem'#12'ThreeDRotate'#7'Caption'#6#21'3-D Variable Rotation'#7'OnClick'
|
||||||
|
+#7#17'ThreeDRotateClick'#0#0#9'TMenuItem'#8'PlotXvsY'#7'Caption'#6#11'Plot X'
|
||||||
|
+' vs Y'#7'OnClick'#7#13'PlotXvsYClick'#0#0#9'TMenuItem'#10'BubblePlot'#7'Cap'
|
||||||
|
+'tion'#6#29'Repeated Measures Bubble Plot'#7'OnClick'#7#15'BubblePlotClick'#0
|
||||||
|
+#0#9'TMenuItem'#8'StemLeaf'#7'Caption'#6#18'Stem and Leaf Plot'#7'OnClick'#7
|
||||||
|
+#13'StemLeafClick'#0#0#9'TMenuItem'#8'MultXvsY'#7'Caption'#6#26'Multiple Gro'
|
||||||
|
+'up X vs Y Plot'#7'OnClick'#7#13'MultXvsYClick'#0#0#9'TMenuItem'#8'XvsMultY'
|
||||||
|
+#7'Caption'#6#24'X versus Multiple Y Plot'#7'OnClick'#7#13'XvsMultYClick'#0#0
|
||||||
|
+#9'TMenuItem'#12'CompareDists'#7'Caption'#6#21'Compare Distributions'#7'OnCl'
|
||||||
|
+'ick'#7#17'CompareDistsClick'#0#0#9'TMenuItem'#14'ResistanceLine'#7'Caption'
|
||||||
|
+#6'!Resistant Line for Bivariate Data'#7'OnClick'#7#19'ResistanceLineClick'#0
|
||||||
|
+#0#9'TMenuItem'#10'DataSmooth'#7'Caption'#6#14'Data Smoothing'#7'OnClick'#7
|
||||||
|
+#15'DataSmoothClick'#0#0#9'TMenuItem'#8'homotest'#7'Caption'#6'/Brown-Forsyt'
|
||||||
|
+'he test for homogeneity of variance'#7'OnClick'#7#13'homotestClick'#0#0#0#9
|
||||||
|
+'TMenuItem'#12'OneSampTests'#7'Caption'#6#16'One Sample Tests'#7'OnClick'#7
|
||||||
|
+#17'OneSampTestsClick'#0#0#9'TMenuItem'#10'MenuItem34'#7'Caption'#6#11'Compa'
|
||||||
|
+'risons'#0#9'TMenuItem'#8'PropDiff'#7'Caption'#6#29'Difference beween Propor'
|
||||||
|
+'tions'#7'OnClick'#7#13'PropDiffClick'#0#0#9'TMenuItem'#8'CorrDiff'#7'Captio'
|
||||||
|
+'n'#6#31'Difference Between Correlations'#7'OnClick'#7#13'CorrDiffClick'#0#0
|
||||||
|
+#9'TMenuItem'#6'ttests'#7'Caption'#6#7't-tests'#7'OnClick'#7#11'ttestsClick'
|
||||||
|
+#0#0#9'TMenuItem'#5'Anova'#7'Caption'#6#19'1,2 or 3 Way ANOVAs'#7'OnClick'#7
|
||||||
|
,#10'AnovaClick'#0#0#9'TMenuItem'#11'WithinAnova'#7'Caption'#6#21'Within Subj'
|
||||||
|
+'ects ANOVA'#7'OnClick'#7#16'WithinAnovaClick'#0#0#9'TMenuItem'#8'AxSAnova'#7
|
||||||
|
+'Caption'#6#11'A x S ANOVA'#7'OnClick'#7#13'AxSAnovaClick'#0#0#9'TMenuItem'#8
|
||||||
|
+'ABSAnova'#7'Caption'#6#15'A x B x S ANOVA'#7'OnClick'#7#13'ABSAnovaClick'#0
|
||||||
|
+#0#9'TMenuItem'#4'BinA'#7'Caption'#6#19'B Nested in A ANOVA'#7'OnClick'#7#9
|
||||||
|
+'BinAClick'#0#0#9'TMenuItem'#9'NestedABC'#7'Caption'#6#28'ABC ANOVA with B N'
|
||||||
|
+'ested in A'#7'OnClick'#7#14'NestedABCClick'#0#0#9'TMenuItem'#12'OneCaseAnov'
|
||||||
|
+'a'#7'Caption'#6'''2 or 3 Way ANOVA with One Case Per Cell'#7'OnClick'#7#17
|
||||||
|
+'OneCaseAnovaClick'#0#0#9'TMenuItem'#6'Ancova'#7'Caption'#6#20'ANCOVA by Reg'
|
||||||
|
+'ression'#7'OnClick'#7#11'AncovaClick'#0#0#9'TMenuItem'#3'GLM'#7'Caption'#6
|
||||||
|
+#20'General Linear Model'#7'OnClick'#7#8'GLMClick'#0#0#9'TMenuItem'#12'Latin'
|
||||||
|
+'Squares'#7'Caption'#6#29'Latin and Greco-Latin Squares'#7'OnClick'#7#17'Lat'
|
||||||
|
+'inSquaresClick'#0#0#0#9'TMenuItem'#10'MenuItem35'#7'Caption'#6#11'Correlati'
|
||||||
|
+'on'#0#9'TMenuItem'#10'MenuItem71'#7'Caption'#6#14'Product-Moment'#7'OnClick'
|
||||||
|
+#7#15'MenuItem71Click'#0#0#9'TMenuItem'#10'MenuItem72'#7'Caption'#6#20'Parti'
|
||||||
|
+'al, Semipartial'#7'OnClick'#7#15'MenuItem72Click'#0#0#9'TMenuItem'#10'MenuI'
|
||||||
|
+'tem73'#7'Caption'#6#15'Autocorrelation'#7'OnClick'#7#15'MenuItem73Click'#0#0
|
||||||
|
+#9'TMenuItem'#10'MenuItem74'#7'Caption'#6#9'Canonical'#7'OnClick'#7#15'MenuI'
|
||||||
|
+'tem74Click'#0#0#0#9'TMenuItem'#10'MenuItem36'#7'Caption'#6#19'Multiple Regr'
|
||||||
|
+'ession'#0#9'TMenuItem'#8'LSMRitem'#7'Caption'#6'!Least Squares Multiple Reg'
|
||||||
|
+'ression'#7'OnClick'#7#13'LSMRitemClick'#0#0#9'TMenuItem'#10'MenuItem75'#7'C'
|
||||||
|
+'aption'#6#16'Forward Stepwise'#7'OnClick'#7#15'MenuItem75Click'#0#0#9'TMenu'
|
||||||
|
+'Item'#10'MenuItem76'#7'Caption'#6#17'Backward Stepwise'#7'OnClick'#7#15'Men'
|
||||||
|
+'uItem76Click'#0#0#9'TMenuItem'#10'MenuItem77'#7'Caption'#6#12'Simultaneous'
|
||||||
|
+#7'OnClick'#7#15'MenuItem77Click'#0#0#9'TMenuItem'#10'MenuItem78'#7'Caption'
|
||||||
|
+#6#11'Block Entry'#7'OnClick'#7#15'MenuItem78Click'#0#0#9'TMenuItem'#10'Menu'
|
||||||
|
+'Item79'#7'Caption'#6#16'Best Combination'#7'OnClick'#7#15'MenuItem79Click'#0
|
||||||
|
+#0#9'TMenuItem'#10'MenuItem80'#7'Caption'#6#15'Binary Logistic'#7'OnClick'#7
|
||||||
|
+#15'MenuItem80Click'#0#0#9'TMenuItem'#10'MenuItem81'#7'Caption'#6'-Cox Propo'
|
||||||
|
+'rtional Hazzards Survival Regression'#7'OnClick'#7#15'MenuItem81Click'#0#0#9
|
||||||
|
+'TMenuItem'#10'MenuItem82'#7'Caption'#6#18'Linear Programming'#7'OnClick'#7
|
||||||
|
+#15'MenuItem82Click'#0#0#9'TMenuItem'#9'TwoSLSReg'#7'Caption'#6'"Two Stage L'
|
||||||
|
+'east Squares Regression'#7'OnClick'#7#14'TwoSLSRegClick'#0#0#9'TMenuItem'#6
|
||||||
|
+'WLSReg'#7'Caption'#6'!Weighted Least Squares Regression'#7'OnClick'#7#11'WL'
|
||||||
|
+'SRegClick'#0#0#0#9'TMenuItem'#10'MenuItem37'#7'Caption'#6#12'Multivariate'#0
|
||||||
|
+#9'TMenuItem'#10'MenuItem83'#7'Caption'#6#30'MANOVA / Discriminant Function'
|
||||||
|
+#7'OnClick'#7#15'MenuItem83Click'#0#0#9'TMenuItem'#10'MenuItem84'#7'Caption'
|
||||||
|
+#6#21'Hierarchical Analysis'#7'OnClick'#7#15'MenuItem84Click'#0#0#9'TMenuIte'
|
||||||
|
+'m'#10'MenuItem29'#7'Caption'#6#23'Average Link Clustering'#7'OnClick'#7#15
|
||||||
|
+'MenuItem29Click'#0#0#9'TMenuItem'#10'MenuItem31'#7'Caption'#6#18'K Means Cl'
|
||||||
|
+'ustering'#7'OnClick'#7#15'MenuItem31Click'#0#0#9'TMenuItem'#10'MenuItem33'#7
|
||||||
|
+'Caption'#6#22'Single Link Clustering'#7'OnClick'#7#15'MenuItem33Click'#0#0#9
|
||||||
|
+'TMenuItem'#10'MenuItem85'#7'Caption'#6#13'Path Analysis'#7'OnClick'#7#15'Me'
|
||||||
|
+'nuItem85Click'#0#0#9'TMenuItem'#10'MenuItem86'#7'Caption'#6#15'Factor Analy'
|
||||||
|
+'sis'#7'OnClick'#7#15'MenuItem86Click'#0#0#9'TMenuItem'#10'MenuItem87'#7'Cap'
|
||||||
|
+'tion'#6#21'Canonical Correlation'#7'OnClick'#7#15'MenuItem87Click'#0#0#9'TM'
|
||||||
|
+'enuItem'#10'MenuItem88'#7'Caption'#6#20'General Linear Model'#7'OnClick'#7
|
||||||
|
+#15'MenuItem88Click'#0#0#9'TMenuItem'#12'BartlettTest'#7'Caption'#6#27'Bartl'
|
||||||
|
+'ett Test of Sphericity'#7'OnClick'#7#17'BartlettTestClick'#0#0#9'TMenuItem'
|
||||||
|
+#14'Correspondence'#7'Caption'#6#23'Correspondence Analysis'#7'OnClick'#7#19
|
||||||
|
+'CorrespondenceClick'#0#0#9'TMenuItem'#12'MedianPolish'#7'Caption'#6' Median'
|
||||||
|
+' Polishing for a 2x2 Table'#7'OnClick'#7#17'MedianPolishClick'#0#0#0#9'TMen'
|
||||||
|
+'uItem'#10'MenuItem38'#7'Caption'#6#20'Cross-Classification'#0#9'TMenuItem'
|
||||||
|
+#10'MenuItem89'#7'Caption'#6#14'AxB Log Linear'#7'OnClick'#7#15'MenuItem89Cl'
|
||||||
|
+'ick'#0#0#9'TMenuItem'#10'MenuItem90'#7'Caption'#6#16'AxBxC Log Linear'#7'On'
|
||||||
|
+'Click'#7#15'MenuItem90Click'#0#0#9'TMenuItem'#10'MenuItem91'#7'Caption'#6#17
|
||||||
|
+'Log Linear Screen'#7'OnClick'#7#15'MenuItem91Click'#0#0#0#9'TMenuItem'#10'M'
|
||||||
|
+'enuItem39'#7'Caption'#6#20'Measurement Programs'#0#9'TMenuItem'#10'MenuItem'
|
||||||
|
+'92'#7'Caption'#6#25'Generate Sample Test Data'#7'OnClick'#7#15'MenuItem92Cl'
|
||||||
|
+'ick'#0#0#9'TMenuItem'#10'MenuItem93'#7'Caption'#6#23'Classical Test Analysi'
|
||||||
|
+'s'#7'OnClick'#7#15'MenuItem93Click'#0#0#9'TMenuItem'#10'MenuItem94'#7'Capti'
|
||||||
|
+'on'#6#22'Rasch Test Calibration'#7'OnClick'#7#15'MenuItem94Click'#0#0#9'TMe'
|
||||||
|
+'nuItem'#10'MenuItem95'#7'Caption'#6#27'Successive Interval Scaling'#7'OnCli'
|
||||||
|
+'ck'#7#15'MenuItem95Click'#0#0#9'TMenuItem'#10'MenuItem96'#7'Caption'#6#26'G'
|
||||||
|
,'uttman Scalogram Analysis'#7'OnClick'#7#15'MenuItem96Click'#0#0#9'TMenuItem'
|
||||||
|
+#10'MenuItem97'#7'Caption'#6#30'Weighted Composite Reliability'#7'OnClick'#7
|
||||||
|
+#15'MenuItem97Click'#0#0#9'TMenuItem'#10'MenuItem98'#7'Caption'#6' Kuder-Ric'
|
||||||
|
+'hardson #21 Reliability'#7'OnClick'#7#15'MenuItem98Click'#0#0#9'TMenuItem'
|
||||||
|
+#10'MenuItem99'#7'Caption'#6'#Spearman-Brown Prophecy Reliability'#7'OnClick'
|
||||||
|
+#7#15'MenuItem99Click'#0#0#9'TMenuItem'#11'MenuItem100'#7'Caption'#6'''Relia'
|
||||||
|
+'bility Due to Test Variance Change'#7'OnClick'#7#16'MenuItem100Click'#0#0#9
|
||||||
|
+'TMenuItem'#11'MenuItem101'#7'Caption'#6#29'Differential Item Functioning'#7
|
||||||
|
+'OnClick'#7#16'MenuItem101Click'#0#0#9'TMenuItem'#11'MenuItem102'#7'Caption'
|
||||||
|
+#6#23'Polytomous DIF Analysis'#7'OnClick'#7#16'MenuItem102Click'#0#0#9'TMenu'
|
||||||
|
+'Item'#8'GrdBkMnu'#7'Caption'#6#10'Grade Book'#7'OnClick'#7#13'GrdBkMnuClick'
|
||||||
|
+#0#0#9'TMenuItem'#16'ItemBankMenuItem'#7'Caption'#6#12'Item Banking'#7'OnCli'
|
||||||
|
+'ck'#7#21'ItemBankMenuItemClick'#0#0#0#9'TMenuItem'#10'MenuItem40'#7'Caption'
|
||||||
|
+#6#13'Nonparametric'#0#9'TMenuItem'#10'SimpChiSqr'#7'Caption'#6#31'Simple Ch'
|
||||||
|
+'iSquare for Categories'#7'OnClick'#7#15'SimpChiSqrClick'#0#0#9'TMenuItem'#11
|
||||||
|
+'MenuItem103'#7'Caption'#6#22'Contingency Chi Square'#7'OnClick'#7#16'MenuIt'
|
||||||
|
+'em103Click'#0#0#9'TMenuItem'#11'MenuItem104'#7'Caption'#6#25'Spearman Rank '
|
||||||
|
+'Correlation'#7'OnClick'#7#16'MenuItem104Click'#0#0#9'TMenuItem'#11'MenuItem'
|
||||||
|
+'105'#7'Caption'#6#19'Mann-Whitney U Test'#7'OnClick'#7#16'MenuItem105Click'
|
||||||
|
+#0#0#9'TMenuItem'#11'MenuItem106'#7'Caption'#6#19'Fisher''s Exact Test'#7'On'
|
||||||
|
+'Click'#7#16'MenuItem106Click'#0#0#9'TMenuItem'#11'MenuItem107'#7'Caption'#6
|
||||||
|
+'$Kendall''s Coefficient of Concordance'#7'OnClick'#7#16'MenuItem107Click'#0
|
||||||
|
+#0#9'TMenuItem'#11'MenuItem108'#7'Caption'#6#28'Kruskal-Wallis One Way ANOVA'
|
||||||
|
+#7'OnClick'#7#16'MenuItem108Click'#0#0#9'TMenuItem'#11'MenuItem109'#7'Captio'
|
||||||
|
+'n'#6#31'Matched Pairs Signed Ranks Test'#7'OnClick'#7#16'MenuItem109Click'#0
|
||||||
|
+#0#9'TMenuItem'#11'MenuItem110'#7'Caption'#6#14'Cochran Q Test'#7'OnClick'#7
|
||||||
|
+#16'MenuItem110Click'#0#0#9'TMenuItem'#11'MenuItem111'#7'Caption'#6#9'Sign T'
|
||||||
|
+'est'#7'OnClick'#7#16'MenuItem111Click'#0#0#9'TMenuItem'#11'MenuItem112'#7'C'
|
||||||
|
+'aption'#6#22'Friedman Two Way ANOVA'#7'OnClick'#7#16'MenuItem112Click'#0#0#9
|
||||||
|
+'TMenuItem'#11'MenuItem113'#7'Caption'#6#31'Probability of a binomial event'
|
||||||
|
+#7'OnClick'#7#16'MenuItem113Click'#0#0#9'TMenuItem'#11'MenuItem114'#7'Captio'
|
||||||
|
+'n'#6#30'Kendall''s Tau and Parrtial Tau'#7'OnClick'#7#16'MenuItem114Click'#0
|
||||||
|
+#0#9'TMenuItem'#11'MenuItem115'#7'Caption'#6#30'Kaplan-Meier Survival Analys'
|
||||||
|
+'is'#7'OnClick'#7#16'MenuItem115Click'#0#0#9'TMenuItem'#13'RiditAnalysis'#7
|
||||||
|
+'Caption'#6#14'RIDIT Analysis'#7'OnClick'#7#18'RiditAnalysisClick'#0#0#9'TMe'
|
||||||
|
+'nuItem'#11'WghtedKappa'#7'Caption'#6#24'Kappa and Weighted Kappa'#7'OnClick'
|
||||||
|
+#7#16'WghtedKappaClick'#0#0#9'TMenuItem'#8'GenKappa'#7'Caption'#6#17'General'
|
||||||
|
+'ized Kappa'#7'OnClick'#7#13'GenKappaClick'#0#0#9'TMenuItem'#8'RunsTest'#7'C'
|
||||||
|
+'aption'#6#23'Runs Test for Normality'#7'OnClick'#7#13'RunsTestClick'#0#0#9
|
||||||
|
+'TMenuItem'#4'Sens'#7'Caption'#6#20'Sen''s Slope Analysis'#7'OnClick'#7#9'Se'
|
||||||
|
+'nsClick'#0#0#9'TMenuItem'#6'KSTest'#7'Caption'#6#23'Kolmogorov-Smirnov Test'
|
||||||
|
+#7'OnClick'#7#11'KSTestClick'#0#0#9'TMenuItem'#7'SRHItem'#7'Caption'#6#29'Sc'
|
||||||
|
+'heirer-Ray-Hart 2-way ANOVA'#7'OnClick'#7#12'SRHItemClick'#0#0#9'TMenuItem'
|
||||||
|
+#9'lifetable'#7'Caption'#6#10'LIFE TABLE'#7'OnClick'#7#14'lifetableClick'#0#0
|
||||||
|
+#0#9'TMenuItem'#10'MenuItem41'#7'Caption'#6#27'Statistical Process Control'#0
|
||||||
|
+#9'TMenuItem'#11'MenuItem116'#7'Caption'#6#10'XBAR Chart'#7'OnClick'#7#16'Me'
|
||||||
|
+'nuItem116Click'#0#0#9'TMenuItem'#11'MenuItem117'#7'Caption'#6#11'Range Char'
|
||||||
|
+'t'#7'OnClick'#7#16'MenuItem117Click'#0#0#9'TMenuItem'#11'MenuItem118'#7'Cap'
|
||||||
|
+'tion'#6#15'S Control Chart'#7'OnClick'#7#16'MenuItem118Click'#0#0#9'TMenuIt'
|
||||||
|
+'em'#9'MenuItem6'#7'Caption'#6#12'CUMSUM Chart'#7'OnClick'#7#14'MenuItem6Cli'
|
||||||
|
+'ck'#0#0#9'TMenuItem'#11'MenuItem119'#7'Caption'#6#30'Defect (nonconformity)'
|
||||||
|
+' c Chart'#7'OnClick'#7#16'MenuItem119Click'#0#0#9'TMenuItem'#12'pcontrochar'
|
||||||
|
+'t'#7'Caption'#6#15'p Control Chart'#7'OnClick'#7#17'pcontrochartClick'#0#0#9
|
||||||
|
+'TMenuItem'#11'MenuItem120'#7'Caption'#6#24'Defects per Unit u Chart'#7'OnCl'
|
||||||
|
+'ick'#7#16'MenuItem120Click'#0#0#0#9'TMenuItem'#9'MenuItem9'#7'Caption'#6#9
|
||||||
|
+'Financial'#0#9'TMenuItem'#10'MenuItem10'#7'Caption'#6#26'Loan Amortization '
|
||||||
|
+'Schedule'#7'OnClick'#7#15'MenuItem10Click'#0#0#9'TMenuItem'#10'MenuItem11'#7
|
||||||
|
+'Caption'#6' Sum of years digits depreciation'#7'OnClick'#7#15'MenuItem11Cli'
|
||||||
|
+'ck'#0#0#9'TMenuItem'#10'MenuItem14'#7'Caption'#6#26'Straight line depreciat'
|
||||||
|
+'ion'#7'OnClick'#7#15'MenuItem14Click'#0#0#9'TMenuItem'#10'MenuItem17'#7'Cap'
|
||||||
|
+'tion'#6#23'Internal rate of return'#7'Visible'#8#0#0#9'TMenuItem'#10'MenuIt'
|
||||||
|
+'em18'#7'Caption'#6#13'Present Value'#7'Visible'#8#0#0#9'TMenuItem'#10'MenuI'
|
||||||
|
+'tem19'#7'Caption'#6#14'Period Payment'#7'Visible'#8#0#0#9'TMenuItem'#10'Men'
|
||||||
|
+'uItem21'#7'Caption'#6#7'Payment'#7'Visible'#8#0#0#9'TMenuItem'#10'MenuItem2'
|
||||||
|
,'2'#7'Caption'#6#14'No. of Periods'#7'Visible'#8#0#0#9'TMenuItem'#10'MenuIte'
|
||||||
|
+'m23'#7'Caption'#6#17'Net Present Value'#7'Visible'#8#0#0#9'TMenuItem'#10'Me'
|
||||||
|
+'nuItem24'#7'Caption'#6#13'Interest Rate'#7'Visible'#8#0#0#9'TMenuItem'#10'M'
|
||||||
|
+'enuItem25'#7'Caption'#6#16'Interest Payment'#7'Visible'#8#0#0#9'TMenuItem'
|
||||||
|
+#10'MenuItem26'#7'Caption'#6#12'Future Value'#7'Visible'#8#0#0#9'TMenuItem'
|
||||||
|
+#10'MenuItem27'#7'Caption'#6#22'Double Declining Value'#7'OnClick'#7#15'Menu'
|
||||||
|
+'Item27Click'#0#0#0#9'TMenuItem'#9'MatManMnu'#7'Caption'#6#19'Matrix Manipul'
|
||||||
|
+'ation'#7'OnClick'#7#14'MatManMnuClick'#0#0#0#9'TMenuItem'#6'Option'#7'Capti'
|
||||||
|
+'on'#6#7'Options'#0#9'TMenuItem'#8'ShowOpts'#7'Caption'#6#12'Show Options'#7
|
||||||
|
+'OnClick'#7#11'OptionClick'#0#0#9'TMenuItem'#7'PicView'#7'Caption'#6#13'View'
|
||||||
|
+' Pictures'#7'Visible'#8#0#0#0#9'TMenuItem'#9'MenuItem7'#7'Caption'#6#11'Sim'
|
||||||
|
+'ulations'#0#9'TMenuItem'#8'ScatPlot'#7'Caption'#6#22'Bivariate Scatter Plot'
|
||||||
|
+#7'OnClick'#7#13'ScatPlotClick'#0#0#9'TMenuItem'#9'MultDists'#7'Caption'#6#25
|
||||||
|
+'Multivariate Distribution'#7'OnClick'#7#14'MultDistsClick'#0#0#9'TMenuItem'
|
||||||
|
+#10'TypeErrors'#7'Caption'#6#30'Type 1 and Type 2 Error Curves'#7'OnClick'#7
|
||||||
|
+#15'TypeErrorsClick'#0#0#9'TMenuItem'#5'Power'#7'Caption'#6#25'Power Curves '
|
||||||
|
+'for a z test'#7'OnClick'#7#10'PowerClick'#0#0#9'TMenuItem'#9'DistPlots'#7'C'
|
||||||
|
+'aption'#6'&Distribution Plots and Critical Values'#7'OnClick'#7#14'DistPlot'
|
||||||
|
+'sClick'#0#0#9'TMenuItem'#9'SeqValues'#7'Caption'#6#26'Generate Sequential V'
|
||||||
|
+'alues'#7'OnClick'#7#14'SeqValuesClick'#0#0#9'TMenuItem'#10'RandomVals'#7'Ca'
|
||||||
|
+'ption'#6#25'Random Theoretical Values'#7'OnClick'#7#15'RandomValsClick'#0#0
|
||||||
|
+#9'TMenuItem'#13'Probabilities'#7'Caption'#6#13'Probabilities'#0#9'TMenuItem'
|
||||||
|
+#7'probgtz'#7'Caption'#6#15'Probability > z'#7'OnClick'#7#12'probgtzClick'#0
|
||||||
|
+#0#9'TMenuItem'#7'Probltz'#7'Caption'#6#15'Probability < z'#7'OnClick'#7#12
|
||||||
|
+'ProbltzClick'#0#0#9'TMenuItem'#12'probzbetween'#7'Caption'#6#23'Prob betwee'
|
||||||
|
+'n 2 z values'#7'OnClick'#7#17'probzbetweenClick'#0#0#9'TMenuItem'#8'inverse'
|
||||||
|
+'z'#7'Caption'#6#30'z for a given cum. Probability'#7'OnClick'#7#13'inversez'
|
||||||
|
+'Click'#0#0#9'TMenuItem'#7'Chiprob'#7'Caption'#6#21'Chisquare Probability'#7
|
||||||
|
+'OnClick'#7#12'ChiprobClick'#0#0#9'TMenuItem'#5'tprob'#7'Caption'#6#21'Stude'
|
||||||
|
+'nt t probability'#7'OnClick'#7#10'tprobClick'#0#0#9'TMenuItem'#5'Fprob'#7'C'
|
||||||
|
+'aption'#6#13'F probability'#7'OnClick'#7#10'FprobClick'#0#0#9'TMenuItem'#12
|
||||||
|
+'HypergeoProb'#7'Caption'#6#26'Hypergeometric probability'#7'OnClick'#7#17'H'
|
||||||
|
+'ypergeoProbClick'#0#0#0#0#9'TMenuItem'#9'MenuItem8'#7'Caption'#6#4'Help'#0#9
|
||||||
|
+'TMenuItem'#5'About'#7'Caption'#6#8'About...'#7'OnClick'#7#10'AboutClick'#0#0
|
||||||
|
+#9'TMenuItem'#7'GridUse'#7'Caption'#6#14'Using the Grid'#7'OnClick'#7#12'Gri'
|
||||||
|
+'dUseClick'#0#0#9'TMenuItem'#12'HelpContents'#7'Caption'#6#12'General Help'#7
|
||||||
|
+'OnClick'#7#17'HelpContentsClick'#0#0#0#0#11'TOpenDialog'#11'OpenDialog1'#4
|
||||||
|
+'left'#2'P'#3'top'#3'h'#1#0#0#11'TSaveDialog'#11'SaveDialog1'#4'left'#3#144#0
|
||||||
|
+#3'top'#3'h'#1#0#0#0
|
||||||
|
]);
|
||||||
1485
applications/lazstats/source_orig/mainunit.pas
Normal file
1485
applications/lazstats/source_orig/mainunit.pas
Normal file
File diff suppressed because it is too large
Load Diff
274
applications/lazstats/source_orig/mannwhituunit.lfm
Normal file
274
applications/lazstats/source_orig/mannwhituunit.lfm
Normal file
@@ -0,0 +1,274 @@
|
|||||||
|
object MannWhitUFrm: TMannWhitUFrm
|
||||||
|
Left = 186
|
||||||
|
Height = 300
|
||||||
|
Top = 102
|
||||||
|
Width = 325
|
||||||
|
Caption = 'Mann-Whitney U Test'
|
||||||
|
ClientHeight = 300
|
||||||
|
ClientWidth = 325
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.26.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 14
|
||||||
|
Top = 7
|
||||||
|
Width = 90
|
||||||
|
Caption = 'Variables Available'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 200
|
||||||
|
Height = 14
|
||||||
|
Top = 24
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Group Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 198
|
||||||
|
Height = 14
|
||||||
|
Top = 119
|
||||||
|
Width = 95
|
||||||
|
Caption = 'Dependent Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 7
|
||||||
|
Height = 267
|
||||||
|
Top = 23
|
||||||
|
Width = 141
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object GrpIn: TBitBtn
|
||||||
|
Left = 160
|
||||||
|
Height = 28
|
||||||
|
Top = 24
|
||||||
|
Width = 31
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = GrpInClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object GrpOut: TBitBtn
|
||||||
|
Left = 160
|
||||||
|
Height = 28
|
||||||
|
Top = 56
|
||||||
|
Width = 31
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = GrpOutClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object DepIn: TBitBtn
|
||||||
|
Left = 160
|
||||||
|
Height = 28
|
||||||
|
Top = 120
|
||||||
|
Width = 31
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepInClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object DepOut: TBitBtn
|
||||||
|
Left = 160
|
||||||
|
Height = 28
|
||||||
|
Top = 152
|
||||||
|
Width = 31
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepOutClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object GrpEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 20
|
||||||
|
Top = 39
|
||||||
|
Width = 115
|
||||||
|
TabOrder = 5
|
||||||
|
Text = 'GrpEdit'
|
||||||
|
end
|
||||||
|
object DepEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 20
|
||||||
|
Top = 136
|
||||||
|
Width = 115
|
||||||
|
TabOrder = 6
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 161
|
||||||
|
Height = 29
|
||||||
|
Top = 192
|
||||||
|
Width = 67
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 248
|
||||||
|
Height = 29
|
||||||
|
Top = 192
|
||||||
|
Width = 67
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 161
|
||||||
|
Height = 29
|
||||||
|
Top = 240
|
||||||
|
Width = 67
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 248
|
||||||
|
Height = 29
|
||||||
|
Top = 240
|
||||||
|
Width = 67
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
232
applications/lazstats/source_orig/mannwhituunit.lrs
Normal file
232
applications/lazstats/source_orig/mannwhituunit.lrs
Normal file
@@ -0,0 +1,232 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMannWhitUFrm','FORMDATA',[
|
||||||
|
'TPF0'#13'TMannWhitUFrm'#12'MannWhitUFrm'#4'Left'#3#186#0#6'Height'#3','#1#3
|
||||||
|
+'Top'#2'f'#5'Width'#3'E'#1#7'Caption'#6#19'Mann-Whitney U Test'#12'ClientHei'
|
||||||
|
+'ght'#3','#1#11'ClientWidth'#3'E'#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6
|
||||||
|
+#8'0.9.26.2'#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#7#5'W'
|
||||||
|
+'idth'#2'Z'#7'Caption'#6#19'Variables Available'#11'ParentColor'#8#0#0#6'TLa'
|
||||||
|
+'bel'#6'Label2'#4'Left'#3#200#0#6'Height'#2#14#3'Top'#2#24#5'Width'#2'G'#7'C'
|
||||||
|
+'aption'#6#14'Group Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Le'
|
||||||
|
+'ft'#3#198#0#6'Height'#2#14#3'Top'#2'w'#5'Width'#2'_'#7'Caption'#6#18'Depend'
|
||||||
|
+'ent Variable'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#7#6'He'
|
||||||
|
+'ight'#3#11#1#3'Top'#2#23#5'Width'#3#141#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#5
|
||||||
|
+'GrpIn'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#2#24#5'Width'#2#31#10'Glyph.Da'
|
||||||
|
+'ta'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0
|
||||||
|
+#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184
|
||||||
|
+#29'^ '#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177
|
||||||
|
+'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255
|
||||||
|
+'5'#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255
|
||||||
|
+#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142
|
||||||
|
+#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'
|
||||||
|
+#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162
|
||||||
|
+#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255
|
||||||
|
+#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130
|
||||||
|
+#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199
|
||||||
|
+'t'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255
|
||||||
|
+'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'
|
||||||
|
+#209#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#10'GrpInClick'#8
|
||||||
|
+'TabOrder'#2#1#0#0#7'TBitBtn'#6'GrpOut'#4'Left'#3#160#0#6'Height'#2#28#3'Top'
|
||||||
|
+#2'8'#5'Width'#2#31#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'
|
||||||
|
+#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0
|
||||||
|
,#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153
|
||||||
|
+'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'
|
||||||
|
+#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255
|
||||||
|
+'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'
|
||||||
|
+#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#201''#204#138#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135
|
||||||
|
+#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#11'GrpOutClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'DepIn'
|
||||||
|
+#4'Left'#3#160#0#6'Height'#2#28#3'Top'#2'x'#5'Width'#2#31#10'Glyph.Data'#10
|
||||||
|
+':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0
|
||||||
|
+' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'
|
||||||
|
+#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'
|
||||||
|
+#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255
|
||||||
|
+#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142
|
||||||
|
+#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'
|
||||||
|
+#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162
|
||||||
|
+#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255
|
||||||
|
+#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130
|
||||||
|
+#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199
|
||||||
|
+'t'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255
|
||||||
|
+'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'
|
||||||
|
+#209#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#10'DepInClick'#8
|
||||||
|
+'TabOrder'#2#3#0#0#7'TBitBtn'#6'DepOut'#4'Left'#3#160#0#6'Height'#2#28#3'Top'
|
||||||
|
+#3#152#0#5'Width'#2#31#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0
|
||||||
|
+'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'
|
||||||
|
+#153'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161
|
||||||
|
+'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131
|
||||||
|
+#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/'
|
||||||
|
+'x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'
|
||||||
|
+#195'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255
|
||||||
|
+#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132
|
||||||
|
+#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#201''#204#138#255#162#216#171#255#158#214#167#255#154
|
||||||
|
,#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255
|
||||||
|
+#133#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201
|
||||||
|
+#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'Num'
|
||||||
|
+'Glyphs'#2#0#7'OnClick'#7#11'DepOutClick'#8'TabOrder'#2#4#0#0#5'TEdit'#7'Grp'
|
||||||
|
+'Edit'#4'Left'#3#200#0#6'Height'#2#20#3'Top'#2''''#5'Width'#2's'#8'TabOrder'
|
||||||
|
+#2#5#4'Text'#6#7'GrpEdit'#0#0#5'TEdit'#7'DepEdit'#4'Left'#3#200#0#6'Height'#2
|
||||||
|
+#20#3'Top'#3#136#0#5'Width'#2's'#8'TabOrder'#2#6#4'Text'#6#5'Edit1'#0#0#7'TB'
|
||||||
|
+'utton'#8'ResetBtn'#4'Left'#3#161#0#6'Height'#2#29#3'Top'#3#192#0#5'Width'#2
|
||||||
|
+'C'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#7#0#0
|
||||||
|
+#7'TButton'#9'CancelBtn'#4'Left'#3#248#0#6'Height'#2#29#3'Top'#3#192#0#5'Wid'
|
||||||
|
+'th'#2'C'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#8#0#0#7'T'
|
||||||
|
+'Button'#10'ComputeBtn'#4'Left'#3#161#0#6'Height'#2#29#3'Top'#3#240#0#5'Widt'
|
||||||
|
+'h'#2'C'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'
|
||||||
|
+#2#9#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#248#0#6'Height'#2#29#3'Top'#3#240
|
||||||
|
+#0#5'Width'#2'C'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#10
|
||||||
|
+#0#0#0
|
||||||
|
]);
|
||||||
326
applications/lazstats/source_orig/mannwhituunit.pas
Normal file
326
applications/lazstats/source_orig/mannwhituunit.pas
Normal file
@@ -0,0 +1,326 @@
|
|||||||
|
unit MannWhitUUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, OutPutUnit, FunctionslIB,
|
||||||
|
Globals, DataProcs, Math;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMannWhitUFrm }
|
||||||
|
|
||||||
|
TMannWhitUFrm = class(TForm)
|
||||||
|
GrpIn: TBitBtn;
|
||||||
|
GrpOut: TBitBtn;
|
||||||
|
DepIn: TBitBtn;
|
||||||
|
DepOut: TBitBtn;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
GrpEdit: TEdit;
|
||||||
|
DepEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure DepInClick(Sender: TObject);
|
||||||
|
procedure DepOutClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure GrpInClick(Sender: TObject);
|
||||||
|
procedure GrpOutClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MannWhitUFrm: TMannWhitUFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TMannWhitUFrm }
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
GrpEdit.Text := '';
|
||||||
|
DepEdit.Text := '';
|
||||||
|
GrpIn.Visible := true;
|
||||||
|
GrpOut.Visible := false;
|
||||||
|
DepIn.Visible := true;
|
||||||
|
DepOut.Visible := false;
|
||||||
|
VarList.Items.Clear;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.DepInClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
DepEdit.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
DepIn.Visible := false;
|
||||||
|
DepOut.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
label cleanup, Check1;
|
||||||
|
var
|
||||||
|
i, j, ind_var, dep_var, min_grp, max_grp, group, total_n : integer;
|
||||||
|
NoTies, NoTieGroups, n1, n2, nogroups, largestn : integer;
|
||||||
|
NoSelected : integer;
|
||||||
|
ColNoSelected : IntDyneVec;
|
||||||
|
group_count : IntdyneVec;
|
||||||
|
Ranks, X : DblDyneMat;
|
||||||
|
RankSums : DblDyneVec;
|
||||||
|
TieSum, score, t, SumT, Avg, z, prob, U, U2, SD, Temp : double;
|
||||||
|
cellstring, outline : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
total_n := 0;
|
||||||
|
NoTieGroups := 0;
|
||||||
|
NoSelected := 2;
|
||||||
|
SumT := 0.0;
|
||||||
|
|
||||||
|
// Check for data
|
||||||
|
if (NoVariables < 1) then
|
||||||
|
begin
|
||||||
|
ShowMessage('ERROR! You must have grid data!');
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// allocate space
|
||||||
|
SetLength(ColNoSelected,NoVariables);
|
||||||
|
|
||||||
|
// Get column numbers of the independent and dependent variables
|
||||||
|
ind_var := 0;
|
||||||
|
dep_var := 0;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := GrpEdit.Text;
|
||||||
|
if (cellstring = OS3MainFrm.DataGrid.Cells[i,0]) then ind_var := i;
|
||||||
|
cellstring := DepEdit.Text;
|
||||||
|
if (cellstring = OS3MainFrm.DataGrid.Cells[i,0]) then dep_var := i;
|
||||||
|
end;
|
||||||
|
ColNoSelected[0] := ind_var;
|
||||||
|
ColNoSelected[1] := dep_var;
|
||||||
|
|
||||||
|
//get minimum and maximum group codes
|
||||||
|
min_grp := 10000;
|
||||||
|
max_grp := -10000;
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if (not GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||||
|
group := round(StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[ind_var,i])));
|
||||||
|
if (group < min_grp) then min_grp := group;
|
||||||
|
if (group > max_grp) then max_grp := group;
|
||||||
|
total_n := total_n + 1;
|
||||||
|
end;
|
||||||
|
nogroups := max_grp - min_grp + 1;
|
||||||
|
|
||||||
|
// Initialize arrays
|
||||||
|
SetLength(RankSums,nogroups);
|
||||||
|
SetLength(Ranks,NoCases,2);
|
||||||
|
SetLength(X,NoCases,2);
|
||||||
|
SetLength(group_count,nogroups);
|
||||||
|
for i := 0 to nogroups-1 do
|
||||||
|
begin
|
||||||
|
group_count[i] := 0;
|
||||||
|
RankSums[i] := 0.0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Setup for printer output
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Mann-Whitney U Test');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('See pages 116-127 in S. Siegel: Nonparametric Statistics for the Behavioral Sciences');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
// Get data
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if (not GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||||
|
score := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[dep_var,i]));
|
||||||
|
group := round(StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[ind_var,i])));
|
||||||
|
group := group - min_grp + 1;
|
||||||
|
if (group > 2) then
|
||||||
|
begin
|
||||||
|
ShowMessage('ERROR! Group codes must be 1 and 2!');
|
||||||
|
goto cleanup;
|
||||||
|
end;
|
||||||
|
group_count[group-1] := group_count[group-1] + 1;
|
||||||
|
X[i-1,0] := score;
|
||||||
|
X[i-1,1] := group;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Sort all scores in ascending order
|
||||||
|
for i := 1 to total_n - 1 do
|
||||||
|
begin
|
||||||
|
for j := i + 1 to total_n do
|
||||||
|
begin
|
||||||
|
if (X[i-1,0] > X[j-1,0]) then
|
||||||
|
begin
|
||||||
|
Temp := X[i-1,0];
|
||||||
|
X[i-1,0] := X[j-1,0];
|
||||||
|
X[j-1,0] := Temp;
|
||||||
|
Temp := X[i-1,1];
|
||||||
|
X[i-1,1] := X[j-1,1];
|
||||||
|
X[j-1,1] := Temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Store ranks
|
||||||
|
for i := 1 to total_n do
|
||||||
|
begin
|
||||||
|
Ranks[i-1,0] := i;
|
||||||
|
Ranks[i-1,1] := X[i-1,1];
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Check for ties in ranks - replace with average rank and calculate
|
||||||
|
//T for each tie and sum of the T's
|
||||||
|
i := 1;
|
||||||
|
while i < total_n do
|
||||||
|
begin
|
||||||
|
j := i + 1;
|
||||||
|
TieSum := 0;
|
||||||
|
NoTies := 0;
|
||||||
|
while (j < total_n) do
|
||||||
|
begin
|
||||||
|
if (X[j-1,0] > X[i-1,0]) then goto Check1;
|
||||||
|
if (X[j-1,0] = X[i-1,0]) then // match
|
||||||
|
begin
|
||||||
|
TieSum := TieSum + round(Ranks[j-1,0]);
|
||||||
|
NoTies := NoTies + 1;
|
||||||
|
end;
|
||||||
|
j := j + 1;
|
||||||
|
end;
|
||||||
|
Check1:
|
||||||
|
if (NoTies > 0) then //At least one tie found
|
||||||
|
begin
|
||||||
|
TieSum := TieSum + Ranks[i-1,0];
|
||||||
|
NoTies := NoTies + 1;
|
||||||
|
Avg := TieSum / NoTies;
|
||||||
|
for j := i to i + NoTies - 1 do Ranks[j-1,0] := Avg;
|
||||||
|
t := Power(NoTies,3) - NoTies;
|
||||||
|
SumT := SumT + t;
|
||||||
|
NoTieGroups := NoTieGroups + 1;
|
||||||
|
i := i + (NoTies - 1);
|
||||||
|
end;
|
||||||
|
i := i + 1;
|
||||||
|
end; // next i
|
||||||
|
|
||||||
|
// Calculate sum of ranks in each group
|
||||||
|
for i := 1 to total_n do
|
||||||
|
begin
|
||||||
|
group := round(Ranks[i-1,1]);
|
||||||
|
RankSums[group-1] := RankSums[group-1] + Ranks[i-1,0];
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Calculate U for larger and smaller groups
|
||||||
|
n1 := group_count[0];
|
||||||
|
n2 := group_count[1];
|
||||||
|
if (n1 > n2) then
|
||||||
|
U := (n1 * n2) + ((n1 * (n1 + 1)) / 2.0) - RankSums[0]
|
||||||
|
else
|
||||||
|
U := (n1 * n2) + ((n2 * (n2 + 1)) / 2.0) - RankSums[1];
|
||||||
|
U2 := (n1 * n2) - U;
|
||||||
|
SD := (n1 * n2 * (n1 + n2 + 1)) / 12.0;
|
||||||
|
SD := sqrt(SD);
|
||||||
|
if (U2 > U) then z := (U2 - (n1 * n2 / 2)) / SD
|
||||||
|
else z := (U - (n1 * n2 / 2)) / SD;
|
||||||
|
prob := 1.0 - probz(z);
|
||||||
|
|
||||||
|
//Report results
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(' Score Rank Group');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
for i := 1 to total_n do
|
||||||
|
begin
|
||||||
|
outline := format('%10.2f %10.2f %10.0f',
|
||||||
|
[X[i-1,0], Ranks[i-1,0], Ranks[i-1,1]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Sum of Ranks in each Group');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Group Sum No. in Group');
|
||||||
|
for i := 1 to nogroups do
|
||||||
|
begin
|
||||||
|
outline := format('%3d %10.2f %5d', [i+min_grp-1, RankSums[i-1],group_count[i-1]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('No. of tied rank groups = %3d',[NoTieGroups]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
if (n1 > n2) then largestn := n1
|
||||||
|
else largestn := n2;
|
||||||
|
if (largestn < 20) then
|
||||||
|
outline := format('Statistic U = %8.4f',[U])
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if (U > U2) then outline := format('Statistic U = %8.4f',[U])
|
||||||
|
else outline := format('Statistic U = %8.4f',[U2]);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z Statistic (corrected for ties) = %8.4f, Prob. > z = %6.4f',
|
||||||
|
[z, prob]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
if (n2 < 20) then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('z test is approximate. Use tables of exact probabilities in Siegel.');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('(Table J or K, pages 271-277)');
|
||||||
|
end;
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
|
||||||
|
// Clean up the heap
|
||||||
|
cleanup:
|
||||||
|
group_count := nil;
|
||||||
|
X := nil;
|
||||||
|
Ranks := nil;
|
||||||
|
RankSums := nil;
|
||||||
|
ColNoSelected := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.DepOutClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(DepEdit.Text);
|
||||||
|
DepEdit.Text := '';
|
||||||
|
DepIn.Visible := true;
|
||||||
|
DepOut.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.GrpInClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
GrpEdit.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
GrpIn.Visible := false;
|
||||||
|
GrpOut.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMannWhitUFrm.GrpOutClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(GrpEdit.Text);
|
||||||
|
GrpEdit.Text := '';
|
||||||
|
GrpIn.Visible := true;
|
||||||
|
GrpOut.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I mannwhituunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
368
applications/lazstats/source_orig/matchitemunit.lfm
Normal file
368
applications/lazstats/source_orig/matchitemunit.lfm
Normal file
@@ -0,0 +1,368 @@
|
|||||||
|
object MatchItemForm: TMatchItemForm
|
||||||
|
Left = 195
|
||||||
|
Height = 596
|
||||||
|
Top = 118
|
||||||
|
Width = 773
|
||||||
|
Caption = 'Matching Item Create or Edit Form'
|
||||||
|
ClientHeight = 596
|
||||||
|
ClientWidth = 773
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30.4'
|
||||||
|
object jpeglabel: TLabel
|
||||||
|
Left = 19
|
||||||
|
Height = 16
|
||||||
|
Top = 399
|
||||||
|
Width = 225
|
||||||
|
Caption = 'jpeg photo to display prior to item (if any):'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object jpegnameEdit: TEdit
|
||||||
|
Left = 249
|
||||||
|
Height = 23
|
||||||
|
Top = 392
|
||||||
|
Width = 372
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'jpegnameEdit'
|
||||||
|
end
|
||||||
|
object jpegBrowseBtn: TButton
|
||||||
|
Left = 16
|
||||||
|
Height = 30
|
||||||
|
Top = 437
|
||||||
|
Width = 118
|
||||||
|
Caption = 'Browse jpeg Images'
|
||||||
|
OnClick = jpegBrowseBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object SelectImageBtn: TButton
|
||||||
|
Left = 19
|
||||||
|
Height = 26
|
||||||
|
Top = 508
|
||||||
|
Width = 112
|
||||||
|
Caption = 'Select Shown Image'
|
||||||
|
OnClick = SelectImageBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ItemSaveBtn: TButton
|
||||||
|
Left = 376
|
||||||
|
Height = 33
|
||||||
|
Top = 436
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Save this item'
|
||||||
|
OnClick = ItemSaveBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object PreviousBtn: TButton
|
||||||
|
Left = 507
|
||||||
|
Height = 32
|
||||||
|
Top = 437
|
||||||
|
Width = 110
|
||||||
|
Caption = 'Show Previous Item'
|
||||||
|
OnClick = PreviousBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ShowNextBtn: TButton
|
||||||
|
Left = 378
|
||||||
|
Height = 30
|
||||||
|
Top = 492
|
||||||
|
Width = 109
|
||||||
|
Caption = 'Show Next Item'
|
||||||
|
OnClick = ShowNextBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object StartNewBtn: TButton
|
||||||
|
Left = 507
|
||||||
|
Height = 30
|
||||||
|
Top = 492
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Start a new item'
|
||||||
|
OnClick = StartNewBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 441
|
||||||
|
Height = 30
|
||||||
|
Top = 556
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Return'
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 151
|
||||||
|
Height = 154
|
||||||
|
Top = 432
|
||||||
|
Width = 214
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 96
|
||||||
|
Height = 93
|
||||||
|
Top = 3
|
||||||
|
Width = 616
|
||||||
|
Lines.Strings = (
|
||||||
|
'Directions: To create a Matching item, you will need to enter the number of an item code which contains'
|
||||||
|
'both a major code and a minor code. It is suggested you print all item codes from the options menu on the'
|
||||||
|
'main procedure page of the item banking program. You can however, browse the Matchin items from this '
|
||||||
|
'form.'
|
||||||
|
'After you have selected an item code number, enter the item stem in the space provided. Your item can also'
|
||||||
|
'include a jpeg picture prior to the presentation of the item on a test. To find the image, click the jpeg browse'
|
||||||
|
'button until you see the image you wish to include. When that item is shown, click the Select button to save'
|
||||||
|
'the name of the image file.'
|
||||||
|
''
|
||||||
|
)
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 364
|
||||||
|
Width = 396
|
||||||
|
Caption = 'The Item number in the Right-Hand list that matches the Left-Hand List is: '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object AnswerEdit: TEdit
|
||||||
|
Left = 407
|
||||||
|
Height = 23
|
||||||
|
Top = 357
|
||||||
|
Width = 36
|
||||||
|
TabOrder = 9
|
||||||
|
Text = 'AnswerEdit'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 41
|
||||||
|
Height = 16
|
||||||
|
Top = 105
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Left-Hand List'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 480
|
||||||
|
Height = 16
|
||||||
|
Top = 105
|
||||||
|
Width = 84
|
||||||
|
Caption = 'Right-Hand List'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 130
|
||||||
|
Width = 15
|
||||||
|
Caption = 'A. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 168
|
||||||
|
Width = 14
|
||||||
|
Caption = 'B. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 16
|
||||||
|
Top = 209
|
||||||
|
Width = 15
|
||||||
|
Caption = 'C. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 250
|
||||||
|
Width = 15
|
||||||
|
Caption = 'D. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 16
|
||||||
|
Top = 289
|
||||||
|
Width = 13
|
||||||
|
Caption = 'E. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 375
|
||||||
|
Height = 16
|
||||||
|
Top = 130
|
||||||
|
Width = 13
|
||||||
|
Caption = '1. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 376
|
||||||
|
Height = 16
|
||||||
|
Top = 168
|
||||||
|
Width = 13
|
||||||
|
Caption = '2. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 375
|
||||||
|
Height = 16
|
||||||
|
Top = 209
|
||||||
|
Width = 13
|
||||||
|
Caption = '3. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 376
|
||||||
|
Height = 16
|
||||||
|
Top = 250
|
||||||
|
Width = 13
|
||||||
|
Caption = '4. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 376
|
||||||
|
Height = 16
|
||||||
|
Top = 289
|
||||||
|
Width = 13
|
||||||
|
Caption = '5. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Left1Edit: TEdit
|
||||||
|
Left = 25
|
||||||
|
Height = 23
|
||||||
|
Top = 123
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'Left1Edit'
|
||||||
|
end
|
||||||
|
object Left5Edit: TEdit
|
||||||
|
Left = 25
|
||||||
|
Height = 23
|
||||||
|
Top = 288
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 11
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Left4Edit: TEdit
|
||||||
|
Left = 25
|
||||||
|
Height = 23
|
||||||
|
Top = 240
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 12
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Left3Edit: TEdit
|
||||||
|
Left = 25
|
||||||
|
Height = 23
|
||||||
|
Top = 200
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 13
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Right1Edit: TEdit
|
||||||
|
Left = 400
|
||||||
|
Height = 23
|
||||||
|
Top = 123
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 14
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Right5Edit: TEdit
|
||||||
|
Left = 400
|
||||||
|
Height = 23
|
||||||
|
Top = 282
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 15
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Right4Edit: TEdit
|
||||||
|
Left = 400
|
||||||
|
Height = 23
|
||||||
|
Top = 240
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 16
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Right3Edit: TEdit
|
||||||
|
Left = 400
|
||||||
|
Height = 23
|
||||||
|
Top = 200
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 17
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Right2Edit: TEdit
|
||||||
|
Left = 400
|
||||||
|
Height = 23
|
||||||
|
Top = 161
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 18
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Left2Edit: TEdit
|
||||||
|
Left = 25
|
||||||
|
Height = 23
|
||||||
|
Top = 161
|
||||||
|
Width = 322
|
||||||
|
TabOrder = 19
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object TFItemNoLabel: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 331
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Item Number:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ItemNoEdit: TEdit
|
||||||
|
Left = 112
|
||||||
|
Height = 23
|
||||||
|
Top = 324
|
||||||
|
Width = 44
|
||||||
|
TabOrder = 20
|
||||||
|
Text = '1'
|
||||||
|
end
|
||||||
|
object ItemCodeLabel: TLabel
|
||||||
|
Left = 178
|
||||||
|
Height = 16
|
||||||
|
Top = 331
|
||||||
|
Width = 93
|
||||||
|
Caption = 'Item Major Code:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object MajorCodeEdit: TEdit
|
||||||
|
Left = 282
|
||||||
|
Height = 23
|
||||||
|
Top = 324
|
||||||
|
Width = 41
|
||||||
|
TabOrder = 21
|
||||||
|
Text = '1'
|
||||||
|
end
|
||||||
|
object MinorCodeLabel: TLabel
|
||||||
|
Left = 338
|
||||||
|
Height = 16
|
||||||
|
Top = 329
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Item Minor Code:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object MinorCodeEdit: TEdit
|
||||||
|
Left = 442
|
||||||
|
Height = 23
|
||||||
|
Top = 324
|
||||||
|
Width = 45
|
||||||
|
TabOrder = 22
|
||||||
|
Text = '0'
|
||||||
|
end
|
||||||
|
object CodeBrowseBtn: TButton
|
||||||
|
Left = 508
|
||||||
|
Height = 28
|
||||||
|
Top = 320
|
||||||
|
Width = 106
|
||||||
|
Caption = 'Browse Items'
|
||||||
|
OnClick = CodeBrowseBtnClick
|
||||||
|
TabOrder = 23
|
||||||
|
end
|
||||||
|
object OpenPictureDialog1: TOpenPictureDialog
|
||||||
|
left = 686
|
||||||
|
top = 464
|
||||||
|
end
|
||||||
|
end
|
||||||
94
applications/lazstats/source_orig/matchitemunit.lrs
Normal file
94
applications/lazstats/source_orig/matchitemunit.lrs
Normal file
@@ -0,0 +1,94 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMatchItemForm','FORMDATA',[
|
||||||
|
'TPF0'#14'TMatchItemForm'#13'MatchItemForm'#4'Left'#3#195#0#6'Height'#3'T'#2#3
|
||||||
|
+'Top'#2'v'#5'Width'#3#5#3#7'Caption'#6'!Matching Item Create or Edit Form'#12
|
||||||
|
+'ClientHeight'#3'T'#2#11'ClientWidth'#3#5#3#6'OnShow'#7#8'FormShow'#10'LCLVe'
|
||||||
|
+'rsion'#6#8'0.9.30.4'#0#6'TLabel'#9'jpeglabel'#4'Left'#2#19#6'Height'#2#16#3
|
||||||
|
+'Top'#3#143#1#5'Width'#3#225#0#7'Caption'#6'-jpeg photo to display prior to '
|
||||||
|
+'item (if any):'#11'ParentColor'#8#0#0#5'TEdit'#12'jpegnameEdit'#4'Left'#3
|
||||||
|
+#249#0#6'Height'#2#23#3'Top'#3#136#1#5'Width'#3't'#1#8'TabOrder'#2#0#4'Text'
|
||||||
|
+#6#12'jpegnameEdit'#0#0#7'TButton'#13'jpegBrowseBtn'#4'Left'#2#16#6'Height'#2
|
||||||
|
+#30#3'Top'#3#181#1#5'Width'#2'v'#7'Caption'#6#18'Browse jpeg Images'#7'OnCli'
|
||||||
|
+'ck'#7#18'jpegBrowseBtnClick'#8'TabOrder'#2#1#0#0#7'TButton'#14'SelectImageB'
|
||||||
|
+'tn'#4'Left'#2#19#6'Height'#2#26#3'Top'#3#252#1#5'Width'#2'p'#7'Caption'#6#18
|
||||||
|
+'Select Shown Image'#7'OnClick'#7#19'SelectImageBtnClick'#8'TabOrder'#2#2#0#0
|
||||||
|
+#7'TButton'#11'ItemSaveBtn'#4'Left'#3'x'#1#6'Height'#2'!'#3'Top'#3#180#1#5'W'
|
||||||
|
+'idth'#2'o'#7'Caption'#6#14'Save this item'#7'OnClick'#7#16'ItemSaveBtnClick'
|
||||||
|
+#8'TabOrder'#2#3#0#0#7'TButton'#11'PreviousBtn'#4'Left'#3#251#1#6'Height'#2
|
||||||
|
+' '#3'Top'#3#181#1#5'Width'#2'n'#7'Caption'#6#18'Show Previous Item'#7'OnCli'
|
||||||
|
+'ck'#7#16'PreviousBtnClick'#8'TabOrder'#2#4#0#0#7'TButton'#11'ShowNextBtn'#4
|
||||||
|
+'Left'#3'z'#1#6'Height'#2#30#3'Top'#3#236#1#5'Width'#2'm'#7'Caption'#6#14'Sh'
|
||||||
|
+'ow Next Item'#7'OnClick'#7#16'ShowNextBtnClick'#8'TabOrder'#2#5#0#0#7'TButt'
|
||||||
|
+'on'#11'StartNewBtn'#4'Left'#3#251#1#6'Height'#2#30#3'Top'#3#236#1#5'Width'#2
|
||||||
|
+'o'#7'Caption'#6#16'Start a new item'#7'OnClick'#7#16'StartNewBtnClick'#8'Ta'
|
||||||
|
+'bOrder'#2#6#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#185#1#6'Height'#2#30#3'To'
|
||||||
|
+'p'#3','#2#5'Width'#2'o'#7'Caption'#6#6'Return'#7'OnClick'#7#14'ReturnBtnCli'
|
||||||
|
+'ck'#8'TabOrder'#2#7#0#0#6'TImage'#6'Image1'#4'Left'#3#151#0#6'Height'#3#154
|
||||||
|
+#0#3'Top'#3#176#1#5'Width'#3#214#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2'`'#6'Heig'
|
||||||
|
+'ht'#2']'#3'Top'#2#3#5'Width'#3'h'#2#13'Lines.Strings'#1#6'hDirections: To '
|
||||||
|
+'create a Matching item, you will need to enter the number of an item code w'
|
||||||
|
+'hich contains'#6'jboth a major code and a minor code. It is suggested you '
|
||||||
|
+'print all item codes from the options menu on the'#6'gmain procedure page o'
|
||||||
|
+'f the item banking program. You can however, browse the Matchin items fro'
|
||||||
|
+'m this '#6#5'form.'#6'kAfter you have selected an item code number, enter t'
|
||||||
|
+'he item stem in the space provided. Your item can also'#6'qinclude a jpeg '
|
||||||
|
+'picture prior to the presentation of the item on a test. To find the image'
|
||||||
|
+', click the jpeg browse'#6'mbutton until you see the image you wish to incl'
|
||||||
|
+'ude. When that item is shown, click the Select button to save'#6#27'the na'
|
||||||
|
+'me of the image file.'#6#0#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#8
|
||||||
|
+#0#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#16#3'Top'#3'l'#1#5'Width'#3
|
||||||
|
+#140#1#7'Caption'#6'KThe Item number in the Right-Hand list that matches the'
|
||||||
|
+' Left-Hand List is: '#11'ParentColor'#8#0#0#5'TEdit'#10'AnswerEdit'#4'Left'
|
||||||
|
+#3#151#1#6'Height'#2#23#3'Top'#3'e'#1#5'Width'#2'$'#8'TabOrder'#2#9#4'Text'#6
|
||||||
|
+#10'AnswerEdit'#0#0#6'TLabel'#6'Label2'#4'Left'#2')'#6'Height'#2#16#3'Top'#2
|
||||||
|
+'i'#5'Width'#2'L'#7'Caption'#6#14'Left-Hand List'#11'ParentColor'#8#0#0#6'TL'
|
||||||
|
+'abel'#6'Label3'#4'Left'#3#224#1#6'Height'#2#16#3'Top'#2'i'#5'Width'#2'T'#7
|
||||||
|
+'Caption'#6#15'Right-Hand List'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4
|
||||||
|
+'Left'#2#9#6'Height'#2#16#3'Top'#3#130#0#5'Width'#2#15#7'Caption'#6#3'A. '#11
|
||||||
|
+'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#7#6'Height'#2#16#3'Top'#3
|
||||||
|
+#168#0#5'Width'#2#14#7'Caption'#6#3'B. '#11'ParentColor'#8#0#0#6'TLabel'#6'L'
|
||||||
|
+'abel6'#4'Left'#2#8#6'Height'#2#16#3'Top'#3#209#0#5'Width'#2#15#7'Caption'#6
|
||||||
|
+#3'C. '#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#2#7#6'Height'#2#16
|
||||||
|
+#3'Top'#3#250#0#5'Width'#2#15#7'Caption'#6#3'D. '#11'ParentColor'#8#0#0#6'TL'
|
||||||
|
+'abel'#6'Label8'#4'Left'#2#8#6'Height'#2#16#3'Top'#3'!'#1#5'Width'#2#13#7'Ca'
|
||||||
|
+'ption'#6#3'E. '#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3'w'#1#6
|
||||||
|
+'Height'#2#16#3'Top'#3#130#0#5'Width'#2#13#7'Caption'#6#3'1. '#11'ParentColo'
|
||||||
|
+'r'#8#0#0#6'TLabel'#7'Label10'#4'Left'#3'x'#1#6'Height'#2#16#3'Top'#3#168#0#5
|
||||||
|
+'Width'#2#13#7'Caption'#6#3'2. '#11'ParentColor'#8#0#0#6'TLabel'#7'Label11'#4
|
||||||
|
+'Left'#3'w'#1#6'Height'#2#16#3'Top'#3#209#0#5'Width'#2#13#7'Caption'#6#3'3. '
|
||||||
|
+#11'ParentColor'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3'x'#1#6'Height'#2#16#3
|
||||||
|
+'Top'#3#250#0#5'Width'#2#13#7'Caption'#6#3'4. '#11'ParentColor'#8#0#0#6'TLab'
|
||||||
|
+'el'#7'Label13'#4'Left'#3'x'#1#6'Height'#2#16#3'Top'#3'!'#1#5'Width'#2#13#7
|
||||||
|
+'Caption'#6#3'5. '#11'ParentColor'#8#0#0#5'TEdit'#9'Left1Edit'#4'Left'#2#25#6
|
||||||
|
+'Height'#2#23#3'Top'#2'{'#5'Width'#3'B'#1#8'TabOrder'#2#10#4'Text'#6#9'Left1'
|
||||||
|
+'Edit'#0#0#5'TEdit'#9'Left5Edit'#4'Left'#2#25#6'Height'#2#23#3'Top'#3' '#1#5
|
||||||
|
+'Width'#3'B'#1#8'TabOrder'#2#11#4'Text'#6#5'Edit1'#0#0#5'TEdit'#9'Left4Edit'
|
||||||
|
+#4'Left'#2#25#6'Height'#2#23#3'Top'#3#240#0#5'Width'#3'B'#1#8'TabOrder'#2#12
|
||||||
|
,#4'Text'#6#5'Edit1'#0#0#5'TEdit'#9'Left3Edit'#4'Left'#2#25#6'Height'#2#23#3
|
||||||
|
+'Top'#3#200#0#5'Width'#3'B'#1#8'TabOrder'#2#13#4'Text'#6#5'Edit1'#0#0#5'TEdi'
|
||||||
|
+'t'#10'Right1Edit'#4'Left'#3#144#1#6'Height'#2#23#3'Top'#2'{'#5'Width'#3'B'#1
|
||||||
|
+#8'TabOrder'#2#14#4'Text'#6#5'Edit1'#0#0#5'TEdit'#10'Right5Edit'#4'Left'#3
|
||||||
|
+#144#1#6'Height'#2#23#3'Top'#3#26#1#5'Width'#3'B'#1#8'TabOrder'#2#15#4'Text'
|
||||||
|
+#6#5'Edit1'#0#0#5'TEdit'#10'Right4Edit'#4'Left'#3#144#1#6'Height'#2#23#3'Top'
|
||||||
|
+#3#240#0#5'Width'#3'B'#1#8'TabOrder'#2#16#4'Text'#6#5'Edit1'#0#0#5'TEdit'#10
|
||||||
|
+'Right3Edit'#4'Left'#3#144#1#6'Height'#2#23#3'Top'#3#200#0#5'Width'#3'B'#1#8
|
||||||
|
+'TabOrder'#2#17#4'Text'#6#5'Edit1'#0#0#5'TEdit'#10'Right2Edit'#4'Left'#3#144
|
||||||
|
+#1#6'Height'#2#23#3'Top'#3#161#0#5'Width'#3'B'#1#8'TabOrder'#2#18#4'Text'#6#5
|
||||||
|
+'Edit1'#0#0#5'TEdit'#9'Left2Edit'#4'Left'#2#25#6'Height'#2#23#3'Top'#3#161#0
|
||||||
|
+#5'Width'#3'B'#1#8'TabOrder'#2#19#4'Text'#6#5'Edit1'#0#0#6'TLabel'#13'TFItem'
|
||||||
|
+'NoLabel'#4'Left'#2#9#6'Height'#2#16#3'Top'#3'K'#1#5'Width'#2'K'#7'Caption'#6
|
||||||
|
+#12'Item Number:'#11'ParentColor'#8#0#0#5'TEdit'#10'ItemNoEdit'#4'Left'#2'p'
|
||||||
|
+#6'Height'#2#23#3'Top'#3'D'#1#5'Width'#2','#8'TabOrder'#2#20#4'Text'#6#1'1'#0
|
||||||
|
+#0#6'TLabel'#13'ItemCodeLabel'#4'Left'#3#178#0#6'Height'#2#16#3'Top'#3'K'#1#5
|
||||||
|
+'Width'#2']'#7'Caption'#6#16'Item Major Code:'#11'ParentColor'#8#0#0#5'TEdit'
|
||||||
|
+#13'MajorCodeEdit'#4'Left'#3#26#1#6'Height'#2#23#3'Top'#3'D'#1#5'Width'#2')'
|
||||||
|
+#8'TabOrder'#2#21#4'Text'#6#1'1'#0#0#6'TLabel'#14'MinorCodeLabel'#4'Left'#3
|
||||||
|
+'R'#1#6'Height'#2#16#3'Top'#3'I'#1#5'Width'#2'^'#7'Caption'#6#16'Item Minor '
|
||||||
|
+'Code:'#11'ParentColor'#8#0#0#5'TEdit'#13'MinorCodeEdit'#4'Left'#3#186#1#6'H'
|
||||||
|
+'eight'#2#23#3'Top'#3'D'#1#5'Width'#2'-'#8'TabOrder'#2#22#4'Text'#6#1'0'#0#0
|
||||||
|
+#7'TButton'#13'CodeBrowseBtn'#4'Left'#3#252#1#6'Height'#2#28#3'Top'#3'@'#1#5
|
||||||
|
+'Width'#2'j'#7'Caption'#6#12'Browse Items'#7'OnClick'#7#18'CodeBrowseBtnClic'
|
||||||
|
+'k'#8'TabOrder'#2#23#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#4'lef'
|
||||||
|
+'t'#3#174#2#3'top'#3#208#1#0#0#0
|
||||||
|
]);
|
||||||
430
applications/lazstats/source_orig/matchitemunit.pas
Normal file
430
applications/lazstats/source_orig/matchitemunit.pas
Normal file
@@ -0,0 +1,430 @@
|
|||||||
|
unit MatchItemUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, ExtCtrls, ExtDlgs, outputunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMatchItemForm }
|
||||||
|
|
||||||
|
TMatchItemForm = class(TForm)
|
||||||
|
AnswerEdit: TEdit;
|
||||||
|
CodeBrowseBtn: TButton;
|
||||||
|
ItemCodeLabel: TLabel;
|
||||||
|
Left1Edit: TEdit;
|
||||||
|
Left2Edit: TEdit;
|
||||||
|
Left5Edit: TEdit;
|
||||||
|
Left4Edit: TEdit;
|
||||||
|
Left3Edit: TEdit;
|
||||||
|
MajorCodeEdit: TEdit;
|
||||||
|
MinorCodeEdit: TEdit;
|
||||||
|
MinorCodeLabel: TLabel;
|
||||||
|
Right1Edit: TEdit;
|
||||||
|
Right5Edit: TEdit;
|
||||||
|
Right4Edit: TEdit;
|
||||||
|
Right3Edit: TEdit;
|
||||||
|
Right2Edit: TEdit;
|
||||||
|
Image1: TImage;
|
||||||
|
ItemSaveBtn: TButton;
|
||||||
|
jpegBrowseBtn: TButton;
|
||||||
|
jpeglabel: TLabel;
|
||||||
|
jpegnameEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label13: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
Memo1: TMemo;
|
||||||
|
OpenPictureDialog1: TOpenPictureDialog;
|
||||||
|
PreviousBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
SelectImageBtn: TButton;
|
||||||
|
ShowNextBtn: TButton;
|
||||||
|
StartNewBtn: TButton;
|
||||||
|
ItemNoEdit: TEdit;
|
||||||
|
TFItemNoLabel: TLabel;
|
||||||
|
procedure CodeBrowseBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ItemSaveBtnClick(Sender: TObject);
|
||||||
|
procedure jpegBrowseBtnClick(Sender: TObject);
|
||||||
|
procedure PreviousBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
procedure SelectImageBtnClick(Sender: TObject);
|
||||||
|
procedure ShowNextBtnClick(Sender: TObject);
|
||||||
|
procedure StartNewBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MatchItemForm: TMatchItemForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses ItemBankingUnit;
|
||||||
|
|
||||||
|
{ TMatchItemForm }
|
||||||
|
|
||||||
|
procedure TMatchItemForm.jpegBrowseBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
begin
|
||||||
|
OpenPictureDialog1.Options := OpenPictureDialog1.Options+[ofFileMustExist];
|
||||||
|
if not OpenPictureDialog1.Execute then exit;
|
||||||
|
try
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(OpenPictureDialog1.FileName);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
on E: Exception do begin
|
||||||
|
MessageDlg('Error','Error: '+E.Message,mtError,[mbOk],0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.PreviousBtnClick(Sender: TObject);
|
||||||
|
Var
|
||||||
|
response : string;
|
||||||
|
itemno : integer;
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
noleft, noright : integer;
|
||||||
|
begin
|
||||||
|
response := InputBox('Code Number:','Number:','1');
|
||||||
|
itemno := StrToInt(response);
|
||||||
|
if itemno <= ItemBankFrm.BankInfo.NMatchItems then
|
||||||
|
begin
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MatchInfo[itemno].ItemNumber);
|
||||||
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MatchInfo[itemno].majorcode);
|
||||||
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MatchInfo[itemno].minorcode);
|
||||||
|
noleft := ItemBankFrm.MatchInfo[itemno].NLeft;
|
||||||
|
noright := ItemBankFrm.MatchInfo[itemno].NRight;
|
||||||
|
if noleft > 0 then Left1Edit.Text := ItemBankFrm.MatchInfo[itemno].Left1;
|
||||||
|
if noleft > 1 then Left2Edit.Text := ItemBankFrm.MatchInfo[itemno].Left2;
|
||||||
|
if noleft > 2 then Left3Edit.Text := ItemBankFrm.MatchInfo[itemno].Left3;
|
||||||
|
if noleft > 3 then Left4Edit.Text := ItemBankFrm.MatchInfo[itemno].Left4;
|
||||||
|
if noleft > 4 then Left5Edit.Text := ItemBankFrm.MatchInfo[itemno].Left5;
|
||||||
|
if noright > 0 then Right1Edit.Text := ItemBankFrm.MatchInfo[itemno].Right1;
|
||||||
|
if noright > 1 then Right2Edit.Text := ItemBankFrm.MatchInfo[itemno].Right2;
|
||||||
|
if noright > 2 then Right3Edit.Text := ItemBankFrm.MatchInfo[itemno].Right3;
|
||||||
|
if noright > 3 then Right4Edit.Text := ItemBankFrm.MatchInfo[itemno].Right4;
|
||||||
|
if noright > 4 then Right5Edit.Text := ItemBankFrm.MatchInfo[itemno].Right5;
|
||||||
|
AnswerEdit.Text := ItemBankFrm.MatchInfo[itemno].CorrectChoice;
|
||||||
|
jpegnameEdit.Text := ItemBankFrm.MatchInfo[itemno].PicName;
|
||||||
|
if jpegnameEdit.Text <> 'none' then
|
||||||
|
begin
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MatchItemForm.Hide;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.ItemSaveBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
currentno : integer;
|
||||||
|
count : integer;
|
||||||
|
noleft, noright : integer;
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
count := ItemBankFrm.BankInfo.NMatchItems;
|
||||||
|
currentno := StrToInt(ItemNoEdit.Text);
|
||||||
|
noleft := 0;
|
||||||
|
if Left1Edit.Text <> '' then noleft := noleft + 1;
|
||||||
|
if Left2Edit.Text <> '' then noleft := noleft + 1;
|
||||||
|
if Left3Edit.Text <> '' then noleft := noleft + 1;
|
||||||
|
if Left4Edit.Text <> '' then noleft := noleft + 1;
|
||||||
|
if Left5Edit.Text <> '' then noleft := noleft + 1;
|
||||||
|
noright := 0;
|
||||||
|
if Right1Edit.Text <> '' then noright := noright + 1;
|
||||||
|
if Right2Edit.Text <> '' then noright := noright + 1;
|
||||||
|
if Right3Edit.Text <> '' then noright := noright + 1;
|
||||||
|
if Right4Edit.Text <> '' then noright := noright + 1;
|
||||||
|
if Right5Edit.Text <> '' then noright := noright + 1;
|
||||||
|
if currentno > count then
|
||||||
|
begin
|
||||||
|
ItemBankFrm.BankInfo.NMatchItems := currentno;
|
||||||
|
ItemBankFrm.NEssayText.Text := IntToStr(currentno);
|
||||||
|
end;
|
||||||
|
ItemBankFrm.MatchInfo[currentno].ItemNumber := currentno;
|
||||||
|
ItemBankFrm.MatchInfo[currentno].majorcode := StrToInt(MajorCodeEdit.Text);
|
||||||
|
ItemBankFrm.MatchInfo[currentno].minorcode := StrToInt(MinorCodeEdit.Text);
|
||||||
|
ItemBankFrm.MatchInfo[currentno].NLeft := noleft;
|
||||||
|
ItemBankFrm.MatchInfo[currentno].NRight := noright;
|
||||||
|
if noleft > 0 then ItemBankFrm.MatchInfo[currentno].Left1 := Left1Edit.Text;
|
||||||
|
if noleft > 1 then ItemBankFrm.MatchInfo[currentno].Left2 := Left2Edit.Text;
|
||||||
|
if noleft > 2 then ItemBankFrm.MatchInfo[currentno].Left3 := Left3Edit.Text;
|
||||||
|
if noleft > 3 then ItemBankFrm.MatchInfo[currentno].Left4 := Left4Edit.Text;
|
||||||
|
if noleft > 4 then ItemBankFrm.MatchInfo[currentno].Left5 := Left5Edit.Text;
|
||||||
|
if noright > 0 then ItemBankFrm.MatchInfo[currentno].Right1 := Right1Edit.Text;
|
||||||
|
if noright > 1 then ItemBankFrm.MatchInfo[currentno].Right2 := Right2Edit.Text;
|
||||||
|
if noright > 2 then ItemBankFrm.MatchInfo[currentno].Right3 := Right3Edit.Text;
|
||||||
|
if noright > 3 then ItemBankFrm.MatchInfo[currentno].Right4 := Right4Edit.Text;
|
||||||
|
if noright > 4 then ItemBankFrm.MatchInfo[currentno].Right5 := Right5Edit.Text;
|
||||||
|
ItemBankFrm.MatchInfo[currentno].CorrectChoice := AnswerEdit.Text[1];
|
||||||
|
ItemBankFrm.MatchInfo[currentno].PicName := jpegnameEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.FormShow(Sender: TObject);
|
||||||
|
Var
|
||||||
|
nitems : integer;
|
||||||
|
noleft, noright : integer;
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
begin
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
Left1Edit.Text := '';
|
||||||
|
Left2Edit.Text := '';
|
||||||
|
Left3Edit.Text := '';
|
||||||
|
Left4Edit.Text := '';
|
||||||
|
Left5Edit.Text := '';
|
||||||
|
Right1Edit.Text := '';
|
||||||
|
Right2Edit.Text := '';
|
||||||
|
Right3Edit.Text := '';
|
||||||
|
Right3Edit.Text := '';
|
||||||
|
Right5Edit.Text := '';
|
||||||
|
AnswerEdit.Text := '';
|
||||||
|
|
||||||
|
if ItemBankFrm.BankInfo.NMatchItems > 0 then
|
||||||
|
begin
|
||||||
|
nitems := ItemBankFrm.BankInfo.NMatchItems;
|
||||||
|
ItemNoEdit.Text := '1'; //IntToStr(ItemBankFrm.TFItemInfo[1].ItemNumber);
|
||||||
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MatchInfo[1].majorcode) ;
|
||||||
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MatchInfo[1].minorcode);
|
||||||
|
noleft := ItemBankFrm.MatchInfo[1].NLeft;
|
||||||
|
if noleft > 0 then Left1Edit.Text := ItemBankFrm.MatchInfo[1].Left1 ;
|
||||||
|
if noleft > 1 then Left2Edit.Text := ItemBankFrm.MatchInfo[1].Left2 ;
|
||||||
|
if noleft > 2 then Left3Edit.Text := ItemBankFrm.MatchInfo[1].Left3 ;
|
||||||
|
if noleft > 3 then Left4Edit.Text := ItemBankFrm.MatchInfo[1].Left4 ;
|
||||||
|
if noleft > 4 then Left5Edit.Text := ItemBankFrm.MatchInfo[1].Left5 ;
|
||||||
|
noright := ItemBankFrm.MatchInfo[1].NRight;
|
||||||
|
if noright > 0 then Right1Edit.Text := ItemBankFrm.MatchInfo[1].Right1 ;
|
||||||
|
if noright > 1 then Right2Edit.Text := ItemBankFrm.MatchInfo[1].Right2 ;
|
||||||
|
if noright > 2 then Right3Edit.Text := ItemBankFrm.MatchInfo[1].Right3 ;
|
||||||
|
if noright > 3 then Right4Edit.Text := ItemBankFrm.MatchInfo[1].Right4 ;
|
||||||
|
if noright > 4 then Right5Edit.Text := ItemBankFrm.MatchInfo[1].Right5 ;
|
||||||
|
AnswerEdit.Text := ItemBankFrm.MatchInfo[1].CorrectChoice;
|
||||||
|
jpegnameEdit.Text := ItemBankFrm.MatchInfo[1].PicName;
|
||||||
|
if jpegnameEdit.Text <> 'none' then
|
||||||
|
begin
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
ItemNoEdit.Text := '1';
|
||||||
|
MajorCodeEdit.Text := '1';
|
||||||
|
MinorCodeEdit.Text := '0';
|
||||||
|
Left1Edit.Text := '';
|
||||||
|
Left2Edit.Text := '';
|
||||||
|
Left3Edit.Text := '';
|
||||||
|
Left4Edit.Text := '';
|
||||||
|
Left5Edit.Text := '';
|
||||||
|
Right1Edit.Text := '';
|
||||||
|
Right2Edit.Text := '';
|
||||||
|
Right3Edit.Text := '';
|
||||||
|
Right3Edit.Text := '';
|
||||||
|
Right5Edit.Text := '';
|
||||||
|
AnswerEdit.Text := '';
|
||||||
|
jpegnameEdit.Text := 'none';
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.CodeBrowseBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
count : integer;
|
||||||
|
i : integer;
|
||||||
|
outline : string;
|
||||||
|
noleft, noright : integer;
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
count := ItemBankFrm.BankInfo.NMatchItems ;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Current Items');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
for i := 1 to count do
|
||||||
|
begin
|
||||||
|
noleft := ItemBankFrm.MatchInfo[i].NLeft;
|
||||||
|
noright := ItemBankFrm.MatchInfo[i].NRight;
|
||||||
|
outline := format('Item number %3d',[ItemBankFrm.MatchInfo[i].itemnumber]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Major Code %3d',[ItemBankFrm.MatchInfo[i].majorcode]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Minor Code %3d',[ItemBankFrm.MatchInfo[i].minorcode]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('No. Left items = %3d, No. Right items = %3d',
|
||||||
|
[ItemBankFrm.MatchInfo[i].NLeft,ItemBankFrm.MatchInfo[i].NRight]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
if noleft > 0 then
|
||||||
|
begin
|
||||||
|
outline := format('Left Item 1 %s',[ItemBankFrm.MatchInfo[i].Left1]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noright > 0 then
|
||||||
|
begin
|
||||||
|
outline := format(' Right Item 1 %s',[ItemBankFrm.MatchInfo[i].Right1]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noleft > 1 then
|
||||||
|
begin
|
||||||
|
outline := format('Left Item 2 %s',[ItemBankFrm.MatchInfo[i].Left2]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noright > 1 then
|
||||||
|
begin
|
||||||
|
outline := format(' Right Item 2 %s',[ItemBankFrm.MatchInfo[i].Right2]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noleft > 2 then
|
||||||
|
begin
|
||||||
|
outline := format('Left Item 3 %s',[ItemBankFrm.MatchInfo[i].Left3]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noright > 2 then
|
||||||
|
begin
|
||||||
|
outline := format(' Right Item 3 %s',[ItemBankFrm.MatchInfo[i].Right3]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noleft > 3 then
|
||||||
|
begin
|
||||||
|
outline := format('Left Item 4 %s',[ItemBankFrm.MatchInfo[i].Left4]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noright > 3 then
|
||||||
|
begin
|
||||||
|
outline := format(' Right Item 4 %s',[ItemBankFrm.MatchInfo[i].Right4]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noleft > 4 then
|
||||||
|
begin
|
||||||
|
outline := format('Left Item 5 %s',[ItemBankFrm.MatchInfo[i].Left5]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if noright > 4 then
|
||||||
|
begin
|
||||||
|
outline := format(' Right Item 5 %s',[ItemBankFrm.MatchInfo[i].Right5]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
outline := format('Correct Choice %s',[ItemBankFrm.MatchInfo[i].CorrectChoice]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Graphic Image %s',[ItemBankFrm.MatchInfo[i].PicName]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
end;
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.SelectImageBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
jpegnameEdit.Text := OpenPictureDialog1.FileName;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.ShowNextBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
count : integer;
|
||||||
|
itemno : integer;
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
noleft, noright : integer;
|
||||||
|
begin
|
||||||
|
itemno := StrToInt(ItemNoEdit.Text) + 1;
|
||||||
|
count := ItemBankFrm.BankInfo.NMatchItems;
|
||||||
|
if count <= itemno then
|
||||||
|
begin
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MatchInfo[itemno].ItemNumber);
|
||||||
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MatchInfo[itemno].majorcode) ;
|
||||||
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MatchInfo[itemno].minorcode);
|
||||||
|
noleft := ItemBankFrm.MatchInfo[itemno].NLeft;
|
||||||
|
noright := ItemBankFrm.MatchInfo[itemno].NRight;
|
||||||
|
if noleft > 0 then Left1Edit.Text := ItemBankFrm.MatchInfo[itemno].Left1 ;
|
||||||
|
if noleft > 1 then Left2Edit.Text := ItemBankFrm.MatchInfo[itemno].Left2;
|
||||||
|
if noleft > 2 then Left3Edit.Text := ItemBankFrm.MatchInfo[itemno].Left3;
|
||||||
|
if noleft > 3 then Left4Edit.Text := ItemBankFrm.MatchInfo[itemno].Left4;
|
||||||
|
if noleft > 4 then Left5Edit.Text := ItemBankFrm.MatchInfo[itemno].Left5;
|
||||||
|
if noright > 0 then Right1Edit.Text := ItemBankFrm.MatchInfo[itemno].Right1;
|
||||||
|
if noright > 1 then Right2Edit.Text := ItemBankFrm.MatchInfo[itemno].Right2;
|
||||||
|
if noright > 2 then Right3Edit.Text := ItemBankFrm.MatchInfo[itemno].Right3;
|
||||||
|
if noright > 3 then Right4Edit.Text := ItemBankFrm.MatchInfo[itemno].Right4;
|
||||||
|
if noright > 4 then Right5Edit.Text := ItemBankFrm.MatchInfo[itemno].Right5;
|
||||||
|
AnswerEdit.Text := ItemBankFrm.MatchInfo[itemno].CorrectChoice;
|
||||||
|
jpegnameEdit.Text := ItemBankFrm.MatchInfo[itemno].PicName;
|
||||||
|
if jpegnameEdit.Text <> 'none' then
|
||||||
|
begin
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMatchItemForm.StartNewBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
currentno : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
currentno := ItemBankFrm.BankInfo.NMatchItems + 1;
|
||||||
|
ItemNoEdit.Text := IntToStr(currentno);
|
||||||
|
currentno := StrToInt(MinorCodeEdit.Text);
|
||||||
|
MinorCodeEdit.Text := IntToStr(currentno + 1);
|
||||||
|
Left1Edit.Text := '';
|
||||||
|
Left2Edit.Text := '';
|
||||||
|
Left3Edit.Text := '';
|
||||||
|
Left4Edit.Text := '';
|
||||||
|
Left5Edit.Text := '';
|
||||||
|
Right1Edit.Text := '';
|
||||||
|
Right2Edit.Text := '';
|
||||||
|
Right3Edit.Text := '';
|
||||||
|
Right4Edit.Text := '';
|
||||||
|
Right5Edit.Text := '';
|
||||||
|
AnswerEdit.Text := '';
|
||||||
|
jpegnameEdit.Text := 'none';
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I matchitemunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
539
applications/lazstats/source_orig/matmanunit.lfm
Normal file
539
applications/lazstats/source_orig/matmanunit.lfm
Normal file
@@ -0,0 +1,539 @@
|
|||||||
|
object matmanfrm: Tmatmanfrm
|
||||||
|
Left = 16
|
||||||
|
Height = 575
|
||||||
|
Top = 93
|
||||||
|
Width = 943
|
||||||
|
Caption = 'Matrix Manipulation'
|
||||||
|
ClientHeight = 556
|
||||||
|
ClientWidth = 943
|
||||||
|
Menu = MainMenu1
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 808
|
||||||
|
Height = 14
|
||||||
|
Top = 131
|
||||||
|
Width = 37
|
||||||
|
Caption = 'SCRIPT'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 5
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 100
|
||||||
|
Caption = 'Current Active Grid: '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 14
|
||||||
|
Height = 14
|
||||||
|
Top = 33
|
||||||
|
Width = 7
|
||||||
|
Caption = '1'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 368
|
||||||
|
Height = 14
|
||||||
|
Top = 33
|
||||||
|
Width = 7
|
||||||
|
Caption = '3'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 14
|
||||||
|
Top = 273
|
||||||
|
Width = 7
|
||||||
|
Caption = '2'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 369
|
||||||
|
Height = 14
|
||||||
|
Top = 279
|
||||||
|
Width = 7
|
||||||
|
Caption = '4'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object MatricesBox: TComboBox
|
||||||
|
Left = 737
|
||||||
|
Height = 21
|
||||||
|
Top = 1
|
||||||
|
Width = 188
|
||||||
|
ItemHeight = 13
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'MATRICES'
|
||||||
|
)
|
||||||
|
OnClick = MatricesBoxClick
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'MATRICES'
|
||||||
|
end
|
||||||
|
object ColVecsBox: TComboBox
|
||||||
|
Left = 737
|
||||||
|
Height = 21
|
||||||
|
Top = 32
|
||||||
|
Width = 188
|
||||||
|
ItemHeight = 13
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'COLUMN VECTORS'
|
||||||
|
)
|
||||||
|
OnClick = ColVecsBoxClick
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'COLUMN VECTORS'
|
||||||
|
end
|
||||||
|
object RowVecsBox: TComboBox
|
||||||
|
Left = 736
|
||||||
|
Height = 21
|
||||||
|
Top = 66
|
||||||
|
Width = 189
|
||||||
|
ItemHeight = 13
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'ROW VECTORS'
|
||||||
|
)
|
||||||
|
OnClick = RowVecsBoxClick
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'ROW VECTORS'
|
||||||
|
end
|
||||||
|
object ScalarsBox: TComboBox
|
||||||
|
Left = 737
|
||||||
|
Height = 21
|
||||||
|
Top = 96
|
||||||
|
Width = 187
|
||||||
|
ItemHeight = 13
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'SCALARS'
|
||||||
|
)
|
||||||
|
OnClick = ScalarsBoxClick
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'SCALARS'
|
||||||
|
end
|
||||||
|
object ScriptList: TListBox
|
||||||
|
Left = 736
|
||||||
|
Height = 348
|
||||||
|
Top = 153
|
||||||
|
Width = 188
|
||||||
|
ItemHeight = 0
|
||||||
|
OnClick = ScriptListClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object GridNoEdit: TEdit
|
||||||
|
Left = 121
|
||||||
|
Height = 21
|
||||||
|
Top = 1
|
||||||
|
Width = 37
|
||||||
|
TabOrder = 5
|
||||||
|
Text = 'GridNoEdit'
|
||||||
|
end
|
||||||
|
object MatOneEdit: TEdit
|
||||||
|
Left = 48
|
||||||
|
Height = 21
|
||||||
|
Top = 34
|
||||||
|
Width = 304
|
||||||
|
TabOrder = 6
|
||||||
|
Text = 'MatOneEdit'
|
||||||
|
end
|
||||||
|
object Grid1: TStringGrid
|
||||||
|
Left = 9
|
||||||
|
Height = 203
|
||||||
|
Top = 64
|
||||||
|
Width = 343
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = Grid1Click
|
||||||
|
OnKeyPress = Grid1KeyPress
|
||||||
|
OnMouseDown = Grid1MouseDown
|
||||||
|
end
|
||||||
|
object MatTwoEdit: TEdit
|
||||||
|
Left = 48
|
||||||
|
Height = 21
|
||||||
|
Top = 276
|
||||||
|
Width = 307
|
||||||
|
TabOrder = 8
|
||||||
|
Text = 'MatTwoEdit'
|
||||||
|
end
|
||||||
|
object Grid2: TStringGrid
|
||||||
|
Left = 10
|
||||||
|
Height = 199
|
||||||
|
Top = 303
|
||||||
|
Width = 342
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
||||||
|
TabOrder = 9
|
||||||
|
OnClick = Grid2Click
|
||||||
|
OnKeyPress = Grid2KeyPress
|
||||||
|
OnMouseDown = Grid2MouseDown
|
||||||
|
end
|
||||||
|
object MatThreeEdit: TEdit
|
||||||
|
Left = 402
|
||||||
|
Height = 21
|
||||||
|
Top = 32
|
||||||
|
Width = 319
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'MatThreeEdit'
|
||||||
|
end
|
||||||
|
object Grid3: TStringGrid
|
||||||
|
Left = 368
|
||||||
|
Height = 200
|
||||||
|
Top = 64
|
||||||
|
Width = 352
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = Grid3Click
|
||||||
|
OnKeyPress = Grid3KeyPress
|
||||||
|
OnMouseDown = Grid3MouseDown
|
||||||
|
end
|
||||||
|
object MatFourEdit: TEdit
|
||||||
|
Left = 402
|
||||||
|
Height = 21
|
||||||
|
Top = 276
|
||||||
|
Width = 320
|
||||||
|
TabOrder = 12
|
||||||
|
Text = 'MatFourEdit'
|
||||||
|
end
|
||||||
|
object Grid4: TStringGrid
|
||||||
|
Left = 370
|
||||||
|
Height = 196
|
||||||
|
Top = 306
|
||||||
|
Width = 350
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
|
||||||
|
TabOrder = 13
|
||||||
|
OnClick = Grid4Click
|
||||||
|
OnKeyPress = Grid4KeyPress
|
||||||
|
OnMouseDown = Grid4MouseDown
|
||||||
|
end
|
||||||
|
object Op1Edit: TEdit
|
||||||
|
Left = 25
|
||||||
|
Height = 21
|
||||||
|
Top = 520
|
||||||
|
Width = 186
|
||||||
|
TabOrder = 14
|
||||||
|
Text = 'Op1Edit'
|
||||||
|
end
|
||||||
|
object Op2Edit: TEdit
|
||||||
|
Left = 224
|
||||||
|
Height = 21
|
||||||
|
Top = 520
|
||||||
|
Width = 186
|
||||||
|
TabOrder = 15
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Op3Edit: TEdit
|
||||||
|
Left = 424
|
||||||
|
Height = 21
|
||||||
|
Top = 520
|
||||||
|
Width = 186
|
||||||
|
TabOrder = 16
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Op4Edit: TEdit
|
||||||
|
Left = 624
|
||||||
|
Height = 21
|
||||||
|
Top = 520
|
||||||
|
Width = 186
|
||||||
|
TabOrder = 17
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object MainMenu1: TMainMenu
|
||||||
|
left = 696
|
||||||
|
object FilesMenu: TMenuItem
|
||||||
|
Caption = 'Files'
|
||||||
|
object keyBdmnu: TMenuItem
|
||||||
|
Caption = 'Keyboard Input'
|
||||||
|
object MatInmnu: TMenuItem
|
||||||
|
Caption = 'Matrix'
|
||||||
|
OnClick = MatInmnuClick
|
||||||
|
end
|
||||||
|
object VecInmnu: TMenuItem
|
||||||
|
Caption = 'Vector'
|
||||||
|
OnClick = VecInmnuClick
|
||||||
|
end
|
||||||
|
object ScalarInmnu: TMenuItem
|
||||||
|
Caption = 'Scalar'
|
||||||
|
OnClick = ScalarInmnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MainGridMnu: TMenuItem
|
||||||
|
Caption = 'Read Data from Main Form Grid'
|
||||||
|
OnClick = MainGridMnuClick
|
||||||
|
end
|
||||||
|
object MenuItem1: TMenuItem
|
||||||
|
Caption = '-----------------'
|
||||||
|
end
|
||||||
|
object OpenFileMnu: TMenuItem
|
||||||
|
Caption = 'Open File'
|
||||||
|
OnClick = OpenFileMnuClick
|
||||||
|
end
|
||||||
|
object SaveFileMnu: TMenuItem
|
||||||
|
Caption = 'Save File'
|
||||||
|
OnClick = SaveFileMnuClick
|
||||||
|
end
|
||||||
|
object PrintFileMnu: TMenuItem
|
||||||
|
Caption = 'Print File'
|
||||||
|
OnClick = PrintFileMnuClick
|
||||||
|
end
|
||||||
|
object MenuItem2: TMenuItem
|
||||||
|
Caption = '-------------------'
|
||||||
|
end
|
||||||
|
object ImportFileMnu: TMenuItem
|
||||||
|
Caption = 'Import a file'
|
||||||
|
object TabFileInmnu: TMenuItem
|
||||||
|
Caption = 'Tab File'
|
||||||
|
end
|
||||||
|
object SpaceFileInMnu: TMenuItem
|
||||||
|
Caption = 'Space File'
|
||||||
|
end
|
||||||
|
object CommaFileInMnu: TMenuItem
|
||||||
|
Caption = 'Comma File'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ExportFileMnu: TMenuItem
|
||||||
|
Caption = 'Export a file'
|
||||||
|
object TabFileOutMnu: TMenuItem
|
||||||
|
Caption = 'Tab File'
|
||||||
|
end
|
||||||
|
object SpaceFileOutMnu: TMenuItem
|
||||||
|
Caption = 'Space File'
|
||||||
|
end
|
||||||
|
object CommaFileOutMnu: TMenuItem
|
||||||
|
Caption = 'Comma File'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ScriptFileInMnu: TMenuItem
|
||||||
|
Caption = 'Open a Script File'
|
||||||
|
OnClick = ScriptFileInMnuClick
|
||||||
|
end
|
||||||
|
object ScriptSaveMnu: TMenuItem
|
||||||
|
Caption = 'Save a Script File'
|
||||||
|
OnClick = ScriptSaveMnuClick
|
||||||
|
end
|
||||||
|
object ResetMnu: TMenuItem
|
||||||
|
Caption = 'Reset All'
|
||||||
|
OnClick = ResetMnuClick
|
||||||
|
end
|
||||||
|
object ExitMnu: TMenuItem
|
||||||
|
Caption = 'EXIT'
|
||||||
|
OnClick = ExitMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MatOpsMnu: TMenuItem
|
||||||
|
Caption = 'Matrix Operations'
|
||||||
|
object IdentMnu: TMenuItem
|
||||||
|
Caption = 'Create an Indentity Matrix'
|
||||||
|
OnClick = IdentMnuClick
|
||||||
|
end
|
||||||
|
object RowAugMnu: TMenuItem
|
||||||
|
Caption = 'Row Augment'
|
||||||
|
OnClick = RowAugMnuClick
|
||||||
|
end
|
||||||
|
object ColAugMnu: TMenuItem
|
||||||
|
Caption = 'Column Augment'
|
||||||
|
OnClick = ColAugMnuClick
|
||||||
|
end
|
||||||
|
object RowDelMnu: TMenuItem
|
||||||
|
Caption = 'Delete a Row'
|
||||||
|
OnClick = RowDelMnuClick
|
||||||
|
end
|
||||||
|
object RowInstMnu: TMenuItem
|
||||||
|
Caption = 'Insert a Row'
|
||||||
|
OnClick = RowInstMnuClick
|
||||||
|
end
|
||||||
|
object ColDelMnu: TMenuItem
|
||||||
|
Caption = 'Delete a Column'
|
||||||
|
OnClick = ColDelMnuClick
|
||||||
|
end
|
||||||
|
object ColInstMnu: TMenuItem
|
||||||
|
Caption = 'Insert a Column'
|
||||||
|
OnClick = ColInstMnuClick
|
||||||
|
end
|
||||||
|
object ExtractColVecMnu: TMenuItem
|
||||||
|
Caption = 'Extract a Column Vector'
|
||||||
|
OnClick = ExtractColVecMnuClick
|
||||||
|
end
|
||||||
|
object SVDInvMnu: TMenuItem
|
||||||
|
Caption = 'SVD Inverse'
|
||||||
|
OnClick = SVDInvMnuClick
|
||||||
|
end
|
||||||
|
object TriDiagMnu: TMenuItem
|
||||||
|
Caption = 'Tridiagonalize'
|
||||||
|
OnClick = TriDiagMnuClick
|
||||||
|
end
|
||||||
|
object ULDecompMnu: TMenuItem
|
||||||
|
Caption = 'Upper-lower Decomposition'
|
||||||
|
OnClick = ULDecompMnuClick
|
||||||
|
end
|
||||||
|
object Diagtovecmnu: TMenuItem
|
||||||
|
Caption = 'Diagonal to Vector'
|
||||||
|
OnClick = DiagtovecmnuClick
|
||||||
|
end
|
||||||
|
object Vec2DiagMnu: TMenuItem
|
||||||
|
Caption = 'Vector to Diagonal'
|
||||||
|
OnClick = Vec2DiagMnuClick
|
||||||
|
end
|
||||||
|
object DetermMnu: TMenuItem
|
||||||
|
Caption = 'Determinant'
|
||||||
|
OnClick = DetermMnuClick
|
||||||
|
end
|
||||||
|
object NormRowsMnu: TMenuItem
|
||||||
|
Caption = 'Normalize Rows'
|
||||||
|
OnClick = NormRowsMnuClick
|
||||||
|
end
|
||||||
|
object NormColsMnu: TMenuItem
|
||||||
|
Caption = 'Normalize Columns'
|
||||||
|
OnClick = NormColsMnuClick
|
||||||
|
end
|
||||||
|
object PreMultMnu: TMenuItem
|
||||||
|
Caption = 'Premultiply by'
|
||||||
|
object PrebyRowVmnu: TMenuItem
|
||||||
|
Caption = 'Row Vector'
|
||||||
|
OnClick = PrebyRowVmnuClick
|
||||||
|
end
|
||||||
|
object PreMatMnu: TMenuItem
|
||||||
|
Caption = 'Matrix'
|
||||||
|
OnClick = PreMatMnuClick
|
||||||
|
end
|
||||||
|
object PreScalarMnu: TMenuItem
|
||||||
|
Caption = 'Scalar'
|
||||||
|
OnClick = PreScalarMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object PostMultMnu: TMenuItem
|
||||||
|
Caption = 'Post Multiply by'
|
||||||
|
object PostColVMnu: TMenuItem
|
||||||
|
Caption = 'Column Vector'
|
||||||
|
OnClick = PostColVMnuClick
|
||||||
|
end
|
||||||
|
object PostMatMnu: TMenuItem
|
||||||
|
Caption = 'Matrix'
|
||||||
|
OnClick = PostMatMnuClick
|
||||||
|
end
|
||||||
|
object PostScalarMnu: TMenuItem
|
||||||
|
Caption = 'Scalar'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object EigenMnu: TMenuItem
|
||||||
|
Caption = 'Eigenvalues and Vectors'
|
||||||
|
OnClick = EigenMnuClick
|
||||||
|
end
|
||||||
|
object TransMnu: TMenuItem
|
||||||
|
Caption = 'Transpose'
|
||||||
|
OnClick = TransMnuClick
|
||||||
|
end
|
||||||
|
object TraceMnu: TMenuItem
|
||||||
|
Caption = 'Trace'
|
||||||
|
OnClick = TraceMnuClick
|
||||||
|
end
|
||||||
|
object MatSumMnu: TMenuItem
|
||||||
|
Caption = 'Matrix A + Matrix B'
|
||||||
|
OnClick = MatSumMnuClick
|
||||||
|
end
|
||||||
|
object MatSubMnu: TMenuItem
|
||||||
|
Caption = 'Matrix A - Matrix B'
|
||||||
|
OnClick = MatSubMnuClick
|
||||||
|
end
|
||||||
|
object MatPrintMnu: TMenuItem
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = MatPrintMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object VecOpsMnu: TMenuItem
|
||||||
|
Caption = 'Vector Operations'
|
||||||
|
object VecTransMnu: TMenuItem
|
||||||
|
Caption = 'Transpose'
|
||||||
|
OnClick = VecTransMnuClick
|
||||||
|
end
|
||||||
|
object VecXscalarMnu: TMenuItem
|
||||||
|
Caption = 'Times a Scalar'
|
||||||
|
OnClick = VecXscalarMnuClick
|
||||||
|
end
|
||||||
|
object VecSqrtMnu: TMenuItem
|
||||||
|
Caption = 'Square Root of Elements'
|
||||||
|
OnClick = VecSqrtMnuClick
|
||||||
|
end
|
||||||
|
object VecRecipMnu: TMenuItem
|
||||||
|
Caption = 'Reciprocal of Elements'
|
||||||
|
OnClick = VecRecipMnuClick
|
||||||
|
end
|
||||||
|
object VecPrintMnu: TMenuItem
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = VecPrintMnuClick
|
||||||
|
end
|
||||||
|
object RowxColVecMnu: TMenuItem
|
||||||
|
Caption = 'Row Vec. x Col. Vec.'
|
||||||
|
OnClick = RowxColVecMnuClick
|
||||||
|
end
|
||||||
|
object ColxRowVecMnu: TMenuItem
|
||||||
|
Caption = 'Col. Vec. x Row Vec.'
|
||||||
|
OnClick = ColxRowVecMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ScalarOpsMnu: TMenuItem
|
||||||
|
Caption = 'Scalar Operations'
|
||||||
|
object ScalSqrtMnu: TMenuItem
|
||||||
|
Caption = 'Square Root'
|
||||||
|
OnClick = ScalSqrtMnuClick
|
||||||
|
end
|
||||||
|
object ScalRecipMnu: TMenuItem
|
||||||
|
Caption = 'Reciprocal'
|
||||||
|
OnClick = ScalRecipMnuClick
|
||||||
|
end
|
||||||
|
object ScalxScalMnu: TMenuItem
|
||||||
|
Caption = 'Scalar x Scalar'
|
||||||
|
OnClick = ScalxScalMnuClick
|
||||||
|
end
|
||||||
|
object PrintScalMnu: TMenuItem
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = PrintScalMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ScriptOptMnu: TMenuItem
|
||||||
|
Caption = 'Script Operations'
|
||||||
|
object ScriptPrintMnu: TMenuItem
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = ScriptPrintMnuClick
|
||||||
|
end
|
||||||
|
object ScriptClearMnu: TMenuItem
|
||||||
|
Caption = 'Clear'
|
||||||
|
OnClick = ScriptClearMnuClick
|
||||||
|
end
|
||||||
|
object ScriptEditMnu: TMenuItem
|
||||||
|
Caption = 'Edit'
|
||||||
|
OnClick = ScriptEditMnuClick
|
||||||
|
end
|
||||||
|
object ScriptLoadMnu: TMenuItem
|
||||||
|
Caption = 'Load'
|
||||||
|
OnClick = ScriptLoadMnuClick
|
||||||
|
end
|
||||||
|
object ScrSavMnu: TMenuItem
|
||||||
|
Caption = 'Save'
|
||||||
|
OnClick = ScrSavMnuClick
|
||||||
|
end
|
||||||
|
object ScrExeMnu: TMenuItem
|
||||||
|
Caption = 'Execute'
|
||||||
|
OnClick = ScrExeMnuClick
|
||||||
|
end
|
||||||
|
object ScriptOpsMnu: TMenuItem
|
||||||
|
Caption = 'Options'
|
||||||
|
OnClick = ScriptOpsMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object HelpMnu: TMenuItem
|
||||||
|
Caption = 'Help'
|
||||||
|
object AboutMnu: TMenuItem
|
||||||
|
Caption = 'About'
|
||||||
|
OnClick = AboutMnuClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object SaveDialog1: TSaveDialog
|
||||||
|
left = 506
|
||||||
|
top = 1
|
||||||
|
end
|
||||||
|
object OpenDialog1: TOpenDialog
|
||||||
|
left = 553
|
||||||
|
end
|
||||||
|
end
|
||||||
154
applications/lazstats/source_orig/matmanunit.lrs
Normal file
154
applications/lazstats/source_orig/matmanunit.lrs
Normal file
@@ -0,0 +1,154 @@
|
|||||||
|
LazarusResources.Add('Tmatmanfrm','FORMDATA',[
|
||||||
|
'TPF0'#10'Tmatmanfrm'#9'matmanfrm'#4'Left'#2#16#6'Height'#3'?'#2#3'Top'#2']'#5
|
||||||
|
+'Width'#3#175#3#7'Caption'#6#19'Matrix Manipulation'#12'ClientHeight'#3','#2
|
||||||
|
+#11'ClientWidth'#3#175#3#4'Menu'#7#9'MainMenu1'#6'OnShow'#7#8'FormShow'#10'L'
|
||||||
|
+'CLVersion'#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#3'('#3#6'Height'#2#14
|
||||||
|
+#3'Top'#3#131#0#5'Width'#2'%'#7'Caption'#6#6'SCRIPT'#11'ParentColor'#8#0#0#6
|
||||||
|
+'TLabel'#6'Label2'#4'Left'#2#5#6'Height'#2#14#3'Top'#2#8#5'Width'#2'd'#7'Cap'
|
||||||
|
+'tion'#6#21'Current Active Grid: '#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'
|
||||||
|
+#4'Left'#2#14#6'Height'#2#14#3'Top'#2'!'#5'Width'#2#7#7'Caption'#6#1'1'#11'P'
|
||||||
|
+'arentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3'p'#1#6'Height'#2#14#3'Top'#2
|
||||||
|
+'!'#5'Width'#2#7#7'Caption'#6#1'3'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'
|
||||||
|
+#4'Left'#2#16#6'Height'#2#14#3'Top'#3#17#1#5'Width'#2#7#7'Caption'#6#1'2'#11
|
||||||
|
+'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3'q'#1#6'Height'#2#14#3'Top'
|
||||||
|
+#3#23#1#5'Width'#2#7#7'Caption'#6#1'4'#11'ParentColor'#8#0#0#9'TComboBox'#11
|
||||||
|
+'MatricesBox'#4'Left'#3#225#2#6'Height'#2#21#3'Top'#2#1#5'Width'#3#188#0#10
|
||||||
|
+'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#8'MATRICES'#0#7'OnC'
|
||||||
|
+'lick'#7#16'MatricesBoxClick'#8'TabOrder'#2#0#4'Text'#6#8'MATRICES'#0#0#9'TC'
|
||||||
|
+'omboBox'#10'ColVecsBox'#4'Left'#3#225#2#6'Height'#2#21#3'Top'#2' '#5'Width'
|
||||||
|
+#3#188#0#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Items.Strings'#1#6#14'COLUM'
|
||||||
|
+'N VECTORS'#0#7'OnClick'#7#15'ColVecsBoxClick'#8'TabOrder'#2#1#4'Text'#6#14
|
||||||
|
+'COLUMN VECTORS'#0#0#9'TComboBox'#10'RowVecsBox'#4'Left'#3#224#2#6'Height'#2
|
||||||
|
+#21#3'Top'#2'B'#5'Width'#3#189#0#10'ItemHeight'#2#13#9'ItemIndex'#2#0#13'Ite'
|
||||||
|
+'ms.Strings'#1#6#11'ROW VECTORS'#0#7'OnClick'#7#15'RowVecsBoxClick'#8'TabOrd'
|
||||||
|
+'er'#2#2#4'Text'#6#11'ROW VECTORS'#0#0#9'TComboBox'#10'ScalarsBox'#4'Left'#3
|
||||||
|
+#225#2#6'Height'#2#21#3'Top'#2'`'#5'Width'#3#187#0#10'ItemHeight'#2#13#9'Ite'
|
||||||
|
+'mIndex'#2#0#13'Items.Strings'#1#6#7'SCALARS'#0#7'OnClick'#7#15'ScalarsBoxCl'
|
||||||
|
+'ick'#8'TabOrder'#2#3#4'Text'#6#7'SCALARS'#0#0#8'TListBox'#10'ScriptList'#4
|
||||||
|
+'Left'#3#224#2#6'Height'#3'\'#1#3'Top'#3#153#0#5'Width'#3#188#0#10'ItemHeigh'
|
||||||
|
+'t'#2#0#7'OnClick'#7#15'ScriptListClick'#8'TabOrder'#2#4#0#0#5'TEdit'#10'Gri'
|
||||||
|
+'dNoEdit'#4'Left'#2'y'#6'Height'#2#21#3'Top'#2#1#5'Width'#2'%'#8'TabOrder'#2
|
||||||
|
+#5#4'Text'#6#10'GridNoEdit'#0#0#5'TEdit'#10'MatOneEdit'#4'Left'#2'0'#6'Heigh'
|
||||||
|
+'t'#2#21#3'Top'#2'"'#5'Width'#3'0'#1#8'TabOrder'#2#6#4'Text'#6#10'MatOneEdit'
|
||||||
|
+#0#0#11'TStringGrid'#5'Grid1'#4'Left'#2#9#6'Height'#3#203#0#3'Top'#2'@'#5'Wi'
|
||||||
|
+'dth'#3'W'#1#7'Options'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVert'
|
||||||
|
+'Line'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'#14'goSmoothScroll'#0#8
|
||||||
|
+'TabOrder'#2#7#7'OnClick'#7#10'Grid1Click'#10'OnKeyPress'#7#13'Grid1KeyPress'
|
||||||
|
+#11'OnMouseDown'#7#14'Grid1MouseDown'#0#0#5'TEdit'#10'MatTwoEdit'#4'Left'#2
|
||||||
|
+'0'#6'Height'#2#21#3'Top'#3#20#1#5'Width'#3'3'#1#8'TabOrder'#2#8#4'Text'#6#10
|
||||||
|
+'MatTwoEdit'#0#0#11'TStringGrid'#5'Grid2'#4'Left'#2#10#6'Height'#3#199#0#3'T'
|
||||||
|
+'op'#3'/'#1#5'Width'#3'V'#1#7'Options'#11#15'goFixedVertLine'#15'goFixedHorz'
|
||||||
|
+'Line'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'#14'goSmo'
|
||||||
|
+'othScroll'#0#8'TabOrder'#2#9#7'OnClick'#7#10'Grid2Click'#10'OnKeyPress'#7#13
|
||||||
|
+'Grid2KeyPress'#11'OnMouseDown'#7#14'Grid2MouseDown'#0#0#5'TEdit'#12'MatThre'
|
||||||
|
+'eEdit'#4'Left'#3#146#1#6'Height'#2#21#3'Top'#2' '#5'Width'#3'?'#1#8'TabOrde'
|
||||||
|
+'r'#2#10#4'Text'#6#12'MatThreeEdit'#0#0#11'TStringGrid'#5'Grid3'#4'Left'#3'p'
|
||||||
|
+#1#6'Height'#3#200#0#3'Top'#2'@'#5'Width'#3'`'#1#7'Options'#11#15'goFixedVer'
|
||||||
|
+'tLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9
|
||||||
|
+'goEditing'#14'goSmoothScroll'#0#8'TabOrder'#2#11#7'OnClick'#7#10'Grid3Click'
|
||||||
|
+#10'OnKeyPress'#7#13'Grid3KeyPress'#11'OnMouseDown'#7#14'Grid3MouseDown'#0#0
|
||||||
|
+#5'TEdit'#11'MatFourEdit'#4'Left'#3#146#1#6'Height'#2#21#3'Top'#3#20#1#5'Wid'
|
||||||
|
+'th'#3'@'#1#8'TabOrder'#2#12#4'Text'#6#11'MatFourEdit'#0#0#11'TStringGrid'#5
|
||||||
|
+'Grid4'#4'Left'#3'r'#1#6'Height'#3#196#0#3'Top'#3'2'#1#5'Width'#3'^'#1#7'Opt'
|
||||||
|
+'ions'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLi'
|
||||||
|
+'ne'#13'goRangeSelect'#9'goEditing'#14'goSmoothScroll'#0#8'TabOrder'#2#13#7
|
||||||
|
+'OnClick'#7#10'Grid4Click'#10'OnKeyPress'#7#13'Grid4KeyPress'#11'OnMouseDown'
|
||||||
|
+#7#14'Grid4MouseDown'#0#0#5'TEdit'#7'Op1Edit'#4'Left'#2#25#6'Height'#2#21#3
|
||||||
|
+'Top'#3#8#2#5'Width'#3#186#0#8'TabOrder'#2#14#4'Text'#6#7'Op1Edit'#0#0#5'TEd'
|
||||||
|
+'it'#7'Op2Edit'#4'Left'#3#224#0#6'Height'#2#21#3'Top'#3#8#2#5'Width'#3#186#0
|
||||||
|
+#8'TabOrder'#2#15#4'Text'#6#5'Edit1'#0#0#5'TEdit'#7'Op3Edit'#4'Left'#3#168#1
|
||||||
|
+#6'Height'#2#21#3'Top'#3#8#2#5'Width'#3#186#0#8'TabOrder'#2#16#4'Text'#6#5'E'
|
||||||
|
+'dit1'#0#0#5'TEdit'#7'Op4Edit'#4'Left'#3'p'#2#6'Height'#2#21#3'Top'#3#8#2#5
|
||||||
|
+'Width'#3#186#0#8'TabOrder'#2#17#4'Text'#6#5'Edit1'#0#0#9'TMainMenu'#9'MainM'
|
||||||
|
+'enu1'#4'left'#3#184#2#0#9'TMenuItem'#9'FilesMenu'#7'Caption'#6#5'Files'#0#9
|
||||||
|
+'TMenuItem'#8'keyBdmnu'#7'Caption'#6#14'Keyboard Input'#0#9'TMenuItem'#8'Mat'
|
||||||
|
+'Inmnu'#7'Caption'#6#6'Matrix'#7'OnClick'#7#13'MatInmnuClick'#0#0#9'TMenuIte'
|
||||||
|
,'m'#8'VecInmnu'#7'Caption'#6#6'Vector'#7'OnClick'#7#13'VecInmnuClick'#0#0#9
|
||||||
|
+'TMenuItem'#11'ScalarInmnu'#7'Caption'#6#6'Scalar'#7'OnClick'#7#16'ScalarInm'
|
||||||
|
+'nuClick'#0#0#0#9'TMenuItem'#11'MainGridMnu'#7'Caption'#6#29'Read Data from '
|
||||||
|
+'Main Form Grid'#7'OnClick'#7#16'MainGridMnuClick'#0#0#9'TMenuItem'#9'MenuIt'
|
||||||
|
+'em1'#7'Caption'#6#17'-----------------'#0#0#9'TMenuItem'#11'OpenFileMnu'#7
|
||||||
|
+'Caption'#6#9'Open File'#7'OnClick'#7#16'OpenFileMnuClick'#0#0#9'TMenuItem'
|
||||||
|
+#11'SaveFileMnu'#7'Caption'#6#9'Save File'#7'OnClick'#7#16'SaveFileMnuClick'
|
||||||
|
+#0#0#9'TMenuItem'#12'PrintFileMnu'#7'Caption'#6#10'Print File'#7'OnClick'#7
|
||||||
|
+#17'PrintFileMnuClick'#0#0#9'TMenuItem'#9'MenuItem2'#7'Caption'#6#19'-------'
|
||||||
|
+'------------'#0#0#9'TMenuItem'#13'ImportFileMnu'#7'Caption'#6#13'Import a f'
|
||||||
|
+'ile'#0#9'TMenuItem'#12'TabFileInmnu'#7'Caption'#6#8'Tab File'#0#0#9'TMenuIt'
|
||||||
|
+'em'#14'SpaceFileInMnu'#7'Caption'#6#10'Space File'#0#0#9'TMenuItem'#14'Comm'
|
||||||
|
+'aFileInMnu'#7'Caption'#6#10'Comma File'#0#0#0#9'TMenuItem'#13'ExportFileMnu'
|
||||||
|
+#7'Caption'#6#13'Export a file'#0#9'TMenuItem'#13'TabFileOutMnu'#7'Caption'#6
|
||||||
|
+#8'Tab File'#0#0#9'TMenuItem'#15'SpaceFileOutMnu'#7'Caption'#6#10'Space File'
|
||||||
|
+#0#0#9'TMenuItem'#15'CommaFileOutMnu'#7'Caption'#6#10'Comma File'#0#0#0#9'TM'
|
||||||
|
+'enuItem'#15'ScriptFileInMnu'#7'Caption'#6#18'Open a Script File'#7'OnClick'
|
||||||
|
+#7#20'ScriptFileInMnuClick'#0#0#9'TMenuItem'#13'ScriptSaveMnu'#7'Caption'#6
|
||||||
|
+#18'Save a Script File'#7'OnClick'#7#18'ScriptSaveMnuClick'#0#0#9'TMenuItem'
|
||||||
|
+#8'ResetMnu'#7'Caption'#6#9'Reset All'#7'OnClick'#7#13'ResetMnuClick'#0#0#9
|
||||||
|
+'TMenuItem'#7'ExitMnu'#7'Caption'#6#4'EXIT'#7'OnClick'#7#12'ExitMnuClick'#0#0
|
||||||
|
+#0#9'TMenuItem'#9'MatOpsMnu'#7'Caption'#6#17'Matrix Operations'#0#9'TMenuIte'
|
||||||
|
+'m'#8'IdentMnu'#7'Caption'#6#26'Create an Indentity Matrix'#7'OnClick'#7#13
|
||||||
|
+'IdentMnuClick'#0#0#9'TMenuItem'#9'RowAugMnu'#7'Caption'#6#11'Row Augment'#7
|
||||||
|
+'OnClick'#7#14'RowAugMnuClick'#0#0#9'TMenuItem'#9'ColAugMnu'#7'Caption'#6#14
|
||||||
|
+'Column Augment'#7'OnClick'#7#14'ColAugMnuClick'#0#0#9'TMenuItem'#9'RowDelMn'
|
||||||
|
+'u'#7'Caption'#6#12'Delete a Row'#7'OnClick'#7#14'RowDelMnuClick'#0#0#9'TMen'
|
||||||
|
+'uItem'#10'RowInstMnu'#7'Caption'#6#12'Insert a Row'#7'OnClick'#7#15'RowInst'
|
||||||
|
+'MnuClick'#0#0#9'TMenuItem'#9'ColDelMnu'#7'Caption'#6#15'Delete a Column'#7
|
||||||
|
+'OnClick'#7#14'ColDelMnuClick'#0#0#9'TMenuItem'#10'ColInstMnu'#7'Caption'#6
|
||||||
|
+#15'Insert a Column'#7'OnClick'#7#15'ColInstMnuClick'#0#0#9'TMenuItem'#16'Ex'
|
||||||
|
+'tractColVecMnu'#7'Caption'#6#23'Extract a Column Vector'#7'OnClick'#7#21'Ex'
|
||||||
|
+'tractColVecMnuClick'#0#0#9'TMenuItem'#9'SVDInvMnu'#7'Caption'#6#11'SVD Inve'
|
||||||
|
+'rse'#7'OnClick'#7#14'SVDInvMnuClick'#0#0#9'TMenuItem'#10'TriDiagMnu'#7'Capt'
|
||||||
|
+'ion'#6#14'Tridiagonalize'#7'OnClick'#7#15'TriDiagMnuClick'#0#0#9'TMenuItem'
|
||||||
|
+#11'ULDecompMnu'#7'Caption'#6#25'Upper-lower Decomposition'#7'OnClick'#7#16
|
||||||
|
+'ULDecompMnuClick'#0#0#9'TMenuItem'#12'Diagtovecmnu'#7'Caption'#6#18'Diagona'
|
||||||
|
+'l to Vector'#7'OnClick'#7#17'DiagtovecmnuClick'#0#0#9'TMenuItem'#11'Vec2Dia'
|
||||||
|
+'gMnu'#7'Caption'#6#18'Vector to Diagonal'#7'OnClick'#7#16'Vec2DiagMnuClick'
|
||||||
|
+#0#0#9'TMenuItem'#9'DetermMnu'#7'Caption'#6#11'Determinant'#7'OnClick'#7#14
|
||||||
|
+'DetermMnuClick'#0#0#9'TMenuItem'#11'NormRowsMnu'#7'Caption'#6#14'Normalize '
|
||||||
|
+'Rows'#7'OnClick'#7#16'NormRowsMnuClick'#0#0#9'TMenuItem'#11'NormColsMnu'#7
|
||||||
|
+'Caption'#6#17'Normalize Columns'#7'OnClick'#7#16'NormColsMnuClick'#0#0#9'TM'
|
||||||
|
+'enuItem'#10'PreMultMnu'#7'Caption'#6#14'Premultiply by'#0#9'TMenuItem'#12'P'
|
||||||
|
+'rebyRowVmnu'#7'Caption'#6#10'Row Vector'#7'OnClick'#7#17'PrebyRowVmnuClick'
|
||||||
|
+#0#0#9'TMenuItem'#9'PreMatMnu'#7'Caption'#6#6'Matrix'#7'OnClick'#7#14'PreMat'
|
||||||
|
+'MnuClick'#0#0#9'TMenuItem'#12'PreScalarMnu'#7'Caption'#6#6'Scalar'#7'OnClic'
|
||||||
|
+'k'#7#17'PreScalarMnuClick'#0#0#0#9'TMenuItem'#11'PostMultMnu'#7'Caption'#6
|
||||||
|
+#16'Post Multiply by'#0#9'TMenuItem'#11'PostColVMnu'#7'Caption'#6#13'Column '
|
||||||
|
+'Vector'#7'OnClick'#7#16'PostColVMnuClick'#0#0#9'TMenuItem'#10'PostMatMnu'#7
|
||||||
|
+'Caption'#6#6'Matrix'#7'OnClick'#7#15'PostMatMnuClick'#0#0#9'TMenuItem'#13'P'
|
||||||
|
+'ostScalarMnu'#7'Caption'#6#6'Scalar'#0#0#0#9'TMenuItem'#8'EigenMnu'#7'Capti'
|
||||||
|
+'on'#6#23'Eigenvalues and Vectors'#7'OnClick'#7#13'EigenMnuClick'#0#0#9'TMen'
|
||||||
|
+'uItem'#8'TransMnu'#7'Caption'#6#9'Transpose'#7'OnClick'#7#13'TransMnuClick'
|
||||||
|
+#0#0#9'TMenuItem'#8'TraceMnu'#7'Caption'#6#5'Trace'#7'OnClick'#7#13'TraceMnu'
|
||||||
|
+'Click'#0#0#9'TMenuItem'#9'MatSumMnu'#7'Caption'#6#19'Matrix A + Matrix B'#7
|
||||||
|
+'OnClick'#7#14'MatSumMnuClick'#0#0#9'TMenuItem'#9'MatSubMnu'#7'Caption'#6#19
|
||||||
|
+'Matrix A - Matrix B'#7'OnClick'#7#14'MatSubMnuClick'#0#0#9'TMenuItem'#11'Ma'
|
||||||
|
+'tPrintMnu'#7'Caption'#6#5'Print'#7'OnClick'#7#16'MatPrintMnuClick'#0#0#0#9
|
||||||
|
+'TMenuItem'#9'VecOpsMnu'#7'Caption'#6#17'Vector Operations'#0#9'TMenuItem'#11
|
||||||
|
+'VecTransMnu'#7'Caption'#6#9'Transpose'#7'OnClick'#7#16'VecTransMnuClick'#0#0
|
||||||
|
+#9'TMenuItem'#13'VecXscalarMnu'#7'Caption'#6#14'Times a Scalar'#7'OnClick'#7
|
||||||
|
+#18'VecXscalarMnuClick'#0#0#9'TMenuItem'#10'VecSqrtMnu'#7'Caption'#6#23'Squa'
|
||||||
|
+'re Root of Elements'#7'OnClick'#7#15'VecSqrtMnuClick'#0#0#9'TMenuItem'#11'V'
|
||||||
|
,'ecRecipMnu'#7'Caption'#6#22'Reciprocal of Elements'#7'OnClick'#7#16'VecReci'
|
||||||
|
+'pMnuClick'#0#0#9'TMenuItem'#11'VecPrintMnu'#7'Caption'#6#5'Print'#7'OnClick'
|
||||||
|
+#7#16'VecPrintMnuClick'#0#0#9'TMenuItem'#13'RowxColVecMnu'#7'Caption'#6#20'R'
|
||||||
|
+'ow Vec. x Col. Vec.'#7'OnClick'#7#18'RowxColVecMnuClick'#0#0#9'TMenuItem'#13
|
||||||
|
+'ColxRowVecMnu'#7'Caption'#6#20'Col. Vec. x Row Vec.'#7'OnClick'#7#18'ColxRo'
|
||||||
|
+'wVecMnuClick'#0#0#0#9'TMenuItem'#12'ScalarOpsMnu'#7'Caption'#6#17'Scalar Op'
|
||||||
|
+'erations'#0#9'TMenuItem'#11'ScalSqrtMnu'#7'Caption'#6#11'Square Root'#7'OnC'
|
||||||
|
+'lick'#7#16'ScalSqrtMnuClick'#0#0#9'TMenuItem'#12'ScalRecipMnu'#7'Caption'#6
|
||||||
|
+#10'Reciprocal'#7'OnClick'#7#17'ScalRecipMnuClick'#0#0#9'TMenuItem'#12'Scalx'
|
||||||
|
+'ScalMnu'#7'Caption'#6#15'Scalar x Scalar'#7'OnClick'#7#17'ScalxScalMnuClick'
|
||||||
|
+#0#0#9'TMenuItem'#12'PrintScalMnu'#7'Caption'#6#5'Print'#7'OnClick'#7#17'Pri'
|
||||||
|
+'ntScalMnuClick'#0#0#0#9'TMenuItem'#12'ScriptOptMnu'#7'Caption'#6#17'Script '
|
||||||
|
+'Operations'#0#9'TMenuItem'#14'ScriptPrintMnu'#7'Caption'#6#5'Print'#7'OnCli'
|
||||||
|
+'ck'#7#19'ScriptPrintMnuClick'#0#0#9'TMenuItem'#14'ScriptClearMnu'#7'Caption'
|
||||||
|
+#6#5'Clear'#7'OnClick'#7#19'ScriptClearMnuClick'#0#0#9'TMenuItem'#13'ScriptE'
|
||||||
|
+'ditMnu'#7'Caption'#6#4'Edit'#7'OnClick'#7#18'ScriptEditMnuClick'#0#0#9'TMen'
|
||||||
|
+'uItem'#13'ScriptLoadMnu'#7'Caption'#6#4'Load'#7'OnClick'#7#18'ScriptLoadMnu'
|
||||||
|
+'Click'#0#0#9'TMenuItem'#9'ScrSavMnu'#7'Caption'#6#4'Save'#7'OnClick'#7#14'S'
|
||||||
|
+'crSavMnuClick'#0#0#9'TMenuItem'#9'ScrExeMnu'#7'Caption'#6#7'Execute'#7'OnCl'
|
||||||
|
+'ick'#7#14'ScrExeMnuClick'#0#0#9'TMenuItem'#12'ScriptOpsMnu'#7'Caption'#6#7
|
||||||
|
+'Options'#7'OnClick'#7#17'ScriptOpsMnuClick'#0#0#0#9'TMenuItem'#7'HelpMnu'#7
|
||||||
|
+'Caption'#6#4'Help'#0#9'TMenuItem'#8'AboutMnu'#7'Caption'#6#5'About'#7'OnCli'
|
||||||
|
+'ck'#7#13'AboutMnuClick'#0#0#0#0#11'TSaveDialog'#11'SaveDialog1'#4'left'#3
|
||||||
|
+#250#1#3'top'#2#1#0#0#11'TOpenDialog'#11'OpenDialog1'#4'left'#3')'#2#0#0#0
|
||||||
|
]);
|
||||||
8103
applications/lazstats/source_orig/matmanunit.pas
Normal file
8103
applications/lazstats/source_orig/matmanunit.pas
Normal file
File diff suppressed because it is too large
Load Diff
2385
applications/lazstats/source_orig/matrixlib.pas
Normal file
2385
applications/lazstats/source_orig/matrixlib.pas
Normal file
File diff suppressed because it is too large
Load Diff
313
applications/lazstats/source_orig/mcitemunit.lfm
Normal file
313
applications/lazstats/source_orig/mcitemunit.lfm
Normal file
@@ -0,0 +1,313 @@
|
|||||||
|
object MCItemForm: TMCItemForm
|
||||||
|
Left = 188
|
||||||
|
Height = 604
|
||||||
|
Top = 127
|
||||||
|
Width = 626
|
||||||
|
Caption = 'Multiple Choice Item Create or Edit'
|
||||||
|
ClientHeight = 604
|
||||||
|
ClientWidth = 626
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object jpeglabel: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 424
|
||||||
|
Width = 225
|
||||||
|
Caption = 'jpeg photo to display prior to item (if any):'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object jpegnameEdit: TEdit
|
||||||
|
Left = 236
|
||||||
|
Height = 23
|
||||||
|
Top = 416
|
||||||
|
Width = 372
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'jpegnameEdit'
|
||||||
|
end
|
||||||
|
object jpegBrowseBtn: TButton
|
||||||
|
Left = 1
|
||||||
|
Height = 30
|
||||||
|
Top = 455
|
||||||
|
Width = 118
|
||||||
|
Caption = 'Browse jpeg Images'
|
||||||
|
OnClick = jpegBrowseBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object SelectImageBtn: TButton
|
||||||
|
Left = 7
|
||||||
|
Height = 26
|
||||||
|
Top = 560
|
||||||
|
Width = 112
|
||||||
|
Caption = 'Select Shown Image'
|
||||||
|
OnClick = SelectImageBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ItemSaveBtn: TButton
|
||||||
|
Left = 368
|
||||||
|
Height = 33
|
||||||
|
Top = 455
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Save this item'
|
||||||
|
OnClick = ItemSaveBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object PreviousBtn: TButton
|
||||||
|
Left = 496
|
||||||
|
Height = 32
|
||||||
|
Top = 456
|
||||||
|
Width = 110
|
||||||
|
Caption = 'Show Previous Item'
|
||||||
|
OnClick = PreviousBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ShowNextBtn: TButton
|
||||||
|
Left = 368
|
||||||
|
Height = 30
|
||||||
|
Top = 512
|
||||||
|
Width = 109
|
||||||
|
Caption = 'Show Next Item'
|
||||||
|
OnClick = ShowNextBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object StartNewBtn: TButton
|
||||||
|
Left = 498
|
||||||
|
Height = 30
|
||||||
|
Top = 512
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Start a new item'
|
||||||
|
OnClick = StartNewBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 432
|
||||||
|
Height = 30
|
||||||
|
Top = 560
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Return'
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object ItemStemLabel: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 144
|
||||||
|
Width = 58
|
||||||
|
Caption = 'Item Stem:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ItemStemEdit: TEdit
|
||||||
|
Left = 80
|
||||||
|
Height = 23
|
||||||
|
Top = 136
|
||||||
|
Width = 539
|
||||||
|
TabOrder = 8
|
||||||
|
Text = 'ItemStemEdit'
|
||||||
|
end
|
||||||
|
object AnswerLabel: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 392
|
||||||
|
Width = 117
|
||||||
|
Caption = 'Answer (A,B,C,D or F):'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object AnswerEdit: TEdit
|
||||||
|
Left = 128
|
||||||
|
Height = 23
|
||||||
|
Top = 384
|
||||||
|
Width = 29
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 267
|
||||||
|
Height = 16
|
||||||
|
Top = 200
|
||||||
|
Width = 46
|
||||||
|
Caption = 'Choices:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 231
|
||||||
|
Width = 15
|
||||||
|
Caption = 'A. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 16
|
||||||
|
Top = 263
|
||||||
|
Width = 14
|
||||||
|
Caption = 'B. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 295
|
||||||
|
Width = 15
|
||||||
|
Caption = 'C. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 327
|
||||||
|
Width = 15
|
||||||
|
Caption = 'D. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 359
|
||||||
|
Width = 13
|
||||||
|
Caption = 'E. '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ChoiceAEdit: TEdit
|
||||||
|
Left = 34
|
||||||
|
Height = 23
|
||||||
|
Top = 224
|
||||||
|
Width = 585
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'ChoiceAEdit'
|
||||||
|
end
|
||||||
|
object ChoiceDEdit: TEdit
|
||||||
|
Left = 34
|
||||||
|
Height = 23
|
||||||
|
Top = 320
|
||||||
|
Width = 585
|
||||||
|
TabOrder = 11
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object ChoiceEEdit: TEdit
|
||||||
|
Left = 34
|
||||||
|
Height = 23
|
||||||
|
Top = 352
|
||||||
|
Width = 585
|
||||||
|
TabOrder = 12
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object ChoiceCEdit: TEdit
|
||||||
|
Left = 34
|
||||||
|
Height = 23
|
||||||
|
Top = 288
|
||||||
|
Width = 585
|
||||||
|
TabOrder = 13
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object ChoiceBEdit: TEdit
|
||||||
|
Left = 34
|
||||||
|
Height = 23
|
||||||
|
Top = 256
|
||||||
|
Width = 585
|
||||||
|
TabOrder = 14
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 8
|
||||||
|
Height = 81
|
||||||
|
Top = 7
|
||||||
|
Width = 608
|
||||||
|
Lines.Strings = (
|
||||||
|
'Directions: To create a Multiple Choice item, you will need to enter the number of an item code which '
|
||||||
|
'contains'
|
||||||
|
'both a major code and a minor code. It is suggested you print all item codes from the options menu on the'
|
||||||
|
'main procedure page of the item banking program. You can however, browse the MC items from this '
|
||||||
|
'form.'
|
||||||
|
'After you have selected an item code number, enter the item stem in the space provided. Your item can also'
|
||||||
|
'include a jpeg picture prior to the presentation of the item on a test. To find the image, click the jpeg browse'
|
||||||
|
'button until you see the image you wish to include. When that item is shown, click the Select button to save'
|
||||||
|
'the name of the image file.'
|
||||||
|
'Memo1'
|
||||||
|
)
|
||||||
|
ScrollBars = ssVertical
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 136
|
||||||
|
Height = 130
|
||||||
|
Top = 455
|
||||||
|
Width = 217
|
||||||
|
end
|
||||||
|
object TFItemNoLabel: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 112
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Item Number:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ItemNoEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 23
|
||||||
|
Top = 105
|
||||||
|
Width = 44
|
||||||
|
TabOrder = 16
|
||||||
|
Text = '1'
|
||||||
|
end
|
||||||
|
object ItemCodeLabel: TLabel
|
||||||
|
Left = 168
|
||||||
|
Height = 16
|
||||||
|
Top = 112
|
||||||
|
Width = 93
|
||||||
|
Caption = 'Item Major Code:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object MajorCodeEdit: TEdit
|
||||||
|
Left = 272
|
||||||
|
Height = 23
|
||||||
|
Top = 105
|
||||||
|
Width = 41
|
||||||
|
TabOrder = 17
|
||||||
|
Text = '1'
|
||||||
|
end
|
||||||
|
object MinorCodeLabel: TLabel
|
||||||
|
Left = 336
|
||||||
|
Height = 16
|
||||||
|
Top = 112
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Item Minor Code:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object MinorCodeEdit: TEdit
|
||||||
|
Left = 440
|
||||||
|
Height = 23
|
||||||
|
Top = 105
|
||||||
|
Width = 45
|
||||||
|
TabOrder = 18
|
||||||
|
Text = '0'
|
||||||
|
end
|
||||||
|
object CodeBrowseBtn: TButton
|
||||||
|
Left = 510
|
||||||
|
Height = 28
|
||||||
|
Top = 100
|
||||||
|
Width = 106
|
||||||
|
Caption = 'Browse Items'
|
||||||
|
OnClick = CodeBrowseBtnClick
|
||||||
|
TabOrder = 19
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 11
|
||||||
|
Height = 16
|
||||||
|
Top = 184
|
||||||
|
Width = 224
|
||||||
|
Caption = 'Enter number of choices and press return: '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NoChoicesEdit: TEdit
|
||||||
|
Left = 240
|
||||||
|
Height = 23
|
||||||
|
Top = 168
|
||||||
|
Width = 32
|
||||||
|
OnChange = NoChoicesEditChange
|
||||||
|
TabOrder = 20
|
||||||
|
Text = '0'
|
||||||
|
end
|
||||||
|
object OpenPictureDialog1: TOpenPictureDialog
|
||||||
|
left = 512
|
||||||
|
top = 368
|
||||||
|
end
|
||||||
|
end
|
||||||
83
applications/lazstats/source_orig/mcitemunit.lrs
Normal file
83
applications/lazstats/source_orig/mcitemunit.lrs
Normal file
@@ -0,0 +1,83 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMCItemForm','FORMDATA',[
|
||||||
|
'TPF0'#11'TMCItemForm'#10'MCItemForm'#4'Left'#3#188#0#6'Height'#3'\'#2#3'Top'
|
||||||
|
+#2#127#5'Width'#3'r'#2#7'Caption'#6'#Multiple Choice Item Create or Edit'#12
|
||||||
|
+'ClientHeight'#3'\'#2#11'ClientWidth'#3'r'#2#6'OnShow'#7#8'FormShow'#10'LCLV'
|
||||||
|
+'ersion'#6#6'0.9.30'#0#6'TLabel'#9'jpeglabel'#4'Left'#2#7#6'Height'#2#16#3'T'
|
||||||
|
+'op'#3#168#1#5'Width'#3#225#0#7'Caption'#6'-jpeg photo to display prior to i'
|
||||||
|
+'tem (if any):'#11'ParentColor'#8#0#0#5'TEdit'#12'jpegnameEdit'#4'Left'#3#236
|
||||||
|
+#0#6'Height'#2#23#3'Top'#3#160#1#5'Width'#3't'#1#8'TabOrder'#2#0#4'Text'#6#12
|
||||||
|
+'jpegnameEdit'#0#0#7'TButton'#13'jpegBrowseBtn'#4'Left'#2#1#6'Height'#2#30#3
|
||||||
|
+'Top'#3#199#1#5'Width'#2'v'#7'Caption'#6#18'Browse jpeg Images'#7'OnClick'#7
|
||||||
|
+#18'jpegBrowseBtnClick'#8'TabOrder'#2#1#0#0#7'TButton'#14'SelectImageBtn'#4
|
||||||
|
+'Left'#2#7#6'Height'#2#26#3'Top'#3'0'#2#5'Width'#2'p'#7'Caption'#6#18'Select'
|
||||||
|
+' Shown Image'#7'OnClick'#7#19'SelectImageBtnClick'#8'TabOrder'#2#2#0#0#7'TB'
|
||||||
|
+'utton'#11'ItemSaveBtn'#4'Left'#3'p'#1#6'Height'#2'!'#3'Top'#3#199#1#5'Width'
|
||||||
|
+#2'o'#7'Caption'#6#14'Save this item'#7'OnClick'#7#16'ItemSaveBtnClick'#8'Ta'
|
||||||
|
+'bOrder'#2#3#0#0#7'TButton'#11'PreviousBtn'#4'Left'#3#240#1#6'Height'#2' '#3
|
||||||
|
+'Top'#3#200#1#5'Width'#2'n'#7'Caption'#6#18'Show Previous Item'#7'OnClick'#7
|
||||||
|
+#16'PreviousBtnClick'#8'TabOrder'#2#4#0#0#7'TButton'#11'ShowNextBtn'#4'Left'
|
||||||
|
+#3'p'#1#6'Height'#2#30#3'Top'#3#0#2#5'Width'#2'm'#7'Caption'#6#14'Show Next '
|
||||||
|
+'Item'#7'OnClick'#7#16'ShowNextBtnClick'#8'TabOrder'#2#5#0#0#7'TButton'#11'S'
|
||||||
|
+'tartNewBtn'#4'Left'#3#242#1#6'Height'#2#30#3'Top'#3#0#2#5'Width'#2'o'#7'Cap'
|
||||||
|
+'tion'#6#16'Start a new item'#7'OnClick'#7#16'StartNewBtnClick'#8'TabOrder'#2
|
||||||
|
+#6#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#176#1#6'Height'#2#30#3'Top'#3'0'#2#5
|
||||||
|
+'Width'#2'o'#7'Caption'#6#6'Return'#7'OnClick'#7#14'ReturnBtnClick'#8'TabOrd'
|
||||||
|
+'er'#2#7#0#0#6'TLabel'#13'ItemStemLabel'#4'Left'#2#7#6'Height'#2#16#3'Top'#3
|
||||||
|
+#144#0#5'Width'#2':'#7'Caption'#6#10'Item Stem:'#11'ParentColor'#8#0#0#5'TEd'
|
||||||
|
+'it'#12'ItemStemEdit'#4'Left'#2'P'#6'Height'#2#23#3'Top'#3#136#0#5'Width'#3
|
||||||
|
+#27#2#8'TabOrder'#2#8#4'Text'#6#12'ItemStemEdit'#0#0#6'TLabel'#11'AnswerLabe'
|
||||||
|
+'l'#4'Left'#2#7#6'Height'#2#16#3'Top'#3#136#1#5'Width'#2'u'#7'Caption'#6#22
|
||||||
|
+'Answer (A,B,C,D or F):'#11'ParentColor'#8#0#0#5'TEdit'#10'AnswerEdit'#4'Lef'
|
||||||
|
+'t'#3#128#0#6'Height'#2#23#3'Top'#3#128#1#5'Width'#2#29#8'TabOrder'#2#9#0#0#6
|
||||||
|
+'TLabel'#6'Label1'#4'Left'#3#11#1#6'Height'#2#16#3'Top'#3#200#0#5'Width'#2'.'
|
||||||
|
+#7'Caption'#6#8'Choices:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2
|
||||||
|
+#9#6'Height'#2#16#3'Top'#3#231#0#5'Width'#2#15#7'Caption'#6#3'A. '#11'Parent'
|
||||||
|
+'Color'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#8#6'Height'#2#16#3'Top'#3#7#1#5
|
||||||
|
+'Width'#2#14#7'Caption'#6#3'B. '#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4
|
||||||
|
+'Left'#2#7#6'Height'#2#16#3'Top'#3''''#1#5'Width'#2#15#7'Caption'#6#3'C. '#11
|
||||||
|
+'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#7#6'Height'#2#16#3'Top'#3
|
||||||
|
+'G'#1#5'Width'#2#15#7'Caption'#6#3'D. '#11'ParentColor'#8#0#0#6'TLabel'#6'La'
|
||||||
|
+'bel6'#4'Left'#2#9#6'Height'#2#16#3'Top'#3'g'#1#5'Width'#2#13#7'Caption'#6#3
|
||||||
|
+'E. '#11'ParentColor'#8#0#0#5'TEdit'#11'ChoiceAEdit'#4'Left'#2'"'#6'Height'#2
|
||||||
|
+#23#3'Top'#3#224#0#5'Width'#3'I'#2#8'TabOrder'#2#10#4'Text'#6#11'ChoiceAEdit'
|
||||||
|
+#0#0#5'TEdit'#11'ChoiceDEdit'#4'Left'#2'"'#6'Height'#2#23#3'Top'#3'@'#1#5'Wi'
|
||||||
|
+'dth'#3'I'#2#8'TabOrder'#2#11#4'Text'#6#5'Edit1'#0#0#5'TEdit'#11'ChoiceEEdit'
|
||||||
|
+#4'Left'#2'"'#6'Height'#2#23#3'Top'#3'`'#1#5'Width'#3'I'#2#8'TabOrder'#2#12#4
|
||||||
|
+'Text'#6#5'Edit1'#0#0#5'TEdit'#11'ChoiceCEdit'#4'Left'#2'"'#6'Height'#2#23#3
|
||||||
|
+'Top'#3' '#1#5'Width'#3'I'#2#8'TabOrder'#2#13#4'Text'#6#5'Edit1'#0#0#5'TEdit'
|
||||||
|
+#11'ChoiceBEdit'#4'Left'#2'"'#6'Height'#2#23#3'Top'#3#0#1#5'Width'#3'I'#2#8
|
||||||
|
+'TabOrder'#2#14#4'Text'#6#5'Edit1'#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Heigh'
|
||||||
|
+'t'#2'Q'#3'Top'#2#7#5'Width'#3'`'#2#13'Lines.Strings'#1#6'gDirections: To c'
|
||||||
|
+'reate a Multiple Choice item, you will need to enter the number of an item '
|
||||||
|
+'code which '#6#8'contains'#6'jboth a major code and a minor code. It is su'
|
||||||
|
+'ggested you print all item codes from the options menu on the'#6'bmain proc'
|
||||||
|
+'edure page of the item banking program. You can however, browse the MC ite'
|
||||||
|
+'ms from this '#6#5'form.'#6'kAfter you have selected an item code number, '
|
||||||
|
+'enter the item stem in the space provided. Your item can also'#6'qinclude '
|
||||||
|
+'a jpeg picture prior to the presentation of the item on a test. To find th'
|
||||||
|
+'e image, click the jpeg browse'#6'mbutton until you see the image you wish '
|
||||||
|
+'to include. When that item is shown, click the Select button to save'#6#27
|
||||||
|
+'the name of the image file.'#6#5'Memo1'#0#10'ScrollBars'#7#10'ssVertical'#8
|
||||||
|
+'TabOrder'#2#15#0#0#6'TImage'#6'Image1'#4'Left'#3#136#0#6'Height'#3#130#0#3
|
||||||
|
+'Top'#3#199#1#5'Width'#3#217#0#0#0#6'TLabel'#13'TFItemNoLabel'#4'Left'#2#9#6
|
||||||
|
+'Height'#2#16#3'Top'#2'p'#5'Width'#2'K'#7'Caption'#6#12'Item Number:'#11'Par'
|
||||||
|
+'entColor'#8#0#0#5'TEdit'#10'ItemNoEdit'#4'Left'#2'h'#6'Height'#2#23#3'Top'#2
|
||||||
|
+'i'#5'Width'#2','#8'TabOrder'#2#16#4'Text'#6#1'1'#0#0#6'TLabel'#13'ItemCodeL'
|
||||||
|
,'abel'#4'Left'#3#168#0#6'Height'#2#16#3'Top'#2'p'#5'Width'#2']'#7'Caption'#6
|
||||||
|
+#16'Item Major Code:'#11'ParentColor'#8#0#0#5'TEdit'#13'MajorCodeEdit'#4'Lef'
|
||||||
|
+'t'#3#16#1#6'Height'#2#23#3'Top'#2'i'#5'Width'#2')'#8'TabOrder'#2#17#4'Text'
|
||||||
|
+#6#1'1'#0#0#6'TLabel'#14'MinorCodeLabel'#4'Left'#3'P'#1#6'Height'#2#16#3'Top'
|
||||||
|
+#2'p'#5'Width'#2'^'#7'Caption'#6#16'Item Minor Code:'#11'ParentColor'#8#0#0#5
|
||||||
|
+'TEdit'#13'MinorCodeEdit'#4'Left'#3#184#1#6'Height'#2#23#3'Top'#2'i'#5'Width'
|
||||||
|
+#2'-'#8'TabOrder'#2#18#4'Text'#6#1'0'#0#0#7'TButton'#13'CodeBrowseBtn'#4'Lef'
|
||||||
|
+'t'#3#254#1#6'Height'#2#28#3'Top'#2'd'#5'Width'#2'j'#7'Caption'#6#12'Browse '
|
||||||
|
+'Items'#7'OnClick'#7#18'CodeBrowseBtnClick'#8'TabOrder'#2#19#0#0#6'TLabel'#6
|
||||||
|
+'Label7'#4'Left'#2#11#6'Height'#2#16#3'Top'#3#184#0#5'Width'#3#224#0#7'Capti'
|
||||||
|
+'on'#6'*Enter number of choices and press return: '#11'ParentColor'#8#0#0#5
|
||||||
|
+'TEdit'#13'NoChoicesEdit'#4'Left'#3#240#0#6'Height'#2#23#3'Top'#3#168#0#5'Wi'
|
||||||
|
+'dth'#2' '#8'OnChange'#7#19'NoChoicesEditChange'#8'TabOrder'#2#20#4'Text'#6#1
|
||||||
|
+'0'#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#4'left'#3#0#2#3'top'#3
|
||||||
|
+'p'#1#0#0#0
|
||||||
|
]);
|
||||||
381
applications/lazstats/source_orig/mcitemunit.pas
Normal file
381
applications/lazstats/source_orig/mcitemunit.pas
Normal file
@@ -0,0 +1,381 @@
|
|||||||
|
unit MCItemUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, ExtCtrls, ExtDlgs, outputunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMCItemForm }
|
||||||
|
|
||||||
|
TMCItemForm = class(TForm)
|
||||||
|
AnswerEdit: TEdit;
|
||||||
|
AnswerLabel: TLabel;
|
||||||
|
ChoiceAEdit: TEdit;
|
||||||
|
ChoiceDEdit: TEdit;
|
||||||
|
ChoiceEEdit: TEdit;
|
||||||
|
ChoiceCEdit: TEdit;
|
||||||
|
ChoiceBEdit: TEdit;
|
||||||
|
CodeBrowseBtn: TButton;
|
||||||
|
NoChoicesEdit: TEdit;
|
||||||
|
Image1: TImage;
|
||||||
|
ItemCodeLabel: TLabel;
|
||||||
|
ItemSaveBtn: TButton;
|
||||||
|
ItemStemEdit: TEdit;
|
||||||
|
ItemStemLabel: TLabel;
|
||||||
|
jpegBrowseBtn: TButton;
|
||||||
|
jpeglabel: TLabel;
|
||||||
|
jpegnameEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
MajorCodeEdit: TEdit;
|
||||||
|
Memo1: TMemo;
|
||||||
|
MinorCodeEdit: TEdit;
|
||||||
|
MinorCodeLabel: TLabel;
|
||||||
|
OpenPictureDialog1: TOpenPictureDialog;
|
||||||
|
PreviousBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
SelectImageBtn: TButton;
|
||||||
|
ShowNextBtn: TButton;
|
||||||
|
StartNewBtn: TButton;
|
||||||
|
ItemNoEdit: TEdit;
|
||||||
|
TFItemNoLabel: TLabel;
|
||||||
|
procedure CodeBrowseBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ItemSaveBtnClick(Sender: TObject);
|
||||||
|
procedure jpegBrowseBtnClick(Sender: TObject);
|
||||||
|
procedure NoChoicesEditChange(Sender: TObject);
|
||||||
|
procedure PreviousBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
procedure SelectImageBtnClick(Sender: TObject);
|
||||||
|
procedure ShowNextBtnClick(Sender: TObject);
|
||||||
|
procedure StartNewBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MCItemForm: TMCItemForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses ItemBankingUnit;
|
||||||
|
|
||||||
|
{ TMCItemForm }
|
||||||
|
|
||||||
|
procedure TMCItemForm.jpegBrowseBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
begin
|
||||||
|
OpenPictureDialog1.Options := OpenPictureDialog1.Options+[ofFileMustExist];
|
||||||
|
if not OpenPictureDialog1.Execute then exit;
|
||||||
|
try
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(OpenPictureDialog1.FileName);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
on E: Exception do begin
|
||||||
|
MessageDlg('Error','Error: '+E.Message,mtError,[mbOk],0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.NoChoicesEditChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
nochoices : integer;
|
||||||
|
begin
|
||||||
|
nochoices := StrToInt(NoChoicesEdit.Text);
|
||||||
|
if nochoices > 0 then ChoiceAEdit.Visible := true else ChoiceAEdit.Visible := false;
|
||||||
|
if nochoices > 1 then ChoiceBEdit.Visible := true else ChoiceBEdit.Visible := false;
|
||||||
|
if nochoices > 2 then ChoiceCEdit.Visible := true else ChoiceCEdit.Visible := false;
|
||||||
|
if nochoices > 3 then ChoiceDEdit.Visible := true else ChoiceDEdit.Visible := false;
|
||||||
|
if nochoices > 4 then ChoiceEEdit.Visible := true else ChoiceEEdit.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.PreviousBtnClick(Sender: TObject);
|
||||||
|
Var
|
||||||
|
response : string;
|
||||||
|
itemno : integer;
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
nochoices : integer;
|
||||||
|
begin
|
||||||
|
response := InputBox('Save current item?','Save','Y');
|
||||||
|
if response = 'Y' then ItemSaveBtnClick(self);
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
ChoiceAEdit.Text := '';
|
||||||
|
ChoiceBEdit.Text := '';
|
||||||
|
ChoiceCEdit.Text := '';
|
||||||
|
ChoiceDEdit.Text := '';
|
||||||
|
ChoiceEEdit.Text := '';
|
||||||
|
response := InputBox('Code Number:','Number:','1');
|
||||||
|
itemno := StrToInt(response);
|
||||||
|
if itemno <= ItemBankFrm.BankInfo.NMCItems then
|
||||||
|
begin
|
||||||
|
nochoices := ItemBankFrm.MCItemInfo[itemno].NoChoices;
|
||||||
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].ItemNumber);
|
||||||
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].majorcode);
|
||||||
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].minorcode);
|
||||||
|
NoChoicesEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].NoChoices);
|
||||||
|
ItemStemEdit.Text := ItemBankFrm.MCItemInfo[itemno].ItemStem ;
|
||||||
|
if nochoices > 0 then ChoiceAEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceOne;
|
||||||
|
if nochoices > 1 then ChoiceBEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceTwo;
|
||||||
|
if nochoices > 2 then ChoiceCEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceThree;
|
||||||
|
if nochoices > 3 then ChoiceDEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFour;
|
||||||
|
if nochoices > 4 then ChoiceEEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFive;
|
||||||
|
AnswerEdit.Text := ItemBankFrm.MCItemInfo[itemno].CorrectChoice;
|
||||||
|
jpegnameEdit.Text := ItemBankFrm.MCItemInfo[itemno].PicName;
|
||||||
|
if jpegnameEdit.Text <> 'none' then
|
||||||
|
begin
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
MCItemForm.Hide;
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.ItemSaveBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
currentno : integer;
|
||||||
|
count : integer;
|
||||||
|
nochoices : integer;
|
||||||
|
begin
|
||||||
|
count := ItemBankFrm.BankInfo.NMCItems;
|
||||||
|
currentno := StrToInt(ItemNoEdit.Text);
|
||||||
|
if currentno > count then
|
||||||
|
begin
|
||||||
|
ItemBankFrm.BankInfo.NMCItems := currentno;
|
||||||
|
ItemBankFrm.NMCItemsText.Text := IntToStr(currentno);
|
||||||
|
end;
|
||||||
|
nochoices := StrToInt(NoChoicesEdit.Text);
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].ItemNumber := currentno;
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].majorcode := StrToInt(MajorCodeEdit.Text);
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].minorcode := StrToInt(MinorCodeEdit.Text);
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].NoChoices := nochoices;
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].ItemStem := ItemStemEdit.Text;
|
||||||
|
if nochoices > 0 then ItemBankFrm.MCItemInfo[currentno].ChoiceOne := ChoiceAEdit.Text;
|
||||||
|
if nochoices > 1 then ItemBankFrm.MCItemInfo[currentno].ChoiceTwo := ChoiceBEdit.Text;
|
||||||
|
if nochoices > 2 then ItemBankFrm.MCItemInfo[currentno].ChoiceThree := ChoiceCEdit.Text;
|
||||||
|
if nochoices > 3 then ItemBankFrm.MCItemInfo[currentno].ChoiceFour := ChoiceDEdit.Text;
|
||||||
|
if nochoices > 4 then ItemBankFrm.MCItemInfo[currentno].ChoiceFive := ChoiceEEdit.Text;
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].CorrectChoice := AnswerEdit.Text[1];
|
||||||
|
ItemBankFrm.MCItemInfo[currentno].PicName := jpegnameEdit.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.FormShow(Sender: TObject);
|
||||||
|
Var
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
nochoices : integer;
|
||||||
|
begin
|
||||||
|
ChoiceAEdit.Text := '';
|
||||||
|
ChoiceBEdit.Text := '';
|
||||||
|
ChoiceCEdit.Text := '';
|
||||||
|
ChoiceDEdit.Text := '';
|
||||||
|
ChoiceEEdit.Text := '';
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
if ItemBankFrm.BankInfo.NMCItems > 0 then
|
||||||
|
begin
|
||||||
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[1].ItemNumber);
|
||||||
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[1].majorcode) ;
|
||||||
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[1].minorcode);
|
||||||
|
nochoices := ItemBankFrm.MCItemInfo[1].NoChoices;
|
||||||
|
NoChoicesEdit.Text := IntToStr(nochoices);
|
||||||
|
ItemStemEdit.Text := ItemBankFrm.MCItemInfo[1].ItemStem;
|
||||||
|
AnswerEdit.Text := ItemBankFrm.MCItemInfo[1].CorrectChoice;
|
||||||
|
if nochoices > 0 then ChoiceAEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceOne;
|
||||||
|
if nochoices > 1 then ChoiceBEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceTwo;
|
||||||
|
if nochoices > 2 then ChoiceCEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceThree;
|
||||||
|
if nochoices > 3 then ChoiceDEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceFour;
|
||||||
|
if nochoices > 4 then ChoiceEEdit.Text := ItemBankFrm.MCItemInfo[1].ChoiceFive;
|
||||||
|
jpegnameEdit.Text := ItemBankFrm.MCItemInfo[1].PicName;
|
||||||
|
if jpegnameEdit.Text <> 'none' then
|
||||||
|
begin
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
ItemNoEdit.Text := '1';
|
||||||
|
MajorCodeEdit.Text := '1';
|
||||||
|
MinorCodeEdit.Text := '0';
|
||||||
|
ItemStemEdit.Text := '';
|
||||||
|
AnswerEdit.Text := '';
|
||||||
|
jpegnameEdit.Text := 'none';
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.CodeBrowseBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
count : integer;
|
||||||
|
i : integer;
|
||||||
|
outline : string;
|
||||||
|
nochoices : integer;
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
count := ItemBankFrm.BankInfo.NMCItems;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Current Items');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
for i := 1 to count do
|
||||||
|
begin
|
||||||
|
ChoiceAEdit.Text := '';
|
||||||
|
ChoiceBEdit.Text := '';
|
||||||
|
ChoiceCEdit.Text := '';
|
||||||
|
ChoiceDEdit.Text := '';
|
||||||
|
ChoiceEEdit.Text := '';
|
||||||
|
nochoices := ItemBankFrm.MCItemInfo[i].NoChoices;
|
||||||
|
outline := format('Item number %3d',[ItemBankFrm.MCItemInfo[i].itemnumber]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Major Code %3d',[ItemBankFrm.MCItemInfo[i].majorcode]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Minor Code %3d',[ItemBankFrm.MCItemInfo[i].minorcode]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('No. of Choices %3d',[ItemBankFrm.MCItemInfo[i].NoChoices]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Item Stem %s',[ItemBankFrm.MCItemInfo[i].ItemStem]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
if nochoices > 0 then
|
||||||
|
begin
|
||||||
|
outline := format('Choice A %s',[ItemBankFrm.MCItemInfo[i].ChoiceOne]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if nochoices > 1 then
|
||||||
|
begin
|
||||||
|
outline := format('Choice B %s',[ItemBankFrm.MCItemInfo[i].ChoiceTwo]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if nochoices > 2 then
|
||||||
|
begin
|
||||||
|
outline := format('Choice C %s',[ItemBankFrm.MCItemInfo[i].ChoiceThree]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if nochoices > 3 then
|
||||||
|
begin
|
||||||
|
outline := format('Choice D %s',[ItemBankFrm.MCItemInfo[i].ChoiceFour]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
if nochoices > 4 then
|
||||||
|
begin
|
||||||
|
outline := format('Choice E %s',[ItemBankFrm.MCItemInfo[i].ChoiceFive]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
outline := format('Correct Choice %s',[ItemBankFrm.MCItemInfo[i].CorrectChoice]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Graphic Image %s',[ItemBankFrm.MCItemInfo[i].PicName]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
end;
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.SelectImageBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
jpegnameEdit.Text := OpenPictureDialog1.FileName;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.ShowNextBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
count : integer;
|
||||||
|
itemno : integer;
|
||||||
|
JPEG : TJPEGImage;
|
||||||
|
nochoices : integer;
|
||||||
|
response : string;
|
||||||
|
begin
|
||||||
|
response := InputBox('Save current item?','Save','Y');
|
||||||
|
if response = 'Y' then ItemSaveBtnClick(self);
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
itemno := StrToInt(ItemNoEdit.Text) + 1;
|
||||||
|
count := ItemBankFrm.BankInfo.NMCItems;
|
||||||
|
if count <= itemno then
|
||||||
|
begin
|
||||||
|
ChoiceAEdit.Text := '';
|
||||||
|
ChoiceBEdit.Text := '';
|
||||||
|
ChoiceCEdit.Text := '';
|
||||||
|
ChoiceDEdit.Text := '';
|
||||||
|
ChoiceEEdit.Text := '';
|
||||||
|
nochoices := ItemBankFrm.MCItemInfo[itemno].NoChoices;
|
||||||
|
ItemNoEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].ItemNumber);
|
||||||
|
MajorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].majorcode) ;
|
||||||
|
MinorCodeEdit.Text := IntToStr(ItemBankFrm.MCItemInfo[itemno].minorcode);
|
||||||
|
ItemStemEdit.Text := ItemBankFrm.MCItemInfo[itemno].ItemStem;
|
||||||
|
if nochoices > 0 then ChoiceAEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceOne;
|
||||||
|
if nochoices > 1 then ChoiceBEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceTwo;
|
||||||
|
if nochoices > 2 then ChoiceCEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceThree;
|
||||||
|
if nochoices > 3 then ChoiceDEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFour;
|
||||||
|
if nochoices > 4 then ChoiceEEdit.Text := ItemBankFrm.MCItemInfo[itemno].ChoiceFive;
|
||||||
|
AnswerEdit.Text := ItemBankFrm.MCItemInfo[itemno].CorrectChoice;
|
||||||
|
jpegnameEdit.Text := ItemBankFrm.MCItemInfo[itemno].PicName;
|
||||||
|
if jpegnameEdit.Text <> 'none' then
|
||||||
|
begin
|
||||||
|
JPEG := TJPEGImage.Create;
|
||||||
|
try
|
||||||
|
JPEG.LoadFromFile(jpegnameEdit.Text);
|
||||||
|
Image1.Picture.Assign(JPEG);
|
||||||
|
finally
|
||||||
|
JPEG.Free;
|
||||||
|
Image1.Proportional := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMCItemForm.StartNewBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
currentno : integer;
|
||||||
|
response : string;
|
||||||
|
begin
|
||||||
|
response := InputBox('Save current item?','Save','Y');
|
||||||
|
if response = 'Y' then ItemSaveBtnClick(self);
|
||||||
|
currentno := ItemBankFrm.BankInfo.NMCItems + 1;
|
||||||
|
ItemNoEdit.Text := IntToStr(currentno);
|
||||||
|
currentno := StrToInt(MinorCodeEdit.Text);
|
||||||
|
MinorCodeEdit.Text := IntToStr(currentno + 1);
|
||||||
|
NoChoicesEdit.Text := '0';
|
||||||
|
ItemStemEdit.Text := '';
|
||||||
|
ChoiceAEdit.Text := '';
|
||||||
|
ChoiceBEdit.Text := '';
|
||||||
|
ChoiceCEdit.Text := '';
|
||||||
|
ChoiceDEdit.Text := '';
|
||||||
|
ChoiceEEdit.Text := '';
|
||||||
|
AnswerEdit.Text := '';
|
||||||
|
jpegnameEdit.Text := 'none';
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I mcitemunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
416
applications/lazstats/source_orig/medianpolishunit.lfm
Normal file
416
applications/lazstats/source_orig/medianpolishunit.lfm
Normal file
@@ -0,0 +1,416 @@
|
|||||||
|
object MedianPolishForm: TMedianPolishForm
|
||||||
|
Left = 288
|
||||||
|
Height = 371
|
||||||
|
Top = 161
|
||||||
|
Width = 531
|
||||||
|
Caption = 'Median Polishing for a Two-Way Table'
|
||||||
|
ClientHeight = 371
|
||||||
|
ClientWidth = 531
|
||||||
|
OnShow = ResetBtnClick
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 16
|
||||||
|
Top = 11
|
||||||
|
Width = 51
|
||||||
|
Caption = 'Variables:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 275
|
||||||
|
Top = 29
|
||||||
|
Width = 185
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object DepVar: TEdit
|
||||||
|
Left = 256
|
||||||
|
Height = 23
|
||||||
|
Top = 56
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'DepVar'
|
||||||
|
end
|
||||||
|
object DepIn1: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 35
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepIn1Click
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object DepOut: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 72
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepOutClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object StaticText1: TStaticText
|
||||||
|
Left = 256
|
||||||
|
Height = 15
|
||||||
|
Top = 32
|
||||||
|
Width = 73
|
||||||
|
Caption = 'Dependent Variable'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Fact1In: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 120
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact1InClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Fact1Out: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 160
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact1OutClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object Fact2In: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 216
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact2InClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object Fact2Out: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 256
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact2OutClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object Factor1: TEdit
|
||||||
|
Left = 256
|
||||||
|
Height = 23
|
||||||
|
Top = 136
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 9
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Factor2: TEdit
|
||||||
|
Left = 256
|
||||||
|
Height = 23
|
||||||
|
Top = 232
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 257
|
||||||
|
Height = 16
|
||||||
|
Top = 113
|
||||||
|
Width = 43
|
||||||
|
Caption = 'Factor 1'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 257
|
||||||
|
Height = 16
|
||||||
|
Top = 209
|
||||||
|
Width = 43
|
||||||
|
Caption = 'Factor 2'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 429
|
||||||
|
Height = 28
|
||||||
|
Top = 28
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 429
|
||||||
|
Height = 28
|
||||||
|
Top = 80
|
||||||
|
Width = 75
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 429
|
||||||
|
Height = 28
|
||||||
|
Top = 136
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 429
|
||||||
|
Height = 28
|
||||||
|
Top = 192
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 255
|
||||||
|
Height = 16
|
||||||
|
Top = 294
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Max. Iterations:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object MaxEdit: TEdit
|
||||||
|
Left = 356
|
||||||
|
Height = 23
|
||||||
|
Top = 288
|
||||||
|
Width = 35
|
||||||
|
TabOrder = 15
|
||||||
|
Text = '5'
|
||||||
|
end
|
||||||
|
object ItersBtn: TRadioButton
|
||||||
|
Left = 254
|
||||||
|
Height = 19
|
||||||
|
Top = 323
|
||||||
|
Width = 182
|
||||||
|
Caption = 'Show Results for Each Iteration'
|
||||||
|
OnChange = ItersBtnChange
|
||||||
|
TabOrder = 16
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object NormChk: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 19
|
||||||
|
Top = 325
|
||||||
|
Width = 234
|
||||||
|
Caption = 'Show Bill Miller''s Normalizing Procedure'
|
||||||
|
TabOrder = 17
|
||||||
|
end
|
||||||
|
end
|
||||||
347
applications/lazstats/source_orig/medianpolishunit.lrs
Normal file
347
applications/lazstats/source_orig/medianpolishunit.lrs
Normal file
@@ -0,0 +1,347 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMedianPolishForm','FORMDATA',[
|
||||||
|
'TPF0'#17'TMedianPolishForm'#16'MedianPolishForm'#4'Left'#3' '#1#6'Height'#3
|
||||||
|
+'s'#1#3'Top'#3#161#0#5'Width'#3#19#2#7'Caption'#6'$Median Polishing for a Tw'
|
||||||
|
+'o-Way Table'#12'ClientHeight'#3's'#1#11'ClientWidth'#3#19#2#6'OnShow'#7#13
|
||||||
|
+'ResetBtnClick'#10'LCLVersion'#6#6'0.9.30'#0#6'TLabel'#6'Label1'#4'Left'#2#8
|
||||||
|
+#6'Height'#2#16#3'Top'#2#11#5'Width'#2'3'#7'Caption'#6#10'Variables:'#11'Par'
|
||||||
|
+'entColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#8#6'Height'#3#19#1#3'Top'#2
|
||||||
|
+#29#5'Width'#3#185#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#5'TEdit'#6'DepVa'
|
||||||
|
+'r'#4'Left'#3#0#1#6'Height'#2#23#3'Top'#2'8'#5'Width'#3#135#0#8'TabOrder'#2#1
|
||||||
|
+#4'Text'#6#6'DepVar'#0#0#7'TBitBtn'#6'DepIn1'#4'Left'#3#208#0#6'Height'#2#29
|
||||||
|
+#3'Top'#2'#'#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0
|
||||||
|
+#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'
|
||||||
|
+#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'#201#255#255
|
||||||
|
+#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'#190'm'#255
|
||||||
|
+']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145
|
||||||
|
+'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#11'DepIn1Click'#8'TabOrder'#2#2#0#0#7'TBitBtn'#6'DepOu'
|
||||||
|
+'t'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#2'H'#5'Width'#2' '#10'Glyph.Data'
|
||||||
|
+#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0
|
||||||
|
+#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'#255'!c$'#255
|
||||||
|
+#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134#255#156#213
|
||||||
|
+#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135
|
||||||
|
+#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'r'
|
||||||
|
+#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127#204#138
|
||||||
|
+#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207
|
||||||
|
+#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'
|
||||||
|
+#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177'b'#255'S'
|
||||||
|
+#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'DepOutClick'#8
|
||||||
|
+'TabOrder'#2#3#0#0#11'TStaticText'#11'StaticText1'#4'Left'#3#0#1#6'Height'#2
|
||||||
|
+#15#3'Top'#2' '#5'Width'#2'I'#7'Caption'#6#18'Dependent Variable'#8'TabOrder'
|
||||||
|
+#2#4#0#0#7'TBitBtn'#7'Fact1In'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#2'x'#5
|
||||||
|
+'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0
|
||||||
|
+'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'*p/8%i)'
|
||||||
|
+#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'a'#190
|
||||||
|
+'m'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255
|
||||||
|
+'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139
|
||||||
|
+'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255#255#0'e'#195'q'#255#160
|
||||||
|
+#215#169#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255
|
||||||
|
+#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128
|
||||||
|
+#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199
|
||||||
|
+'t'#255#165#218#174#255#162#216#171#255#158#214#167#255#154#212#163#255#150
|
||||||
|
+#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255
|
||||||
|
+#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255
|
||||||
|
+'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163
|
||||||
|
+'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247
|
||||||
|
+';'#136'B'#219#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187
|
||||||
|
+'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnCl'
|
||||||
|
+'ick'#7#12'Fact1InClick'#8'TabOrder'#2#5#0#0#7'TBitBtn'#8'Fact1Out'#4'Left'#3
|
||||||
|
+#208#0#6'Height'#2#29#3'Top'#3#160#0#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0
|
||||||
|
+'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0
|
||||||
|
+#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0']'#184'h'
|
||||||
|
+#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255
|
||||||
|
+';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255
|
||||||
|
+#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134#255#156#213#165#255#152
|
||||||
|
+#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255
|
||||||
|
+#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!'
|
||||||
|
+'c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127#204#138#255#162#216
|
||||||
|
,#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142
|
||||||
|
+#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255
|
||||||
|
+'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'
|
||||||
|
+#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255
|
||||||
|
+'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'
|
||||||
|
+#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199
|
||||||
|
+'t'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'
|
||||||
|
+#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#13'Fact1OutClick'#8'TabOr'
|
||||||
|
+'der'#2#6#0#0#7'TBitBtn'#7'Fact2In'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#3
|
||||||
|
+#216#0#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0
|
||||||
|
+'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'
|
||||||
|
+#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'#201#255#255
|
||||||
|
+#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'#190'm'#255
|
||||||
|
+']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145
|
||||||
|
+'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#12'Fact2InClick'#8'TabOrder'#2#7#0#0#7'TBitBtn'#8'Fact'
|
||||||
|
+'2Out'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#3#0#1#5'Width'#2' '#10'Glyph.Da'
|
||||||
|
+'ta'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0
|
||||||
|
+#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'#153'O'#255
|
||||||
|
+'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'#255'!c$'
|
||||||
|
+#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134#255#156
|
||||||
|
+#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255
|
||||||
|
+#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255
|
||||||
|
+'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127#204#138
|
||||||
|
+#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207
|
||||||
|
+#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'
|
||||||
|
+#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177'b'#255'S'
|
||||||
|
+#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#13'Fact2OutClick'
|
||||||
|
+#8'TabOrder'#2#8#0#0#5'TEdit'#7'Factor1'#4'Left'#3#0#1#6'Height'#2#23#3'Top'
|
||||||
|
,#3#136#0#5'Width'#3#135#0#8'TabOrder'#2#9#4'Text'#6#5'Edit1'#0#0#5'TEdit'#7
|
||||||
|
+'Factor2'#4'Left'#3#0#1#6'Height'#2#23#3'Top'#3#232#0#5'Width'#3#135#0#8'Tab'
|
||||||
|
+'Order'#2#10#4'Text'#6#5'Edit1'#0#0#6'TLabel'#6'Label2'#4'Left'#3#1#1#6'Heig'
|
||||||
|
+'ht'#2#16#3'Top'#2'q'#5'Width'#2'+'#7'Caption'#6#8'Factor 1'#11'ParentColor'
|
||||||
|
+#8#0#0#6'TLabel'#6'Label3'#4'Left'#3#1#1#6'Height'#2#16#3'Top'#3#209#0#5'Wid'
|
||||||
|
+'th'#2'+'#7'Caption'#6#8'Factor 2'#11'ParentColor'#8#0#0#7'TButton'#8'ResetB'
|
||||||
|
+'tn'#4'Left'#3#173#1#6'Height'#2#28#3'Top'#2#28#5'Width'#2'K'#7'Caption'#6#5
|
||||||
|
+'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#11#0#0#7'TButton'#9'Can'
|
||||||
|
+'celBtn'#4'Left'#3#173#1#6'Height'#2#28#3'Top'#2'P'#5'Width'#2'K'#6'Cancel'#9
|
||||||
|
+#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#12#0#0#7'TButton'
|
||||||
|
+#10'ComputeBtn'#4'Left'#3#173#1#6'Height'#2#28#3'Top'#3#136#0#5'Width'#2'K'#7
|
||||||
|
+'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#13#0#0
|
||||||
|
+#7'TButton'#9'ReturnBtn'#4'Left'#3#173#1#6'Height'#2#28#3'Top'#3#192#0#5'Wid'
|
||||||
|
+'th'#2'K'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#14#0#0#6
|
||||||
|
+'TLabel'#6'Label4'#4'Left'#3#255#0#6'Height'#2#16#3'Top'#3'&'#1#5'Width'#2'Q'
|
||||||
|
+#7'Caption'#6#16'Max. Iterations:'#11'ParentColor'#8#0#0#5'TEdit'#7'MaxEdit'
|
||||||
|
+#4'Left'#3'd'#1#6'Height'#2#23#3'Top'#3' '#1#5'Width'#2'#'#8'TabOrder'#2#15#4
|
||||||
|
+'Text'#6#1'5'#0#0#12'TRadioButton'#8'ItersBtn'#4'Left'#3#254#0#6'Height'#2#19
|
||||||
|
+#3'Top'#3'C'#1#5'Width'#3#182#0#7'Caption'#6#31'Show Results for Each Iterat'
|
||||||
|
+'ion'#8'OnChange'#7#14'ItersBtnChange'#8'TabOrder'#2#16#7'Visible'#8#0#0#9'T'
|
||||||
|
+'CheckBox'#7'NormChk'#4'Left'#2#9#6'Height'#2#19#3'Top'#3'E'#1#5'Width'#3#234
|
||||||
|
+#0#7'Caption'#6'(Show Bill Miller''s Normalizing Procedure'#8'TabOrder'#2#17
|
||||||
|
+#0#0#0
|
||||||
|
]);
|
||||||
926
applications/lazstats/source_orig/medianpolishunit.pas
Normal file
926
applications/lazstats/source_orig/medianpolishunit.pas
Normal file
@@ -0,0 +1,926 @@
|
|||||||
|
unit MedianPolishUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, Globals, FunctionsLib, OutPutUnit,
|
||||||
|
DataProcs, Math, GraphLib;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMedianPolishForm }
|
||||||
|
|
||||||
|
TMedianPolishForm = class(TForm)
|
||||||
|
NormChk: TCheckBox;
|
||||||
|
MaxEdit: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
ItersBtn: TRadioButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
DepIn1: TBitBtn;
|
||||||
|
DepOut: TBitBtn;
|
||||||
|
DepVar: TEdit;
|
||||||
|
Fact1In: TBitBtn;
|
||||||
|
Fact1Out: TBitBtn;
|
||||||
|
Fact2In: TBitBtn;
|
||||||
|
Fact2Out: TBitBtn;
|
||||||
|
Factor1: TEdit;
|
||||||
|
Factor2: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
StaticText1: TStaticText;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure DepIn1Click(Sender: TObject);
|
||||||
|
procedure DepOutClick(Sender: TObject);
|
||||||
|
procedure Fact1InClick(Sender: TObject);
|
||||||
|
procedure Fact1OutClick(Sender: TObject);
|
||||||
|
procedure Fact2InClick(Sender: TObject);
|
||||||
|
procedure Fact2OutClick(Sender: TObject);
|
||||||
|
procedure ItersBtnChange(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
CumRowResiduals : DblDyneVec;
|
||||||
|
CumColResiduals : DblDyneVec;
|
||||||
|
function Median(VAR X : DblDyneVec; size : integer) : double;
|
||||||
|
procedure PrintObsTable(ObsTable : DblDyneMat; nrows, ncols : integer);
|
||||||
|
procedure PrintResults(ObsTable : DblDyneMat; rowmedian,rowresid : DblDyneVec;
|
||||||
|
comedian, colresid : DblDyneVec; nrows, ncols : integer);
|
||||||
|
procedure sortvalues(VAR X : DblDyneVec; size : integer);
|
||||||
|
procedure TwoWayPlot(NF1cells : integer; RowSums : DblDyneVec;
|
||||||
|
graphtitle : string; Heading : string);
|
||||||
|
procedure InteractPlot(NF1cells, NF2Cells : integer;
|
||||||
|
ObsTable :DblDyneMat; graphtitle : string;
|
||||||
|
Heading : string); public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MedianPolishForm: TMedianPolishForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TMedianPolishForm }
|
||||||
|
|
||||||
|
|
||||||
|
{ TMedianPolishForm }
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.ResetBtnClick(Sender: TObject);
|
||||||
|
var i : integer;
|
||||||
|
begin
|
||||||
|
VarList.Clear;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
DepVar.Text := '';
|
||||||
|
Factor1.Text := '';
|
||||||
|
Factor2.Text := '';
|
||||||
|
DepIn1.Visible := true;
|
||||||
|
DepOut.Visible := false;
|
||||||
|
Fact1In.Visible := true;
|
||||||
|
Fact1Out.Visible := false;
|
||||||
|
Fact2In.Visible := true;
|
||||||
|
Fact2out.Visible := false;
|
||||||
|
ItersBtn.Checked := false;
|
||||||
|
NormChk.Checked := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.ComputeBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
NoSelected, DepVarCol, F1Col, F2Col, i, j, k : integer;
|
||||||
|
NoRows, NoCols, minrow, maxrow, mincol, maxcol : integer;
|
||||||
|
intvalue, xrange, yrange, row, col, N, count, iteration : integer;
|
||||||
|
X, Resid, M, sumrowmedians, sumcolmedians, GrandMedian, scale, TotResid : double;
|
||||||
|
SumAbsRows, SumAbsCols, SumAbsInter, SumAbsTable, TableSum, explained : double;
|
||||||
|
Q1, Q2, Q3, Qrange1, Qrange2, total : double;
|
||||||
|
ColNoSelected : IntDyneVec;
|
||||||
|
Observed : DblDyneCube;
|
||||||
|
Residuals : DblDyneCube;
|
||||||
|
RowResiduals : DblDyneVec;
|
||||||
|
ColResiduals : DblDyneVec;
|
||||||
|
RowMedian : DblDyneVec;
|
||||||
|
ColMedian : DblDyneVec;
|
||||||
|
CellCount : IntDyneMat;
|
||||||
|
GroupScores : DblDyneVec;
|
||||||
|
ObsTable : DblDyneMat;
|
||||||
|
cellstring : string;
|
||||||
|
single : boolean;
|
||||||
|
NoIterations : integer;
|
||||||
|
done : boolean;
|
||||||
|
WholeTable : DblDyneVec;
|
||||||
|
RowEffects : DblDyneVec;
|
||||||
|
ColEffects : DblDyneVec;
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := Trim(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
if cellstring = DepVar.Text then DepVarCol := i;
|
||||||
|
if cellstring = Factor1.Text then F1Col := i;
|
||||||
|
if cellstring = Factor2.Text then F2Col := i;
|
||||||
|
end;
|
||||||
|
NoSelected := 3;
|
||||||
|
SetLength(ColNoSelected,3);
|
||||||
|
ColNoSelected[0] := DepVarCol;
|
||||||
|
ColNoSelected[1] := F1Col;
|
||||||
|
ColNoSelected[2] := F2Col;
|
||||||
|
// get no. of rows and columns (Factor 1 and Factor 2)
|
||||||
|
mincol := 10000;
|
||||||
|
maxcol := 0;
|
||||||
|
minrow := 10000;
|
||||||
|
maxrow := 0;
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
intvalue := StrToInt(Trim(OS3MainFrm.DataGrid.Cells[F1Col,i]));
|
||||||
|
if intvalue > maxrow then maxrow := intvalue;
|
||||||
|
if intvalue < minrow then minrow := intvalue;
|
||||||
|
intvalue := StrToInt(Trim(OS3MainFrm.DataGrid.Cells[F2Col,i]));
|
||||||
|
if intvalue > maxcol then maxcol := intvalue;
|
||||||
|
if intvalue < mincol then mincol := intvalue;
|
||||||
|
end;
|
||||||
|
xrange := maxrow - minrow + 1;
|
||||||
|
yrange := maxcol - mincol + 1;
|
||||||
|
// get no. of observations in each cell
|
||||||
|
SetLength(CellCount,xrange,yrange);
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
CellCount[i,j] := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
count := 0;
|
||||||
|
single := false;
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
row := StrToInt(Trim(OS3MainFrm.DataGrid.Cells[F1Col,i]));
|
||||||
|
row := row - minrow;
|
||||||
|
col := StrToInt(Trim(OS3MainFrm.DataGrid.Cells[F2Col,i]));
|
||||||
|
col := col - mincol;
|
||||||
|
CellCount[row,col] := CellCount[row,col] + 1;
|
||||||
|
count := count + 1;
|
||||||
|
end;
|
||||||
|
if count = (xrange * yrange) then single := true;
|
||||||
|
SetLength(Observed,NoCases,xrange,yrange);
|
||||||
|
SetLength(Residuals,NoCases,xrange,yrange);
|
||||||
|
SetLength(RowResiduals,xrange);
|
||||||
|
SetLength(ColResiduals,yrange);
|
||||||
|
SetLength(GroupScores,NoCases);
|
||||||
|
SetLength(RowMedian,xrange);
|
||||||
|
SetLength(ColMedian,yrange);
|
||||||
|
SetLength(CumRowResiduals,xrange);
|
||||||
|
SetLength(CumColResiduals,yrange);
|
||||||
|
SetLength(WholeTable,xrange * yrange);
|
||||||
|
SetLength(RowEffects,xrange);
|
||||||
|
SetLength(ColEffects,yrange);
|
||||||
|
|
||||||
|
for i := 0 to NoCases-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for k := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
Observed[i,j,k] := 0.0;
|
||||||
|
Residuals[i,j,k] := 0.0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for j := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
RowResiduals[j] := 0.0;
|
||||||
|
CumRowResiduals[j] := 0.0;
|
||||||
|
end;
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ColResiduals[j] := 0.0;
|
||||||
|
CumColResiduals[j] := 0.0;
|
||||||
|
end;
|
||||||
|
// Get observed scores
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
CellCount[i,j] := 0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
row := StrToInt(Trim(OS3MainFrm.DataGrid.Cells[F1Col,i]));
|
||||||
|
row := row - minrow;
|
||||||
|
col := StrToInt(Trim(OS3MainFrm.DataGrid.Cells[F2Col,i]));
|
||||||
|
col := col - mincol;
|
||||||
|
X := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[DepVarCol,i]));
|
||||||
|
CellCount[row,col] := CellCount[row,col] + 1;
|
||||||
|
N := CellCount[row,col];
|
||||||
|
Observed[N-1,row,col] := X;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// if not single case in each cell, obtain median for each cell
|
||||||
|
if not single then
|
||||||
|
begin
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
for k := 0 to CellCount[i,j]-1 do
|
||||||
|
begin
|
||||||
|
GroupScores[k] := Observed[k,i,j];
|
||||||
|
end;
|
||||||
|
M := Median(GroupScores,CellCount[i,j]);
|
||||||
|
Observed[0,i,j] := M;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
SetLength(ObsTable,xrange,yrange);
|
||||||
|
k := 0;
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ObsTable[i,j] := Observed[0,i,j];
|
||||||
|
WholeTable[k] := Observed[0,i,j];
|
||||||
|
k := k + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
sortvalues(WholeTable,xrange*yrange);
|
||||||
|
Q1 := Quartiles(2,0.25,xrange*yrange,WholeTable);
|
||||||
|
Q3 := Quartiles(2,0.75,xrange*yrange,WholeTable);
|
||||||
|
Qrange1 := Q3 - Q1;
|
||||||
|
cellstring := format('Quartiles of original data = %8.3f %8.3f',[Q1,Q3]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
|
||||||
|
if NormChk.Checked = true then
|
||||||
|
begin
|
||||||
|
// Bill Miller's solution
|
||||||
|
// get deviations of each cell from the grand mean, row and column residuals
|
||||||
|
// and row and column absolute deviations
|
||||||
|
k := 0;
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ObsTable[i,j] := Observed[0,i,j];
|
||||||
|
WholeTable[k] := Observed[0,i,j];
|
||||||
|
k := k + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
sortvalues(WholeTable,xrange*yrange);
|
||||||
|
M := Median(WholeTable,xrange*yrange);
|
||||||
|
GrandMedian := M;
|
||||||
|
// OutPutFrm.RichEdit.Clear;
|
||||||
|
cellstring := Format('Grand Median = %9.3f',[M]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
PrintObsTable(ObsTable,xrange,yrange);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
RowMedian[i] := 0.0;
|
||||||
|
RowResiduals[i] := 0.0;
|
||||||
|
CumRowResiduals[i] := 0.0;
|
||||||
|
end;
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ColMedian[j] := 0.0;
|
||||||
|
ColResiduals[j] := 0.0;
|
||||||
|
CumColResiduals[j] := 0.0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
GroupScores[j] := ObsTable[i,j];
|
||||||
|
end;
|
||||||
|
sortvalues(GroupScores,yrange);
|
||||||
|
M := Median(GroupScores,yrange);
|
||||||
|
RowMedian[i] := M;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
RowResiduals[i] := RowResiduals[i] + (ObsTable[i,j] - RowMedian[i]);
|
||||||
|
end;
|
||||||
|
CumRowResiduals[i] := CumRowResiduals[i] + abs(RowResiduals[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
GroupScores[i] := ObsTable[i,j];
|
||||||
|
end;
|
||||||
|
sortvalues(GroupScores,xrange);
|
||||||
|
M := Median(GroupScores,xrange);
|
||||||
|
ColMedian[j] := M;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
ColResiduals[j] := ColResiduals[j] + (ObsTable[i,j] - ColMedian[j]);
|
||||||
|
end;
|
||||||
|
CumColResiduals[j] := CumColResiduals[j] + abs(ColResiduals[j]);
|
||||||
|
end;
|
||||||
|
PrintResults(ObsTable,RowMedian,RowResiduals,ColMedian,ColResiduals,xrange,yrange);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
// TwoWayPlot(xrange, RowMedian,'Rows','ROW MEDIANS');
|
||||||
|
// TwoWayPlot(yrange, ColMedian,'Columns','COL. MEDIANS');
|
||||||
|
// Normalize medians and raw data
|
||||||
|
// This will result in the sum of column, row and table residuals all
|
||||||
|
// summing to zero. The model is X = Total Median + Row effects +
|
||||||
|
// col. effects + interaction effects and the row, col and interaction
|
||||||
|
// effects each sum to zero (as in ANOVA)
|
||||||
|
TableSum := 0.0;
|
||||||
|
scale := 0;
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
scale := scale + ObsTable[i,j];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
scale := scale / (xrange * yrange);
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ObsTable[i,j] := ObsTable[i,j] - scale;
|
||||||
|
TableSum := TableSum + abs(ObsTable[i,j]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Normalized Data');
|
||||||
|
PrintObsTable(ObsTable,xrange,yrange);
|
||||||
|
scale := 0;
|
||||||
|
for i := 0 to xrange-1 do scale := scale + RowMedian[i];
|
||||||
|
scale := scale / xrange;
|
||||||
|
for i := 0 to xrange-1 do RowMedian[i] := RowMedian[i] - scale;
|
||||||
|
scale := 0;
|
||||||
|
for j := 0 to yrange-1 do scale := scale + ColMedian[j];
|
||||||
|
scale := scale / yrange;
|
||||||
|
for j := 0 to yrange-1 do ColMedian[j] := ColMedian[j] - scale;
|
||||||
|
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Normalized Adjusted Data');
|
||||||
|
PrintResults(ObsTable,RowMedian,RowResiduals,ColMedian,ColResiduals,xrange,yrange);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ObsTable[i,j] := ObsTable[i,j] - (RowMedian[i] + ColMedian[j]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Normalized Table minus Row and Column Medians');
|
||||||
|
PrintObsTable(ObsTable,xrange,yrange);
|
||||||
|
for i := 0 to xrange-1 do RowResiduals[i] := 0.0;
|
||||||
|
for j := 0 to yrange-1 do ColResiduals[j] := 0.0;
|
||||||
|
TotResid := 0.0;
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
RowResiduals[i] := RowResiduals[i] + ObsTable[i,j];
|
||||||
|
ColResiduals[j] := ColResiduals[j] + ObsTable[i,j];
|
||||||
|
TotResid := TotResid + ObsTable[i,j];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Normalized Adjusted Data');
|
||||||
|
PrintResults(ObsTable,RowMedian,RowResiduals,ColMedian,ColResiduals,xrange,yrange);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
cellstring := format('Total Table Residuals = %8.3f',[TotResid]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
|
||||||
|
SumAbsRows := 0.0;
|
||||||
|
SumAbsCols := 0.0;
|
||||||
|
SumAbsTable := 0.0;
|
||||||
|
for i := 0 to xrange-1 do SumAbsRows := SumAbsRows + abs(RowMedian[i]);
|
||||||
|
for j := 0 to yrange-1 do SumAbsCols := SumAbsCols + abs(ColMedian[j]);
|
||||||
|
for i := 0 to xrange - 1 do
|
||||||
|
for j := 0 to yrange - 1 do
|
||||||
|
SumAbsTable := SumAbsTable + abs(ObsTable[i,j]);
|
||||||
|
cellstring := format('Absolute Sums of Row, Col and Interactions = %8.3f %8.3f %8.3f',
|
||||||
|
[SumAbsRows, SumAbsCols, SumAbsTable]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
total := SumAbsRows + SumAbsCols + SumAbsTable;
|
||||||
|
cellstring := format('Absolute Sums of Table Values prior to Extracting Row and Col. = %8.3f',
|
||||||
|
[TableSum]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
cellstring := format('Percentages explained by rows, col.s, interactions plus error %8.3f %8.3f %8.3f',
|
||||||
|
[100*SumAbsRows/total, 100*SumAbsCols/total, 100*SumAbsTable/total]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
explained := 100*SumAbsRows/total + 100*SumAbsCols/total + 100*SumAbsTable/total;
|
||||||
|
cellstring := format('Percentage explained = %8.3f percent',[explained]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
|
||||||
|
TwoWayPlot(xrange, RowMedian,'Rows','ROW MEDIANS');
|
||||||
|
TwoWayPlot(yrange, ColMedian,'Columns','COL. MEDIANS');
|
||||||
|
end; // Bills method
|
||||||
|
|
||||||
|
// Now do traditional median smoothing
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Tukey Iterative Median Smoothing Method');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
NoIterations := StrToInt(MaxEdit.Text);
|
||||||
|
done := false;
|
||||||
|
iteration := 1;
|
||||||
|
for i := 0 to xrange-1 do RowEffects[i] := 0.0;
|
||||||
|
for j := 0 to yrange-1 do ColEffects[j] := 0.0;
|
||||||
|
while not done do
|
||||||
|
begin
|
||||||
|
// Get residuals from the median for each row
|
||||||
|
count := 0;
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
count := 0;
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
GroupScores[count] := Observed[0,i,j];
|
||||||
|
count := count + 1;
|
||||||
|
end;
|
||||||
|
sortvalues(GroupScores,count);
|
||||||
|
M := Median(GroupScores,count);
|
||||||
|
RowMedian[i] := M;
|
||||||
|
for j := 0 to yrange-1 do Observed[0,i,j] := Observed[0,i,j] - M;
|
||||||
|
for j := 0 to yrange-1 do RowResiduals[i] := RowResiduals[i] + Observed[0,i,j];
|
||||||
|
CumRowResiduals[i] := CumRowResiduals[i] + abs(RowResiduals[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// get sum of residuals for cols
|
||||||
|
count := 0;
|
||||||
|
for i := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
count := 0;
|
||||||
|
for j := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
GroupScores[count] := Observed[0,j,i];
|
||||||
|
count := count + 1;
|
||||||
|
end;
|
||||||
|
sortvalues(GroupScores,count);
|
||||||
|
M := Median(GroupScores,count);
|
||||||
|
ColMedian[i] := M;
|
||||||
|
for j := 0 to xrange-1 do Observed[0,j,i] := Observed[0,j,i] - M;
|
||||||
|
for j := 0 to xrange-1 do ColResiduals[i] := ColResiduals[i] + Observed[0,j,i];
|
||||||
|
CumColResiduals[i] := CumColResiduals[i] + abs(ColResiduals[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// build table of results
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ObsTable[i,j] := Observed[0,i,j]; // Residuals[0,i,j];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// if ItersBtn.Checked then
|
||||||
|
// begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
cellstring := format('Iteration = %d',[iteration]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
PrintResults(ObsTable,RowMedian,RowResiduals,ColMedian,ColResiduals,xrange,yrange);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Row Effects');
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
GroupScores[i] := RowMedian[i];
|
||||||
|
end;
|
||||||
|
sortvalues(GroupScores,xrange);
|
||||||
|
M := Median(GroupScores,xrange);
|
||||||
|
cellstring := format('Overall Median = %8.3f',[m]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
RowEffects[i] := RowEffects[i] + (RowMedian[i] - M);
|
||||||
|
cellstring := format('Row %d Effect = %8.3f',[i+1,RowEffects[i]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Column Effects');
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ColEffects[j] := ColEffects[j] + ColMedian[j];
|
||||||
|
cellstring := format('Col. %d Effect = %8.3f',[j+1,ColEffects[j]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
end;
|
||||||
|
// OutPutFrm.ShowModal;
|
||||||
|
// OutPutFrm.RichEdit.Clear;
|
||||||
|
// end;
|
||||||
|
for i := 0 to xrange-1 do RowResiduals[i] := 0.0;
|
||||||
|
for j := 0 to yrange-1 do ColResiduals[j] := 0.0;
|
||||||
|
NoIterations := NoIterations - 1;
|
||||||
|
iteration := iteration + 1;
|
||||||
|
if NoIterations = 0 then done := true;
|
||||||
|
sumrowmedians := 0.0;
|
||||||
|
sumcolmedians := 0.0;
|
||||||
|
for i := 0 to xrange-1 do sumrowmedians := sumrowmedians + RowMedian[i];
|
||||||
|
for i := 0 to yrange-1 do sumcolmedians := sumcolmedians + ColMedian[i];
|
||||||
|
if (sumrowmedians + sumcolmedians) = 0.0 then done := true;
|
||||||
|
if done then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('SUMMARY OF THE ANALYSIS');
|
||||||
|
PrintResults(ObsTable,RowMedian,RowResiduals,ColMedian,ColResiduals,xrange,yrange);
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
RowEffects[i] := RowEffects[i] + (RowMedian[i] - M);
|
||||||
|
cellstring := format('Row %d Effect = %8.3f',[i+1,RowEffects[i]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Column Effects');
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
ColEffects[j] := ColEffects[j] + ColMedian[j];
|
||||||
|
cellstring := format('Col. %d Effect = %8.3f',[j+1,ColEffects[j]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
end;
|
||||||
|
k := 0;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
for i := 0 to xrange-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to yrange-1 do
|
||||||
|
begin
|
||||||
|
WholeTable[k] := ObsTable[i,j];
|
||||||
|
k := k + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
sortvalues(WholeTable,xrange*yrange);
|
||||||
|
M := Median(WholeTable,xrange*yrange);
|
||||||
|
Q1 := Quartiles(2,0.25,xrange*yrange,WholeTable);
|
||||||
|
Q3 := Quartiles(2,0.75,xrange*yrange,WholeTable);
|
||||||
|
cellstring := format('Quartiles of the residuals = %8.3f %8.3f',
|
||||||
|
[Q1, Q3]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
Qrange2 := Q3 - Q1;
|
||||||
|
cellstring := format('Original interquartile and final interquartile ranges = %8.3f %8.3f',
|
||||||
|
[Qrange1, Qrange2]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
cellstring := format('Quality of the additive fit = %8.3f percent',
|
||||||
|
[100 * (Qrange1 - Qrange2) / Qrange1]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
end;
|
||||||
|
end; // while not done
|
||||||
|
// if ItersBtn.Checked then
|
||||||
|
// begin
|
||||||
|
TwoWayPlot(xrange, RowEffects,'Rows','CUMULATIVE ROW EFFECTS');
|
||||||
|
TwoWayPlot(yrange, ColEffects,'Columns','CUMULATIVE COL. EFFECTS');
|
||||||
|
InteractPlot(xrange, yrange, ObsTable, 'Interaction',
|
||||||
|
'RESIDUALS OF ROWS AND COLUMNS');
|
||||||
|
// end;
|
||||||
|
// cleanup
|
||||||
|
ColEffects := nil;
|
||||||
|
RowEffects := nil;
|
||||||
|
WholeTable := nil;
|
||||||
|
CumColResiduals := nil;
|
||||||
|
CumRowResiduals := nil;
|
||||||
|
ObsTable := nil;
|
||||||
|
ColMedian := nil;
|
||||||
|
RowMedian := nil;
|
||||||
|
GroupScores := nil;
|
||||||
|
CellCount := nil;
|
||||||
|
ColResiduals := nil;
|
||||||
|
RowResiduals := nil;
|
||||||
|
Residuals := nil;
|
||||||
|
Observed := nil;
|
||||||
|
ColNoSelected := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.DepIn1Click(Sender: TObject);
|
||||||
|
var index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
DepVar.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
DepIn1.Visible := false;
|
||||||
|
DepOut.Visible := true;;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.DepOutClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(DepVar.Text);
|
||||||
|
DepVar.Text := '';
|
||||||
|
DepIn1.Visible := true;
|
||||||
|
DepOut.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.Fact1InClick(Sender: TObject);
|
||||||
|
var index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
Factor1.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
Fact1In.Visible := false;
|
||||||
|
Fact1Out.Visible := true;;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.Fact1OutClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(Factor1.Text);
|
||||||
|
Factor1.Text := '';
|
||||||
|
Fact1In.Visible := true;
|
||||||
|
Fact1Out.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.Fact2InClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
Factor2.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
Fact2In.Visible := false;
|
||||||
|
Fact2Out.Visible := true;;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.Fact2OutClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(Factor2.Text);
|
||||||
|
Factor2.Text := '';
|
||||||
|
Fact2In.Visible := true;
|
||||||
|
Fact2Out.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.ItersBtnChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TMedianPolishForm.Median(VAR X : DblDyneVec; size : integer) : double;
|
||||||
|
var
|
||||||
|
midpt : integer;
|
||||||
|
value : double;
|
||||||
|
i : integer;
|
||||||
|
cellstring : string;
|
||||||
|
begin
|
||||||
|
(* check for correct median calculation
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Sorted values to get median');
|
||||||
|
cellstring := format('size of array = %d',[size]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
for i := 0 to size do
|
||||||
|
begin
|
||||||
|
cellstring := format('no. %d = %9.3f',[i+1,X[i]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
if size > 2 then
|
||||||
|
begin
|
||||||
|
midpt := size div 2;
|
||||||
|
if 2 * midpt = size then // even no. of values
|
||||||
|
begin
|
||||||
|
value := (X[midpt-1] + X[midpt]) / 2;
|
||||||
|
end
|
||||||
|
else value := X[midpt]; // odd no. of values
|
||||||
|
Median := value;
|
||||||
|
end
|
||||||
|
else if size = 2 then Median := (X[0] + X[1]) / 2;
|
||||||
|
// cellstring := format('Median = %9.3f',[value]);
|
||||||
|
// OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.PrintObsTable(ObsTable : DblDyneMat; nrows, ncols : integer);
|
||||||
|
VAR
|
||||||
|
cellstring, outline : string;
|
||||||
|
i, j : integer;
|
||||||
|
begin
|
||||||
|
outline := 'Observed Data';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := 'ROW COLUMNS';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := ' ';
|
||||||
|
for i := 1 to ncols do
|
||||||
|
begin
|
||||||
|
outline := outline + format('%10d',[i]);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
for i := 1 to nrows do
|
||||||
|
begin
|
||||||
|
outline := format('%3d ',[i]);
|
||||||
|
for j := 1 to ncols do
|
||||||
|
begin
|
||||||
|
cellstring := format('%9.3f ',[ObsTable[i-1,j-1]]);
|
||||||
|
outline := outline + cellstring;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.PrintResults(ObsTable : DblDyneMat;
|
||||||
|
rowmedian,rowresid : DblDyneVec;
|
||||||
|
comedian, colresid : DblDyneVec; nrows, ncols : integer);
|
||||||
|
var
|
||||||
|
i, j : integer;
|
||||||
|
cellstring, outline : string;
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := 'Adjusted Data';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := 'MEDIAN';
|
||||||
|
for i := 1 to ncols do
|
||||||
|
begin
|
||||||
|
outline := outline + format('%10d',[i]);
|
||||||
|
end;
|
||||||
|
outline := outline + ' Residuals';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := '---------------------------------------------------------';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
for i := 0 to nrows-1 do
|
||||||
|
begin
|
||||||
|
cellstring := format('%9.3f ',[rowmedian[i]]);
|
||||||
|
outline := cellstring;
|
||||||
|
for j := 0 to ncols-1 do
|
||||||
|
begin
|
||||||
|
cellstring := format('%9.3f ',[ObsTable[i,j]]);
|
||||||
|
outline := outline + cellstring;
|
||||||
|
end;
|
||||||
|
cellstring := format('%9.3f ',[rowresid[i]]);
|
||||||
|
outline := outline + cellstring;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
outline := '---------------------------------------------------------';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
cellstring := 'Col.Resid.';
|
||||||
|
outline := cellstring;
|
||||||
|
for j := 0 to ncols-1 do
|
||||||
|
begin
|
||||||
|
cellstring := format('%9.3f ',[colresid[j]]);
|
||||||
|
outline := outline + cellstring;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
cellstring := 'Col.Median';
|
||||||
|
outline := cellstring;
|
||||||
|
for j := 0 to ncols-1 do
|
||||||
|
begin
|
||||||
|
cellstring := format('%9.3f ',[comedian[j]]);
|
||||||
|
outline := outline + cellstring;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Cumulative absolute value of Row Residuals');
|
||||||
|
for j := 0 to nrows-1 do
|
||||||
|
begin
|
||||||
|
outline := format('Row = %d Cum.Residuals = %9.3f',[j+1,CumRowResiduals[j]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Cumulative absolute value of Column Residuals');
|
||||||
|
for j := 0 to ncols-1 do
|
||||||
|
begin
|
||||||
|
outline := format('Column = %d Cum.Residuals = %9.3f',[j+1,CumColResiduals[j]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.sortvalues(VAR X : DblDyneVec; size : integer);
|
||||||
|
VAR
|
||||||
|
i, j : integer;
|
||||||
|
temp : double;
|
||||||
|
cellstring : string;
|
||||||
|
begin
|
||||||
|
for i := 0 to size-2 do
|
||||||
|
begin
|
||||||
|
for j := i+1 to size-1 do
|
||||||
|
begin
|
||||||
|
if X[i] > X[j] then // swap
|
||||||
|
begin
|
||||||
|
temp := X[i];
|
||||||
|
X[i] := X[j];
|
||||||
|
X[j] := temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
// OutPutFrm.RichEdit.Lines.Add('Sorted values');
|
||||||
|
// for i := 0 to size-1 do
|
||||||
|
// begin
|
||||||
|
// cellstring := format('no. %d = %9.3f',[i+1,X[i]]);
|
||||||
|
// OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
// end;
|
||||||
|
// OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
end;
|
||||||
|
//-----------------------------------------------------------------------
|
||||||
|
procedure TMedianPolishForm.TwoWayPlot(NF1cells : integer;
|
||||||
|
RowSums : DblDyneVec; graphtitle : string; Heading : string);
|
||||||
|
var
|
||||||
|
i, j : integer;
|
||||||
|
minmean, maxmean, XBar : double;
|
||||||
|
XValue : DblDyneVec;
|
||||||
|
title : string;
|
||||||
|
plottype : integer;
|
||||||
|
setstring : string[11];
|
||||||
|
|
||||||
|
begin
|
||||||
|
SetLength(XValue,Nf1cells);
|
||||||
|
plottype := 2;
|
||||||
|
setstring := 'Group';
|
||||||
|
GraphFrm.SetLabels[1] := setstring;
|
||||||
|
maxmean := -10000.0;
|
||||||
|
minmean := 10000.0;
|
||||||
|
SetLength(GraphFrm.Xpoints,1,NF1cells);
|
||||||
|
SetLength(GraphFrm.Ypoints,1,NF1cells);
|
||||||
|
for i := 1 to NF1cells do
|
||||||
|
begin
|
||||||
|
GraphFrm.Ypoints[0,i-1] := RowSums[i-1];
|
||||||
|
if RowSums[i-1] > maxmean then maxmean := RowSums[i-1];
|
||||||
|
if RowSums[i-1] < minmean then minmean := RowSums[i-1];
|
||||||
|
XValue[i-1] := i;
|
||||||
|
GraphFrm.Xpoints[0,i-1] := XValue[i-1];
|
||||||
|
end;
|
||||||
|
GraphFrm.nosets := 1;
|
||||||
|
GraphFrm.nbars := NF1cells;
|
||||||
|
GraphFrm.Heading := Heading;
|
||||||
|
title := graphtitle;
|
||||||
|
GraphFrm.XTitle := title;
|
||||||
|
GraphFrm.YTitle := 'Y Values';
|
||||||
|
GraphFrm.barwideprop := 0.5;
|
||||||
|
GraphFrm.AutoScale := false;
|
||||||
|
GraphFrm.miny := minmean;
|
||||||
|
GraphFrm.maxy := maxmean;
|
||||||
|
GraphFrm.GraphType := plottype;
|
||||||
|
GraphFrm.BackColor := clYellow;
|
||||||
|
GraphFrm.WallColor := clBlack;
|
||||||
|
GraphFrm.FloorColor := clLtGray;
|
||||||
|
GraphFrm.ShowBackWall := true;
|
||||||
|
GraphFrm.ShowModal;
|
||||||
|
GraphFrm.Xpoints := nil;
|
||||||
|
GraphFrm.Ypoints := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMedianPolishForm.InteractPlot(NF1cells, NF2Cells : integer;
|
||||||
|
ObsTable :DblDyneMat; graphtitle : string;
|
||||||
|
Heading : string);
|
||||||
|
VAR
|
||||||
|
i, j : integer;
|
||||||
|
minmean, maxmean, XBar : double;
|
||||||
|
XValue, YValue : DblDyneVec;
|
||||||
|
title : string;
|
||||||
|
plottype : integer;
|
||||||
|
setstring : string[11];
|
||||||
|
|
||||||
|
begin
|
||||||
|
SetLength(GraphFrm.Ypoints,NF1cells,NF2cells);
|
||||||
|
SetLength(GraphFrm.Xpoints,1,NF2cells);
|
||||||
|
SetLength(XValue,Nf1cells+Nf2cells);
|
||||||
|
plottype := 2;
|
||||||
|
for i := 1 to NF1cells do
|
||||||
|
begin
|
||||||
|
setstring := 'Row ' + IntToStr(i);
|
||||||
|
GraphFrm.SetLabels[i] := setstring;
|
||||||
|
for j := 1 to NF2cells do
|
||||||
|
begin
|
||||||
|
XBar := ObsTable[i-1,j-1];
|
||||||
|
if XBar > maxmean then maxmean := XBar;
|
||||||
|
if XBar < minmean then minmean := XBar;
|
||||||
|
GraphFrm.Ypoints[i-1,j-1] := XBar;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for j := 1 to NF2cells do
|
||||||
|
begin
|
||||||
|
XValue[j-1] := j;
|
||||||
|
GraphFrm.Xpoints[0,j-1] := XValue[j-1];
|
||||||
|
end;
|
||||||
|
|
||||||
|
GraphFrm.nosets := NF1cells;
|
||||||
|
GraphFrm.nbars := NF2cells;
|
||||||
|
GraphFrm.Heading := 'Factor X x Factor Y';
|
||||||
|
title := 'Column Codes';
|
||||||
|
GraphFrm.XTitle := title;
|
||||||
|
GraphFrm.YTitle := 'Mean';
|
||||||
|
GraphFrm.barwideprop := 0.5;
|
||||||
|
GraphFrm.AutoScale := false;
|
||||||
|
GraphFrm.miny := minmean;
|
||||||
|
GraphFrm.maxy := maxmean;
|
||||||
|
GraphFrm.GraphType := plottype;
|
||||||
|
GraphFrm.BackColor := clYellow;
|
||||||
|
GraphFrm.WallColor := clBlack;
|
||||||
|
GraphFrm.FloorColor := clLtGray;
|
||||||
|
GraphFrm.ShowBackWall := true;
|
||||||
|
GraphFrm.ShowModal;
|
||||||
|
XValue := nil;
|
||||||
|
GraphFrm.Xpoints := nil;
|
||||||
|
GraphFrm.Ypoints := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I medianpolishunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
100
applications/lazstats/source_orig/moveavgunit.lfm
Normal file
100
applications/lazstats/source_orig/moveavgunit.lfm
Normal file
@@ -0,0 +1,100 @@
|
|||||||
|
object MoveAvgFrm: TMoveAvgFrm
|
||||||
|
Left = 180
|
||||||
|
Height = 252
|
||||||
|
Top = 112
|
||||||
|
Width = 276
|
||||||
|
Caption = 'Moving Average Specification Form'
|
||||||
|
ClientHeight = 252
|
||||||
|
ClientWidth = 276
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 16
|
||||||
|
Width = 36
|
||||||
|
Caption = 'Order: '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 56
|
||||||
|
Width = 65
|
||||||
|
Caption = 'Theta Value: '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object OrderEdit: TEdit
|
||||||
|
Left = 48
|
||||||
|
Height = 21
|
||||||
|
Top = 9
|
||||||
|
Width = 37
|
||||||
|
OnKeyPress = OrderEditKeyPress
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'OrderEdit'
|
||||||
|
end
|
||||||
|
object ThetaEdit: TEdit
|
||||||
|
Left = 74
|
||||||
|
Height = 21
|
||||||
|
Top = 49
|
||||||
|
Width = 40
|
||||||
|
OnKeyPress = ThetaEditKeyPress
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'ThetaEdit'
|
||||||
|
end
|
||||||
|
object ThetaList: TListBox
|
||||||
|
Left = 7
|
||||||
|
Height = 147
|
||||||
|
Top = 80
|
||||||
|
Width = 162
|
||||||
|
ItemHeight = 0
|
||||||
|
OnClick = ThetaListClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 184
|
||||||
|
Height = 32
|
||||||
|
Top = 49
|
||||||
|
Width = 80
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 184
|
||||||
|
Height = 32
|
||||||
|
Top = 96
|
||||||
|
Width = 80
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ApplyBtn: TButton
|
||||||
|
Left = 184
|
||||||
|
Height = 32
|
||||||
|
Top = 144
|
||||||
|
Width = 80
|
||||||
|
Caption = 'Apply'
|
||||||
|
OnClick = ApplyBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object OKBtn: TButton
|
||||||
|
Left = 184
|
||||||
|
Height = 32
|
||||||
|
Top = 195
|
||||||
|
Width = 80
|
||||||
|
Caption = 'OK'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 132
|
||||||
|
Left = 184
|
||||||
|
Height = 28
|
||||||
|
Top = 8
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
end
|
||||||
27
applications/lazstats/source_orig/moveavgunit.lrs
Normal file
27
applications/lazstats/source_orig/moveavgunit.lrs
Normal file
@@ -0,0 +1,27 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMoveAvgFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TMoveAvgFrm'#10'MoveAvgFrm'#4'Left'#3#180#0#6'Height'#3#252#0#3'Top'
|
||||||
|
+#2'p'#5'Width'#3#20#1#7'Caption'#6'!Moving Average Specification Form'#12'Cl'
|
||||||
|
+'ientHeight'#3#252#0#11'ClientWidth'#3#20#1#6'OnShow'#7#8'FormShow'#10'LCLVe'
|
||||||
|
+'rsion'#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'
|
||||||
|
+#2#16#5'Width'#2'$'#7'Caption'#6#7'Order: '#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||||
|
+'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'8'#5'Width'#2'A'#7'Caption'#6#13
|
||||||
|
+'Theta Value: '#11'ParentColor'#8#0#0#5'TEdit'#9'OrderEdit'#4'Left'#2'0'#6'H'
|
||||||
|
+'eight'#2#21#3'Top'#2#9#5'Width'#2'%'#10'OnKeyPress'#7#17'OrderEditKeyPress'
|
||||||
|
+#8'TabOrder'#2#0#4'Text'#6#9'OrderEdit'#0#0#5'TEdit'#9'ThetaEdit'#4'Left'#2
|
||||||
|
+'J'#6'Height'#2#21#3'Top'#2'1'#5'Width'#2'('#10'OnKeyPress'#7#17'ThetaEditKe'
|
||||||
|
+'yPress'#8'TabOrder'#2#1#4'Text'#6#9'ThetaEdit'#0#0#8'TListBox'#9'ThetaList'
|
||||||
|
+#4'Left'#2#7#6'Height'#3#147#0#3'Top'#2'P'#5'Width'#3#162#0#10'ItemHeight'#2
|
||||||
|
+#0#7'OnClick'#7#14'ThetaListClick'#8'TabOrder'#2#2#0#0#7'TButton'#8'ResetBtn'
|
||||||
|
+#4'Left'#3#184#0#6'Height'#2' '#3'Top'#2'1'#5'Width'#2'P'#7'Caption'#6#5'Res'
|
||||||
|
+'et'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#3#0#0#7'TButton'#9'CancelB'
|
||||||
|
+'tn'#4'Left'#3#184#0#6'Height'#2' '#3'Top'#2'`'#5'Width'#2'P'#7'Caption'#6#6
|
||||||
|
+'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#4#0#0#7'TButton'#8'ApplyBtn'#4'Le'
|
||||||
|
+'ft'#3#184#0#6'Height'#2' '#3'Top'#3#144#0#5'Width'#2'P'#7'Caption'#6#5'Appl'
|
||||||
|
+'y'#7'OnClick'#7#13'ApplyBtnClick'#8'TabOrder'#2#5#0#0#7'TButton'#5'OKBtn'#4
|
||||||
|
+'Left'#3#184#0#6'Height'#2' '#3'Top'#3#195#0#5'Width'#2'P'#7'Caption'#6#2'OK'
|
||||||
|
+#11'ModalResult'#2#1#8'TabOrder'#2#6#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#132#0
|
||||||
|
+#4'Left'#3#184#0#6'Height'#2#28#3'Top'#2#8#5'Width'#2'Q'#7'Caption'#6#4'Help'
|
||||||
|
+#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#7#0#0#0
|
||||||
|
]);
|
||||||
129
applications/lazstats/source_orig/moveavgunit.pas
Normal file
129
applications/lazstats/source_orig/moveavgunit.pas
Normal file
@@ -0,0 +1,129 @@
|
|||||||
|
unit MoveAvgUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMoveAvgFrm }
|
||||||
|
|
||||||
|
TMoveAvgFrm = class(TForm)
|
||||||
|
HelpBtn: TButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ApplyBtn: TButton;
|
||||||
|
OKBtn: TButton;
|
||||||
|
ThetaList: TListBox;
|
||||||
|
ThetaEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
OrderEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure ApplyBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure OrderEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure ThetaEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
procedure ThetaListClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
W : array[0..20] of double;
|
||||||
|
order : integer;
|
||||||
|
currentindex : integer;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MoveAvgFrm: TMoveAvgFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TMoveAvgFrm }
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
OrderEdit.Text := '';
|
||||||
|
ThetaEdit.Text := '';
|
||||||
|
ThetaList.Clear;
|
||||||
|
currentindex := 0;
|
||||||
|
for i := 0 to 20 do W[i] := 1.0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.ThetaEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
var cellstring : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if currentindex < 1 then exit;
|
||||||
|
if ord(Key) <> 13 then exit;
|
||||||
|
cellstring := 'Theta(' + IntToStr(currentindex + 1) + ') = ';
|
||||||
|
cellstring := cellstring + ThetaEdit.Text;
|
||||||
|
W[currentindex + 1] := StrToFloat(ThetaEdit.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.ThetaListClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := ThetaList.ItemIndex;
|
||||||
|
if index < 0 then exit;
|
||||||
|
currentindex := index;
|
||||||
|
ThetaEdit.Text := '1.0';
|
||||||
|
ThetaEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.ApplyBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
sum : double;
|
||||||
|
i : integer;
|
||||||
|
cellstring : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
ThetaList.Clear;
|
||||||
|
sum := W[0];
|
||||||
|
for i := 1 to order do sum := sum + (2.0 * W[i]);
|
||||||
|
for i := 0 to order do
|
||||||
|
begin
|
||||||
|
W[i] := W[i] / sum;
|
||||||
|
cellstring := 'Theta(' + IntToStr(i+1) + ') = ';
|
||||||
|
cellstring := cellstring + FloatToStr(W[i]);
|
||||||
|
ThetaList.Items.Add(cellstring);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMoveAvgFrm.OrderEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
VAR cellstring : string;
|
||||||
|
i : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if ord(Key) <> 13 then exit;
|
||||||
|
ThetaList.Clear;
|
||||||
|
order := StrToInt(OrderEdit.Text);
|
||||||
|
for i := 1 to order do
|
||||||
|
begin
|
||||||
|
cellstring := 'Theta(' + IntToStr(i) + ')';
|
||||||
|
ThetaList.Items.Add(cellstring);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I moveavgunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
129
applications/lazstats/source_orig/multgenunit.lfm
Normal file
129
applications/lazstats/source_orig/multgenunit.lfm
Normal file
@@ -0,0 +1,129 @@
|
|||||||
|
object MultGenFrm: TMultGenFrm
|
||||||
|
Left = 211
|
||||||
|
Height = 396
|
||||||
|
Top = 108
|
||||||
|
Width = 561
|
||||||
|
Caption = 'Multivariate Generator'
|
||||||
|
ClientHeight = 396
|
||||||
|
ClientWidth = 561
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 14
|
||||||
|
Top = 16
|
||||||
|
Width = 101
|
||||||
|
Caption = 'Number of variables:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 176
|
||||||
|
Height = 14
|
||||||
|
Top = 16
|
||||||
|
Width = 61
|
||||||
|
Caption = 'Sample Size:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NoVarsEdit: TEdit
|
||||||
|
Left = 120
|
||||||
|
Height = 21
|
||||||
|
Top = 8
|
||||||
|
Width = 45
|
||||||
|
OnExit = NoVarsEditExit
|
||||||
|
OnKeyPress = NoVarsEditKeyPress
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'NoVarsEdit'
|
||||||
|
end
|
||||||
|
object NoObsEdit: TEdit
|
||||||
|
Left = 248
|
||||||
|
Height = 21
|
||||||
|
Top = 8
|
||||||
|
Width = 34
|
||||||
|
OnExit = NoObsEditExit
|
||||||
|
OnKeyPress = NoObsEditKeyPress
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'NoObsEdit'
|
||||||
|
end
|
||||||
|
object ParmsChk: TCheckBox
|
||||||
|
Left = 304
|
||||||
|
Height = 17
|
||||||
|
Top = 13
|
||||||
|
Width = 100
|
||||||
|
Caption = 'Print Parametes:'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object SampleChk: TCheckBox
|
||||||
|
Left = 416
|
||||||
|
Height = 17
|
||||||
|
Top = 13
|
||||||
|
Width = 111
|
||||||
|
Caption = 'Print Sample Stats:'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object PerturbChk: TCheckBox
|
||||||
|
Left = 304
|
||||||
|
Height = 17
|
||||||
|
Top = 40
|
||||||
|
Width = 227
|
||||||
|
Caption = 'Select Distribution Perturbation Parameters'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 128
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 232
|
||||||
|
Height = 30
|
||||||
|
Top = 352
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 336
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 470
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object Grid: TStringGrid
|
||||||
|
Left = 9
|
||||||
|
Height = 265
|
||||||
|
Top = 64
|
||||||
|
Width = 532
|
||||||
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs, goSmoothScroll]
|
||||||
|
TabOrder = 9
|
||||||
|
OnKeyPress = GridKeyPress
|
||||||
|
OnSetEditText = GridSetEditText
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 133
|
||||||
|
Left = 8
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
37
applications/lazstats/source_orig/multgenunit.lrs
Normal file
37
applications/lazstats/source_orig/multgenunit.lrs
Normal file
@@ -0,0 +1,37 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMultGenFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TMultGenFrm'#10'MultGenFrm'#4'Left'#3#211#0#6'Height'#3#140#1#3'Top'
|
||||||
|
+#2'l'#5'Width'#3'1'#2#7'Caption'#6#22'Multivariate Generator'#12'ClientHeigh'
|
||||||
|
+'t'#3#140#1#11'ClientWidth'#3'1'#2#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8
|
||||||
|
+'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#9#6'Height'#2#14#3'Top'#2#16#5'Wi'
|
||||||
|
+'dth'#2'e'#7'Caption'#6#20'Number of variables:'#11'ParentColor'#8#0#0#6'TLa'
|
||||||
|
+'bel'#6'Label2'#4'Left'#3#176#0#6'Height'#2#14#3'Top'#2#16#5'Width'#2'='#7'C'
|
||||||
|
+'aption'#6#12'Sample Size:'#11'ParentColor'#8#0#0#5'TEdit'#10'NoVarsEdit'#4
|
||||||
|
+'Left'#2'x'#6'Height'#2#21#3'Top'#2#8#5'Width'#2'-'#6'OnExit'#7#14'NoVarsEdi'
|
||||||
|
+'tExit'#10'OnKeyPress'#7#18'NoVarsEditKeyPress'#8'TabOrder'#2#0#4'Text'#6#10
|
||||||
|
+'NoVarsEdit'#0#0#5'TEdit'#9'NoObsEdit'#4'Left'#3#248#0#6'Height'#2#21#3'Top'
|
||||||
|
+#2#8#5'Width'#2'"'#6'OnExit'#7#13'NoObsEditExit'#10'OnKeyPress'#7#17'NoObsEd'
|
||||||
|
+'itKeyPress'#8'TabOrder'#2#1#4'Text'#6#9'NoObsEdit'#0#0#9'TCheckBox'#8'Parms'
|
||||||
|
+'Chk'#4'Left'#3'0'#1#6'Height'#2#17#3'Top'#2#13#5'Width'#2'd'#7'Caption'#6#16
|
||||||
|
+'Print Parametes:'#8'TabOrder'#2#2#0#0#9'TCheckBox'#9'SampleChk'#4'Left'#3
|
||||||
|
+#160#1#6'Height'#2#17#3'Top'#2#13#5'Width'#2'o'#7'Caption'#6#19'Print Sample'
|
||||||
|
+' Stats:'#8'TabOrder'#2#3#0#0#9'TCheckBox'#10'PerturbChk'#4'Left'#3'0'#1#6'H'
|
||||||
|
+'eight'#2#17#3'Top'#2'('#5'Width'#3#227#0#7'Caption'#6'+Select Distribution '
|
||||||
|
+'Perturbation Parameters'#8'TabOrder'#2#4#0#0#7'TButton'#8'ResetBtn'#4'Left'
|
||||||
|
+#3#128#0#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'G'#7'Caption'#6#5'Reset'#7
|
||||||
|
+'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#5#0#0#7'TButton'#9'CancelBtn'#4
|
||||||
|
+'Left'#3#232#0#6'Height'#2#30#3'Top'#3'`'#1#5'Width'#2'G'#7'Caption'#6#6'Can'
|
||||||
|
+'cel'#11'ModalResult'#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#6#0#0
|
||||||
|
+#7'TButton'#10'ComputeBtn'#4'Left'#3'P'#1#6'Height'#2#28#3'Top'#3'`'#1#5'Wid'
|
||||||
|
+'th'#2'G'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrde'
|
||||||
|
+'r'#2#7#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#214#1#6'Height'#2#28#3'Top'#3
|
||||||
|
+'`'#1#5'Width'#2'G'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#7'OnClick'#7
|
||||||
|
+#14'ReturnBtnClick'#8'TabOrder'#2#8#0#0#11'TStringGrid'#4'Grid'#4'Left'#2#9#6
|
||||||
|
+'Height'#3#9#1#3'Top'#2'@'#5'Width'#3#20#2#7'Options'#11#15'goFixedVertLine'
|
||||||
|
+#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9'goEdi'
|
||||||
|
+'ting'#6'goTabs'#14'goSmoothScroll'#0#8'TabOrder'#2#9#10'OnKeyPress'#7#12'Gr'
|
||||||
|
+'idKeyPress'#13'OnSetEditText'#7#15'GridSetEditText'#0#0#7'TButton'#7'HelpBt'
|
||||||
|
+'n'#3'Tag'#3#133#0#4'Left'#2#8#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'Q'#7
|
||||||
|
+'Caption'#6#4'Help'#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#10#0#0#0
|
||||||
|
]);
|
||||||
452
applications/lazstats/source_orig/multgenunit.pas
Normal file
452
applications/lazstats/source_orig/multgenunit.pas
Normal file
@@ -0,0 +1,452 @@
|
|||||||
|
unit MultGenUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Grids, Globals, MainUnit, OutPutUnit, Math,
|
||||||
|
DictionaryUnit, MatrixLib, contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMultGenFrm }
|
||||||
|
|
||||||
|
TMultGenFrm = class(TForm)
|
||||||
|
HelpBtn: TButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
PerturbChk: TCheckBox;
|
||||||
|
SampleChk: TCheckBox;
|
||||||
|
ParmsChk: TCheckBox;
|
||||||
|
NoObsEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
NoVarsEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Grid: TStringGrid;
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure GridKeyPress(Sender: TObject; var Key: char);
|
||||||
|
procedure GridSetEditText(Sender: TObject; ACol, ARow: Integer;
|
||||||
|
const Value: string);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure NoObsEditExit(Sender: TObject);
|
||||||
|
procedure NoObsEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
procedure NoVarsEditExit(Sender: TObject);
|
||||||
|
procedure NoVarsEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
NoVars : integer;
|
||||||
|
NoObs : integer;
|
||||||
|
gridrow, gridcol : integer;
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MultGenFrm: TMultGenFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TMultGenFrm }
|
||||||
|
|
||||||
|
procedure TMultGenFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i, j : integer;
|
||||||
|
begin
|
||||||
|
NoVarsEdit.Text := '';
|
||||||
|
NoObsEdit.Text := '';
|
||||||
|
ParmsChk.Checked := true;
|
||||||
|
SampleChk.Checked := true;
|
||||||
|
Grid.RowCount := 2;
|
||||||
|
Grid.ColCount := 2;
|
||||||
|
for i := 0 to 1 do
|
||||||
|
for j := 0 to 1 do Grid.Cells[i,j] := '';
|
||||||
|
CancelBtn.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
RhoMat : DblDyneMat;
|
||||||
|
SampMat : DblDyneMat;
|
||||||
|
Mus : DblDyneVec;
|
||||||
|
means : DblDyneVec;
|
||||||
|
Sigmas : DblDyneVec;
|
||||||
|
stddevs : DblDyneVec;
|
||||||
|
i, j, k, i1, i2, n2, k1 : integer;
|
||||||
|
determ, n3, r1, s8, s9, d2, x, y, mean : double;
|
||||||
|
linestring : string;
|
||||||
|
cellstring : string;
|
||||||
|
singular : boolean;
|
||||||
|
title : string;
|
||||||
|
RowLabels: StrDyneVec;
|
||||||
|
ColLabels: StrDyneVec;
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
|
||||||
|
// get memory allocations
|
||||||
|
SetLength(RhoMat,NoVars,NoVars);
|
||||||
|
SetLength(SampMat,NoVars,NoVars);
|
||||||
|
SetLength(Mus,NoVars);
|
||||||
|
SetLength(means,NoVars);
|
||||||
|
SetLength(Sigmas,NoVars);
|
||||||
|
SetLength(stddevs,NoVars);
|
||||||
|
SetLength(RowLabels,NoVars);
|
||||||
|
SetLength(ColLabels,NoVars);
|
||||||
|
|
||||||
|
// get data from grid into arrays
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
for j := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
RhoMat[i-1,j-1] := StrToFloat(Grid.Cells[i,j]);
|
||||||
|
end;
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
Mus[i-1] := StrToFloat(Grid.Cells[i,NoVars+1]);
|
||||||
|
Sigmas[i-1] := StrToFloat(Grid.Cells[i,NoVars+2]);
|
||||||
|
RowLabels[i-1] := Grid.Cells[i,0];
|
||||||
|
ColLabels[i-1] := RowLabels[i-1];
|
||||||
|
end;
|
||||||
|
|
||||||
|
// get determinant of Rho matrix, i.e. check for singularity
|
||||||
|
singular := FALSE;
|
||||||
|
for i := 0 to NoVars-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
SampMat[i,j] := RhoMat[i,j] * Sigmas[i] * Sigmas[j];
|
||||||
|
RhoMat[i,j] := SampMat[i,j];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
n2 := 1;
|
||||||
|
i1 := 0;
|
||||||
|
while (n2 < NoVars) do
|
||||||
|
begin
|
||||||
|
for i := n2 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
n3 := RhoMat[i,i1] / RhoMat[i1,i1];
|
||||||
|
for j := n2 to NoVars - 1 do RhoMat[i,j] := RhoMat[i,j] - (RhoMat[i1,j] * n3);
|
||||||
|
end;
|
||||||
|
i1 := n2;
|
||||||
|
n2 := N2 + 1;
|
||||||
|
end;
|
||||||
|
determ := 1.0;
|
||||||
|
for i := 0 to NoVars - 1 do determ := determ * RhoMat[i,i];
|
||||||
|
linestring := format('Determinant of the population matrix = %10.4f',[determ]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(linestring);
|
||||||
|
|
||||||
|
// triangular factorization
|
||||||
|
if (abs(determ) > 0.00001) then
|
||||||
|
begin
|
||||||
|
if (SampMat[0,0] < 0.0) then SampMat[0,0] := 1.0;
|
||||||
|
r1 := sqrt(SampMat[0,0]);
|
||||||
|
for i := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
RhoMat[i,0] := SampMat[i,0] / r1;
|
||||||
|
for j := 1 to NoVars - 1 do RhoMat[i,j] := 0.0;
|
||||||
|
end;
|
||||||
|
for i := 1 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
s9 := 0.0;
|
||||||
|
k1 := i - 1;
|
||||||
|
for k := 0 to k1 - 1 do s9 := s9 + (RhoMat[i,k] * RhoMat[i,k]);
|
||||||
|
d2 := SampMat[i,i] - s9;
|
||||||
|
if (d2 > 0.0) then
|
||||||
|
begin
|
||||||
|
RhoMat[i,i] := sqrt(d2);
|
||||||
|
for j := 1 to i - 1 do
|
||||||
|
begin
|
||||||
|
if (j <> i) then
|
||||||
|
begin
|
||||||
|
s8 := 0.0;
|
||||||
|
k1 := j - 1;
|
||||||
|
for k := 0 to k1 - 1 do s8 := s8 + (RhoMat[i,k] * RhoMat[j,k]);
|
||||||
|
RhoMat[i,j] := (SampMat[i,j] - s8) / RhoMat[j,j];
|
||||||
|
end;
|
||||||
|
end; // end j loop
|
||||||
|
end; // end if d2 > 0
|
||||||
|
end; // end i loop
|
||||||
|
// title := 'Triangularized Matrix';
|
||||||
|
// MAT_PRINT(RhoMat,NoVars,NoVars,title,RowLabels,ColLabels,NoObs);
|
||||||
|
|
||||||
|
// initialize variables for mainform grid
|
||||||
|
NoVariables := 0;
|
||||||
|
DictionaryFrm.DictGrid.RowCount := 1;
|
||||||
|
DictionaryFrm.DictGrid.ColCount := 8;
|
||||||
|
if not PerturbChk.Checked then
|
||||||
|
begin
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
DictionaryFrm.NewVar(i);
|
||||||
|
// NoVariables := NoVariables + 1;
|
||||||
|
end;
|
||||||
|
NoCases := NoObs;
|
||||||
|
OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVars);
|
||||||
|
OS3MainFrm.NoCasesEdit.Text := IntToStr(NoObs);
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
for i := 1 to NoVars*2 do
|
||||||
|
begin
|
||||||
|
DictionaryFrm.NewVar(i);
|
||||||
|
// NoVariables := NoVariables + 1;
|
||||||
|
end;
|
||||||
|
NoCases := NoObs;
|
||||||
|
OS3MainFrm.NoVarsEdit.Text := IntToStr(NoVars*2);
|
||||||
|
OS3MainFrm.NoCasesEdit.Text := IntToStr(NoObs);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Now generate score vectors
|
||||||
|
for i2 := 0 to NoObs - 1 do // rows
|
||||||
|
begin // label case heading
|
||||||
|
cellstring := format('Case%d',[i2+1]);
|
||||||
|
OS3MainFrm.DataGrid.Cells[0,i2+1] := cellstring;
|
||||||
|
for i := 0 to NoVars -1 do stddevs[i] := RandG(0.0,1.0);
|
||||||
|
for i := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
x := 0.0;
|
||||||
|
for j := 0 to i do x := x + (RhoMat[i,j] * stddevs[j]);
|
||||||
|
mean := StrToFloat(Grid.Cells[i+1,NoVars+1]);
|
||||||
|
cellstring := format('%10.3f',[x+mean]);
|
||||||
|
OS3MainFrm.DataGrid.Cells[i+1,i2+1] := cellstring;
|
||||||
|
end; // next variable
|
||||||
|
end; // next observation
|
||||||
|
end; // if abs(determ > .00001)
|
||||||
|
|
||||||
|
// if perturbation elected, convert generated data to z scores and perturb
|
||||||
|
// with the selected perturbation coefficients
|
||||||
|
if PerturbChk.Checked then
|
||||||
|
begin
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
means[i-1] := 0.0;
|
||||||
|
stddevs[i-1] := 0.0;
|
||||||
|
end;
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
for j := 1 to NoObs do
|
||||||
|
begin
|
||||||
|
x := StrToFloat(OS3MainFrm.DataGrid.Cells[i,j]);
|
||||||
|
means[i-1] := means[i-1] + x;
|
||||||
|
stddevs[i-1] := stddevs[i-1] + (x * x);
|
||||||
|
end;
|
||||||
|
stddevs[i-1] := stddevs[i-1] - (means[i-1] * means[i-1] / NoObs);
|
||||||
|
stddevs[i-1] := stddevs[i-1] / (NoObs - 1);
|
||||||
|
stddevs[i-1] := sqrt(stddevs[i-1]);
|
||||||
|
means[i-1] := means[i-1] / NoObs;
|
||||||
|
OS3MainFrm.DataGrid.Cells[NoVars+i,0] := OS3MainFrm.DataGrid.Cells[i,0] + 'Z';
|
||||||
|
end;
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
for j := 1 to NoObs do
|
||||||
|
begin
|
||||||
|
x := StrToFloat(OS3MainFrm.DataGrid.Cells[i,j]);
|
||||||
|
x := (x - means[i-1]) / stddevs[i-1];
|
||||||
|
OS3MainFrm.DataGrid.Cells[NoVars+i,j] := FloatToStr(x);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
// Now, show perturbation options form and select coefficients
|
||||||
|
|
||||||
|
end; // end if perturbchk is checked
|
||||||
|
|
||||||
|
// print parameters if checked
|
||||||
|
if ParmsChk.Checked then
|
||||||
|
begin
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
for j := 1 to NoVars do RhoMat[i-1,j-1] := StrToFloat(Grid.Cells[i,j]);
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
Mus[i-1] := StrToFloat(Grid.Cells[i,NoVars+1]);
|
||||||
|
Sigmas[i-1] := StrToFloat(Grid.Cells[i,NoVars+2]);
|
||||||
|
end;
|
||||||
|
title := 'Rho Matrix';
|
||||||
|
MAT_PRINT(RhoMat,NoVars,NoVars,title,RowLabels,ColLabels,NoObs);
|
||||||
|
title := 'Population Means';
|
||||||
|
DynVectorPrint(Mus,NoVars,title,RowLabels,NoObs);
|
||||||
|
title := 'Sigmas';
|
||||||
|
DynVectorPrint(Sigmas,NoVars,title,RowLabels,NoObs);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// do sample values if checked
|
||||||
|
if SampleChk.Checked then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
for j := 1 to NoVars do SampMat[i-1,j-1] := 0.0;
|
||||||
|
means[i-1] := 0.0;
|
||||||
|
stddevs[i-1] := 0.0;
|
||||||
|
end;
|
||||||
|
for i := 1 to NoObs do
|
||||||
|
begin
|
||||||
|
for j := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
x := StrToFloat(OS3MainFrm.DataGrid.Cells[j+1,i]);
|
||||||
|
for k := 0 to NoVars - 1 do
|
||||||
|
begin // cross-products matrix
|
||||||
|
y := StrToFloat(OS3MainFrm.DataGrid.Cells[k+1,i]);
|
||||||
|
SampMat[j,k] := SampMat[j,k] + (x * y);
|
||||||
|
end;
|
||||||
|
means[j] := means[j] + x;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
// variance - covariance matrix
|
||||||
|
for i := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
SampMat[i,j] := SampMat[i,j] - (means[i] * means[j] / NoObs);
|
||||||
|
SampMat[i,j] := SampMat[i,j] / (NoObs - 1.0);
|
||||||
|
end;
|
||||||
|
stddevs[i] := sqrt(SampMat[i][i]);
|
||||||
|
end;
|
||||||
|
for i := 0 to NoVars - 1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to NoVars - 1 do
|
||||||
|
begin // correlation matrix
|
||||||
|
SampMat[i,j] := SampMat[i,j] / (stddevs[i] * stddevs[j]);
|
||||||
|
end;
|
||||||
|
means[i] := means[i] / NoObs;
|
||||||
|
end;
|
||||||
|
title := 'Sample r Matrix';
|
||||||
|
MAT_PRINT(SampMat,NoVars,NoVars,title,RowLabels,ColLabels,NoObs);
|
||||||
|
title := 'Sample Means';
|
||||||
|
DynVectorPrint(means,NoVars,title,RowLabels,NoObs);
|
||||||
|
title := 'Standard Deviations';
|
||||||
|
DynVectorPrint(stddevs,NoVars,title,RowLabels,NoObs);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// dispose of arrays
|
||||||
|
ColLabels := nil;
|
||||||
|
RowLabels := nil;
|
||||||
|
stddevs := nil;
|
||||||
|
Sigmas := nil;
|
||||||
|
means := nil;
|
||||||
|
Mus := nil;
|
||||||
|
SampMat := nil;
|
||||||
|
RhoMat := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.GridKeyPress(Sender: TObject; var Key: char);
|
||||||
|
begin
|
||||||
|
gridrow := Grid.Row;
|
||||||
|
gridcol := Grid.Col;
|
||||||
|
if ord(Key) = 13 then
|
||||||
|
begin
|
||||||
|
if (gridrow <= gridcol) then
|
||||||
|
begin
|
||||||
|
grid.Cells[gridrow,gridcol] := grid.Cells[gridcol,gridrow];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.GridSetEditText(Sender: TObject; ACol, ARow: Integer;
|
||||||
|
const Value: string);
|
||||||
|
begin
|
||||||
|
if (gridrow <= gridcol) then
|
||||||
|
begin
|
||||||
|
grid.Cells[gridrow,gridcol] := grid.Cells[gridcol,gridrow];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.NoObsEditExit(Sender: TObject);
|
||||||
|
var
|
||||||
|
i, j : integer;
|
||||||
|
cellstring : string;
|
||||||
|
begin
|
||||||
|
NoObs := StrToInt(NoObsEdit.Text);
|
||||||
|
if NoObs > 0 then
|
||||||
|
begin
|
||||||
|
OS3MainFrm.DataGrid.RowCount := NoObs + 1;
|
||||||
|
OS3MainFrm.DataGrid.ColCount := NoVars + 1;
|
||||||
|
for i := 1 to NoObs do
|
||||||
|
begin
|
||||||
|
for j := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
OS3MainFrm.DataGrid.Cells[j,i] := '';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for j := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
cellstring := format('VAR%d',[j]);
|
||||||
|
OS3MainFrm.DataGrid.Cells[j,0] := cellstring;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Grid.Cells[0,0] := 'Variable';
|
||||||
|
Grid.Cells[0,NoVars+1] := 'Mean';
|
||||||
|
Grid.Cells[0,NoVars+2] := 'Std.Dev.';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.NoObsEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
begin
|
||||||
|
if ord(Key) = 13 then NoObsEditExit(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.NoVarsEditExit(Sender: TObject);
|
||||||
|
var
|
||||||
|
i,j : integer;
|
||||||
|
cellstring : string;
|
||||||
|
begin
|
||||||
|
NoVars := StrToInt(NoVarsEdit.Text);
|
||||||
|
if NoVars > 0 then
|
||||||
|
begin
|
||||||
|
Grid.RowCount := NoVars + 3;
|
||||||
|
Grid.ColCount := NoVars + 1;
|
||||||
|
for i := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
Grid.Cells[i,i] := FloatToStr(1.0);
|
||||||
|
cellstring := format('VAR%d',[i]);
|
||||||
|
Grid.Cells[i,0] := cellstring;
|
||||||
|
{ for j := 1 to NoVars do
|
||||||
|
begin
|
||||||
|
if i <> j then
|
||||||
|
begin
|
||||||
|
Grid.Cells[i,j] := '';
|
||||||
|
Grid.Cells[j,i] := '';
|
||||||
|
end;
|
||||||
|
end; // for j := 1 to NoVars }
|
||||||
|
end; // for i := 1 to NoVars
|
||||||
|
|
||||||
|
end; // if NoVars > 0
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultGenFrm.NoVarsEditKeyPress(Sender: TObject; var Key: char);
|
||||||
|
begin
|
||||||
|
if ord(Key) = 13 then NoVarsEditExit(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I multgenunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
433
applications/lazstats/source_orig/multxvsyunit.lfm
Normal file
433
applications/lazstats/source_orig/multxvsyunit.lfm
Normal file
@@ -0,0 +1,433 @@
|
|||||||
|
object MultXvsYFrm: TMultXvsYFrm
|
||||||
|
Left = 144
|
||||||
|
Height = 362
|
||||||
|
Top = 109
|
||||||
|
Width = 484
|
||||||
|
Caption = 'Multiple X Versus Y Plot'
|
||||||
|
ClientHeight = 362
|
||||||
|
ClientWidth = 484
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Available Variables:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 224
|
||||||
|
Height = 14
|
||||||
|
Top = 24
|
||||||
|
Width = 48
|
||||||
|
Caption = 'X Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 224
|
||||||
|
Height = 14
|
||||||
|
Top = 104
|
||||||
|
Width = 48
|
||||||
|
Caption = 'Y Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 224
|
||||||
|
Height = 14
|
||||||
|
Top = 184
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Group Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 272
|
||||||
|
Width = 51
|
||||||
|
Caption = 'Plot Label:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 225
|
||||||
|
Top = 24
|
||||||
|
Width = 161
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object XInBtn: TBitBtn
|
||||||
|
Left = 184
|
||||||
|
Height = 27
|
||||||
|
Top = 24
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = XInBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object XOutBtn: TBitBtn
|
||||||
|
Left = 184
|
||||||
|
Height = 27
|
||||||
|
Top = 56
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = XOutBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object YInBtn: TBitBtn
|
||||||
|
Left = 184
|
||||||
|
Height = 27
|
||||||
|
Top = 104
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = YInBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object YOutBtn: TBitBtn
|
||||||
|
Left = 184
|
||||||
|
Height = 27
|
||||||
|
Top = 136
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = YOutBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object GroupInBtn: TBitBtn
|
||||||
|
Left = 184
|
||||||
|
Height = 27
|
||||||
|
Top = 184
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = GroupInBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object GroupOutBtn: TBitBtn
|
||||||
|
Left = 184
|
||||||
|
Height = 27
|
||||||
|
Top = 216
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = GroupOutBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object XEdit: TEdit
|
||||||
|
Left = 224
|
||||||
|
Height = 21
|
||||||
|
Top = 40
|
||||||
|
Width = 139
|
||||||
|
TabOrder = 7
|
||||||
|
Text = 'XEdit'
|
||||||
|
end
|
||||||
|
object YEdit: TEdit
|
||||||
|
Left = 224
|
||||||
|
Height = 21
|
||||||
|
Top = 120
|
||||||
|
Width = 138
|
||||||
|
TabOrder = 8
|
||||||
|
Text = 'YEdit'
|
||||||
|
end
|
||||||
|
object GroupEdit: TEdit
|
||||||
|
Left = 222
|
||||||
|
Height = 21
|
||||||
|
Top = 200
|
||||||
|
Width = 138
|
||||||
|
TabOrder = 9
|
||||||
|
Text = 'GroupEdit'
|
||||||
|
end
|
||||||
|
object LabelEdit: TEdit
|
||||||
|
Left = 67
|
||||||
|
Height = 21
|
||||||
|
Top = 264
|
||||||
|
Width = 295
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'LabelEdit'
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 112
|
||||||
|
Height = 56
|
||||||
|
Top = 296
|
||||||
|
Width = 164
|
||||||
|
Caption = 'Options:'
|
||||||
|
ClientHeight = 38
|
||||||
|
ClientWidth = 160
|
||||||
|
TabOrder = 11
|
||||||
|
object DescChk: TCheckBox
|
||||||
|
Left = 7
|
||||||
|
Height = 17
|
||||||
|
Top = 2
|
||||||
|
Width = 148
|
||||||
|
Caption = 'Show Descriptive Statistics'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object LinesChk: TCheckBox
|
||||||
|
Left = 6
|
||||||
|
Height = 17
|
||||||
|
Top = 19
|
||||||
|
Width = 142
|
||||||
|
Caption = 'Connect Points with Lines'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 385
|
||||||
|
Height = 28
|
||||||
|
Top = 72
|
||||||
|
Width = 80
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 385
|
||||||
|
Height = 28
|
||||||
|
Top = 136
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 385
|
||||||
|
Height = 28
|
||||||
|
Top = 200
|
||||||
|
Width = 80
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 384
|
||||||
|
Height = 28
|
||||||
|
Top = 258
|
||||||
|
Width = 80
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 134
|
||||||
|
Left = 383
|
||||||
|
Height = 28
|
||||||
|
Top = 10
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 16
|
||||||
|
end
|
||||||
|
end
|
||||||
350
applications/lazstats/source_orig/multxvsyunit.lrs
Normal file
350
applications/lazstats/source_orig/multxvsyunit.lrs
Normal file
@@ -0,0 +1,350 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TMultXvsYFrm','FORMDATA',[
|
||||||
|
'TPF0'#12'TMultXvsYFrm'#11'MultXvsYFrm'#4'Left'#3#144#0#6'Height'#3'j'#1#3'To'
|
||||||
|
+'p'#2'm'#5'Width'#3#228#1#7'Caption'#6#24'Multiple X Versus Y Plot'#12'Clien'
|
||||||
|
+'tHeight'#3'j'#1#11'ClientWidth'#3#228#1#6'OnShow'#7#8'FormShow'#10'LCLVersi'
|
||||||
|
+'on'#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2
|
||||||
|
+#8#5'Width'#2'^'#7'Caption'#6#20'Available Variables:'#11'ParentColor'#8#0#0
|
||||||
|
+#6'TLabel'#6'Label2'#4'Left'#3#224#0#6'Height'#2#14#3'Top'#2#24#5'Width'#2'0'
|
||||||
|
+#7'Caption'#6#10'X Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Lef'
|
||||||
|
+'t'#3#224#0#6'Height'#2#14#3'Top'#2'h'#5'Width'#2'0'#7'Caption'#6#10'Y Varia'
|
||||||
|
+'ble'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#224#0#6'Height'#2
|
||||||
|
+#14#3'Top'#3#184#0#5'Width'#2'G'#7'Caption'#6#14'Group Variable'#11'ParentCo'
|
||||||
|
+'lor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#16#1#5'W'
|
||||||
|
+'idth'#2'3'#7'Caption'#6#11'Plot Label:'#11'ParentColor'#8#0#0#8'TListBox'#7
|
||||||
|
+'VarList'#4'Left'#2#8#6'Height'#3#225#0#3'Top'#2#24#5'Width'#3#161#0#10'Item'
|
||||||
|
+'Height'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#6'XInBtn'#4'Left'#3#184#0#6'Heig'
|
||||||
|
+'ht'#2#27#3'Top'#2#24#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'
|
||||||
|
+#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0
|
||||||
|
+'d'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'
|
||||||
|
+#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'
|
||||||
|
+#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208
|
||||||
|
+#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'
|
||||||
|
+#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255
|
||||||
|
+#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167
|
||||||
|
+#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202
|
||||||
|
+#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'
|
||||||
|
+#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'
|
||||||
|
+#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#9'NumGlyphs'#2#0#7'OnClick'#7#11'XInBtnClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'
|
||||||
|
+#7'XOutBtn'#4'Left'#3#184#0#6'Height'#2#27#3'Top'#2'8'#5'Width'#2' '#10'Glyp'
|
||||||
|
+'h.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
|
||||||
|
+#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'
|
||||||
|
+#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134
|
||||||
|
+#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203
|
||||||
|
+#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190
|
||||||
|
+'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127
|
||||||
|
+#204#138#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255
|
||||||
|
+#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135
|
||||||
|
+#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177
|
||||||
|
+'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255
|
||||||
|
+'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#12
|
||||||
|
+'XOutBtnClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#6'YInBtn'#4'Left'#3#184#0#6'He'
|
||||||
|
+'ight'#2#27#3'Top'#2'h'#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM'
|
||||||
|
+'6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0
|
||||||
|
+#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'
|
||||||
|
+#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'
|
||||||
|
+#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208
|
||||||
|
+#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'
|
||||||
|
+#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255
|
||||||
|
+#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167
|
||||||
|
+#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202
|
||||||
|
+#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'
|
||||||
|
+#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'
|
||||||
|
+#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#9'NumGlyphs'#2#0#7'OnClick'#7#11'YInBtnClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'
|
||||||
|
+#7'YOutBtn'#4'Left'#3#184#0#6'Height'#2#27#3'Top'#3#136#0#5'Width'#2' '#10'G'
|
||||||
|
+'lyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0
|
||||||
|
+#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'
|
||||||
|
+#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134
|
||||||
|
,#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203
|
||||||
|
+#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190
|
||||||
|
+'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127
|
||||||
|
+#204#138#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255
|
||||||
|
+#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135
|
||||||
|
+#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177
|
||||||
|
+'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255
|
||||||
|
+'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#12
|
||||||
|
+'YOutBtnClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'#10'GroupInBtn'#4'Left'#3#184#0
|
||||||
|
+#6'Height'#2#27#3'Top'#3#184#0#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4
|
||||||
|
+#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0
|
||||||
|
+#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169
|
||||||
|
+'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255
|
||||||
|
+'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161
|
||||||
|
+#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198
|
||||||
|
+#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196
|
||||||
|
+#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255
|
||||||
|
+#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149
|
||||||
|
+#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'
|
||||||
|
+#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195
|
||||||
|
+'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255
|
||||||
|
+'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#15'GroupInBtnClick'#8'TabOrder'
|
||||||
|
+#2#5#0#0#7'TBitBtn'#11'GroupOutBtn'#4'Left'#3#184#0#6'Height'#2#27#3'Top'#3
|
||||||
|
+#216#0#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0
|
||||||
|
+'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'
|
||||||
|
+#153'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161
|
||||||
|
+'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131
|
||||||
|
+#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/'
|
||||||
|
+'x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'
|
||||||
|
+#195'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255
|
||||||
|
+#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132
|
||||||
|
+#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255#154
|
||||||
|
+#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255
|
||||||
|
+#133#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201
|
||||||
|
+#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'Num'
|
||||||
|
+'Glyphs'#2#0#7'OnClick'#7#16'GroupOutBtnClick'#8'TabOrder'#2#6#0#0#5'TEdit'#5
|
||||||
|
+'XEdit'#4'Left'#3#224#0#6'Height'#2#21#3'Top'#2'('#5'Width'#3#139#0#8'TabOrd'
|
||||||
|
+'er'#2#7#4'Text'#6#5'XEdit'#0#0#5'TEdit'#5'YEdit'#4'Left'#3#224#0#6'Height'#2
|
||||||
|
+#21#3'Top'#2'x'#5'Width'#3#138#0#8'TabOrder'#2#8#4'Text'#6#5'YEdit'#0#0#5'TE'
|
||||||
|
+'dit'#9'GroupEdit'#4'Left'#3#222#0#6'Height'#2#21#3'Top'#3#200#0#5'Width'#3
|
||||||
|
+#138#0#8'TabOrder'#2#9#4'Text'#6#9'GroupEdit'#0#0#5'TEdit'#9'LabelEdit'#4'Le'
|
||||||
|
+'ft'#2'C'#6'Height'#2#21#3'Top'#3#8#1#5'Width'#3''''#1#8'TabOrder'#2#10#4'Te'
|
||||||
|
+'xt'#6#9'LabelEdit'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2'p'#6'Height'#2'8'
|
||||||
|
+#3'Top'#3'('#1#5'Width'#3#164#0#7'Caption'#6#8'Options:'#12'ClientHeight'#2
|
||||||
|
+'&'#11'ClientWidth'#3#160#0#8'TabOrder'#2#11#0#9'TCheckBox'#7'DescChk'#4'Lef'
|
||||||
|
+'t'#2#7#6'Height'#2#17#3'Top'#2#2#5'Width'#3#148#0#7'Caption'#6#27'Show Desc'
|
||||||
|
+'riptive Statistics'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'LinesChk'#4'Left'#2#6
|
||||||
|
+#6'Height'#2#17#3'Top'#2#19#5'Width'#3#142#0#7'Caption'#6#25'Connect Points '
|
||||||
|
+'with Lines'#8'TabOrder'#2#1#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#129#1#6
|
||||||
|
+'Height'#2#28#3'Top'#2'H'#5'Width'#2'P'#7'Caption'#6#5'Reset'#7'OnClick'#7#13
|
||||||
|
+'ResetBtnClick'#8'TabOrder'#2#12#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#129#1
|
||||||
|
+#6'Height'#2#28#3'Top'#3#136#0#5'Width'#2'Q'#7'Caption'#6#6'Cancel'#11'Modal'
|
||||||
|
+'Result'#2#2#8'TabOrder'#2#13#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#129#1#6
|
||||||
|
+'Height'#2#28#3'Top'#3#200#0#5'Width'#2'P'#7'Caption'#6#7'Compute'#7'OnClick'
|
||||||
|
+#7#15'ComputeBtnClick'#8'TabOrder'#2#14#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3
|
||||||
|
+#128#1#6'Height'#2#28#3'Top'#3#2#1#5'Width'#2'P'#7'Caption'#6#6'Return'#11'M'
|
||||||
|
+'odalResult'#2#1#8'TabOrder'#2#15#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#134#0#4
|
||||||
|
+'Left'#3#127#1#6'Height'#2#28#3'Top'#2#10#5'Width'#2'Q'#7'Caption'#6#4'Help'
|
||||||
|
+#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#16#0#0#0
|
||||||
|
]);
|
||||||
426
applications/lazstats/source_orig/multxvsyunit.pas
Normal file
426
applications/lazstats/source_orig/multxvsyunit.pas
Normal file
@@ -0,0 +1,426 @@
|
|||||||
|
unit MultXvsYUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, Globals, functionsLib, OutPutUnit, DataProcs,
|
||||||
|
DictionaryUnit, Math, Clipbrd, contexthelpunit;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TMultXvsYFrm }
|
||||||
|
|
||||||
|
TMultXvsYFrm = class(TForm)
|
||||||
|
HelpBtn: TButton;
|
||||||
|
XInBtn: TBitBtn;
|
||||||
|
XOutBtn: TBitBtn;
|
||||||
|
YInBtn: TBitBtn;
|
||||||
|
YOutBtn: TBitBtn;
|
||||||
|
GroupInBtn: TBitBtn;
|
||||||
|
GroupOutBtn: TBitBtn;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
DescChk: TCheckBox;
|
||||||
|
LinesChk: TCheckBox;
|
||||||
|
XEdit: TEdit;
|
||||||
|
YEdit: TEdit;
|
||||||
|
GroupEdit: TEdit;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
LabelEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure GroupInBtnClick(Sender: TObject);
|
||||||
|
procedure GroupOutBtnClick(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure XInBtnClick(Sender: TObject);
|
||||||
|
procedure XOutBtnClick(Sender: TObject);
|
||||||
|
procedure YInBtnClick(Sender: TObject);
|
||||||
|
procedure YOutBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
procedure plotxy(var XValues : DblDyneMat;
|
||||||
|
YValues : DblDyneMat;
|
||||||
|
MaxX, MinX, MaxY, MinY : double;
|
||||||
|
N, NoY, MinGrp : integer);
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
MultXvsYFrm: TMultXvsYFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses BlankFrmUnit;
|
||||||
|
|
||||||
|
{ TMultXvsYFrm }
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
VarList.Clear;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
XEdit.Text := '';
|
||||||
|
YEdit.Text := '';
|
||||||
|
GroupEdit.Text := '';
|
||||||
|
DescChk.Checked := false;
|
||||||
|
LinesChk.Checked := false;
|
||||||
|
XInBtn.Visible := true;
|
||||||
|
YInBtn.Visible := true;
|
||||||
|
GroupInBtn.Visible := true;
|
||||||
|
XOutBtn.Visible := false;
|
||||||
|
YOutBtn.Visible := false;
|
||||||
|
GroupOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.GroupInBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
i := VarList.ItemIndex;
|
||||||
|
GroupEdit.Text := VarList.Items.Strings[i];
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
GroupInBtn.Visible := false;
|
||||||
|
GroupOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
i, j, k, N, NoGrps, XCol, YCol, GrpCol, Grp, MinGrp, MaxGrp : integer;
|
||||||
|
NoSelected, MaxGrpSize : integer;
|
||||||
|
selected, NoInGrp : IntDyneVec;
|
||||||
|
YValues, XValues : DblDyneMat;
|
||||||
|
Means, StdDevs : DblDyneVec;
|
||||||
|
MinX, MaxX, MinY, MaxY, X, Y, temp : double;
|
||||||
|
cellstring, prtline : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
MaxGrpSize := 0;
|
||||||
|
SetLength(selected,3);
|
||||||
|
MaxX := -1.0e20;
|
||||||
|
MinX := 1.0e20;
|
||||||
|
MaxY := -1.0e20;
|
||||||
|
MinY := 1.0e20;
|
||||||
|
MinGrp := 1000;
|
||||||
|
MaxGrp := -1000;
|
||||||
|
N:=0;
|
||||||
|
|
||||||
|
// Get selected variables
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
if (cellstring = XEdit.Text) then selected[0] := i;
|
||||||
|
if (cellstring = YEdit.Text) then selected[1] := i;
|
||||||
|
if (cellstring = GroupEdit.Text) then selected[2] := i;
|
||||||
|
end;
|
||||||
|
XCol := selected[0];
|
||||||
|
YCol := selected[1];
|
||||||
|
GrpCol := selected[2];
|
||||||
|
NoSelected := 3;
|
||||||
|
|
||||||
|
// Get number of groups
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
Grp := StrToInt(OS3MainFrm.DataGrid.Cells[GrpCol,i]);
|
||||||
|
if (Grp > MaxGrp) then MaxGrp := Grp;
|
||||||
|
if (Grp < MinGrp) then MinGrp := Grp;
|
||||||
|
end;
|
||||||
|
NoGrps := (MaxGrp - MinGrp) + 1;
|
||||||
|
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('X VERSUS Y FOR GROUPS PLOT');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
SetLength(YValues,NoCases+1,NoGrps+1);
|
||||||
|
SetLength(XValues,NoCases+1,NoGrps+1);
|
||||||
|
SetLength(Means,2);
|
||||||
|
SetLength(StdDevs,2);
|
||||||
|
SetLength(NoInGrp,NoGrps);
|
||||||
|
|
||||||
|
for i := 0 to 1 do
|
||||||
|
begin
|
||||||
|
Means[i] := 0.0;
|
||||||
|
StdDevs[i] := 0.0;
|
||||||
|
end;
|
||||||
|
for i := 0 to NoGrps - 1 do NoInGrp[i] := 0;
|
||||||
|
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if (not GoodRecord(i,NoSelected,selected))then continue;
|
||||||
|
N := N + 1;
|
||||||
|
X := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
|
||||||
|
if (X > MaxX) then MaxX := X;
|
||||||
|
if (X < MinX) then MinX := X;
|
||||||
|
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol,i]);
|
||||||
|
if (Y > MaxY) then MaxY := Y;
|
||||||
|
if (Y < MinY) then MinY := Y;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if (not GoodRecord(i,NoSelected,selected))then continue;
|
||||||
|
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol,i]);
|
||||||
|
if (Y > MaxY) then MaxY := Y;
|
||||||
|
if (Y < MinY) then MinY := Y;
|
||||||
|
Grp := StrToInt(OS3MainFrm.DataGrid.Cells[GrpCol,i]);
|
||||||
|
Grp := Grp - MinGrp;
|
||||||
|
NoInGrp[Grp] := NoInGrp[Grp] + 1;
|
||||||
|
if (NoInGrp[Grp] > MaxGrpSize) then MaxGrpSize := NoInGrp[Grp];
|
||||||
|
YValues[NoInGrp[Grp]-1,Grp] := Y;
|
||||||
|
XValues[NoInGrp[Grp]-1,Grp] := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// get descriptive data
|
||||||
|
if (DescChk.Checked) then
|
||||||
|
begin
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if (not GoodRecord(i,NoSelected,selected)) then continue;
|
||||||
|
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[YCol,i]);
|
||||||
|
X := StrToFloat(OS3MainFrm.DataGrid.Cells[XCol,i]);
|
||||||
|
Means[0] := Means[0] + X;
|
||||||
|
StdDevs[0] := StdDevs[0] + (X * X);
|
||||||
|
Means[1] := Means[1] + Y;
|
||||||
|
StdDevs[1] := StdDevs[1] + (Y * Y);
|
||||||
|
end;
|
||||||
|
for i := 0 to 1 do
|
||||||
|
begin
|
||||||
|
StdDevs[i] := StdDevs[i] - (Means[i] * Means[i]) / N;
|
||||||
|
StdDevs[i] := StdDevs[i] / (N - 1);
|
||||||
|
StdDevs[i] := sqrt(StdDevs[i]);
|
||||||
|
Means[i] := Means[i] / N;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('VARIABLE MEAN STANDARED DEVIATION');
|
||||||
|
prtline := format(' X %9.3f %8.3f',[Means[0],StdDevs[0]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(prtline);
|
||||||
|
prtline := format(' Y %9.3f %8.3f',[Means[1],StdDevs[1]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(prtline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// sort on X
|
||||||
|
for i := 0 to NoGrps - 1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to MaxGrpSize-2 do
|
||||||
|
begin
|
||||||
|
for k := j+1 to MaxGrpSize - 1 do
|
||||||
|
begin
|
||||||
|
if (XValues[j,i] > XValues[k,i]) then // swap
|
||||||
|
begin
|
||||||
|
temp := XValues[j,i];
|
||||||
|
XValues[j,i] := XValues[k,i];
|
||||||
|
XValues[k,i] := temp;
|
||||||
|
temp := YValues[j,i];
|
||||||
|
YValues[j,i] := YValues[k,i];
|
||||||
|
YValues[k,i] := temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
BlankFrm.Show;
|
||||||
|
plotxy(XValues, YValues, MaxX, MinX, MaxY, MinY, MaxGrpSize, NoGrps, MinGrp);
|
||||||
|
|
||||||
|
NoInGrp := nil;
|
||||||
|
StdDevs := nil;
|
||||||
|
Means := nil;
|
||||||
|
XValues := nil;
|
||||||
|
YValues := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.GroupOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(GroupEdit.Text);
|
||||||
|
GroupEdit.Text := '';
|
||||||
|
GroupInBtn.Visible := true;
|
||||||
|
GroupOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.XInBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
i := VarList.ItemIndex;
|
||||||
|
XEdit.Text := VarList.Items.Strings[i];
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
XInBtn.Visible := false;
|
||||||
|
XOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.XOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(XEdit.Text);
|
||||||
|
XEdit.Text := '';
|
||||||
|
XInBtn.Visible := true;
|
||||||
|
XOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.YInBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
i := VarList.ItemIndex;
|
||||||
|
YEdit.Text := VarList.Items.Strings[i];
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
YInBtn.Visible := false;
|
||||||
|
YOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.YOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(YEdit.Text);
|
||||||
|
YEdit.Text := '';
|
||||||
|
YInBtn.Visible := true;
|
||||||
|
YOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TMultXvsYFrm.plotxy(var XValues : DblDyneMat;
|
||||||
|
YValues : DblDyneMat;
|
||||||
|
MaxX, MinX, MaxY, MinY : double;
|
||||||
|
N, NoY, MinGrp : integer);
|
||||||
|
var
|
||||||
|
// routine to plot X versus multiple Y values
|
||||||
|
xpos, ypos, hleft, hright, vtop, vbottom, imagewide : integer;
|
||||||
|
vhi, hwide, offset, strhi, imagehi, i, j, k, Grp : integer;
|
||||||
|
maxval, minval, valincr, Yvalue, Xvalue, value : double;
|
||||||
|
Title, outline : string;
|
||||||
|
Colors : array[0..12] of TColor;
|
||||||
|
begin
|
||||||
|
Colors[1] := clRed;
|
||||||
|
Colors[2] := clBlue;
|
||||||
|
Colors[3] := clGreen;
|
||||||
|
Colors[4] := clNavy;
|
||||||
|
Colors[5] := clTeal;
|
||||||
|
Colors[6] := clAqua;
|
||||||
|
Colors[7] := clLime;
|
||||||
|
Colors[8] := clFuchsia;
|
||||||
|
Colors[9] := clGray;
|
||||||
|
Colors[10] := clPurple;
|
||||||
|
Colors[11] := clOlive;
|
||||||
|
Colors[0] := clMaroon;
|
||||||
|
Title := LabelEdit.Text;
|
||||||
|
BlankFrm.Image1.Canvas.Clear;
|
||||||
|
BlankFrm.Caption := Title;
|
||||||
|
imagewide := BlankFrm.Image1.Width;
|
||||||
|
imagehi := BlankFrm.Image1.Height;
|
||||||
|
// ImageFrm.Image.Canvas.FloodFill(0,0,clWhite,fsBorder);
|
||||||
|
vtop := 20;
|
||||||
|
vbottom := ceil(imagehi) - 80;
|
||||||
|
vhi := vbottom - vtop;
|
||||||
|
hleft := 100;
|
||||||
|
hright := imagewide - 80;
|
||||||
|
hwide := hright - hleft;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
|
||||||
|
|
||||||
|
// Draw chart border
|
||||||
|
// ImageFrm.Image.Canvas.Rectangle(0,0,imagewide,imagehi);
|
||||||
|
|
||||||
|
// draw horizontal axis
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(hleft,vbottom);
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(hright,vbottom);
|
||||||
|
valincr := (MaxX - MinX) / 10.0;
|
||||||
|
for i := 1 to 10 do
|
||||||
|
begin
|
||||||
|
ypos := vbottom;
|
||||||
|
Xvalue := MinX + valincr * (i - 1);
|
||||||
|
xpos := ceil(hwide * ((Xvalue - MinX) / (MaxX - MinX)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := ypos + 10;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
outline := format('%6.2f',[Xvalue]);
|
||||||
|
Title := outline;
|
||||||
|
offset := BlankFrm.Image1.Canvas.TextWidth(Title) div 2;
|
||||||
|
xpos := xpos - offset;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
xpos := hleft + (hwide div 2) - (BlankFrm.Image1.Canvas.TextWidth(XEdit.Text) div 2);
|
||||||
|
ypos := vbottom + 20;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,XEdit.Text);
|
||||||
|
|
||||||
|
// Draw vertical axis
|
||||||
|
Title := 'Y VALUES';
|
||||||
|
xpos := hleft - BlankFrm.Image1.Canvas.TextWidth(Title) div 2;
|
||||||
|
ypos := vtop - BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
xpos := hleft;
|
||||||
|
ypos := vtop;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := vbottom;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
valincr := (MaxY - MinY) / 10.0;
|
||||||
|
for i := 1 to 10 do
|
||||||
|
begin
|
||||||
|
value := MaxY - ((i-1) * valincr);
|
||||||
|
outline := format('%8.2f',[value]);
|
||||||
|
Title := outline;
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
xpos := 10;
|
||||||
|
Yvalue := MaxY - (valincr * (i-1));
|
||||||
|
ypos := ceil(vhi * ( (MaxY - Yvalue) / (MaxY - MinY)));
|
||||||
|
ypos := ypos + vtop - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
xpos := hleft;
|
||||||
|
ypos := ypos + strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hleft - 10;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw points for x and y pairs
|
||||||
|
|
||||||
|
for j := 0 to NoY - 1 do
|
||||||
|
begin
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Style := bsSolid;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := Colors[j mod 12];
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := Colors[j mod 12];
|
||||||
|
Grp := MinGrp + j;
|
||||||
|
Title := 'GROUP ' + IntToStr(Grp);
|
||||||
|
for i := 1 to N do
|
||||||
|
begin
|
||||||
|
ypos := ceil(vhi * ( (MaxY - YValues[i-1,j]) / (MaxY - MinY)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := ceil(hwide * ( (XValues[i-1,j] - MinX) / (MaxX - MinX)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
if (i = 1) then BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
if (LinesChk.Checked) then BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
BlankFrm.Image1.Canvas.Ellipse(xpos,ypos,xpos+5,ypos+5);
|
||||||
|
end;
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
xpos := hwide + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos-strhi);
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I multxvsyunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
311
applications/lazstats/source_orig/normalityunit.lfm
Normal file
311
applications/lazstats/source_orig/normalityunit.lfm
Normal file
@@ -0,0 +1,311 @@
|
|||||||
|
object NormalityFrm: TNormalityFrm
|
||||||
|
Left = 192
|
||||||
|
Height = 392
|
||||||
|
Top = 90
|
||||||
|
Width = 392
|
||||||
|
Caption = 'Normality Tests'
|
||||||
|
ClientHeight = 392
|
||||||
|
ClientWidth = 392
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.26.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 6
|
||||||
|
Height = 14
|
||||||
|
Top = 9
|
||||||
|
Width = 59
|
||||||
|
Caption = 'VARIABLES:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 233
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 87
|
||||||
|
Caption = 'Test Normality of:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 5
|
||||||
|
Height = 14
|
||||||
|
Top = 314
|
||||||
|
Width = 33
|
||||||
|
Caption = 'Lillifors'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 5
|
||||||
|
Height = 14
|
||||||
|
Top = 329
|
||||||
|
Width = 56
|
||||||
|
Caption = 'Conclusion:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 5
|
||||||
|
Height = 273
|
||||||
|
Top = 29
|
||||||
|
Width = 162
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object VarInBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 35
|
||||||
|
Top = 13
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = VarInBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object VarOutBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 35
|
||||||
|
Top = 56
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = VarOutBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object TestVarEdit: TEdit
|
||||||
|
Left = 231
|
||||||
|
Height = 26
|
||||||
|
Top = 30
|
||||||
|
Width = 153
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'TestVarEdit'
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 178
|
||||||
|
Height = 85
|
||||||
|
Top = 102
|
||||||
|
Width = 209
|
||||||
|
Caption = 'Shapiro-Wilkes Rresults'
|
||||||
|
ClientHeight = 67
|
||||||
|
ClientWidth = 205
|
||||||
|
TabOrder = 4
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 14
|
||||||
|
Top = 9
|
||||||
|
Width = 45
|
||||||
|
Caption = 'WWW = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 6
|
||||||
|
Height = 14
|
||||||
|
Top = 37
|
||||||
|
Width = 65
|
||||||
|
Caption = 'Probability = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object WEdit: TEdit
|
||||||
|
Left = 82
|
||||||
|
Height = 18
|
||||||
|
Top = 3
|
||||||
|
Width = 100
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'WEdit'
|
||||||
|
end
|
||||||
|
object ProbEdit: TEdit
|
||||||
|
Left = 80
|
||||||
|
Height = 17
|
||||||
|
Top = 32
|
||||||
|
Width = 102
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'ProbEdit'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GroupBox2: TGroupBox
|
||||||
|
Left = 176
|
||||||
|
Height = 102
|
||||||
|
Top = 202
|
||||||
|
Width = 207
|
||||||
|
Caption = 'Lilliefors Test Results'
|
||||||
|
ClientHeight = 84
|
||||||
|
ClientWidth = 203
|
||||||
|
TabOrder = 5
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 6
|
||||||
|
Height = 14
|
||||||
|
Top = 6
|
||||||
|
Width = 52
|
||||||
|
Caption = 'Skewness:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 6
|
||||||
|
Height = 14
|
||||||
|
Top = 34
|
||||||
|
Width = 43
|
||||||
|
Caption = 'Kurtosis:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 5
|
||||||
|
Height = 14
|
||||||
|
Top = 61
|
||||||
|
Width = 67
|
||||||
|
Caption = 'Test Statistic:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object SkewEdit: TEdit
|
||||||
|
Left = 81
|
||||||
|
Height = 16
|
||||||
|
Top = 4
|
||||||
|
Width = 101
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'SkewEdit'
|
||||||
|
end
|
||||||
|
object KurtosisEdit: TEdit
|
||||||
|
Left = 82
|
||||||
|
Height = 16
|
||||||
|
Top = 32
|
||||||
|
Width = 99
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'KurtosisEdit'
|
||||||
|
end
|
||||||
|
object StatEdit: TEdit
|
||||||
|
Left = 81
|
||||||
|
Height = 15
|
||||||
|
Top = 60
|
||||||
|
Width = 98
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'StatEdit'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ConclusionEdit: TEdit
|
||||||
|
Left = 65
|
||||||
|
Height = 19
|
||||||
|
Top = 320
|
||||||
|
Width = 315
|
||||||
|
TabOrder = 6
|
||||||
|
Text = 'ConclusionEdit'
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Height = 46
|
||||||
|
Top = 346
|
||||||
|
Width = 392
|
||||||
|
Align = alBottom
|
||||||
|
ClientHeight = 46
|
||||||
|
ClientWidth = 392
|
||||||
|
TabOrder = 7
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 6
|
||||||
|
Height = 28
|
||||||
|
Top = 6
|
||||||
|
Width = 66
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 80
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 66
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object PrintBtn: TButton
|
||||||
|
Left = 160
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 66
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = PrintBtnClick
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object ApplyBtn: TButton
|
||||||
|
Left = 233
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 66
|
||||||
|
Caption = 'Apply'
|
||||||
|
OnClick = ApplyBtnClick
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 314
|
||||||
|
Height = 28
|
||||||
|
Top = 352
|
||||||
|
Width = 66
|
||||||
|
Caption = 'Return'
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
end
|
||||||
156
applications/lazstats/source_orig/normalityunit.lrs
Normal file
156
applications/lazstats/source_orig/normalityunit.lrs
Normal file
@@ -0,0 +1,156 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TNormalityFrm','FORMDATA',[
|
||||||
|
'TPF0'#13'TNormalityFrm'#12'NormalityFrm'#4'Left'#3#192#0#6'Height'#3#136#1#3
|
||||||
|
+'Top'#2'Z'#5'Width'#3#136#1#7'Caption'#6#15'Normality Tests'#12'ClientHeight'
|
||||||
|
+#3#136#1#11'ClientWidth'#3#136#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8
|
||||||
|
+'0.9.26.2'#0#6'TLabel'#6'Label1'#4'Left'#2#6#6'Height'#2#14#3'Top'#2#9#5'Wid'
|
||||||
|
+'th'#2';'#7'Caption'#6#10'VARIABLES:'#11'ParentColor'#8#0#0#6'TLabel'#6'Labe'
|
||||||
|
+'l2'#4'Left'#3#233#0#6'Height'#2#14#3'Top'#2#8#5'Width'#2'W'#7'Caption'#6#18
|
||||||
|
+'Test Normality of:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4'Left'#2#5#6
|
||||||
|
+'Height'#2#14#3'Top'#3':'#1#5'Width'#2'!'#7'Caption'#6#9'Lillifors'#11'Paren'
|
||||||
|
+'tColor'#8#0#0#6'TLabel'#6'Label9'#4'Left'#2#5#6'Height'#2#14#3'Top'#3'I'#1#5
|
||||||
|
+'Width'#2'8'#7'Caption'#6#11'Conclusion:'#11'ParentColor'#8#0#0#8'TListBox'#7
|
||||||
|
+'VarList'#4'Left'#2#5#6'Height'#3#17#1#3'Top'#2#29#5'Width'#3#162#0#8'TabOrd'
|
||||||
|
+'er'#2#0#0#0#7'TBitBtn'#8'VarInBtn'#4'Left'#3#176#0#6'Height'#2'#'#3'Top'#2
|
||||||
|
+#13#5'Width'#2'%'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0
|
||||||
|
+#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'*p/8%'
|
||||||
|
+'i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'a'
|
||||||
|
+#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'
|
||||||
|
+#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255#255#0'e'#195'q'#255
|
||||||
|
+#160#215#169#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152
|
||||||
|
+#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193
|
||||||
|
+#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255#0#255#255#255#0'h'
|
||||||
|
+#199't'#255#165#218#174#255#162#216#171#255#158#214#167#255#154#212#163#255
|
||||||
|
+#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139
|
||||||
|
+#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'#201#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'
|
||||||
|
+#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'
|
||||||
|
+#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'
|
||||||
|
+#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'
|
||||||
|
+#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7
|
||||||
|
+'OnClick'#7#13'VarInBtnClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#9'VarOutBtn'#4
|
||||||
|
+'Left'#3#176#0#6'Height'#2'#'#3'Top'#2'8'#5'Width'#2'%'#10'Glyph.Data'#10':'
|
||||||
|
,#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '
|
||||||
|
+#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'#255'!c$'#255
|
||||||
|
+#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134#255#156#213
|
||||||
|
+#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135
|
||||||
|
+#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'r'
|
||||||
|
+#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201''#204#138#255
|
||||||
|
+#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154
|
||||||
|
+#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194
|
||||||
|
+#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255#255#255#0'h'
|
||||||
|
+#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177'b'#255'S'#169
|
||||||
|
+'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255
|
||||||
|
+'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'
|
||||||
|
+#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199
|
||||||
|
+'t'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'VarOutBtnClick'#8
|
||||||
|
+'TabOrder'#2#2#0#0#5'TEdit'#11'TestVarEdit'#4'Left'#3#231#0#6'Height'#2#26#3
|
||||||
|
+'Top'#2#30#5'Width'#3#153#0#8'TabOrder'#2#3#4'Text'#6#11'TestVarEdit'#0#0#9
|
||||||
|
+'TGroupBox'#9'GroupBox1'#4'Left'#3#178#0#6'Height'#2'U'#3'Top'#2'f'#5'Width'
|
||||||
|
+#3#209#0#7'Caption'#6#23'Shapiro-Wilkes Rresults'#12'ClientHeight'#2'C'#11'C'
|
||||||
|
+'lientWidth'#3#205#0#8'TabOrder'#2#4#0#6'TLabel'#6'Label3'#4'Left'#2#7#6'Hei'
|
||||||
|
+'ght'#2#14#3'Top'#2#9#5'Width'#2'-'#7'Caption'#6#6'WWW = '#11'ParentColor'#8
|
||||||
|
+#0#0#6'TLabel'#6'Label4'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'%'#5'Width'#2'A'
|
||||||
|
+#7'Caption'#6#14'Probability = '#11'ParentColor'#8#0#0#5'TEdit'#5'WEdit'#4'L'
|
||||||
|
+'eft'#2'R'#6'Height'#2#18#3'Top'#2#3#5'Width'#2'd'#8'TabOrder'#2#0#4'Text'#6
|
||||||
|
+#5'WEdit'#0#0#5'TEdit'#8'ProbEdit'#4'Left'#2'P'#6'Height'#2#17#3'Top'#2' '#5
|
||||||
|
+'Width'#2'f'#8'TabOrder'#2#1#4'Text'#6#8'ProbEdit'#0#0#0#9'TGroupBox'#9'Grou'
|
||||||
|
+'pBox2'#4'Left'#3#176#0#6'Height'#2'f'#3'Top'#3#202#0#5'Width'#3#207#0#7'Cap'
|
||||||
|
+'tion'#6#23'Lilliefors Test Results'#12'ClientHeight'#2'T'#11'ClientWidth'#3
|
||||||
|
+#203#0#8'TabOrder'#2#5#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'Height'#2#14#3'To'
|
||||||
|
,'p'#2#6#5'Width'#2'4'#7'Caption'#6#9'Skewness:'#11'ParentColor'#8#0#0#6'TLab'
|
||||||
|
+'el'#6'Label6'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'"'#5'Width'#2'+'#7'Captio'
|
||||||
|
+'n'#6#9'Kurtosis:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#2#5#6'H'
|
||||||
|
+'eight'#2#14#3'Top'#2'='#5'Width'#2'C'#7'Caption'#6#15'Test Statistic:'#11'P'
|
||||||
|
+'arentColor'#8#0#0#5'TEdit'#8'SkewEdit'#4'Left'#2'Q'#6'Height'#2#16#3'Top'#2
|
||||||
|
+#4#5'Width'#2'e'#8'TabOrder'#2#0#4'Text'#6#8'SkewEdit'#0#0#5'TEdit'#12'Kurto'
|
||||||
|
+'sisEdit'#4'Left'#2'R'#6'Height'#2#16#3'Top'#2' '#5'Width'#2'c'#8'TabOrder'#2
|
||||||
|
+#1#4'Text'#6#12'KurtosisEdit'#0#0#5'TEdit'#8'StatEdit'#4'Left'#2'Q'#6'Height'
|
||||||
|
+#2#15#3'Top'#2'<'#5'Width'#2'b'#8'TabOrder'#2#2#4'Text'#6#8'StatEdit'#0#0#0#5
|
||||||
|
+'TEdit'#14'ConclusionEdit'#4'Left'#2'A'#6'Height'#2#19#3'Top'#3'@'#1#5'Width'
|
||||||
|
+#3';'#1#8'TabOrder'#2#6#4'Text'#6#14'ConclusionEdit'#0#0#6'TPanel'#6'Panel1'
|
||||||
|
+#6'Height'#2'.'#3'Top'#3'Z'#1#5'Width'#3#136#1#5'Align'#7#8'alBottom'#12'Cli'
|
||||||
|
+'entHeight'#2'.'#11'ClientWidth'#3#136#1#8'TabOrder'#2#7#0#7'TButton'#9'Canc'
|
||||||
|
+'elBtn'#4'Left'#2#6#6'Height'#2#28#3'Top'#2#6#5'Width'#2'B'#7'Caption'#6#6'C'
|
||||||
|
+'ancel'#11'ModalResult'#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#0#0
|
||||||
|
+#0#0#7'TButton'#8'ResetBtn'#4'Left'#2'P'#6'Height'#2#28#3'Top'#3'`'#1#5'Widt'
|
||||||
|
+'h'#2'B'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#8
|
||||||
|
+#0#0#7'TButton'#8'PrintBtn'#4'Left'#3#160#0#6'Height'#2#28#3'Top'#3'`'#1#5'W'
|
||||||
|
+'idth'#2'B'#7'Caption'#6#5'Print'#7'OnClick'#7#13'PrintBtnClick'#8'TabOrder'
|
||||||
|
+#2#9#0#0#7'TButton'#8'ApplyBtn'#4'Left'#3#233#0#6'Height'#2#28#3'Top'#3'`'#1
|
||||||
|
+#5'Width'#2'B'#7'Caption'#6#5'Apply'#7'OnClick'#7#13'ApplyBtnClick'#8'TabOrd'
|
||||||
|
+'er'#2#10#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3':'#1#6'Height'#2#28#3'Top'#3
|
||||||
|
+'`'#1#5'Width'#2'B'#7'Caption'#6#6'Return'#7'OnClick'#7#14'ReturnBtnClick'#8
|
||||||
|
+'TabOrder'#2#11#0#0#0
|
||||||
|
]);
|
||||||
330
applications/lazstats/source_orig/normalityunit.pas
Normal file
330
applications/lazstats/source_orig/normalityunit.pas
Normal file
@@ -0,0 +1,330 @@
|
|||||||
|
unit NormalityUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, ExtCtrls, MainUnit, Globals, functionsLib, DataProcs,
|
||||||
|
OutPutUnit;
|
||||||
|
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TNormalityFrm }
|
||||||
|
|
||||||
|
TNormalityFrm = class(TForm)
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
PrintBtn: TButton;
|
||||||
|
ApplyBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
ConclusionEdit: TEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
Panel1: TPanel;
|
||||||
|
StatEdit: TEdit;
|
||||||
|
KurtosisEdit: TEdit;
|
||||||
|
SkewEdit: TEdit;
|
||||||
|
GroupBox2: TGroupBox;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
ProbEdit: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
WEdit: TEdit;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
TestVarEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
VarInBtn: TBitBtn;
|
||||||
|
VarOutBtn: TBitBtn;
|
||||||
|
Label1: TLabel;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure ApplyBtnClick(Sender: TObject);
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure PrintBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
procedure VarInBtnClick(Sender: TObject);
|
||||||
|
procedure VarOutBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
function Norm(z : double) : double;
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
NormalityFrm: TNormalityFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TNormalityFrm }
|
||||||
|
|
||||||
|
procedure TNormalityFrm.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
TestVarEdit.Text := '';
|
||||||
|
WEdit.Text := '';
|
||||||
|
ProbEdit.Text := '';
|
||||||
|
ConclusionEdit.Text := '';
|
||||||
|
SkewEdit.Text := '';
|
||||||
|
KurtosisEdit.Text := '';
|
||||||
|
StatEdit.Text := '';
|
||||||
|
VarOutBtn.Visible := false;
|
||||||
|
VarInBtn.Visible := true;
|
||||||
|
VarList.Items.Clear;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.PrintBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('NORMALITY TESTS FOR '+ TestVarEdit.Text);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Shapiro-Wilkes W = ' + WEdit.Text);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Shapiro-Wilkes Prob. = ' + ProbEdit.Text);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Skew = ' + SkewEdit.Text);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Kurtosis = ' + KurtosisEdit.Text);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Lilliefors Test Statistic = ' + StatEdit.Text);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Conclusion: ' + ConclusionEdit.Text);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FormShow(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NormalityFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
NormalityFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.ApplyBtnClick(Sender: TObject);
|
||||||
|
label again;
|
||||||
|
var
|
||||||
|
temp, w, pw : double;
|
||||||
|
skew, kurtosis : double;
|
||||||
|
mean, variance, stddev, deviation, devsqr, M2, M3, M4 : double;
|
||||||
|
i, j, n, n1, n2, ier : integer;
|
||||||
|
varlabel : string;
|
||||||
|
selcol : integer;
|
||||||
|
data, a, z, x : DblDyneVec;
|
||||||
|
freq : IntDyneVec;
|
||||||
|
fval, jval, DP : DblDyneVec;
|
||||||
|
F1, DPP, D, D1, A0, C1, D15, D10, D05, D025, t2 : double;
|
||||||
|
init : boolean;
|
||||||
|
msg : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
init := false;
|
||||||
|
n := 0;
|
||||||
|
selcol := 0;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
if OS3MainFrm.DataGrid.Cells[i,0] = TestVarEdit.Text then selcol := i;
|
||||||
|
if selcol <> 0 then
|
||||||
|
begin
|
||||||
|
varlabel := TestVarEdit.Text;
|
||||||
|
// place values into the data array
|
||||||
|
SetLength(data,NoCases+1); // arrays start at 1
|
||||||
|
SetLength(a,NoCases+1);
|
||||||
|
SetLength(freq, NoCases+1);
|
||||||
|
SetLength(z, NoCases+1);
|
||||||
|
SetLength(x, NoCases+1);
|
||||||
|
SetLength(fval,NoCases+1);
|
||||||
|
SetLength(jval,NoCases+1);
|
||||||
|
SetLength(DP,NoCases+1);
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if NOT ValidValue(i,selcol) then continue;
|
||||||
|
n := n + 1;
|
||||||
|
data[n] := StrToFloat(OS3MainFrm.DataGrid.Cells[selcol,i]);
|
||||||
|
end;
|
||||||
|
n1 := n;
|
||||||
|
n2 := n div 2;
|
||||||
|
// sort into ascending order
|
||||||
|
for i := 1 to n - 1 do
|
||||||
|
begin
|
||||||
|
for j := i + 1 to n do
|
||||||
|
begin
|
||||||
|
if data[i] > data[j] then
|
||||||
|
begin
|
||||||
|
temp := data[i];
|
||||||
|
data[i] := data[j];
|
||||||
|
data[j] := temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
// call Shapiro-Wilks function
|
||||||
|
swilk(init, data, n, n1, n2, a, w, pw, ier);
|
||||||
|
if ier <> 0 then
|
||||||
|
begin
|
||||||
|
Msg := 'Error encountered = ' + IntToStr(ier);
|
||||||
|
ShowMessage(Msg);
|
||||||
|
DP := nil;
|
||||||
|
jval := nil;
|
||||||
|
fval := nil;
|
||||||
|
data := nil;
|
||||||
|
a := nil;
|
||||||
|
freq := nil;
|
||||||
|
z := nil;
|
||||||
|
x := nil;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
WEdit.Text := format('%8.4f',[w]);
|
||||||
|
ProbEdit.Text := format('%8.4f',[pw]);
|
||||||
|
|
||||||
|
// Now do Lilliefors
|
||||||
|
// get unique scores and their frequencies
|
||||||
|
n1 := 1;
|
||||||
|
i := 1;
|
||||||
|
freq[1] := 1;
|
||||||
|
x[1] := data[1];
|
||||||
|
again: for j := i + 1 to n do
|
||||||
|
begin
|
||||||
|
if data[j] = x[n1] then freq[n1] := freq[n1] + 1;
|
||||||
|
end;
|
||||||
|
i := i + freq[n1];
|
||||||
|
if i <= n then
|
||||||
|
begin
|
||||||
|
n1 := n1 + 1;
|
||||||
|
x[n1] := data[i];
|
||||||
|
freq[n1] := 1;
|
||||||
|
goto again;
|
||||||
|
end;
|
||||||
|
// now get skew and kurtosis of scores
|
||||||
|
mean := 0.0;
|
||||||
|
variance := 0.0;
|
||||||
|
for i := 1 to n do
|
||||||
|
begin
|
||||||
|
mean := mean + data[i];
|
||||||
|
variance := variance + (data[i] * data[i]);
|
||||||
|
end;
|
||||||
|
variance := variance - (mean * mean) / n;
|
||||||
|
variance := variance / (n - 1);
|
||||||
|
stddev := sqrt(variance);
|
||||||
|
mean := mean / n;
|
||||||
|
// obtain skew, kurtosis and z scores
|
||||||
|
M2 := 0.0;
|
||||||
|
M3 := 0.0;
|
||||||
|
M4 := 0.0;
|
||||||
|
for i := 1 to n do
|
||||||
|
begin
|
||||||
|
deviation := data[i] - mean;
|
||||||
|
devsqr := deviation * deviation;
|
||||||
|
M2 := M2 + devsqr;
|
||||||
|
M3 := M3 + (deviation * devsqr);
|
||||||
|
M4 := M4 + (devsqr * devsqr);
|
||||||
|
z[i] := (data[i] - mean) / stddev;
|
||||||
|
end;
|
||||||
|
for i := 1 to n1 do x[i] := (x[i] - mean) / stddev;
|
||||||
|
skew := (n * M3) / ((n - 1) * (n - 2) * stddev * variance);
|
||||||
|
kurtosis := (n * (n + 1) * M4) - (3 * M2 * M2 * (n - 1));
|
||||||
|
kurtosis := kurtosis /( (n - 1) * (n - 2) * (n - 3) * (variance * variance) );
|
||||||
|
SkewEdit.Text := format('%8.3f',[skew]);
|
||||||
|
KurtosisEdit.Text := format('%8.3f',[kurtosis]);
|
||||||
|
// obtain the test statistic
|
||||||
|
for i := 1 to n1 do
|
||||||
|
begin
|
||||||
|
F1 := Norm(x[i]);
|
||||||
|
if x[i] >= 0 then fval[i] := 1.0 - (F1 / 2.0)
|
||||||
|
else fval[i] := F1 / 2.0;
|
||||||
|
end;
|
||||||
|
// cumulative proportions
|
||||||
|
jval[1] := freq[1] / n;
|
||||||
|
for i := 2 to n1 do jval[i] := jval[i-1] + freq[i] / n;
|
||||||
|
for i := 1 to n1 do DP[i] := abs(jval[i] - fval[i]);
|
||||||
|
// sort DP
|
||||||
|
for i := 1 to n1-1 do
|
||||||
|
begin
|
||||||
|
for j := i+1 to n1 do
|
||||||
|
begin
|
||||||
|
if DP[j] < DP[i] then
|
||||||
|
begin
|
||||||
|
temp := DP[i];
|
||||||
|
DP[i] := DP[j];
|
||||||
|
DP[j] := temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
DPP := DP[n1];
|
||||||
|
D := DPP;
|
||||||
|
D1 := D;
|
||||||
|
StatEdit.Text := format('%8.3f',[D]);
|
||||||
|
A0 := sqrt(n);
|
||||||
|
C1 := A0 - 0.01 + (0.85 / A0);
|
||||||
|
D15 := 0.775 / C1;
|
||||||
|
D10 := 0.819 / C1;
|
||||||
|
D05 := 0.895 / C1;
|
||||||
|
D025 := 0.995 / C1;
|
||||||
|
t2 := D;
|
||||||
|
if t2 > D025 then ConclusionEdit.Text := 'Strong evidence against normality.';
|
||||||
|
if ((t2 <= D025) and (t2 > D05)) then ConclusionEdit.Text := 'Sufficient evidence against normality.';
|
||||||
|
if ((t2 <= D05) and (t2 > D10)) then ConclusionEdit.Text := 'Suggestive evidence against normality.';
|
||||||
|
if ((t2 <= D10) and (t2 > D15)) then ConclusionEdit.Text := 'Little evidence against normality.';
|
||||||
|
if (t2 <= D15) then ConclusionEdit.Text := 'No evidence against normality.';
|
||||||
|
end;
|
||||||
|
DP := nil;
|
||||||
|
jval := nil;
|
||||||
|
fval := nil;
|
||||||
|
data := nil;
|
||||||
|
a := nil;
|
||||||
|
freq := nil;
|
||||||
|
z := nil;
|
||||||
|
x := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.VarInBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
i := VarList.ItemIndex;
|
||||||
|
if i < 0 then exit;
|
||||||
|
TestVarEdit.Text := VarList.Items.Strings[i];
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
VarInBtn.Visible := false;
|
||||||
|
VarOutBtn.Visible := true;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TNormalityFrm.VarOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if TestVarEdit.Text = '' then exit;
|
||||||
|
VarList.Items.Add(TestVarEdit.Text);
|
||||||
|
TestVarEdit.Text := '';
|
||||||
|
VarOutBtn.Visible := false;
|
||||||
|
VarInBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TNormalityFrm.Norm(z : double) : double;
|
||||||
|
var
|
||||||
|
p : double;
|
||||||
|
begin
|
||||||
|
z := abs(z);
|
||||||
|
p := 1.0 + z * (0.04986735 + z * (0.02114101 + z * (0.00327763 +
|
||||||
|
z * (0.0000380036 + z * (0.0000488906 + z * 0.000005383)))));
|
||||||
|
p := p * p;
|
||||||
|
p := p * p;
|
||||||
|
p := p * p;
|
||||||
|
Result := 1.0 / (p * p);
|
||||||
|
end;
|
||||||
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I normalityunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
621
applications/lazstats/source_orig/onecaseanovaunit.lfm
Normal file
621
applications/lazstats/source_orig/onecaseanovaunit.lfm
Normal file
@@ -0,0 +1,621 @@
|
|||||||
|
object OneCaseAnovaForm: TOneCaseAnovaForm
|
||||||
|
Left = 288
|
||||||
|
Height = 510
|
||||||
|
Top = 161
|
||||||
|
Width = 728
|
||||||
|
Caption = 'OneCaseAnovaForm'
|
||||||
|
ClientHeight = 510
|
||||||
|
ClientWidth = 728
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 16
|
||||||
|
Top = 11
|
||||||
|
Width = 51
|
||||||
|
Caption = 'Variables:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 368
|
||||||
|
Top = 29
|
||||||
|
Width = 185
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object DepIn: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 25
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepInClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object StaticText1: TStaticText
|
||||||
|
Left = 256
|
||||||
|
Height = 15
|
||||||
|
Top = 21
|
||||||
|
Width = 73
|
||||||
|
Caption = 'Dependent Variable'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object DepOut: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 64
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepOutClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object Fact1In: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 120
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact1InClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Fact1Out: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 160
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact1OutClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object Fact2In: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 216
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact2InClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object Fact2Out: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 256
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact2OutClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object StaticText2: TStaticText
|
||||||
|
Left = 256
|
||||||
|
Height = 17
|
||||||
|
Top = 112
|
||||||
|
Width = 83
|
||||||
|
Caption = 'Factor 1 Variable'
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object Factor1: TEdit
|
||||||
|
Left = 256
|
||||||
|
Height = 23
|
||||||
|
Top = 136
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 9
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object StaticText3: TStaticText
|
||||||
|
Left = 256
|
||||||
|
Height = 13
|
||||||
|
Top = 216
|
||||||
|
Width = 95
|
||||||
|
Caption = 'Factor 2 Variable'
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object Factor2: TEdit
|
||||||
|
Left = 256
|
||||||
|
Height = 23
|
||||||
|
Top = 240
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 11
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Fact3In: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 312
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact3InClick
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object Fact3Out: TBitBtn
|
||||||
|
Left = 208
|
||||||
|
Height = 29
|
||||||
|
Top = 352
|
||||||
|
Width = 32
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = Fact3OutClick
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object StaticText4: TStaticText
|
||||||
|
Left = 256
|
||||||
|
Height = 12
|
||||||
|
Top = 312
|
||||||
|
Width = 88
|
||||||
|
Caption = 'Factor 3 Clark'
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object Factor3: TEdit
|
||||||
|
Left = 256
|
||||||
|
Height = 23
|
||||||
|
Top = 336
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 15
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object DepVar: TEdit
|
||||||
|
Left = 257
|
||||||
|
Height = 23
|
||||||
|
Top = 41
|
||||||
|
Width = 135
|
||||||
|
TabOrder = 16
|
||||||
|
Text = 'DepVar'
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 502
|
||||||
|
Height = 163
|
||||||
|
Top = 21
|
||||||
|
Width = 194
|
||||||
|
Caption = 'Post-Hoc Comparisons:'
|
||||||
|
ClientHeight = 145
|
||||||
|
ClientWidth = 190
|
||||||
|
TabOrder = 17
|
||||||
|
object ScheffeChk: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 8
|
||||||
|
Width = 80
|
||||||
|
Caption = 'ScheffeChk'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object TukeyHSDChk: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 35
|
||||||
|
Width = 115
|
||||||
|
Caption = 'Tukey HSD (= n''s)'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object TukeyBChk: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 59
|
||||||
|
Width = 99
|
||||||
|
Caption = 'Tukey B (= n''s)'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object TukeyKramerChk: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 83
|
||||||
|
Width = 95
|
||||||
|
Caption = 'Tukey-Kramer'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object NewmanKeulsChk: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 107
|
||||||
|
Width = 138
|
||||||
|
Caption = 'Newman-Keuls (= n''s)'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object OptionsBox: TGroupBox
|
||||||
|
Left = 502
|
||||||
|
Height = 104
|
||||||
|
Top = 248
|
||||||
|
Width = 193
|
||||||
|
Caption = 'Options'
|
||||||
|
ClientHeight = 86
|
||||||
|
ClientWidth = 189
|
||||||
|
TabOrder = 18
|
||||||
|
object PlotMeans: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 6
|
||||||
|
Width = 154
|
||||||
|
Caption = 'Plot Means Using 3D bars'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Plot2DLines: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 29
|
||||||
|
Width = 154
|
||||||
|
Caption = 'Plot Means Using 2D bars'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Plot3DLines: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 53
|
||||||
|
Width = 171
|
||||||
|
Caption = 'Plot Means Horizontally (3D)'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 16
|
||||||
|
Top = 415
|
||||||
|
Width = 150
|
||||||
|
Caption = 'Alpha Level for Overall Tests'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object OverAllAlpha: TEdit
|
||||||
|
Left = 158
|
||||||
|
Height = 23
|
||||||
|
Top = 408
|
||||||
|
Width = 45
|
||||||
|
TabOrder = 19
|
||||||
|
Text = 'OverAllAlpha'
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 223
|
||||||
|
Height = 16
|
||||||
|
Top = 415
|
||||||
|
Width = 166
|
||||||
|
Caption = 'Alpha Level for Post-Hoc Tests:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object PostAlpha: TEdit
|
||||||
|
Left = 384
|
||||||
|
Height = 23
|
||||||
|
Top = 408
|
||||||
|
Width = 51
|
||||||
|
TabOrder = 20
|
||||||
|
Text = 'PostAlpha'
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 107
|
||||||
|
Left = 96
|
||||||
|
Height = 32
|
||||||
|
Top = 447
|
||||||
|
Width = 78
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 21
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 207
|
||||||
|
Height = 32
|
||||||
|
Top = 447
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 22
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 320
|
||||||
|
Height = 32
|
||||||
|
Top = 448
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 23
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 432
|
||||||
|
Height = 31
|
||||||
|
Top = 448
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 24
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 544
|
||||||
|
Height = 31
|
||||||
|
Top = 448
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 25
|
||||||
|
end
|
||||||
|
object InteractBtn: TRadioButton
|
||||||
|
Left = 512
|
||||||
|
Height = 19
|
||||||
|
Top = 408
|
||||||
|
Width = 103
|
||||||
|
Caption = 'Get Interactions'
|
||||||
|
TabOrder = 26
|
||||||
|
end
|
||||||
|
end
|
||||||
477
applications/lazstats/source_orig/onecaseanovaunit.lrs
Normal file
477
applications/lazstats/source_orig/onecaseanovaunit.lrs
Normal file
@@ -0,0 +1,477 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TOneCaseAnovaForm','FORMDATA',[
|
||||||
|
'TPF0'#17'TOneCaseAnovaForm'#16'OneCaseAnovaForm'#4'Left'#3' '#1#6'Height'#3
|
||||||
|
+#254#1#3'Top'#3#161#0#5'Width'#3#216#2#7'Caption'#6#16'OneCaseAnovaForm'#12
|
||||||
|
+'ClientHeight'#3#254#1#11'ClientWidth'#3#216#2#6'OnShow'#7#8'FormShow'#10'LC'
|
||||||
|
+'LVersion'#6#6'0.9.30'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#16#3'To'
|
||||||
|
+'p'#2#11#5'Width'#2'3'#7'Caption'#6#10'Variables:'#11'ParentColor'#8#0#0#8'T'
|
||||||
|
+'ListBox'#7'VarList'#4'Left'#2#8#6'Height'#3'p'#1#3'Top'#2#29#5'Width'#3#185
|
||||||
|
+#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#5'DepIn'#4'Left'#3#208#0
|
||||||
|
+#6'Height'#2#29#3'Top'#2#25#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0
|
||||||
|
+'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4
|
||||||
|
+#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'
|
||||||
|
+#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'
|
||||||
|
+#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255
|
||||||
|
+#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137
|
||||||
|
+#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255
|
||||||
|
+#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158
|
||||||
|
+#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255
|
||||||
|
+#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255
|
||||||
|
+'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'
|
||||||
|
+#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#10'DepInClick'#8'TabOrder'#2#1#0
|
||||||
|
+#0#11'TStaticText'#11'StaticText1'#4'Left'#3#0#1#6'Height'#2#15#3'Top'#2#21#5
|
||||||
|
+'Width'#2'I'#7'Caption'#6#18'Dependent Variable'#8'TabOrder'#2#2#0#0#7'TBitB'
|
||||||
|
+'tn'#6'DepOut'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#2'@'#5'Width'#2' '#10'G'
|
||||||
|
+'lyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0
|
||||||
|
+#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'
|
||||||
|
+#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134
|
||||||
|
+#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203
|
||||||
|
+#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190
|
||||||
|
+'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127
|
||||||
|
+#204#138#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255
|
||||||
|
+#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135
|
||||||
|
+#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177
|
||||||
|
+'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255
|
||||||
|
+'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#11
|
||||||
|
+'DepOutClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#7'Fact1In'#4'Left'#3#208#0#6'He'
|
||||||
|
+'ight'#2#29#3'Top'#2'x'#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM'
|
||||||
|
+'6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0
|
||||||
|
+#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
,#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'
|
||||||
|
+#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'
|
||||||
|
+#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208
|
||||||
|
+#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'
|
||||||
|
+#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255
|
||||||
|
+#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167
|
||||||
|
+#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202
|
||||||
|
+#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'
|
||||||
|
+#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'
|
||||||
|
+#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#9'NumGlyphs'#2#0#7'OnClick'#7#12'Fact1InClick'#8'TabOrder'#2#4#0#0#7'TBitBt'
|
||||||
|
+'n'#8'Fact1Out'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#3#160#0#5'Width'#2' '
|
||||||
|
+#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16
|
||||||
|
+#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255
|
||||||
|
+'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%'
|
||||||
|
+'i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200
|
||||||
|
+#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139
|
||||||
|
+#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'
|
||||||
|
+#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201
|
||||||
|
+#127#204#138#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159
|
||||||
|
+#255#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197
|
||||||
|
,#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'
|
||||||
|
+#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'
|
||||||
|
+#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#13
|
||||||
|
+'Fact1OutClick'#8'TabOrder'#2#5#0#0#7'TBitBtn'#7'Fact2In'#4'Left'#3#208#0#6
|
||||||
|
+'Height'#2#29#3'Top'#3#216#0#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0
|
||||||
|
+#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0
|
||||||
|
+#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'
|
||||||
|
+#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'
|
||||||
|
+#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255
|
||||||
|
+#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137
|
||||||
|
+#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255
|
||||||
|
+#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158
|
||||||
|
+#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255
|
||||||
|
+#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255
|
||||||
|
+'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'
|
||||||
|
+#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#12'Fact2InClick'#8'TabOrder'#2#6
|
||||||
|
+#0#0#7'TBitBtn'#8'Fact2Out'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#3#0#1#5'Wi'
|
||||||
|
+'dth'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('
|
||||||
|
+#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0
|
||||||
|
+#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247
|
||||||
|
+'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['
|
||||||
|
+#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255
|
||||||
|
+'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'
|
||||||
|
+#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206
|
||||||
|
+#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'
|
||||||
|
+#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255#154#212#163
|
||||||
|
+#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133#199
|
||||||
|
+#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135#255']'
|
||||||
|
+#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'
|
||||||
|
+#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7
|
||||||
|
+'OnClick'#7#13'Fact2OutClick'#8'TabOrder'#2#7#0#0#11'TStaticText'#11'StaticT'
|
||||||
|
+'ext2'#4'Left'#3#0#1#6'Height'#2#17#3'Top'#2'p'#5'Width'#2'S'#7'Caption'#6#17
|
||||||
|
+'Factor 1 Variable'#8'TabOrder'#2#8#0#0#5'TEdit'#7'Factor1'#4'Left'#3#0#1#6
|
||||||
|
,'Height'#2#23#3'Top'#3#136#0#5'Width'#3#135#0#8'TabOrder'#2#9#4'Text'#6#5'Ed'
|
||||||
|
+'it1'#0#0#11'TStaticText'#11'StaticText3'#4'Left'#3#0#1#6'Height'#2#13#3'Top'
|
||||||
|
+#3#216#0#5'Width'#2'_'#7'Caption'#6#17'Factor 2 Variable'#8'TabOrder'#2#10#0
|
||||||
|
+#0#5'TEdit'#7'Factor2'#4'Left'#3#0#1#6'Height'#2#23#3'Top'#3#240#0#5'Width'#3
|
||||||
|
+#135#0#8'TabOrder'#2#11#4'Text'#6#5'Edit1'#0#0#7'TBitBtn'#7'Fact3In'#4'Left'
|
||||||
|
+#3#208#0#6'Height'#2#29#3'Top'#3'8'#1#5'Width'#2' '#10'Glyph.Data'#10':'#4#0
|
||||||
|
+#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0
|
||||||
|
+#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'
|
||||||
|
+#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211
|
||||||
|
+#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130
|
||||||
|
+#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'
|
||||||
|
+#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171
|
||||||
|
+#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204
|
||||||
|
+#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'
|
||||||
|
+#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255
|
||||||
|
+'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161
|
||||||
|
+'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#12'Fact3InClick'#8'TabOrd'
|
||||||
|
+'er'#2#12#0#0#7'TBitBtn'#8'Fact3Out'#4'Left'#3#208#0#6'Height'#2#29#3'Top'#3
|
||||||
|
+'`'#1#5'Width'#2' '#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'
|
||||||
|
+#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153
|
||||||
|
+'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'
|
||||||
|
+#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255
|
||||||
|
+'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'
|
||||||
|
+#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135
|
||||||
|
+#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#13'Fact3OutClick'#8'TabOrder'#2#13#0#0#11'TStaticText'
|
||||||
|
+#11'StaticText4'#4'Left'#3#0#1#6'Height'#2#12#3'Top'#3'8'#1#5'Width'#2'X'#7
|
||||||
|
+'Caption'#6#14'Factor 3 Clark'#8'TabOrder'#2#14#0#0#5'TEdit'#7'Factor3'#4'Le'
|
||||||
|
+'ft'#3#0#1#6'Height'#2#23#3'Top'#3'P'#1#5'Width'#3#135#0#8'TabOrder'#2#15#4
|
||||||
|
+'Text'#6#5'Edit1'#0#0#5'TEdit'#6'DepVar'#4'Left'#3#1#1#6'Height'#2#23#3'Top'
|
||||||
|
+#2')'#5'Width'#3#135#0#8'TabOrder'#2#16#4'Text'#6#6'DepVar'#0#0#9'TGroupBox'
|
||||||
|
+#9'GroupBox1'#4'Left'#3#246#1#6'Height'#3#163#0#3'Top'#2#21#5'Width'#3#194#0
|
||||||
|
+#7'Caption'#6#21'Post-Hoc Comparisons:'#12'ClientHeight'#3#145#0#11'ClientWi'
|
||||||
|
+'dth'#3#190#0#8'TabOrder'#2#17#0#9'TCheckBox'#10'ScheffeChk'#4'Left'#2#8#6'H'
|
||||||
|
+'eight'#2#19#3'Top'#2#8#5'Width'#2'P'#7'Caption'#6#10'ScheffeChk'#8'TabOrder'
|
||||||
|
+#2#0#0#0#9'TCheckBox'#11'TukeyHSDChk'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'#'
|
||||||
|
+#5'Width'#2's'#7'Caption'#6#17'Tukey HSD (= n''s)'#8'TabOrder'#2#1#0#0#9'TCh'
|
||||||
|
+'eckBox'#9'TukeyBChk'#4'Left'#2#8#6'Height'#2#19#3'Top'#2';'#5'Width'#2'c'#7
|
||||||
|
+'Caption'#6#15'Tukey B (= n''s)'#8'TabOrder'#2#2#0#0#9'TCheckBox'#14'TukeyKr'
|
||||||
|
+'amerChk'#4'Left'#2#8#6'Height'#2#19#3'Top'#2'S'#5'Width'#2'_'#7'Caption'#6
|
||||||
|
+#12'Tukey-Kramer'#8'TabOrder'#2#3#0#0#9'TCheckBox'#14'NewmanKeulsChk'#4'Left'
|
||||||
|
+#2#8#6'Height'#2#19#3'Top'#2'k'#5'Width'#3#138#0#7'Caption'#6#20'Newman-Keul'
|
||||||
|
+'s (= n''s)'#8'TabOrder'#2#4#0#0#0#9'TGroupBox'#10'OptionsBox'#4'Left'#3#246
|
||||||
|
+#1#6'Height'#2'h'#3'Top'#3#248#0#5'Width'#3#193#0#7'Caption'#6#7'Options'#12
|
||||||
|
+'ClientHeight'#2'V'#11'ClientWidth'#3#189#0#8'TabOrder'#2#18#0#9'TCheckBox'#9
|
||||||
|
+'PlotMeans'#4'Left'#2#8#6'Height'#2#19#3'Top'#2#6#5'Width'#3#154#0#7'Caption'
|
||||||
|
,#6#24'Plot Means Using 3D bars'#8'TabOrder'#2#0#0#0#9'TCheckBox'#11'Plot2DLi'
|
||||||
|
+'nes'#4'Left'#2#8#6'Height'#2#19#3'Top'#2#29#5'Width'#3#154#0#7'Caption'#6#24
|
||||||
|
+'Plot Means Using 2D bars'#8'TabOrder'#2#1#0#0#9'TCheckBox'#11'Plot3DLines'#4
|
||||||
|
+'Left'#2#8#6'Height'#2#19#3'Top'#2'5'#5'Width'#3#171#0#7'Caption'#6#28'Plot '
|
||||||
|
+'Means Horizontally (3D)'#8'TabOrder'#2#2#0#0#0#6'TLabel'#6'Label3'#4'Left'#2
|
||||||
|
+#7#6'Height'#2#16#3'Top'#3#159#1#5'Width'#3#150#0#7'Caption'#6#29'Alpha Leve'
|
||||||
|
+'l for Overall Tests'#11'ParentColor'#8#0#0#5'TEdit'#12'OverAllAlpha'#4'Left'
|
||||||
|
+#3#158#0#6'Height'#2#23#3'Top'#3#152#1#5'Width'#2'-'#8'TabOrder'#2#19#4'Text'
|
||||||
|
+#6#12'OverAllAlpha'#0#0#6'TLabel'#6'Label4'#4'Left'#3#223#0#6'Height'#2#16#3
|
||||||
|
+'Top'#3#159#1#5'Width'#3#166#0#7'Caption'#6#31'Alpha Level for Post-Hoc Test'
|
||||||
|
+'s:'#11'ParentColor'#8#0#0#5'TEdit'#9'PostAlpha'#4'Left'#3#128#1#6'Height'#2
|
||||||
|
+#23#3'Top'#3#152#1#5'Width'#2'3'#8'TabOrder'#2#20#4'Text'#6#9'PostAlpha'#0#0
|
||||||
|
+#7'TButton'#7'HelpBtn'#3'Tag'#2'k'#4'Left'#2'`'#6'Height'#2' '#3'Top'#3#191#1
|
||||||
|
+#5'Width'#2'N'#7'Caption'#6#4'Help'#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'
|
||||||
|
+#2#21#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#207#0#6'Height'#2' '#3'Top'#3#191
|
||||||
|
+#1#5'Width'#2'M'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabO'
|
||||||
|
+'rder'#2#22#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'@'#1#6'Height'#2' '#3'Top'
|
||||||
|
+#3#192#1#5'Width'#2'M'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'
|
||||||
|
+#2#23#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#176#1#6'Height'#2#31#3'Top'#3
|
||||||
|
+#192#1#5'Width'#2'M'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'
|
||||||
|
+#8'TabOrder'#2#24#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3' '#2#6'Height'#2#31#3
|
||||||
|
+'Top'#3#192#1#5'Width'#2'M'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'Tab'
|
||||||
|
+'Order'#2#25#0#0#12'TRadioButton'#11'InteractBtn'#4'Left'#3#0#2#6'Height'#2
|
||||||
|
+#19#3'Top'#3#152#1#5'Width'#2'g'#7'Caption'#6#16'Get Interactions'#8'TabOrde'
|
||||||
|
+'r'#2#26#0#0#0
|
||||||
|
]);
|
||||||
1913
applications/lazstats/source_orig/onecaseanovaunit.pas
Normal file
1913
applications/lazstats/source_orig/onecaseanovaunit.pas
Normal file
File diff suppressed because it is too large
Load Diff
163
applications/lazstats/source_orig/onesampunit.lfm
Normal file
163
applications/lazstats/source_orig/onesampunit.lfm
Normal file
@@ -0,0 +1,163 @@
|
|||||||
|
object OneSampFrm: TOneSampFrm
|
||||||
|
Left = 163
|
||||||
|
Height = 256
|
||||||
|
Top = 117
|
||||||
|
Width = 487
|
||||||
|
Caption = 'One Sample Tests'
|
||||||
|
ClientHeight = 256
|
||||||
|
ClientWidth = 487
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object RadioGroup1: TRadioGroup
|
||||||
|
Left = 8
|
||||||
|
Height = 184
|
||||||
|
Top = 8
|
||||||
|
Width = 196
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Statistic of Interest'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 166
|
||||||
|
ClientWidth = 192
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'Sample Mean'
|
||||||
|
'Sample Proportion'
|
||||||
|
'Sample Correlation'
|
||||||
|
'Sample Variance'
|
||||||
|
)
|
||||||
|
OnClick = RadioGroup1Click
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 218
|
||||||
|
Height = 177
|
||||||
|
Top = 15
|
||||||
|
Width = 254
|
||||||
|
ClientHeight = 177
|
||||||
|
ClientWidth = 254
|
||||||
|
TabOrder = 1
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 16
|
||||||
|
Top = 17
|
||||||
|
Width = 100
|
||||||
|
Caption = 'Sample Proportion'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 16
|
||||||
|
Top = 49
|
||||||
|
Width = 119
|
||||||
|
Caption = 'Population Parameter:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 16
|
||||||
|
Top = 81
|
||||||
|
Width = 66
|
||||||
|
Caption = 'Sample Size:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 18
|
||||||
|
Height = 16
|
||||||
|
Top = 113
|
||||||
|
Width = 113
|
||||||
|
Caption = 'Confidence Level (%)'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 16
|
||||||
|
Height = 16
|
||||||
|
Top = 145
|
||||||
|
Width = 146
|
||||||
|
Caption = 'Sample Standard Deviation:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Statistic: TEdit
|
||||||
|
Left = 150
|
||||||
|
Height = 23
|
||||||
|
Top = 9
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'Statistic'
|
||||||
|
end
|
||||||
|
object StdDev: TEdit
|
||||||
|
Left = 150
|
||||||
|
Height = 23
|
||||||
|
Top = 137
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Parameter: TEdit
|
||||||
|
Left = 368
|
||||||
|
Height = 23
|
||||||
|
Top = 56
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object Size: TEdit
|
||||||
|
Left = 368
|
||||||
|
Height = 23
|
||||||
|
Top = 88
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object CInterval: TEdit
|
||||||
|
Left = 368
|
||||||
|
Height = 23
|
||||||
|
Top = 120
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 4
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 8
|
||||||
|
Height = 31
|
||||||
|
Top = 208
|
||||||
|
Width = 89
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 115
|
||||||
|
Height = 31
|
||||||
|
Top = 209
|
||||||
|
Width = 89
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object OKBtn: TButton
|
||||||
|
Left = 376
|
||||||
|
Height = 31
|
||||||
|
Top = 209
|
||||||
|
Width = 89
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 264
|
||||||
|
Height = 31
|
||||||
|
Top = 209
|
||||||
|
Width = 89
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
end
|
||||||
44
applications/lazstats/source_orig/onesampunit.lrs
Normal file
44
applications/lazstats/source_orig/onesampunit.lrs
Normal file
@@ -0,0 +1,44 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TOneSampFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TOneSampFrm'#10'OneSampFrm'#4'Left'#3#163#0#6'Height'#3#0#1#3'Top'#2
|
||||||
|
+'u'#5'Width'#3#231#1#7'Caption'#6#16'One Sample Tests'#12'ClientHeight'#3#0#1
|
||||||
|
+#11'ClientWidth'#3#231#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.30'#0
|
||||||
|
+#11'TRadioGroup'#11'RadioGroup1'#4'Left'#2#8#6'Height'#3#184#0#3'Top'#2#8#5
|
||||||
|
+'Width'#3#196#0#8'AutoFill'#9#7'Caption'#6#21'Statistic of Interest'#28'Chil'
|
||||||
|
+'dSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'Child'
|
||||||
|
+'Sizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enl'
|
||||||
|
+'argeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizonta'
|
||||||
|
+'l'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'
|
||||||
|
+#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.C'
|
||||||
|
+'ontrolsPerLine'#2#1#12'ClientHeight'#3#166#0#11'ClientWidth'#3#192#0#9'Item'
|
||||||
|
+'Index'#2#0#13'Items.Strings'#1#6#11'Sample Mean'#6#17'Sample Proportion'#6
|
||||||
|
+#18'Sample Correlation'#6#15'Sample Variance'#0#7'OnClick'#7#16'RadioGroup1C'
|
||||||
|
+'lick'#8'TabOrder'#2#0#0#0#6'TPanel'#6'Panel1'#4'Left'#3#218#0#6'Height'#3
|
||||||
|
+#177#0#3'Top'#2#15#5'Width'#3#254#0#12'ClientHeight'#3#177#0#11'ClientWidth'
|
||||||
|
+#3#254#0#8'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#16#3
|
||||||
|
+'Top'#2#17#5'Width'#2'd'#7'Caption'#6#17'Sample Proportion'#11'ParentColor'#8
|
||||||
|
+#0#0#6'TLabel'#6'Label2'#4'Left'#2#16#6'Height'#2#16#3'Top'#2'1'#5'Width'#2
|
||||||
|
+'w'#7'Caption'#6#21'Population Parameter:'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||||
|
+'Label3'#4'Left'#2#16#6'Height'#2#16#3'Top'#2'Q'#5'Width'#2'B'#7'Caption'#6
|
||||||
|
+#12'Sample Size:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#18#6'H'
|
||||||
|
+'eight'#2#16#3'Top'#2'q'#5'Width'#2'q'#7'Caption'#6#20'Confidence Level (%)'
|
||||||
|
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#16#6'Height'#2#16#3'Top'
|
||||||
|
+#3#145#0#5'Width'#3#146#0#7'Caption'#6#26'Sample Standard Deviation:'#11'Par'
|
||||||
|
+'entColor'#8#0#0#5'TEdit'#9'Statistic'#4'Left'#3#150#0#6'Height'#2#23#3'Top'
|
||||||
|
+#2#9#5'Width'#2'S'#8'TabOrder'#2#0#4'Text'#6#9'Statistic'#0#0#5'TEdit'#6'Std'
|
||||||
|
+'Dev'#4'Left'#3#150#0#6'Height'#2#23#3'Top'#3#137#0#5'Width'#2'S'#8'TabOrder'
|
||||||
|
+#2#1#4'Text'#6#5'Edit1'#0#0#0#5'TEdit'#9'Parameter'#4'Left'#3'p'#1#6'Height'
|
||||||
|
+#2#23#3'Top'#2'8'#5'Width'#2'S'#8'TabOrder'#2#2#4'Text'#6#5'Edit1'#0#0#5'TEd'
|
||||||
|
+'it'#4'Size'#4'Left'#3'p'#1#6'Height'#2#23#3'Top'#2'X'#5'Width'#2'S'#8'TabOr'
|
||||||
|
+'der'#2#3#4'Text'#6#5'Edit1'#0#0#5'TEdit'#9'CInterval'#4'Left'#3'p'#1#6'Heig'
|
||||||
|
+'ht'#2#23#3'Top'#2'x'#5'Width'#2'S'#8'TabOrder'#2#4#4'Text'#6#5'Edit1'#0#0#7
|
||||||
|
+'TButton'#8'ResetBtn'#4'Left'#2#8#6'Height'#2#31#3'Top'#3#208#0#5'Width'#2'Y'
|
||||||
|
+#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#5#0#0#7
|
||||||
|
+'TButton'#9'CancelBtn'#4'Left'#2's'#6'Height'#2#31#3'Top'#3#209#0#5'Width'#2
|
||||||
|
+'Y'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#6#0#0#7'TButton'
|
||||||
|
+#5'OKBtn'#4'Left'#3'x'#1#6'Height'#2#31#3'Top'#3#209#0#5'Width'#2'Y'#7'Capti'
|
||||||
|
+'on'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#7#0#0#7'TButton'#10'Compu'
|
||||||
|
+'teBtn'#4'Left'#3#8#1#6'Height'#2#31#3'Top'#3#209#0#5'Width'#2'Y'#7'Caption'
|
||||||
|
+#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#8#0#0#0
|
||||||
|
]);
|
||||||
226
applications/lazstats/source_orig/onesampunit.pas
Normal file
226
applications/lazstats/source_orig/onesampunit.pas
Normal file
@@ -0,0 +1,226 @@
|
|||||||
|
unit OneSampUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
ExtCtrls, StdCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TOneSampFrm }
|
||||||
|
|
||||||
|
TOneSampFrm = class(TForm)
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
OKBtn: TButton;
|
||||||
|
Statistic: TEdit;
|
||||||
|
Parameter: TEdit;
|
||||||
|
Size: TEdit;
|
||||||
|
CInterval: TEdit;
|
||||||
|
StdDev: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Panel1: TPanel;
|
||||||
|
RadioGroup1: TRadioGroup;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure RadioGroup1Click(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
OneSampFrm: TOneSampFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses OutPutUnit, FunctionsLib;
|
||||||
|
|
||||||
|
{ TOneSampFrm }
|
||||||
|
|
||||||
|
procedure TOneSampFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Statistic.Text := '';
|
||||||
|
Parameter.Text := '';
|
||||||
|
Size.Text := '';
|
||||||
|
CInterval.Text := '95.0';
|
||||||
|
StdDev.Text := '';
|
||||||
|
RadioGroup1.ItemIndex := 0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOneSampFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOneSampFrm.RadioGroup1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if RadioGroup1.ItemIndex <> 0 then
|
||||||
|
begin
|
||||||
|
Label5.Visible := false;
|
||||||
|
StdDev.Visible := false;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Label5.Visible := true;
|
||||||
|
StdDev.Visible := true;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOneSampFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
i, N : integer;
|
||||||
|
sampmean, sampprop, sampcor, sampvar, Confidence, alpha, df : double;
|
||||||
|
sampsize, popmean, popprop, popcor, popvar, stderr : double;
|
||||||
|
z, zprobability, zreject, zconf, UCL, LCL, sampsd : double;
|
||||||
|
t, tprobability, testt : double;
|
||||||
|
poptrans, samptrans, chisqrval, chiprob, lowchi, hichi, testchi : double;
|
||||||
|
outline : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
// Initialize output form
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
// OutPutFrm.RichEdit.ParaGraph.Alignment := taLeftJustify;
|
||||||
|
N := round(StrToFloat(Size.Text));
|
||||||
|
Confidence := StrToFloat(CInterval.Text) / 100.0;
|
||||||
|
Case RadioGroup1.ItemIndex of
|
||||||
|
0 : begin
|
||||||
|
sampmean := StrToFloat(Statistic.Text);
|
||||||
|
popmean := StrToFloat(Parameter.Text);
|
||||||
|
sampsd := StrToFloat(StdDev.Text);
|
||||||
|
df := N;
|
||||||
|
stderr := sampsd / sqrt(df);
|
||||||
|
df := N-1;
|
||||||
|
t := (sampmean - popmean) / stderr;
|
||||||
|
tprobability := probt(t,df);
|
||||||
|
alpha := (1.0 - confidence) / 2.0;
|
||||||
|
testt := inverset((1.0 - alpha),df);
|
||||||
|
UCL := sampmean + testt * stderr;
|
||||||
|
LCL := sampmean - testt * stderr;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('ANALYSIS OF A SAMPLE MEAN');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Sample Mean = %6.3f',[sampmean]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Population Mean = %6.3f',[popmean]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Sample Size = %d',[N]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Standard error of Mean = %6.3f',[stderr]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('t test statistic = %6.3f with probability %6.3f',[t,tprobability]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('t value required for rejection = %6.3f',[testt]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Confidence Interval = (%6.3f,%6.3f)',[LCL,UCL]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
1 : begin
|
||||||
|
sampprop := StrToFloat(Statistic.Text);
|
||||||
|
popprop := StrToFloat(Parameter.Text);
|
||||||
|
stderr := sqrt((sampprop * (1.0 - sampprop)) / N);
|
||||||
|
z := (sampprop - popprop) / StdErr;
|
||||||
|
zprobability := 1.0 - probz(z);
|
||||||
|
zreject := inversez(confidence);
|
||||||
|
zconf := abs(inversez((1.0 - confidence) / 2.0));
|
||||||
|
UCL := sampprop + (zconf * stderr);
|
||||||
|
LCL := sampprop - (zconf * stderr);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('ANALYSIS OF A SAMPLE PROPORTION');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Sample Proportion = %6.3f',[sampprop]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Population Proportion = %6.3f',[popprop]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Sample Size = %d',[N]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Standard error of proportion = %6.3f',[stderr]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z test statistic = %6.3f with probability > P = %6.3f',[z,zprobability]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z value required for rejection = %6.3f',[zreject]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Confidence Interval = (%6.3f,%6.3f)',[LCL,UCL]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
2 : begin
|
||||||
|
sampcor := StrToFloat(Statistic.Text);
|
||||||
|
popcor := StrToFloat(Parameter.Text);
|
||||||
|
zconf := abs(inversez((1.0 - confidence) / 2.0));
|
||||||
|
samptrans := ln((1.0 + sampcor) / (1.0 - sampcor)) / 2.0;
|
||||||
|
poptrans := ln((1.0 + popcor) / (1.0 - popcor)) / 2.0;
|
||||||
|
stderr := sqrt(1.0 / (N - 3.0));
|
||||||
|
z := (samptrans - poptrans) / stderr;
|
||||||
|
zprobability := probz(z);
|
||||||
|
alpha := (1.0 - confidence) / 2.0;
|
||||||
|
zreject := inversez(1.0 - alpha);
|
||||||
|
UCL := samptrans + (zconf * stderr);
|
||||||
|
LCL := samptrans - (zconf * stderr);
|
||||||
|
UCL := (exp(2.0 * UCL) - 1.0) / (exp(2.0 * UCL) + 1.0);
|
||||||
|
LCL := (exp(2.0 * LCL) - 1.0) / (exp(2.0 * LCL) + 1.0);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('ANALYSIS OF A SAMPLE CORRELATION');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Sample Correlation = %6.3f',[sampcor]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Population Correlation = %6.3f',[popcor]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Sample Size = %d',[N]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z Transform of sample correlation = %6.3f',[samptrans]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z Transform of population correlation = %6.3f',[poptrans]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Standard error of transform = %6.3f',[stderr]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z test statistic = %6.3f with probability %6.3f',[z,zprobability]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('z value required for rejection = %6.3f',[zreject]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Confidence Interval for sample correlation = (%6.3f,%6.3f)',[LCL,UCL]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
3 : begin
|
||||||
|
sampvar := StrToFloat(Statistic.Text);
|
||||||
|
popvar := StrToFloat(Parameter.Text);
|
||||||
|
alpha := 1.0 - confidence;
|
||||||
|
chisqrval := ((N - 1.0) * sampvar) / Popvar;
|
||||||
|
chiprob := 1.0 - chisquaredprob(chisqrval,N-1);
|
||||||
|
lowchi := inversechi((1.0 - alpha / 2.0),N-1);
|
||||||
|
hichi := inversechi((alpha / 2.0),N-1);
|
||||||
|
LCL := ((N - 1.0) * sampvar) / lowchi;
|
||||||
|
UCL := ((N - 1.0) * sampvar) / hichi;
|
||||||
|
if sampvar > popvar then testchi := lowchi
|
||||||
|
else testchi := hichi;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('ANALYSIS OF A SAMPLE VARIANCE');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Sample Variance = %6.3f',[sampvar]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Population Variance = %6.3f',[popvar]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Sample Size = %d',[N]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Chi-square statistic = %6.3f with probability > chisquare = %6.3f and D.F. = %d',[chisqrval,chiprob, N-1]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Chi-square value required for rejection = %6.3f',[testchi]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Chi-square Confidence Interval = (%6.3f,%6.3f)',[lowchi,hichi]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Variance Confidence Interval = (%6.3f,%6.3f)',[LCL,UCL]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I onesampunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
147
applications/lazstats/source_orig/optionsunit.lfm
Normal file
147
applications/lazstats/source_orig/optionsunit.lfm
Normal file
@@ -0,0 +1,147 @@
|
|||||||
|
object OptionsFrm: TOptionsFrm
|
||||||
|
Left = 189
|
||||||
|
Height = 383
|
||||||
|
Top = 95
|
||||||
|
Width = 441
|
||||||
|
Caption = 'Options'
|
||||||
|
ClientHeight = 383
|
||||||
|
ClientWidth = 441
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 14
|
||||||
|
Top = 280
|
||||||
|
Width = 98
|
||||||
|
Caption = 'Default File Location'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object FractionTypeGrp: TRadioGroup
|
||||||
|
Left = 9
|
||||||
|
Height = 61
|
||||||
|
Top = 16
|
||||||
|
Width = 414
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Decimal Fraction Usage'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 43
|
||||||
|
ClientWidth = 410
|
||||||
|
ItemIndex = 0
|
||||||
|
Items.Strings = (
|
||||||
|
'English (default) period separator'
|
||||||
|
'European (comma) separator'
|
||||||
|
)
|
||||||
|
OnClick = FractionTypeGrpClick
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object MissValsGrp: TRadioGroup
|
||||||
|
Left = 9
|
||||||
|
Height = 98
|
||||||
|
Top = 88
|
||||||
|
Width = 409
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Default Missing Values'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 80
|
||||||
|
ClientWidth = 405
|
||||||
|
ItemIndex = 3
|
||||||
|
Items.Strings = (
|
||||||
|
'Blank '
|
||||||
|
'Period '
|
||||||
|
'Zero (0) '
|
||||||
|
'99999'
|
||||||
|
)
|
||||||
|
OnClick = MissValsGrpClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object JustificationGrp: TRadioGroup
|
||||||
|
Left = 9
|
||||||
|
Height = 68
|
||||||
|
Top = 200
|
||||||
|
Width = 407
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Justification'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 50
|
||||||
|
ClientWidth = 403
|
||||||
|
ItemIndex = 2
|
||||||
|
Items.Strings = (
|
||||||
|
'Left'
|
||||||
|
'Center'
|
||||||
|
'Right'
|
||||||
|
)
|
||||||
|
OnClick = JustificationGrpClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object FilePathEdit: TEdit
|
||||||
|
Left = 10
|
||||||
|
Height = 21
|
||||||
|
Top = 296
|
||||||
|
Width = 404
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 216
|
||||||
|
Height = 28
|
||||||
|
Top = 336
|
||||||
|
Width = 82
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object SaveBtn: TButton
|
||||||
|
Left = 328
|
||||||
|
Height = 28
|
||||||
|
Top = 336
|
||||||
|
Width = 78
|
||||||
|
Caption = 'Save'
|
||||||
|
ModalResult = 1
|
||||||
|
OnClick = SaveBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object BrowseBtn: TButton
|
||||||
|
Left = 112
|
||||||
|
Height = 28
|
||||||
|
Top = 336
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Browse...'
|
||||||
|
OnClick = BrowseBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 135
|
||||||
|
Left = 10
|
||||||
|
Height = 28
|
||||||
|
Top = 336
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object SelDir: TSelectDirectoryDialog
|
||||||
|
left = 408
|
||||||
|
top = 264
|
||||||
|
end
|
||||||
|
end
|
||||||
50
applications/lazstats/source_orig/optionsunit.lrs
Normal file
50
applications/lazstats/source_orig/optionsunit.lrs
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TOptionsFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TOptionsFrm'#10'OptionsFrm'#4'Left'#3#189#0#6'Height'#3#127#1#3'Top'
|
||||||
|
+#2'_'#5'Width'#3#185#1#7'Caption'#6#7'Options'#12'ClientHeight'#3#127#1#11'C'
|
||||||
|
+'lientWidth'#3#185#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9.28.2'#0#6
|
||||||
|
+'TLabel'#6'Label1'#4'Left'#2#9#6'Height'#2#14#3'Top'#3#24#1#5'Width'#2'b'#7
|
||||||
|
+'Caption'#6#21'Default File Location'#11'ParentColor'#8#0#0#11'TRadioGroup'
|
||||||
|
+#15'FractionTypeGrp'#4'Left'#2#9#6'Height'#2'='#3'Top'#2#16#5'Width'#3#158#1
|
||||||
|
+#8'AutoFill'#9#7'Caption'#6#22'Decimal Fraction Usage'#28'ChildSizing.LeftRi'
|
||||||
|
+'ghtSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Enlarge'
|
||||||
|
+'Horizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7
|
||||||
|
+#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScale'
|
||||||
|
+'Childs'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.'
|
||||||
|
+'Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'
|
||||||
|
+#2#1#12'ClientHeight'#2'+'#11'ClientWidth'#3#154#1#9'ItemIndex'#2#0#13'Items'
|
||||||
|
+'.Strings'#1#6'"English (default) period separator'#6#26'European (comma) se'
|
||||||
|
+'parator'#0#7'OnClick'#7#20'FractionTypeGrpClick'#8'TabOrder'#2#0#0#0#11'TRa'
|
||||||
|
+'dioGroup'#11'MissValsGrp'#4'Left'#2#9#6'Height'#2'b'#3'Top'#2'X'#5'Width'#3
|
||||||
|
+#153#1#8'AutoFill'#9#7'Caption'#6#22'Default Missing Values'#28'ChildSizing.'
|
||||||
|
+'LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.E'
|
||||||
|
+'nlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVert'
|
||||||
|
+'ical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14
|
||||||
|
+'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'Chil'
|
||||||
|
+'dSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Controls'
|
||||||
|
+'PerLine'#2#1#12'ClientHeight'#2'P'#11'ClientWidth'#3#149#1#9'ItemIndex'#2#3
|
||||||
|
+#13'Items.Strings'#1#6#6'Blank '#6#7'Period '#6#9'Zero (0) '#6#5'99999'#0#7
|
||||||
|
+'OnClick'#7#16'MissValsGrpClick'#8'TabOrder'#2#1#0#0#11'TRadioGroup'#16'Just'
|
||||||
|
+'ificationGrp'#4'Left'#2#9#6'Height'#2'D'#3'Top'#3#200#0#5'Width'#3#151#1#8
|
||||||
|
+'AutoFill'#9#7'Caption'#6#13'Justification'#28'ChildSizing.LeftRightSpacing'
|
||||||
|
+#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7
|
||||||
|
+#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomoge'
|
||||||
|
+'nousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'C'
|
||||||
|
+'hildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29
|
||||||
|
+'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'Clien'
|
||||||
|
+'tHeight'#2'2'#11'ClientWidth'#3#147#1#9'ItemIndex'#2#2#13'Items.Strings'#1#6
|
||||||
|
+#4'Left'#6#6'Center'#6#5'Right'#0#7'OnClick'#7#21'JustificationGrpClick'#8'T'
|
||||||
|
+'abOrder'#2#2#0#0#5'TEdit'#12'FilePathEdit'#4'Left'#2#10#6'Height'#2#21#3'To'
|
||||||
|
+'p'#3'('#1#5'Width'#3#148#1#8'TabOrder'#2#3#0#0#7'TButton'#9'CancelBtn'#4'Le'
|
||||||
|
+'ft'#3#216#0#6'Height'#2#28#3'Top'#3'P'#1#5'Width'#2'R'#6'Cancel'#9#7'Captio'
|
||||||
|
+'n'#6#6'Cancel'#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#4#0#0#7'TButto'
|
||||||
|
+'n'#7'SaveBtn'#4'Left'#3'H'#1#6'Height'#2#28#3'Top'#3'P'#1#5'Width'#2'N'#7'C'
|
||||||
|
+'aption'#6#4'Save'#11'ModalResult'#2#1#7'OnClick'#7#12'SaveBtnClick'#8'TabOr'
|
||||||
|
+'der'#2#5#0#0#7'TButton'#9'BrowseBtn'#4'Left'#2'p'#6'Height'#2#28#3'Top'#3'P'
|
||||||
|
+#1#5'Width'#2'L'#7'Caption'#6#9'Browse...'#7'OnClick'#7#14'BrowseBtnClick'#8
|
||||||
|
+'TabOrder'#2#6#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#135#0#4'Left'#2#10#6'Heigh'
|
||||||
|
+'t'#2#28#3'Top'#3'P'#1#5'Width'#2'Q'#7'Caption'#6#4'Help'#7'OnClick'#7#12'He'
|
||||||
|
+'lpBtnClick'#8'TabOrder'#2#7#0#0#22'TSelectDirectoryDialog'#6'SelDir'#4'left'
|
||||||
|
+#3#152#1#3'top'#3#8#1#0#0#0
|
||||||
|
]);
|
||||||
194
applications/lazstats/source_orig/optionsunit.pas
Normal file
194
applications/lazstats/source_orig/optionsunit.pas
Normal file
@@ -0,0 +1,194 @@
|
|||||||
|
unit OptionsUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, ExtCtrls, Globals, Clipbrd, EditBtn, contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TOptionsFrm }
|
||||||
|
|
||||||
|
TOptionsFrm = class(TForm)
|
||||||
|
BrowseBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
HelpBtn: TButton;
|
||||||
|
SaveBtn: TButton;
|
||||||
|
FilePathEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
FractionTypeGrp: TRadioGroup;
|
||||||
|
MissValsGrp: TRadioGroup;
|
||||||
|
JustificationGrp: TRadioGroup;
|
||||||
|
SelDir: TSelectDirectoryDialog;
|
||||||
|
procedure BrowseBtnClick(Sender: TObject);
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure FractionTypeGrpClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure JustificationGrpClick(Sender: TObject);
|
||||||
|
procedure MissValsGrpClick(Sender: TObject);
|
||||||
|
procedure SaveBtnClick(Sender: TObject);
|
||||||
|
procedure InitOptions(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
DefaultPath : string;
|
||||||
|
FractionType : integer;
|
||||||
|
DefaultMiss : integer;
|
||||||
|
DefaultJust : integer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
OptionsFrm: TOptionsFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TOptionsFrm }
|
||||||
|
|
||||||
|
procedure TOptionsFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitOptions(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.JustificationGrpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
DefaultJust := JustificationGrp.ItemIndex;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.MissValsGrpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
DefaultMiss := MissValsGrp.ItemIndex;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.SaveBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
pathname : string;
|
||||||
|
filename : string;
|
||||||
|
priorfile : string;
|
||||||
|
F : TextFile;
|
||||||
|
i : integer;
|
||||||
|
approved : integer;
|
||||||
|
begin
|
||||||
|
if LoggedOn then approved := 1 else approved := 0;
|
||||||
|
if FilePathEdit.Text <> '' then pathname := FilePathEdit.Text
|
||||||
|
else pathname := OpenStatPath;
|
||||||
|
FractionType := FractionTypeGrp.ItemIndex;
|
||||||
|
DefaultMiss := MissValsGrp.ItemIndex;
|
||||||
|
DefaultJust := JustificationGrp.ItemIndex;
|
||||||
|
filename := 'Options.txt';
|
||||||
|
AssignFile(F,filename);
|
||||||
|
ReWrite(F);
|
||||||
|
Writeln(F,approved);
|
||||||
|
Writeln(F,FractionType);
|
||||||
|
Writeln(F,DefaultMiss);
|
||||||
|
Writeln(F,DefaultJust);
|
||||||
|
Writeln(F,pathname);
|
||||||
|
{ for i := 0 to 7 do
|
||||||
|
begin
|
||||||
|
priorfile := OS3MainFrm.MainMenu1.Items[0].Items[11].Items[i].Caption;
|
||||||
|
Writeln(F,priorfile);
|
||||||
|
end; }
|
||||||
|
CloseFile(F);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
OptionsFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.BrowseBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if SelDir.Execute then
|
||||||
|
begin
|
||||||
|
FilePathEdit.Text := SelDir.FileName;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.FractionTypeGrpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if FractionTypeGrp.ItemIndex = 0 then
|
||||||
|
begin
|
||||||
|
FractionType := 0;
|
||||||
|
DecimalSeparator := '.'
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
FractionType := 1;
|
||||||
|
DecimalSeparator := ',';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOptionsFrm.InitOptions(Sender: TObject);
|
||||||
|
label full;
|
||||||
|
var
|
||||||
|
pathname : string;
|
||||||
|
filename : string;
|
||||||
|
priorfile : string;
|
||||||
|
F : TextFile;
|
||||||
|
i : integer;
|
||||||
|
approved : integer;
|
||||||
|
|
||||||
|
begin
|
||||||
|
ChDir(OpenStatPath);
|
||||||
|
filename := 'Options.txt';
|
||||||
|
if fileexists(filename) then
|
||||||
|
begin
|
||||||
|
AssignFile(F,filename);
|
||||||
|
Reset(F);
|
||||||
|
Readln(F,approved);
|
||||||
|
if approved = 0 then LoggedOn := false else LoggedOn := true;
|
||||||
|
Readln(F,FractionType);
|
||||||
|
FractionTypeGrp.ItemIndex := FractionType;
|
||||||
|
Readln(F,DefaultMiss);
|
||||||
|
MissValsGrp.ItemIndex := DefaultMiss;
|
||||||
|
Readln(F,DefaultJust);
|
||||||
|
JustificationGrp.ItemIndex := DefaultJust;
|
||||||
|
Readln(F,pathname);
|
||||||
|
FilePathEdit.Text := pathname;
|
||||||
|
i := 0;
|
||||||
|
{ while NOT Eof(F) do
|
||||||
|
begin
|
||||||
|
Readln(F,priorfile);
|
||||||
|
OS3MainFrm.MainMenu1.Items[0].Items[11].Items[i].Action := OS3MainFrm.ActionList1.Actions[i];
|
||||||
|
OS3MainFrm.MainMenu1.Items[0].Items[11].Items[i].Caption := priorfile;
|
||||||
|
i := i + 1;
|
||||||
|
if i > 7 then goto full;
|
||||||
|
end; }
|
||||||
|
full: CloseFile(F);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if FilePathEdit.Text = '' then
|
||||||
|
begin
|
||||||
|
pathname := GetCurrentDir;
|
||||||
|
ChDir(pathname);
|
||||||
|
FilePathEdit.Text := pathname;
|
||||||
|
end;
|
||||||
|
{ else begin
|
||||||
|
pathname := FilePathEdit.Text;
|
||||||
|
ChDir(pathname);
|
||||||
|
end; }
|
||||||
|
if FractionTypeGrp.ItemIndex = 0 then
|
||||||
|
begin
|
||||||
|
FractionType := 0;
|
||||||
|
DecimalSeparator := '.'
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
FractionType := 1;
|
||||||
|
DecimalSeparator := ',';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I optionsunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
125
applications/lazstats/source_orig/outputunit.lfm
Normal file
125
applications/lazstats/source_orig/outputunit.lfm
Normal file
@@ -0,0 +1,125 @@
|
|||||||
|
object OutputFrm: TOutputFrm
|
||||||
|
Left = 61
|
||||||
|
Height = 535
|
||||||
|
Top = 91
|
||||||
|
Width = 825
|
||||||
|
Caption = 'Output'
|
||||||
|
ClientHeight = 535
|
||||||
|
ClientWidth = 825
|
||||||
|
Font.CharSet = ANSI_CHARSET
|
||||||
|
Font.Color = clBlack
|
||||||
|
Font.Height = -13
|
||||||
|
Font.Name = 'Courier New'
|
||||||
|
Font.Pitch = fpFixed
|
||||||
|
Font.Quality = fqDraft
|
||||||
|
LCLVersion = '0.9.30.4'
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 49
|
||||||
|
Top = 0
|
||||||
|
Width = 825
|
||||||
|
Align = alTop
|
||||||
|
ClientHeight = 49
|
||||||
|
ClientWidth = 825
|
||||||
|
TabOrder = 0
|
||||||
|
object SaveFileBtn: TButton
|
||||||
|
Left = 7
|
||||||
|
Height = 28
|
||||||
|
Top = 8
|
||||||
|
Width = 65
|
||||||
|
Caption = 'Save'
|
||||||
|
OnClick = SaveFileBtnClick
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object OpenFileBtn: TButton
|
||||||
|
Left = 80
|
||||||
|
Height = 26
|
||||||
|
Top = 9
|
||||||
|
Width = 84
|
||||||
|
Caption = 'Open File'
|
||||||
|
OnClick = OpenFileBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object FontBtn: TButton
|
||||||
|
Left = 176
|
||||||
|
Height = 27
|
||||||
|
Top = 8
|
||||||
|
Width = 72
|
||||||
|
Caption = 'Font'
|
||||||
|
OnClick = FontBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object CutBtn: TButton
|
||||||
|
Left = 336
|
||||||
|
Height = 25
|
||||||
|
Top = 9
|
||||||
|
Width = 73
|
||||||
|
Caption = 'Cut'
|
||||||
|
OnClick = CutBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object CopyBtn: TButton
|
||||||
|
Left = 415
|
||||||
|
Height = 26
|
||||||
|
Top = 8
|
||||||
|
Width = 73
|
||||||
|
Caption = 'Copy'
|
||||||
|
OnClick = CopyBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object PasteBtn: TButton
|
||||||
|
Left = 495
|
||||||
|
Height = 25
|
||||||
|
Top = 9
|
||||||
|
Width = 70
|
||||||
|
Caption = 'Paste'
|
||||||
|
OnClick = PasteBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object PrintBtn: TButton
|
||||||
|
Left = 584
|
||||||
|
Height = 24
|
||||||
|
Top = 10
|
||||||
|
Width = 65
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = PrintBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 663
|
||||||
|
Height = 27
|
||||||
|
Top = 9
|
||||||
|
Width = 68
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object RichEdit: TMemo
|
||||||
|
Left = 0
|
||||||
|
Height = 486
|
||||||
|
Top = 49
|
||||||
|
Width = 825
|
||||||
|
Align = alClient
|
||||||
|
ScrollBars = ssBoth
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object OpenDialog1: TOpenDialog
|
||||||
|
left = 35
|
||||||
|
top = 218
|
||||||
|
end
|
||||||
|
object SaveDialog1: TSaveDialog
|
||||||
|
left = 100
|
||||||
|
top = 217
|
||||||
|
end
|
||||||
|
object FontDialog1: TFontDialog
|
||||||
|
MinFontSize = 0
|
||||||
|
MaxFontSize = 0
|
||||||
|
left = 208
|
||||||
|
top = 214
|
||||||
|
end
|
||||||
|
object PrintDialog1: TPrintDialog
|
||||||
|
left = 296
|
||||||
|
top = 218
|
||||||
|
end
|
||||||
|
end
|
||||||
31
applications/lazstats/source_orig/outputunit.lrs
Normal file
31
applications/lazstats/source_orig/outputunit.lrs
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
LazarusResources.Add('TOutputFrm','FORMDATA',[
|
||||||
|
'TPF0'#10'TOutputFrm'#9'OutputFrm'#4'Left'#2'='#6'Height'#3#23#2#3'Top'#2'['#5
|
||||||
|
+'Width'#3'9'#3#7'Caption'#6#6'Output'#12'ClientHeight'#3#23#2#11'ClientWidth'
|
||||||
|
+#3'9'#3#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clBlack'#11'F'
|
||||||
|
+'ont.Height'#2#243#9'Font.Name'#6#11'Courier New'#10'Font.Pitch'#7#7'fpFixed'
|
||||||
|
+#12'Font.Quality'#7#7'fqDraft'#10'LCLVersion'#6#8'0.9.30.4'#0#6'TPanel'#6'Pa'
|
||||||
|
+'nel1'#4'Left'#2#0#6'Height'#2'1'#3'Top'#2#0#5'Width'#3'9'#3#5'Align'#7#5'al'
|
||||||
|
+'Top'#12'ClientHeight'#2'1'#11'ClientWidth'#3'9'#3#8'TabOrder'#2#0#0#7'TButt'
|
||||||
|
+'on'#11'SaveFileBtn'#4'Left'#2#7#6'Height'#2#28#3'Top'#2#8#5'Width'#2'A'#7'C'
|
||||||
|
+'aption'#6#4'Save'#7'OnClick'#7#16'SaveFileBtnClick'#8'TabOrder'#2#0#0#0#7'T'
|
||||||
|
+'Button'#11'OpenFileBtn'#4'Left'#2'P'#6'Height'#2#26#3'Top'#2#9#5'Width'#2'T'
|
||||||
|
+#7'Caption'#6#9'Open File'#7'OnClick'#7#16'OpenFileBtnClick'#8'TabOrder'#2#1
|
||||||
|
+#0#0#7'TButton'#7'FontBtn'#4'Left'#3#176#0#6'Height'#2#27#3'Top'#2#8#5'Width'
|
||||||
|
+#2'H'#7'Caption'#6#4'Font'#7'OnClick'#7#12'FontBtnClick'#8'TabOrder'#2#2#0#0
|
||||||
|
+#7'TButton'#6'CutBtn'#4'Left'#3'P'#1#6'Height'#2#25#3'Top'#2#9#5'Width'#2'I'
|
||||||
|
+#7'Caption'#6#3'Cut'#7'OnClick'#7#11'CutBtnClick'#8'TabOrder'#2#3#0#0#7'TBut'
|
||||||
|
+'ton'#7'CopyBtn'#4'Left'#3#159#1#6'Height'#2#26#3'Top'#2#8#5'Width'#2'I'#7'C'
|
||||||
|
+'aption'#6#4'Copy'#7'OnClick'#7#12'CopyBtnClick'#8'TabOrder'#2#4#0#0#7'TButt'
|
||||||
|
+'on'#8'PasteBtn'#4'Left'#3#239#1#6'Height'#2#25#3'Top'#2#9#5'Width'#2'F'#7'C'
|
||||||
|
+'aption'#6#5'Paste'#7'OnClick'#7#13'PasteBtnClick'#8'TabOrder'#2#5#0#0#7'TBu'
|
||||||
|
+'tton'#8'PrintBtn'#4'Left'#3'H'#2#6'Height'#2#24#3'Top'#2#10#5'Width'#2'A'#7
|
||||||
|
+'Caption'#6#5'Print'#7'OnClick'#7#13'PrintBtnClick'#8'TabOrder'#2#6#0#0#7'TB'
|
||||||
|
+'utton'#9'ReturnBtn'#4'Left'#3#151#2#6'Height'#2#27#3'Top'#2#9#5'Width'#2'D'
|
||||||
|
+#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#7#0#0#0#5'TMemo'#8
|
||||||
|
+'RichEdit'#4'Left'#2#0#6'Height'#3#230#1#3'Top'#2'1'#5'Width'#3'9'#3#5'Align'
|
||||||
|
+#7#8'alClient'#10'ScrollBars'#7#6'ssBoth'#8'TabOrder'#2#1#0#0#11'TOpenDialog'
|
||||||
|
+#11'OpenDialog1'#4'left'#2'#'#3'top'#3#218#0#0#0#11'TSaveDialog'#11'SaveDial'
|
||||||
|
+'og1'#4'left'#2'd'#3'top'#3#217#0#0#0#11'TFontDialog'#11'FontDialog1'#11'Min'
|
||||||
|
+'FontSize'#2#0#11'MaxFontSize'#2#0#4'left'#3#208#0#3'top'#3#214#0#0#0#12'TPr'
|
||||||
|
+'intDialog'#12'PrintDialog1'#4'left'#3'('#1#3'top'#3#218#0#0#0#0
|
||||||
|
]);
|
||||||
132
applications/lazstats/source_orig/outputunit.pas
Normal file
132
applications/lazstats/source_orig/outputunit.pas
Normal file
@@ -0,0 +1,132 @@
|
|||||||
|
unit OutPutUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
ExtCtrls, Buttons, StdCtrls, Printers, clipbrd, PrintersDlgs;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TOutputFrm }
|
||||||
|
|
||||||
|
TOutputFrm = class(TForm)
|
||||||
|
PrintDialog1: TPrintDialog;
|
||||||
|
RichEdit: TMemo;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
PrintBtn: TButton;
|
||||||
|
PasteBtn: TButton;
|
||||||
|
CopyBtn: TButton;
|
||||||
|
CutBtn: TButton;
|
||||||
|
FontBtn: TButton;
|
||||||
|
FontDialog1: TFontDialog;
|
||||||
|
OpenFileBtn: TButton;
|
||||||
|
SaveFileBtn: TButton;
|
||||||
|
OpenDialog1: TOpenDialog;
|
||||||
|
Panel1: TPanel;
|
||||||
|
SaveDialog1: TSaveDialog;
|
||||||
|
procedure CopyBtnClick(Sender: TObject);
|
||||||
|
procedure CutBtnClick(Sender: TObject);
|
||||||
|
procedure FontBtnClick(Sender: TObject);
|
||||||
|
procedure OpenFileBtnClick(Sender: TObject);
|
||||||
|
procedure PasteBtnClick(Sender: TObject);
|
||||||
|
procedure PrintBtnClick(Sender: TObject);
|
||||||
|
procedure SaveFileBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
OutputFrm: TOutputFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TOutputFrm }
|
||||||
|
|
||||||
|
procedure TOutputFrm.PrintBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
aline : string;
|
||||||
|
NoLines, i, X, Y, txthi : integer;
|
||||||
|
begin
|
||||||
|
Printer.Orientation := poPortrait;
|
||||||
|
NoLines := OutPutFrm.RichEdit.Lines.Count;
|
||||||
|
X := 5; // left margin
|
||||||
|
Y := 5; // top margin
|
||||||
|
PrintDialog1.MinPage := 1;
|
||||||
|
PrintDialog1.MaxPage := 1;
|
||||||
|
PrintDialog1.ToPage := 1;
|
||||||
|
PrintDialog1.Options := [poPageNums];
|
||||||
|
Printer.Copies := PrintDialog1.Copies;
|
||||||
|
if FontDialog1.Execute then
|
||||||
|
begin
|
||||||
|
Printer.Canvas.Font := FontDialog1.Font;
|
||||||
|
Printer.Canvas.Font.Height := FontDialog1.Font.Height;
|
||||||
|
end;
|
||||||
|
if PrintDialog1.Execute then
|
||||||
|
begin
|
||||||
|
// Printer.Canvas.Font.Height := 50;
|
||||||
|
Printer.Canvas.Font.Height := Printer.PageHeight div 80;
|
||||||
|
txthi := Printer.Canvas.Font.Height;
|
||||||
|
Printer.BeginDoc;
|
||||||
|
for i := 0 to NoLines-1 do
|
||||||
|
begin
|
||||||
|
aline := OutPutFrm.RichEdit.Lines[i];
|
||||||
|
Printer.Canvas.TextOut(X,Y,aline);
|
||||||
|
// txthi := Printer.Canvas.Font.Height;
|
||||||
|
Y := Y + abs(txthi);
|
||||||
|
if Y >= Printer.PageHeight - 10 then
|
||||||
|
begin
|
||||||
|
Printer.NewPage;
|
||||||
|
Y := 5;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Printer.EndDoc;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOutputFrm.OpenFileBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
OpenDialog1.Filter := 'LazStats text files (*.txt)|*.TXT|All files (*.*)|*.*';
|
||||||
|
OpenDialog1.FilterIndex := 1; {text file}
|
||||||
|
if OpenDialog1.Execute then RichEdit.Lines.LoadFromFile(OpenDialog1.FileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOutputFrm.PasteBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RichEdit.PasteFromClipboard;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOutputFrm.CutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RichEdit.CutToClipboard;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOutputFrm.FontBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FontDialog1.Execute;
|
||||||
|
RichEdit.Font := FontDialog1.Font;
|
||||||
|
// RichEdit.SelAttributes.Assign(FontDialog1.Font);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOutputFrm.CopyBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RichEdit.CopyToClipboard;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TOutputFrm.SaveFileBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SaveDialog1.Filter := 'LazStats text files (*.txt|*.TXT|All files (*.*)|*.*';
|
||||||
|
SaveDialog1.FilterIndex := 1; {text file}
|
||||||
|
SaveDialog1.Title := 'Print to File: ';
|
||||||
|
if SaveDialog1.Execute then RichEdit.Lines.SaveToFile(SaveDialog1.FileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I outputunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
392
applications/lazstats/source_orig/partialsunit.lfm
Normal file
392
applications/lazstats/source_orig/partialsunit.lfm
Normal file
@@ -0,0 +1,392 @@
|
|||||||
|
object PartialsFrm: TPartialsFrm
|
||||||
|
Left = 190
|
||||||
|
Height = 401
|
||||||
|
Top = 104
|
||||||
|
Width = 381
|
||||||
|
Caption = 'Partial Correlation'
|
||||||
|
ClientHeight = 401
|
||||||
|
ClientWidth = 381
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Available Variables:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 224
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 143
|
||||||
|
Caption = 'Selected Dependent Variable:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 223
|
||||||
|
Height = 14
|
||||||
|
Top = 120
|
||||||
|
Width = 134
|
||||||
|
Caption = 'Selected Predictor Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 32
|
||||||
|
Height = 14
|
||||||
|
Top = 280
|
||||||
|
Width = 114
|
||||||
|
Caption = 'Variables Partialed Out:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 209
|
||||||
|
Top = 24
|
||||||
|
Width = 154
|
||||||
|
ItemHeight = 0
|
||||||
|
MultiSelect = True
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object DepInBtn: TBitBtn
|
||||||
|
Left = 174
|
||||||
|
Height = 31
|
||||||
|
Top = 24
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepInBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object DepOutBtn: TBitBtn
|
||||||
|
Left = 174
|
||||||
|
Height = 31
|
||||||
|
Top = 56
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = DepOutBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object PredInBtn: TBitBtn
|
||||||
|
Left = 174
|
||||||
|
Height = 31
|
||||||
|
Top = 136
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = PredInBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object PredOutBtn: TBitBtn
|
||||||
|
Left = 174
|
||||||
|
Height = 31
|
||||||
|
Top = 168
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = PredOutBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object PartInBtn: TBitBtn
|
||||||
|
Left = 48
|
||||||
|
Height = 31
|
||||||
|
Top = 240
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00256929C4216425C9FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002D7533CF488F4DFF458C4AFF2265
|
||||||
|
26D1FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF003C8A430638833ED9519957FF79C07EFF76BF7CFF468D
|
||||||
|
4BFF236627DB20622306FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF0042924AB83D8C45F765AD6CFF7DC282FF7AC180FF4B92
|
||||||
|
50FF276D2CF7246828BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF0043944B384E9A55FF81C587FF7EC385FF317A
|
||||||
|
36FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0045954CFF85C78CFF82C689FF3682
|
||||||
|
3DFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A
|
||||||
|
43FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0050A659FF8ECC95FF8BCB93FF4292
|
||||||
|
4AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A
|
||||||
|
50FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005BB465FF96D29FFF94D09CFF4EA2
|
||||||
|
57FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005FBB6AFF9AD4A3FF98D3A1FF53AA
|
||||||
|
5DFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0063C06FFF9ED6A7FF9CD4A5FF59B2
|
||||||
|
63FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0066C572FFA2D8ABFFA0D7A9FF5DB8
|
||||||
|
68FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0068C774FF67C673FF65C270FF62BE
|
||||||
|
6DFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = PartInBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object PartOutBtn: TBitBtn
|
||||||
|
Left = 88
|
||||||
|
Height = 31
|
||||||
|
Top = 240
|
||||||
|
Width = 37
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00286E2DFF256929FF216425FF1E60
|
||||||
|
22FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF002D7533FF74BD7AFF72BD78FF2265
|
||||||
|
26FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00337D39FF79C07EFF76BF7CFF266B
|
||||||
|
2BFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0039853FFF7DC282FF7AC180FF2B72
|
||||||
|
30FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003F8D46FF81C587FF7EC385FF317A
|
||||||
|
36FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0045954CFF85C78CFF82C689FF3682
|
||||||
|
3DFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004A9E53FF8ACA91FF87C98EFF3C8A
|
||||||
|
43FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0050A659FF8ECC95FF8BCB93FF4292
|
||||||
|
4AFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0056AD5FFF93CF9AFF90CE98FF489A
|
||||||
|
50FFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005BB465FF96D29FFF94D09CFF5DAC
|
||||||
|
65FF499C5238FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF0065C371BB62BF6EF779C683FF9AD4A3FF98D3A1FF7DC3
|
||||||
|
86FF4FA458F74A9E53B8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF0068C7740666C472DB7CCA87FF9ED6A7FF9CD4A5FF73C0
|
||||||
|
7DFF55AC5ED950A65906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0066C572D17ECA88FF7BC885FF5DB8
|
||||||
|
68CFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0067C673C965C270C4FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = PartOutBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object DepVar: TEdit
|
||||||
|
Left = 224
|
||||||
|
Height = 21
|
||||||
|
Top = 40
|
||||||
|
Width = 142
|
||||||
|
TabOrder = 7
|
||||||
|
Text = 'DepVar'
|
||||||
|
end
|
||||||
|
object PredList: TListBox
|
||||||
|
Left = 224
|
||||||
|
Height = 108
|
||||||
|
Top = 136
|
||||||
|
Width = 144
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object PartList: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 92
|
||||||
|
Top = 296
|
||||||
|
Width = 155
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 288
|
||||||
|
Height = 29
|
||||||
|
Top = 280
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 178
|
||||||
|
Height = 29
|
||||||
|
Top = 320
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 288
|
||||||
|
Height = 29
|
||||||
|
Top = 320
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 232
|
||||||
|
Height = 29
|
||||||
|
Top = 359
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 136
|
||||||
|
Left = 174
|
||||||
|
Height = 28
|
||||||
|
Top = 280
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
end
|
||||||
341
applications/lazstats/source_orig/partialsunit.lrs
Normal file
341
applications/lazstats/source_orig/partialsunit.lrs
Normal file
@@ -0,0 +1,341 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPartialsFrm','FORMDATA',[
|
||||||
|
'TPF0'#12'TPartialsFrm'#11'PartialsFrm'#4'Left'#3#190#0#6'Height'#3#145#1#3'T'
|
||||||
|
+'op'#2'h'#5'Width'#3'}'#1#7'Caption'#6#19'Partial Correlation'#12'ClientHeig'
|
||||||
|
+'ht'#3#145#1#11'ClientWidth'#3'}'#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6
|
||||||
|
+#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#8#5'W'
|
||||||
|
+'idth'#2'^'#7'Caption'#6#20'Available Variables:'#11'ParentColor'#8#0#0#6'TL'
|
||||||
|
+'abel'#6'Label2'#4'Left'#3#224#0#6'Height'#2#14#3'Top'#2#8#5'Width'#3#143#0#7
|
||||||
|
+'Caption'#6#28'Selected Dependent Variable:'#11'ParentColor'#8#0#0#6'TLabel'
|
||||||
|
+#6'Label3'#4'Left'#3#223#0#6'Height'#2#14#3'Top'#2'x'#5'Width'#3#134#0#7'Cap'
|
||||||
|
+'tion'#6#28'Selected Predictor Variables'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||||
|
+'Label4'#4'Left'#2' '#6'Height'#2#14#3'Top'#3#24#1#5'Width'#2'r'#7'Caption'#6
|
||||||
|
+#24'Variables Partialed Out:'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4
|
||||||
|
+'Left'#2#8#6'Height'#3#209#0#3'Top'#2#24#5'Width'#3#154#0#10'ItemHeight'#2#0
|
||||||
|
+#11'MultiSelect'#9#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'DepInBtn'#4'Left'#3#174#0
|
||||||
|
+#6'Height'#2#31#3'Top'#2#24#5'Width'#2'%'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0
|
||||||
|
+'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4
|
||||||
|
+#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'
|
||||||
|
+#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'
|
||||||
|
+#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255
|
||||||
|
+#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137
|
||||||
|
+#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255
|
||||||
|
+#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158
|
||||||
|
+#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255
|
||||||
|
+#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255
|
||||||
|
+'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'
|
||||||
|
+#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#13'DepInBtnClick'#8'TabOrder'#2
|
||||||
|
,#1#0#0#7'TBitBtn'#9'DepOutBtn'#4'Left'#3#174#0#6'Height'#2#31#3'Top'#2'8'#5
|
||||||
|
+'Width'#2'%'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0
|
||||||
|
+'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0
|
||||||
|
+#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'
|
||||||
|
+#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'
|
||||||
|
+#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255
|
||||||
|
+'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'
|
||||||
|
+#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135
|
||||||
|
+#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#14'DepOutBtnClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#9'Pr'
|
||||||
|
+'edInBtn'#4'Left'#3#174#0#6'Height'#2#31#3'Top'#3#136#0#5'Width'#2'%'#10'Gly'
|
||||||
|
+'ph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
|
||||||
|
+#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'
|
||||||
|
+#184#29'^ '#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'
|
||||||
|
+#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'
|
||||||
|
+#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165
|
||||||
|
+#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201
|
||||||
|
+#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140
|
||||||
|
+'J'#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255
|
||||||
|
+#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154
|
||||||
|
+#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194
|
||||||
|
+#130#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'
|
||||||
|
+#199't'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'
|
||||||
|
+#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/'
|
||||||
|
+'x5'#209#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'PredInBtnClick'
|
||||||
|
+#8'TabOrder'#2#3#0#0#7'TBitBtn'#10'PredOutBtn'#4'Left'#3#174#0#6'Height'#2#31
|
||||||
|
+#3'Top'#3#168#0#5'Width'#2'%'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0
|
||||||
|
+#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0
|
||||||
|
+#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'
|
||||||
|
+#6'G'#153'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217
|
||||||
|
+'M'#161'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193
|
||||||
|
+#131#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'/x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255
|
||||||
|
+#0'e'#195'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157
|
||||||
|
,#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195
|
||||||
|
+#132#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255
|
||||||
|
+#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144
|
||||||
|
+#255#133#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'
|
||||||
|
+#201#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153
|
||||||
|
+'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#15'PredOutBtnClick'#8'TabOrder'#2#4#0#0
|
||||||
|
+#7'TBitBtn'#9'PartInBtn'#4'Left'#2'0'#6'Height'#2#31#3'Top'#3#240#0#5'Width'
|
||||||
|
+#2'%'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0
|
||||||
|
+#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'%i)'#196'!d%'#201#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'-u3'#207'H'#143'M'#255'E'#140'J'#255'"e&'#209#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'<'#138'C'#6'8'#131'>'#217'Q'#153'W'
|
||||||
|
+#255'y'#192'~'#255'v'#191'|'#255'F'#141'K'#255'#f'''#219' b#'#6#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'B'#146'J'#184'='#140'E'#247'e'#173'l'#255'}'#194#130
|
||||||
|
+#255'z'#193#128#255'K'#146'P'#255'''m,'#247'$h('#187#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'C'#148'K8N'#154'U'#255#129#197#135#255'~'#195
|
||||||
|
+#133#255'1z6'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'E'#149'L'#255#133#199#140#255#130#198#137
|
||||||
|
+#255'6'#130'='#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'J'#158'S'#255#138#202#145#255#135#201
|
||||||
|
+#142#255'<'#138'C'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'P'#166'Y'#255#142#204#149#255#139#203
|
||||||
|
+#147#255'B'#146'J'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'V'#173'_'#255#147#207#154#255#144#206
|
||||||
|
+#152#255'H'#154'P'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'['#180'e'#255#150#210#159#255#148#208
|
||||||
|
+#156#255'N'#162'W'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'_'#187'j'#255#154#212#163#255#152#211
|
||||||
|
,#161#255'S'#170']'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'c'#192'o'#255#158#214#167#255#156#212
|
||||||
|
+#165#255'Y'#178'c'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'f'#197'r'#255#162#216#171#255#160#215
|
||||||
|
+#169#255']'#184'h'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#255'g'#198's'#255'e'#194'p'
|
||||||
|
+#255'b'#190'm'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'PartInBtnClick'
|
||||||
|
+#8'TabOrder'#2#5#0#0#7'TBitBtn'#10'PartOutBtn'#4'Left'#2'X'#6'Height'#2#31#3
|
||||||
|
+'Top'#3#240#0#5'Width'#2'%'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0
|
||||||
|
+#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0
|
||||||
|
+'d'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'(n-'#255'%i)'#255'!d%'#255#30'`"'#255#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'-u3'#255't'#189'z'#255'r'#189'x'#255'"e&'#255#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'3}9'#255'y'#192'~'#255'v'#191'|'#255'&k+'#255#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'9'#133
|
||||||
|
+'?'#255'}'#194#130#255'z'#193#128#255'+r0'#255#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'?'#141'F'
|
||||||
|
+#255#129#197#135#255'~'#195#133#255'1z6'#255#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'E'#149'L'#255
|
||||||
|
+#133#199#140#255#130#198#137#255'6'#130'='#255#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'J'#158'S'
|
||||||
|
+#255#138#202#145#255#135#201#142#255'<'#138'C'#255#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'P'#166'Y'
|
||||||
|
+#255#142#204#149#255#139#203#147#255'B'#146'J'#255#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'V'#173'_'
|
||||||
|
+#255#147#207#154#255#144#206#152#255'H'#154'P'#255#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'['#180'e'
|
||||||
|
+#255#150#210#159#255#148#208#156#255']'#172'e'#255'I'#156'R8'#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'e'#195'q'#187'b'#191'n'#247'y'#198#131
|
||||||
|
+#255#154#212#163#255#152#211#161#255'}'#195#134#255'O'#164'X'#247'J'#158'S'
|
||||||
|
+#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'f'#196'r'#219'|'#202
|
||||||
|
+#135#255#158#214#167#255#156#212#165#255's'#192'}'#255'U'#172'^'#217'P'#166
|
||||||
|
+'Y'#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'f'#197
|
||||||
|
+'r'#209'~'#202#136#255'{'#200#133#255']'#184'h'#207#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'g'#198's'#201'e'#194'p'#196#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7
|
||||||
|
+'OnClick'#7#15'PartOutBtnClick'#8'TabOrder'#2#6#0#0#5'TEdit'#6'DepVar'#4'Lef'
|
||||||
|
+'t'#3#224#0#6'Height'#2#21#3'Top'#2'('#5'Width'#3#142#0#8'TabOrder'#2#7#4'Te'
|
||||||
|
+'xt'#6#6'DepVar'#0#0#8'TListBox'#8'PredList'#4'Left'#3#224#0#6'Height'#2'l'#3
|
||||||
|
+'Top'#3#136#0#5'Width'#3#144#0#10'ItemHeight'#2#0#8'TabOrder'#2#8#0#0#8'TLis'
|
||||||
|
+'tBox'#8'PartList'#4'Left'#2#8#6'Height'#2'\'#3'Top'#3'('#1#5'Width'#3#155#0
|
||||||
|
+#10'ItemHeight'#2#0#8'TabOrder'#2#9#0#0#7'TButton'#8'ResetBtn'#4'Left'#3' '#1
|
||||||
|
+#6'Height'#2#29#3'Top'#3#24#1#5'Width'#2'M'#7'Caption'#6#5'Reset'#7'OnClick'
|
||||||
|
+#7#13'ResetBtnClick'#8'TabOrder'#2#10#0#0#7'TButton'#9'CancelBtn'#4'Left'#3
|
||||||
|
+#178#0#6'Height'#2#29#3'Top'#3'@'#1#5'Width'#2'M'#7'Caption'#6#6'Cancel'#11
|
||||||
|
+'ModalResult'#2#2#8'TabOrder'#2#11#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3' '
|
||||||
|
+#1#6'Height'#2#29#3'Top'#3'@'#1#5'Width'#2'M'#7'Caption'#6#7'Compute'#7'OnCl'
|
||||||
|
+'ick'#7#15'ComputeBtnClick'#8'TabOrder'#2#12#0#0#7'TButton'#9'ReturnBtn'#4'L'
|
||||||
|
+'eft'#3#232#0#6'Height'#2#29#3'Top'#3'g'#1#5'Width'#2'M'#7'Caption'#6#6'Retu'
|
||||||
|
+'rn'#11'ModalResult'#2#1#8'TabOrder'#2#13#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3
|
||||||
|
+#136#0#4'Left'#3#174#0#6'Height'#2#28#3'Top'#3#24#1#5'Width'#2'Q'#7'Caption'
|
||||||
|
+#6#4'Help'#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#14#0#0#0
|
||||||
|
]);
|
||||||
374
applications/lazstats/source_orig/partialsunit.pas
Normal file
374
applications/lazstats/source_orig/partialsunit.pas
Normal file
@@ -0,0 +1,374 @@
|
|||||||
|
unit PartialsUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, MatrixLib, FunctionsLib, OutPutUnit, Globals,
|
||||||
|
contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPartialsFrm }
|
||||||
|
|
||||||
|
TPartialsFrm = class(TForm)
|
||||||
|
DepInBtn: TBitBtn;
|
||||||
|
DepOutBtn: TBitBtn;
|
||||||
|
HelpBtn: TButton;
|
||||||
|
PredInBtn: TBitBtn;
|
||||||
|
PredOutBtn: TBitBtn;
|
||||||
|
PartInBtn: TBitBtn;
|
||||||
|
PartOutBtn: TBitBtn;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
DepVar: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
PartList: TListBox;
|
||||||
|
PredList: TListBox;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure DepInBtnClick(Sender: TObject);
|
||||||
|
procedure DepOutBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure PartInBtnClick(Sender: TObject);
|
||||||
|
procedure PartOutBtnClick(Sender: TObject);
|
||||||
|
procedure PredInBtnClick(Sender: TObject);
|
||||||
|
procedure PredOutBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PartialsFrm: TPartialsFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPartialsFrm }
|
||||||
|
|
||||||
|
procedure TPartialsFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
DepVar.Text := '';
|
||||||
|
VarList.Clear;
|
||||||
|
PartList.Clear;
|
||||||
|
PredList.Clear;
|
||||||
|
DepInBtn.Visible := true;
|
||||||
|
DepOutBtn.Visible := false;
|
||||||
|
PredInBtn.Visible := true;
|
||||||
|
PredOutBtn.Visible := false;
|
||||||
|
PartInBtn.Visible := true;
|
||||||
|
PartOutBtn.Visible := false;
|
||||||
|
for i := 1 to OS3MainFrm.DataGrid.ColCount - 1 do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.PartInBtnClick(Sender: TObject);
|
||||||
|
VAR i, index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.Items.Count;
|
||||||
|
i := 0;
|
||||||
|
while i < index do
|
||||||
|
begin
|
||||||
|
if (VarList.Selected[i]) then
|
||||||
|
begin
|
||||||
|
PartList.Items.Add(VarList.Items.Strings[i]);
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
index := index - 1;
|
||||||
|
i := 0;
|
||||||
|
end
|
||||||
|
else i := i + 1;
|
||||||
|
end;
|
||||||
|
PartOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.PartOutBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := PartList.ItemIndex;
|
||||||
|
VarList.Items.Add(PartList.Items.Strings[index]);
|
||||||
|
PartList.Items.Delete(index);
|
||||||
|
if PartList.Items.Count = 0 then PartOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.PredInBtnClick(Sender: TObject);
|
||||||
|
VAR i, index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.Items.Count;
|
||||||
|
i := 0;
|
||||||
|
while i < index do
|
||||||
|
begin
|
||||||
|
if (VarList.Selected[i]) then
|
||||||
|
begin
|
||||||
|
PredList.Items.Add(VarList.Items.Strings[i]);
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
index := index - 1;
|
||||||
|
i := 0;
|
||||||
|
end
|
||||||
|
else i := i + 1;
|
||||||
|
end;
|
||||||
|
PredOutBtn.Visible:= true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.PredOutBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := PredList.ItemIndex;
|
||||||
|
VarList.Items.Add(PredList.Items.Strings[index]);
|
||||||
|
PredList.Items.Delete(index);
|
||||||
|
if PredList.Items.Count = 0 then PredOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.DepInBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
if index < 0 then exit;
|
||||||
|
DepVar.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
DepOutBtn.Visible := true;
|
||||||
|
DepInBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
rmatrix, workmat : DblDyneMat;
|
||||||
|
Means, Variances, StdDevs, W, Betas : DblDyneVec;
|
||||||
|
R2Full, R2Cntrl, SemiPart, Partial, df1, df2, F, Prob : double;
|
||||||
|
NoPredVars, NoCntrlVars, DepVarNo, TotNoVars, pcnt, ccnt, count : integer;
|
||||||
|
PredVars, CntrlVars : IntDyneVec;
|
||||||
|
MatVars : IntDyneVec;
|
||||||
|
outline, varstring : string;
|
||||||
|
i, j, K, L, NCases : integer;
|
||||||
|
errorcode : boolean;
|
||||||
|
vtimesw, W1, v : DblDyneMat;
|
||||||
|
|
||||||
|
begin
|
||||||
|
DepVarNo := 1;
|
||||||
|
errorcode := false;
|
||||||
|
|
||||||
|
// Get no. of predictor and control variables
|
||||||
|
NoPredVars := PredList.Items.Count;
|
||||||
|
NoCntrlVars := PartList.Items.Count;
|
||||||
|
if (NoPredVars = 0) or (NoCntrlVars = 0) then
|
||||||
|
begin
|
||||||
|
ShowMessage('You must select at least one predictor and one control variable!');
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
TotNoVars := NoPredVars + NoCntrlVars + 1;
|
||||||
|
count := NoCases;
|
||||||
|
NCases := NoCases;
|
||||||
|
|
||||||
|
// Allocate space required
|
||||||
|
SetLength(vtimesw,NoVariables,NoVariables);
|
||||||
|
SetLength(v,NoVariables,NoVariables);
|
||||||
|
SetLength(W1,NoVariables,NoVariables);
|
||||||
|
SetLength(rmatrix,NoVariables+1,NoVariables+1); // augmented
|
||||||
|
SetLength(workmat,NoVariables+1,NoVariables+1); // augmented
|
||||||
|
SetLength(PredVars,NoVariables);
|
||||||
|
SetLength(CntrlVars,NoVariables);
|
||||||
|
SetLength(Means,NoVariables);
|
||||||
|
SetLength(Variances,NoVariables);
|
||||||
|
SetLength(StdDevs,NoVariables);
|
||||||
|
SetLength(W,NoVariables);
|
||||||
|
SetLength(Betas,NoVariables);
|
||||||
|
SetLength(MatVars,NoVariables);
|
||||||
|
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Partial and Semi-Partial Correlation Analysis');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
// Get column numbers of dependent, predictor and control variables
|
||||||
|
pcnt := 1;
|
||||||
|
for i := 0 to NoPredVars - 1 do
|
||||||
|
begin
|
||||||
|
varstring := PredList.Items.Strings[i];
|
||||||
|
for j := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
if varstring = OS3MainFrm.DataGrid.Cells[j,0] then
|
||||||
|
begin
|
||||||
|
PredVars[pcnt-1] := j;
|
||||||
|
pcnt := pcnt + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ccnt := 1;
|
||||||
|
for i := 0 to NoCntrlVars - 1 do
|
||||||
|
begin
|
||||||
|
varstring := PartList.Items.Strings[i];
|
||||||
|
for j := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
if varstring = OS3MainFrm.DataGrid.Cells[j,0] then
|
||||||
|
begin
|
||||||
|
CntrlVars[ccnt-1] := j;
|
||||||
|
ccnt := ccnt + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
varstring := DepVar.Text;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
if varstring = OS3MainFrm.DataGrid.Cells[i,0] then DepVarNo := i;
|
||||||
|
|
||||||
|
outline := format('Dependent variable = %s',[OS3MainFrm.DataGrid.Cells[DepVarNo,0]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Predictor Variables:');
|
||||||
|
for i := 1 to NoPredVars do
|
||||||
|
begin
|
||||||
|
outline := format('Variable %d = %s',[i+1,OS3MainFrm.DataGrid.Cells[PredVars[i-1],0]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Control Variables:');
|
||||||
|
for i := 1 to NoCntrlVars do
|
||||||
|
begin
|
||||||
|
outline := format('Variable %d = %s',[i+1,OS3MainFrm.DataGrid.Cells[CntrlVars[i-1],0]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
if NoPredVars > 1 then
|
||||||
|
begin
|
||||||
|
outline := format('Higher order partialling at level = %d',[NoPredVars]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
end;
|
||||||
|
if NoCntrlVars > 1 then
|
||||||
|
begin
|
||||||
|
outline := format('Multiple partialling with %d variables.',[NoCntrlVars]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Now, build the correlation matrix
|
||||||
|
MatVars[0] := DepVarNo;
|
||||||
|
for i := 1 to NoPredVars do MatVars[i] := PredVars[i-1];
|
||||||
|
for i := 1 to NoCntrlVars do MatVars[i + NoPredVars] := CntrlVars[i-1];
|
||||||
|
Correlations(TotNoVars, MatVars, rmatrix, Means, Variances, StdDevs, errorcode, count);
|
||||||
|
|
||||||
|
// Now do Multiple regression models required
|
||||||
|
// Full model first
|
||||||
|
for i := 2 to TotNoVars do
|
||||||
|
for j := 2 to TotNoVars do
|
||||||
|
workmat[i-2,j-2] := rmatrix[i-1,j-1];
|
||||||
|
|
||||||
|
matinv(workmat, vtimesw, v, W1, TotNoVars-1);
|
||||||
|
R2Full := 0.0;
|
||||||
|
for i := 1 to TotNoVars-1 do // rows
|
||||||
|
begin
|
||||||
|
W[i-1] := 0.0;
|
||||||
|
for j := 1 to TotNoVars - 1 do W[i-1] := W[i-1] + (workmat[i-1,j-1] * rmatrix[0,j]);
|
||||||
|
R2Full := R2Full + W[i-1] * rmatrix[0,i];
|
||||||
|
end;
|
||||||
|
outline := format('Squared Multiple Correlation with all variables = %6.3f',[R2Full]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Standardized Regression Coefficients:');
|
||||||
|
for i := 1 to TotNoVars - 1 do
|
||||||
|
begin
|
||||||
|
outline := format('%10s = %6.3f',[OS3MainFrm.DataGrid.Cells[MatVars[i],0],W[i-1]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
// Now do model for Partial and Semi-partial
|
||||||
|
for i := 1 to NoCntrlVars do
|
||||||
|
begin
|
||||||
|
K := i + 1 + NoPredVars;
|
||||||
|
for j := 1 to NoCntrlVars do
|
||||||
|
begin
|
||||||
|
L := j + 1 + NoPredVars;
|
||||||
|
workmat[i-1,j-1] := rmatrix[K-1,L-1];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
matinv(workmat, vtimesw, v, W1, NoCntrlVars);
|
||||||
|
R2Cntrl := 0.0;
|
||||||
|
for i := 1 to NoCntrlVars do
|
||||||
|
begin
|
||||||
|
L := i + 1 + NoPredVars;
|
||||||
|
W[i-1] := 0.0;
|
||||||
|
for j := 1 to NoCntrlVars do
|
||||||
|
begin
|
||||||
|
K := j + 1 + NoPredVars;
|
||||||
|
W[i-1] := W[i-1] + (workmat[i-1,j-1] * rmatrix[0,K-1]);
|
||||||
|
end;
|
||||||
|
R2Cntrl := R2Cntrl + W[i-1] * rmatrix[0,L-1];
|
||||||
|
end;
|
||||||
|
outline := format('Squared Multiple Correlation with control variables = %6.3f',[R2Cntrl]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Standardized Regression Coefficients:');
|
||||||
|
for i := 1 to NoCntrlVars do
|
||||||
|
begin
|
||||||
|
outline := format('%10s = %6.3f',[OS3MainFrm.DataGrid.Cells[MatVars[i+NoPredVars],0],W[i-1]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
SemiPart := R2Full - R2Cntrl;
|
||||||
|
Partial := SemiPart / (1.0 - R2Cntrl);
|
||||||
|
df1 := TotNoVars - 1 - NoCntrlVars;
|
||||||
|
df2 := count - TotNoVars;
|
||||||
|
F := (SemiPart / (1.0 - R2Full)) * (df2 / df1);
|
||||||
|
Prob := probf(F,df1,df2);
|
||||||
|
|
||||||
|
// Report results
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Partial Correlation = %6.3f',[sqrt(Partial)]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Semi-Partial Correlation = %6.3f',[sqrt(SemiPart)]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('F = %8.3f with probability = %6.4f, D.F.1 = %3.0f and D.F.2 = %3.0f',[F,Prob,df1,df2]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
|
||||||
|
// clean up the heap
|
||||||
|
MatVars := nil;
|
||||||
|
Betas := nil;
|
||||||
|
W := nil;
|
||||||
|
Variances := nil;
|
||||||
|
StdDevs := nil;
|
||||||
|
Means := nil;
|
||||||
|
CntrlVars := nil;
|
||||||
|
PredVars := nil;
|
||||||
|
workmat := nil;
|
||||||
|
rmatrix := nil;
|
||||||
|
v := nil;
|
||||||
|
W1 := nil;
|
||||||
|
vtimesw := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPartialsFrm.DepOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(DepVar.Text);
|
||||||
|
DepVar.Text := '';
|
||||||
|
DepInBtn.Visible := true;
|
||||||
|
DepOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I partialsunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
461
applications/lazstats/source_orig/pathunit.lfm
Normal file
461
applications/lazstats/source_orig/pathunit.lfm
Normal file
@@ -0,0 +1,461 @@
|
|||||||
|
object PathFrm: TPathFrm
|
||||||
|
Left = 135
|
||||||
|
Height = 388
|
||||||
|
Top = 96
|
||||||
|
Width = 601
|
||||||
|
Caption = 'Path Analysis'
|
||||||
|
ClientHeight = 388
|
||||||
|
ClientWidth = 601
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.26.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 2
|
||||||
|
Width = 90
|
||||||
|
Caption = 'Available Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 218
|
||||||
|
Height = 14
|
||||||
|
Top = 2
|
||||||
|
Width = 88
|
||||||
|
Caption = 'Selected Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 440
|
||||||
|
Height = 14
|
||||||
|
Top = 13
|
||||||
|
Width = 73
|
||||||
|
Caption = 'Model Number:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 438
|
||||||
|
Height = 14
|
||||||
|
Top = 77
|
||||||
|
Width = 86
|
||||||
|
Caption = '"Caused" Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 438
|
||||||
|
Height = 14
|
||||||
|
Top = 145
|
||||||
|
Width = 93
|
||||||
|
Caption = '"Causing" Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ListBox1: TListBox
|
||||||
|
Left = 6
|
||||||
|
Height = 256
|
||||||
|
Top = 15
|
||||||
|
Width = 156
|
||||||
|
MultiSelect = True
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object InBtn: TBitBtn
|
||||||
|
Left = 174
|
||||||
|
Height = 29
|
||||||
|
Top = 18
|
||||||
|
Width = 35
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = InBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object OutBtn: TBitBtn
|
||||||
|
Left = 174
|
||||||
|
Height = 29
|
||||||
|
Top = 56
|
||||||
|
Width = 35
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = OutBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 222
|
||||||
|
Height = 252
|
||||||
|
Top = 17
|
||||||
|
Width = 160
|
||||||
|
MultiSelect = True
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object ModelNo: TEdit
|
||||||
|
Left = 552
|
||||||
|
Height = 19
|
||||||
|
Top = 8
|
||||||
|
Width = 37
|
||||||
|
TabOrder = 4
|
||||||
|
Text = 'ModelNo'
|
||||||
|
end
|
||||||
|
object ScrollBar: TScrollBar
|
||||||
|
Left = 440
|
||||||
|
Height = 22
|
||||||
|
Top = 39
|
||||||
|
Width = 151
|
||||||
|
TabOrder = 5
|
||||||
|
OnChange = ScrollBarChange
|
||||||
|
end
|
||||||
|
object CausedEdit: TEdit
|
||||||
|
Left = 437
|
||||||
|
Height = 20
|
||||||
|
Top = 95
|
||||||
|
Width = 156
|
||||||
|
TabOrder = 6
|
||||||
|
Text = 'CausedEdit'
|
||||||
|
end
|
||||||
|
object CausingList: TListBox
|
||||||
|
Left = 437
|
||||||
|
Height = 106
|
||||||
|
Top = 161
|
||||||
|
Width = 152
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object CausedInBtn: TBitBtn
|
||||||
|
Left = 392
|
||||||
|
Height = 29
|
||||||
|
Top = 78
|
||||||
|
Width = 34
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = CausedInBtnClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object CausedOutBtn: TBitBtn
|
||||||
|
Left = 392
|
||||||
|
Height = 29
|
||||||
|
Top = 112
|
||||||
|
Width = 34
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = CausedOutBtnClick
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object CausingInBtn: TBitBtn
|
||||||
|
Left = 392
|
||||||
|
Height = 29
|
||||||
|
Top = 168
|
||||||
|
Width = 34
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = CausingInBtnClick
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object CausingOutBtn: TBitBtn
|
||||||
|
Left = 392
|
||||||
|
Height = 29
|
||||||
|
Top = 200
|
||||||
|
Width = 34
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = CausingOutBtnClick
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object ResetModelBtn: TButton
|
||||||
|
Left = 438
|
||||||
|
Height = 21
|
||||||
|
Top = 280
|
||||||
|
Width = 148
|
||||||
|
Caption = 'Reset Current Model'
|
||||||
|
OnClick = ResetModelBtnClick
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 5
|
||||||
|
Height = 96
|
||||||
|
Top = 280
|
||||||
|
Width = 210
|
||||||
|
Caption = 'Options'
|
||||||
|
ClientHeight = 78
|
||||||
|
ClientWidth = 206
|
||||||
|
TabOrder = 13
|
||||||
|
object StatsChk: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 6
|
||||||
|
Width = 118
|
||||||
|
Caption = 'Descriptive Statistics'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object ModelChk: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 24
|
||||||
|
Width = 161
|
||||||
|
Caption = 'Each Model Correlation Matrix'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Reprochk: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 40
|
||||||
|
Width = 163
|
||||||
|
Caption = 'Reproduced Correlation Matrix'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object SaveChk: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 56
|
||||||
|
Width = 129
|
||||||
|
Caption = 'Save Correlation Matrix'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 224
|
||||||
|
Height = 27
|
||||||
|
Top = 321
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 320
|
||||||
|
Height = 27
|
||||||
|
Top = 321
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 416
|
||||||
|
Height = 27
|
||||||
|
Top = 321
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 16
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 518
|
||||||
|
Height = 27
|
||||||
|
Top = 321
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 17
|
||||||
|
end
|
||||||
|
object SaveDialog1: TSaveDialog
|
||||||
|
left = 230
|
||||||
|
top = 286
|
||||||
|
end
|
||||||
|
end
|
||||||
358
applications/lazstats/source_orig/pathunit.lrs
Normal file
358
applications/lazstats/source_orig/pathunit.lrs
Normal file
@@ -0,0 +1,358 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPathFrm','FORMDATA',[
|
||||||
|
'TPF0'#8'TPathFrm'#7'PathFrm'#4'Left'#3#135#0#6'Height'#3#132#1#3'Top'#2'`'#5
|
||||||
|
+'Width'#3'Y'#2#7'Caption'#6#13'Path Analysis'#12'ClientHeight'#3#132#1#11'Cl'
|
||||||
|
+'ientWidth'#3'Y'#2#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9.26.2'#0#6
|
||||||
|
+'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#2#5'Width'#2'Z'#7'Cap'
|
||||||
|
+'tion'#6#19'Available Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
|
||||||
|
+'Left'#3#218#0#6'Height'#2#14#3'Top'#2#2#5'Width'#2'X'#7'Caption'#6#18'Selec'
|
||||||
|
+'ted Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#3#184#1#6
|
||||||
|
+'Height'#2#14#3'Top'#2#13#5'Width'#2'I'#7'Caption'#6#13'Model Number:'#11'Pa'
|
||||||
|
+'rentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#182#1#6'Height'#2#14#3'Top'#2
|
||||||
|
+'M'#5'Width'#2'V'#7'Caption'#6#17'"Caused" Variable'#11'ParentColor'#8#0#0#6
|
||||||
|
+'TLabel'#6'Label5'#4'Left'#3#182#1#6'Height'#2#14#3'Top'#3#145#0#5'Width'#2
|
||||||
|
+']'#7'Caption'#6#19'"Causing" Variables'#11'ParentColor'#8#0#0#8'TListBox'#8
|
||||||
|
+'ListBox1'#4'Left'#2#6#6'Height'#3#0#1#3'Top'#2#15#5'Width'#3#156#0#11'Multi'
|
||||||
|
+'Select'#9#8'TabOrder'#2#0#0#0#7'TBitBtn'#5'InBtn'#4'Left'#3#174#0#6'Height'
|
||||||
|
+#2#29#3'Top'#2#18#5'Width'#2'#'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0
|
||||||
|
+#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0
|
||||||
|
+#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161
|
||||||
|
+'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'#255
|
||||||
|
+'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208#157
|
||||||
|
+#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195
|
||||||
|
+#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167#255
|
||||||
|
+#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144
|
||||||
|
+#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'#201
|
||||||
|
+#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'#190
|
||||||
|
+'m'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255
|
||||||
|
+'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#9'NumGlyphs'#2#0#7'OnClick'#7#10'InBtnClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'
|
||||||
|
+#6'OutBtn'#4'Left'#3#174#0#6'Height'#2#29#3'Top'#2'8'#5'Width'#2'#'#10'Glyph'
|
||||||
|
+'.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16
|
||||||
|
+#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'#153'O'#255
|
||||||
|
+'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'#255'!c$'
|
||||||
|
+#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134#255#156
|
||||||
|
+#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255
|
||||||
|
+#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255
|
||||||
|
+'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201''#204#138
|
||||||
|
+#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207
|
||||||
|
+#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'
|
||||||
|
+#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177'b'#255'S'
|
||||||
|
+#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'OutBtnClick'#8
|
||||||
|
+'TabOrder'#2#2#0#0#8'TListBox'#7'VarList'#4'Left'#3#222#0#6'Height'#3#252#0#3
|
||||||
|
+'Top'#2#17#5'Width'#3#160#0#11'MultiSelect'#9#8'TabOrder'#2#3#0#0#5'TEdit'#7
|
||||||
|
+'ModelNo'#4'Left'#3'('#2#6'Height'#2#19#3'Top'#2#8#5'Width'#2'%'#8'TabOrder'
|
||||||
|
+#2#4#4'Text'#6#7'ModelNo'#0#0#10'TScrollBar'#9'ScrollBar'#4'Left'#3#184#1#6
|
||||||
|
+'Height'#2#22#3'Top'#2''''#5'Width'#3#151#0#8'TabOrder'#2#5#8'OnChange'#7#15
|
||||||
|
+'ScrollBarChange'#0#0#5'TEdit'#10'CausedEdit'#4'Left'#3#181#1#6'Height'#2#20
|
||||||
|
+#3'Top'#2'_'#5'Width'#3#156#0#8'TabOrder'#2#6#4'Text'#6#10'CausedEdit'#0#0#8
|
||||||
|
+'TListBox'#11'CausingList'#4'Left'#3#181#1#6'Height'#2'j'#3'Top'#3#161#0#5'W'
|
||||||
|
+'idth'#3#152#0#8'TabOrder'#2#7#0#0#7'TBitBtn'#11'CausedInBtn'#4'Left'#3#136#1
|
||||||
|
+#6'Height'#2#29#3'Top'#2'N'#5'Width'#2'"'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0
|
||||||
|
+'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4
|
||||||
|
+#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
,#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'
|
||||||
|
+#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'
|
||||||
|
+#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211#161#255
|
||||||
|
+#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137
|
||||||
|
+#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255
|
||||||
|
+#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158
|
||||||
|
+#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255
|
||||||
|
+#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255
|
||||||
|
+'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'
|
||||||
|
+#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#16'CausedInBtnClick'#8'TabOrder'
|
||||||
|
+#2#8#0#0#7'TBitBtn'#12'CausedOutBtn'#4'Left'#3#136#1#6'Height'#2#29#3'Top'#2
|
||||||
|
+'p'#5'Width'#2'"'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0
|
||||||
|
+#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153
|
||||||
|
,'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'
|
||||||
|
+#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255
|
||||||
|
+'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'
|
||||||
|
+#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#201''#204#138#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135
|
||||||
|
+#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#17'CausedOutBtnClick'#8'TabOrder'#2#9#0#0#7'TBitBtn'#12
|
||||||
|
+'CausingInBtn'#4'Left'#3#136#1#6'Height'#2#29#3'Top'#3#168#0#5'Width'#2'"'#10
|
||||||
|
+'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0
|
||||||
|
+#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'!c$'#184#29'^ '#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184
|
||||||
|
+'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255
|
||||||
|
+';'#136'B'#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'
|
||||||
|
+#207#255#255#255#0#255#255#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255
|
||||||
|
+#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147
|
||||||
|
+#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'
|
||||||
|
+#255'E'#140'J'#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218
|
||||||
|
+#174#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147
|
||||||
|
,#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255
|
||||||
|
+'}'#194#130#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'
|
||||||
|
+#255'h'#199't'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'
|
||||||
|
+#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'
|
||||||
|
+#255'/x5'#209#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#17'CausingI'
|
||||||
|
+'nBtnClick'#8'TabOrder'#2#10#0#0#7'TBitBtn'#13'CausingOutBtn'#4'Left'#3#136#1
|
||||||
|
+#6'Height'#2#29#3'Top'#3#200#0#5'Width'#2'"'#10'Glyph.Data'#10':'#4#0#0'6'#4
|
||||||
|
+#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0
|
||||||
|
+#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0']'#184'h'#207
|
||||||
|
+'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'
|
||||||
|
+#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255
|
||||||
|
+#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134#255#156#213#165#255#152#211
|
||||||
|
+#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130
|
||||||
|
+#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'
|
||||||
|
+#255#255#255#255#0#255#255#255#0'h'#199't'#201''#204#138#255#162#216#171#255
|
||||||
|
+#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149
|
||||||
|
+#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'
|
||||||
|
+#255'%i)'#255#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205
|
||||||
|
+#139#255'|'#201#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'
|
||||||
|
+#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'
|
||||||
|
+#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'
|
||||||
|
+#195'q'#247#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199
|
||||||
|
+'t'#187#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#18'CausingOutBtnClick'#8'TabOrder'#2
|
||||||
|
+#11#0#0#7'TButton'#13'ResetModelBtn'#4'Left'#3#182#1#6'Height'#2#21#3'Top'#3
|
||||||
|
+#24#1#5'Width'#3#148#0#7'Caption'#6#19'Reset Current Model'#7'OnClick'#7#18
|
||||||
|
+'ResetModelBtnClick'#8'TabOrder'#2#12#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2
|
||||||
|
+#5#6'Height'#2'`'#3'Top'#3#24#1#5'Width'#3#210#0#7'Caption'#6#7'Options'#12
|
||||||
|
+'ClientHeight'#2'N'#11'ClientWidth'#3#206#0#8'TabOrder'#2#13#0#9'TCheckBox'#8
|
||||||
|
+'StatsChk'#4'Left'#2#9#6'Height'#2#17#3'Top'#2#6#5'Width'#2'v'#7'Caption'#6
|
||||||
|
+#22'Descriptive Statistics'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'ModelChk'#4'L'
|
||||||
|
+'eft'#2#9#6'Height'#2#17#3'Top'#2#24#5'Width'#3#161#0#7'Caption'#6#29'Each M'
|
||||||
|
+'odel Correlation Matrix'#8'TabOrder'#2#1#0#0#9'TCheckBox'#8'Reprochk'#4'Lef'
|
||||||
|
+'t'#2#9#6'Height'#2#17#3'Top'#2'('#5'Width'#3#163#0#7'Caption'#6#29'Reproduc'
|
||||||
|
+'ed Correlation Matrix'#8'TabOrder'#2#2#0#0#9'TCheckBox'#7'SaveChk'#4'Left'#2
|
||||||
|
+#9#6'Height'#2#17#3'Top'#2'8'#5'Width'#3#129#0#7'Caption'#6#23'Save Correlat'
|
||||||
|
+'ion Matrix'#8'TabOrder'#2#3#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#224#0#6
|
||||||
|
+'Height'#2#27#3'Top'#3'A'#1#5'Width'#2'E'#7'Caption'#6#5'Reset'#7'OnClick'#7
|
||||||
|
+#13'ResetBtnClick'#8'TabOrder'#2#14#0#0#7'TButton'#9'CancelBtn'#4'Left'#3'@'
|
||||||
|
+#1#6'Height'#2#27#3'Top'#3'A'#1#5'Width'#2'E'#7'Caption'#6#6'Cancel'#11'Moda'
|
||||||
|
+'lResult'#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#15#0#0#7'TButton'
|
||||||
|
+#10'ComputeBtn'#4'Left'#3#160#1#6'Height'#2#27#3'Top'#3'A'#1#5'Width'#2'E'#7
|
||||||
|
+'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#16#0#0
|
||||||
|
+#7'TButton'#9'ReturnBtn'#4'Left'#3#6#2#6'Height'#2#27#3'Top'#3'A'#1#5'Width'
|
||||||
|
+#2'E'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#7'OnClick'#7#14'ReturnBtnCl'
|
||||||
|
+'ick'#8'TabOrder'#2#17#0#0#11'TSaveDialog'#11'SaveDialog1'#4'left'#3#230#0#3
|
||||||
|
+'top'#3#30#1#0#0#0
|
||||||
|
]);
|
||||||
777
applications/lazstats/source_orig/pathunit.pas
Normal file
777
applications/lazstats/source_orig/pathunit.pas
Normal file
@@ -0,0 +1,777 @@
|
|||||||
|
unit PathUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, OutPutUnit, FunctionsLib,
|
||||||
|
GraphLib, Globals, MatrixLib, DataProcs, Math;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPathFrm }
|
||||||
|
|
||||||
|
TPathFrm = class(TForm)
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
SaveDialog1: TSaveDialog;
|
||||||
|
StatsChk: TCheckBox;
|
||||||
|
ModelChk: TCheckBox;
|
||||||
|
Reprochk: TCheckBox;
|
||||||
|
SaveChk: TCheckBox;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
ResetModelBtn: TButton;
|
||||||
|
CausedInBtn: TBitBtn;
|
||||||
|
CausedOutBtn: TBitBtn;
|
||||||
|
CausingInBtn: TBitBtn;
|
||||||
|
CausingOutBtn: TBitBtn;
|
||||||
|
CausedEdit: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
CausingList: TListBox;
|
||||||
|
ModelNo: TEdit;
|
||||||
|
InBtn: TBitBtn;
|
||||||
|
Label3: TLabel;
|
||||||
|
OutBtn: TBitBtn;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
VarList: TListBox;
|
||||||
|
ScrollBar: TScrollBar;
|
||||||
|
ListBox1: TListBox;
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure CausedInBtnClick(Sender: TObject);
|
||||||
|
procedure CausedOutBtnClick(Sender: TObject);
|
||||||
|
procedure CausingInBtnClick(Sender: TObject);
|
||||||
|
procedure CausingOutBtnClick(Sender: TObject);
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure InBtnClick(Sender: TObject);
|
||||||
|
procedure OutBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure ResetModelBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
procedure ScrollBarChange(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
Model : integer;
|
||||||
|
ModelDefined : BoolDyneVec;
|
||||||
|
causedseq : IntDyneVec;
|
||||||
|
nocausing : IntDyneVec;
|
||||||
|
causingseq : IntDyneMat;
|
||||||
|
NoModels : integer;
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PathFrm: TPathFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPathFrm }
|
||||||
|
|
||||||
|
procedure TPathFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
if causingseq = nil then SetLength(causingseq,NoVariables,NoVariables);
|
||||||
|
if ModelDefined = nil then SetLength(ModelDefined,NoVariables);
|
||||||
|
if nocausing = nil then SetLength(nocausing,NoVariables);
|
||||||
|
if causedseq = nil then SetLength(causedseq,NoVariables);
|
||||||
|
ListBox1.Clear;
|
||||||
|
CausingList.Clear;
|
||||||
|
VarList.Clear;
|
||||||
|
OutBtn.Visible := false;
|
||||||
|
InBtn.Visible := true;
|
||||||
|
CausedOutBtn.Visible := false;
|
||||||
|
CausedInBtn.Visible := true;
|
||||||
|
CausingInBtn.Visible := true;
|
||||||
|
CausingOutBtn.Visible := false;
|
||||||
|
ModelNo.Text := '1';
|
||||||
|
ScrollBar.Position := 1;
|
||||||
|
CausedEdit.Text := '';
|
||||||
|
StatsChk.Checked := true;
|
||||||
|
ModelChk.Checked := true;
|
||||||
|
ReproChk.Checked := true;
|
||||||
|
SaveChk.Checked := false;
|
||||||
|
NoModels := 0;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
ListBox1.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
for i := 1 to NoVariables do ModelDefined[i-1] := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.ResetModelBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
Model := ScrollBar.Position;
|
||||||
|
if CausedEdit.Text <> '' then CausedOutBtnClick(self);
|
||||||
|
if CausingList.Items.Count > 0 then CausingList.Clear;
|
||||||
|
causedseq[Model-1] := 0;
|
||||||
|
nocausing[Model-1] := 0;
|
||||||
|
for i := 1 to nocausing[Model-1] do causingseq[Model-1,i-1] := 0;
|
||||||
|
ModelDefined[Model-1] := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
causedseq := nil;
|
||||||
|
nocausing := nil;
|
||||||
|
causingseq := nil;
|
||||||
|
ModelDefined := nil;
|
||||||
|
PathFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.ScrollBarChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
i, j, col : integer;
|
||||||
|
cellstring : string;
|
||||||
|
begin
|
||||||
|
ScrollBar.Max := NoVariables + 1;
|
||||||
|
if ScrollBar.Position > NoVariables then
|
||||||
|
begin
|
||||||
|
ScrollBar.Position := NoVariables;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
if ScrollBar.Position > NoModels then
|
||||||
|
begin
|
||||||
|
if (CausedEdit.Text <> '') and (CausingList.Items.Count > 0) then
|
||||||
|
begin // save model information
|
||||||
|
Model := ScrollBar.Position - 1;
|
||||||
|
ModelDefined[Model-1] := true;
|
||||||
|
nocausing[Model-1] := CausingList.Items.Count;
|
||||||
|
NoModels := NoModels + 1;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
if cellstring = CausedEdit.Text then causedseq[Model-1] := i;
|
||||||
|
for j := 0 to CausingList.Items.Count - 1 do
|
||||||
|
begin
|
||||||
|
if cellstring = CausingList.Items.Strings[j] then
|
||||||
|
causingseq[Model-1,j] := i;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CausingList.Clear;
|
||||||
|
CausedEdit.Text := '';
|
||||||
|
CausedInBtn.Visible := true;
|
||||||
|
CausedOutBtn.Visible := false;
|
||||||
|
CausingInBtn.Visible := true;
|
||||||
|
CausingOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if ScrollBar.Position <> Model then
|
||||||
|
begin
|
||||||
|
CausingList.Clear;
|
||||||
|
ModelNo.Text := IntToStr(ScrollBar.Position);
|
||||||
|
Model := ScrollBar.Position;
|
||||||
|
CausedEdit.Text := '';
|
||||||
|
if ModelDefined[Model-1] then // model exists - reload data
|
||||||
|
begin
|
||||||
|
col := causedseq[Model-1];
|
||||||
|
if col <> 0 then
|
||||||
|
begin
|
||||||
|
CausedEdit.Text := OS3MainFrm.DataGrid.Cells[col,0];
|
||||||
|
CausingList.Clear;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
CausedEdit.Text := '';
|
||||||
|
CausingList.Clear;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
for i := 1 to nocausing[Model-1] do
|
||||||
|
begin
|
||||||
|
col := causingseq[Model-1,i-1];
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[col,0];
|
||||||
|
CausingList.Items.Add(cellstring);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
causedseq := nil;
|
||||||
|
nocausing := nil;
|
||||||
|
causingseq := nil;
|
||||||
|
ModelDefined := nil;
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.InBtnClick(Sender: TObject);
|
||||||
|
VAR i, index : integer;
|
||||||
|
begin
|
||||||
|
index := ListBox1.Items.Count;
|
||||||
|
i := 0;
|
||||||
|
while i < index do
|
||||||
|
begin
|
||||||
|
if (ListBox1.Selected[i]) then
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(ListBox1.Items.Strings[i]);
|
||||||
|
ListBox1.Items.Delete(i);
|
||||||
|
index := index - 1;
|
||||||
|
i := 0;
|
||||||
|
end
|
||||||
|
else i := i + 1;
|
||||||
|
end;
|
||||||
|
OutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.OutBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
if index < 0 then
|
||||||
|
begin
|
||||||
|
OutBtn.Visible := false;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
causedseq := nil;
|
||||||
|
nocausing := nil;
|
||||||
|
causingseq := nil;
|
||||||
|
ModelDefined := nil;
|
||||||
|
PathFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.CausedInBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
CausedEdit.Text := VarList.Items.Strings[index];
|
||||||
|
CausedOutBtn.Visible := true;
|
||||||
|
CausedInBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.CausedOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CausedEdit.Text := '';
|
||||||
|
CausedOutBtn.Visible := false;
|
||||||
|
CausedInBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.CausingInBtnClick(Sender: TObject);
|
||||||
|
VAR i, index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.Items.Count;
|
||||||
|
for i := 0 to index-1 do
|
||||||
|
begin
|
||||||
|
if (VarList.Selected[i]) then
|
||||||
|
CausingList.Items.Add(VarList.Items.Strings[i]);
|
||||||
|
end;
|
||||||
|
CausingOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.CausingOutBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := CausingList.ItemIndex;
|
||||||
|
if index < 0 then
|
||||||
|
begin
|
||||||
|
CausingOutBtn.Visible := false;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
CausingList.Items.Delete(index);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPathFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
i, j, k, col, row, NoVars, nocaused, NoSelected, NoIndepVars : integer;
|
||||||
|
count, IER, NoIndep, dep, indep, noexogenous, t, L, L2 : integer;
|
||||||
|
constant, StdErrEst, ProbOut, R2, Temp, d2, sum, absdiff : double;
|
||||||
|
cellstring, outline : string;
|
||||||
|
ColNoSelected, selected : IntDyneVec;
|
||||||
|
IndepIndex : IntDyneVec;
|
||||||
|
rmat, WorkMat, PathCoef, IndMatrix, InvMatrix, e, W : DblDyneMat;
|
||||||
|
means, variances, stddevs, beta, p : DblDyneVec;
|
||||||
|
zvals : DblDyneMat; // z scores for path model
|
||||||
|
genedz : IntDyneVec; // list of z's created for path models
|
||||||
|
causal : IntDyneMat;
|
||||||
|
exogenous : IntDyneVec;
|
||||||
|
RowLabels, ColLabels, Labels: StrDyneVec;
|
||||||
|
title : string;
|
||||||
|
matched : boolean;
|
||||||
|
prtopt : boolean;
|
||||||
|
errorcode : boolean;
|
||||||
|
done : boolean;
|
||||||
|
zscore : double;
|
||||||
|
begin
|
||||||
|
if NoModels < ScrollBar.Position then
|
||||||
|
begin
|
||||||
|
Model := ScrollBar.Position;
|
||||||
|
ModelDefined[Model-1] := true;
|
||||||
|
nocausing[Model-1] := CausingList.Items.Count;
|
||||||
|
NoModels := NoModels + 1;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
if cellstring = CausedEdit.Text then causedseq[Model-1] := i;
|
||||||
|
for j := 0 to CausingList.Items.Count - 1 do
|
||||||
|
begin
|
||||||
|
if cellstring = CausingList.Items.Strings[j] then
|
||||||
|
causingseq[Model-1,j] := i;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CausingList.Clear;
|
||||||
|
CausedEdit.Text := '';
|
||||||
|
CausedInBtn.Visible := true;
|
||||||
|
CausedOutBtn.Visible := false;
|
||||||
|
CausingInBtn.Visible := true;
|
||||||
|
CausingOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
nocaused := NoModels;
|
||||||
|
SetLength(rmat,NoVariables+1,NoVariables+1);
|
||||||
|
SetLength(WorkMat,NoVariables+1,NoVariables+1);
|
||||||
|
SetLength(PathCoef,NoVariables,NoVariables);
|
||||||
|
SetLength(IndMatrix,NoVariables,NoVariables);
|
||||||
|
SetLength(InvMatrix,NoVariables,NoVariables);
|
||||||
|
SetLength(e,NoVariables,NoVariables);
|
||||||
|
SetLength(W,NoVariables,NoVariables);
|
||||||
|
SetLength(means,NoVariables);
|
||||||
|
SetLength(variances,NoVariables);
|
||||||
|
SetLength(stddevs,NoVariables);
|
||||||
|
SetLength(beta,NoVariables);
|
||||||
|
SetLength(p,NoVariables*NoVariables);
|
||||||
|
SetLength(Causal,2,NoVariables*NoVariables);
|
||||||
|
SetLength(RowLabels,NoCases);
|
||||||
|
SetLength(ColLabels,NoVariables);
|
||||||
|
SetLength(Labels,NoVariables);
|
||||||
|
SetLength(IndepIndex,NoVariables);
|
||||||
|
SetLength(exogenous,NoVariables);
|
||||||
|
SetLength(ColNoSelected,NoVariables);
|
||||||
|
SetLength(selected,NoVariables);
|
||||||
|
SetLength(zvals,NoCases,NoVariables);
|
||||||
|
SetLength(genedz,NoVariables);
|
||||||
|
|
||||||
|
// get and show model parameters
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('PATH ANALYSIS RESULTS');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
for i := 1 to nocaused do
|
||||||
|
begin
|
||||||
|
col := causedseq[i-1];
|
||||||
|
outline := 'CAUSED VARIABLE: ';
|
||||||
|
outline := outline + OS3MainFrm.DataGrid.Cells[col,0];
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(' Causing Variables:');
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin
|
||||||
|
col := causingseq[i-1,j-1];
|
||||||
|
outline := ' ';
|
||||||
|
outline := outline + OS3MainFrm.DataGrid.Cells[col,0];
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
|
||||||
|
// get correlations among all variables selected for the analysis
|
||||||
|
NoSelected := VarList.Items.Count;
|
||||||
|
for j := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[j,0];
|
||||||
|
for i := 1 to NoSelected do
|
||||||
|
begin
|
||||||
|
if cellstring = VarList.Items.Strings[i-1] then
|
||||||
|
begin
|
||||||
|
ColNoSelected[i-1] := j;
|
||||||
|
RowLabels[i-1] := cellstring;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
count := NoCases;
|
||||||
|
Correlations(NoSelected,ColNoSelected,rmat,means,variances,stddevs,
|
||||||
|
errorcode,count);
|
||||||
|
if SaveChk.Checked then
|
||||||
|
begin
|
||||||
|
SaveDialog1.Filter := 'Matrix files (*.MAT)|*.MAT|All files (*.*)|*.*';
|
||||||
|
SaveDialog1.FilterIndex := 1;
|
||||||
|
SaveDialog1.Execute;
|
||||||
|
MATSAVE(rmat,NoSelected,NoSelected,means,stddevs,count,RowLabels,
|
||||||
|
RowLabels,SaveDialog1.FileName);
|
||||||
|
end;
|
||||||
|
|
||||||
|
if StatsChk.Checked then
|
||||||
|
begin
|
||||||
|
title := 'Correlation Matrix';
|
||||||
|
MAT_PRINT(rmat,NoSelected,NoSelected,title,RowLabels,RowLabels,count);
|
||||||
|
title := 'MEANS';
|
||||||
|
DynVectorPrint(means,NoSelected,title,RowLabels,count);
|
||||||
|
title := 'VARIANCES';
|
||||||
|
DynVectorPrint(variances,NoSelected,title,RowLabels,count);
|
||||||
|
title := 'STANDARD DEVIATIONS';
|
||||||
|
DynVectorPrint(stddevs,NoSelected,title,RowLabels,count);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// initialize reconstruction matrix, weights matrix and path coefficients
|
||||||
|
for i := 0 to NoSelected-1 do
|
||||||
|
begin
|
||||||
|
for j := 0 to NoSelected-1 do
|
||||||
|
begin
|
||||||
|
e[i,j] := 0.0;
|
||||||
|
W[i,j] := 0.0;
|
||||||
|
PathCoef[i,j] := 0.0;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Now, do the regression analysis for each model
|
||||||
|
for i := 1 to nocaused do
|
||||||
|
begin
|
||||||
|
NoVars := nocausing[i-1] + 1;
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin
|
||||||
|
col := causingseq[i-1,j-1];
|
||||||
|
IndepIndex[j-1] := j; // independents
|
||||||
|
selected[j-1] := col;
|
||||||
|
Labels[j-1] := OS3MainFrm.DataGrid.Cells[col,0];
|
||||||
|
end;
|
||||||
|
row := causedseq[i-1]; //sequence no. of caused variable
|
||||||
|
IndepIndex[NoVars-1] := row; // dependent
|
||||||
|
selected[NoVars-1] := row;
|
||||||
|
Labels[NoVars-1] := OS3MainFrm.DataGrid.Cells[row,0];
|
||||||
|
|
||||||
|
// get correlation matrix for this model
|
||||||
|
Correlations(NoVars,selected,WorkMat,means,variances,stddevs,
|
||||||
|
errorcode,count);
|
||||||
|
if ModelChk.Checked then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Dependent Variable = %s',[OS3MainFrm.DataGrid.Cells[row,0]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
title := 'Correlation Matrix';
|
||||||
|
MAT_PRINT(WorkMat,NoVars,NoVars,title,Labels,Labels,count);
|
||||||
|
title := 'MEANS';
|
||||||
|
DynVectorPrint(means,NoVars,title,Labels,count);
|
||||||
|
title := 'VARIANCES';
|
||||||
|
DynVectorPrint(variances,NoVars,title,Labels,count);
|
||||||
|
title := 'STANDARD DEVIATIONS';
|
||||||
|
DynVectorPrint(stddevs,NoVars,title,Labels,count);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Get regression analysis for this model
|
||||||
|
ProbOut := 0.999;
|
||||||
|
NoIndepVars := NoVars - 1;
|
||||||
|
if StatsChk.Checked then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Dependent Variable = %s',[OS3MainFrm.DataGrid.Cells[row,0]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
end;
|
||||||
|
if StatsChk.Checked then prtopt := true else prtopt := false;
|
||||||
|
MReg2(count,NoVars,NoIndepVars,IndepIndex,WorkMat,IndMatrix,
|
||||||
|
Labels,R2,beta,means,variances,IER,StdErrEst,constant,
|
||||||
|
ProbOut,prtopt,false,false);
|
||||||
|
if prtopt then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin
|
||||||
|
col := causingseq[i-1,j-1];
|
||||||
|
PathCoef[row-1,col-1] := beta[j-1];
|
||||||
|
end;
|
||||||
|
end; // next i (caused regressions)
|
||||||
|
|
||||||
|
//Now, reconstruct the correlation matrix from path coefficients
|
||||||
|
//First, obtain list of exogenous variables
|
||||||
|
noexogenous := 0;
|
||||||
|
for i := 1 to NoSelected do
|
||||||
|
begin
|
||||||
|
matched := false;
|
||||||
|
col := ColNoSelected[i-1];
|
||||||
|
for j := 1 to nocaused do
|
||||||
|
if (causedseq[j-1] = col) then matched := true;
|
||||||
|
if ( not matched) then
|
||||||
|
begin
|
||||||
|
exogenous[noexogenous] := col;
|
||||||
|
noexogenous := noexogenous + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// transform raw scores to z scores for exogenous variables
|
||||||
|
Correlations(NoSelected,ColNoSelected,rmat,means,variances,stddevs,
|
||||||
|
errorcode,count);
|
||||||
|
for i := 1 to noselected do genedz[i-1] := 0; // initialize
|
||||||
|
for k := 1 to noexogenous do
|
||||||
|
begin
|
||||||
|
col := exogenous[k-1];
|
||||||
|
for j := 1 to noselected do
|
||||||
|
begin // find position of corresponding mean and std.dev.
|
||||||
|
if ColNoSelected[j-1] = col then row := j;
|
||||||
|
end;
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
zvals[i-1,col-1] := StrToFloat(OS3MainFrm.DataGrid.Cells[col,i]);
|
||||||
|
zvals[i-1,col-1] := (zvals[i-1,col-1] - means[row-1]) / stddevs[row-1];
|
||||||
|
RowLabels[i-1] := format('Subject %d',[i]);
|
||||||
|
end;
|
||||||
|
genedz[col-1] := 1; // mark as generated
|
||||||
|
end;
|
||||||
|
{
|
||||||
|
// print matrix of path z scores for exogenous variables
|
||||||
|
title := 'Data Array of Subject exogenous z Scores';
|
||||||
|
MAT_PRINT(zvals,NoCases,NoSelected,title,RowLabels,ColLabels,NoCases);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
}
|
||||||
|
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
for j := 1 to NoSelected do
|
||||||
|
begin
|
||||||
|
if cellstring = VarList.Items.Strings[j-1] then
|
||||||
|
begin
|
||||||
|
RowLabels[i-1] := cellstring;
|
||||||
|
ColLabels[i-1] := cellstring;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Build matrix of path coefficients
|
||||||
|
for i := 1 to nocaused do
|
||||||
|
begin
|
||||||
|
row := causedseq[i-1];
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin
|
||||||
|
col := causingseq[i-1,j-1];
|
||||||
|
W[row-1,col-1] := PathCoef[row-1,col-1];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Print results
|
||||||
|
if StatsChk.Checked then
|
||||||
|
begin
|
||||||
|
title := 'Matrix of Path Coefficients in Rows';
|
||||||
|
MAT_PRINT(W,NoSelected,NoSelected,title,ColLabels,ColLabels,count);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Build models vectors
|
||||||
|
k := 0;
|
||||||
|
for i := 1 to nocaused do
|
||||||
|
begin
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin
|
||||||
|
k := k + 1;
|
||||||
|
causal[0,k-1] := causedseq[i-1];
|
||||||
|
causal[1,k-1] := causingseq[i-1,j-1];
|
||||||
|
row := causedseq[i-1];
|
||||||
|
col := causingseq[i-1,j-1];
|
||||||
|
p[k-1] := PathCoef[row-1,col-1];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
NoModels := k;
|
||||||
|
|
||||||
|
//Sort on resultant then causing variables
|
||||||
|
for i := 1 to NoModels - 1 do
|
||||||
|
begin
|
||||||
|
for j := i + 1 to NoModels do
|
||||||
|
begin
|
||||||
|
if (causal[0,i-1] > causal[0,j-1]) then // swap
|
||||||
|
begin
|
||||||
|
t := causal[0,i-1];
|
||||||
|
causal[0,i-1] := causal[0,j-1];
|
||||||
|
causal[0,j-1] := t;
|
||||||
|
t := causal[1,i-1];
|
||||||
|
causal[1,i-1] := causal[1,j-1];
|
||||||
|
causal[1,j-1] := t;
|
||||||
|
Temp := p[i-1];
|
||||||
|
p[i-1] := p[j-1];
|
||||||
|
p[j-1] := Temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for i := 1 to NoModels - 1 do
|
||||||
|
begin
|
||||||
|
for j := i + 1 to NoModels do
|
||||||
|
begin
|
||||||
|
if ((causal[0,i-1] = causal[0,j-1]) and (causal[1,i-1] > causal[1,j-1])) then
|
||||||
|
begin
|
||||||
|
t := causal[0,i-1];
|
||||||
|
causal[0,i-1] := causal[0,j-1];
|
||||||
|
causal[0,j-1] := t;
|
||||||
|
t := causal[1,i-1];
|
||||||
|
causal[1,i-1] := causal[1,j-1];
|
||||||
|
causal[1,j-1] := t;
|
||||||
|
Temp := p[i-1];
|
||||||
|
p[i-1] := p[j-1];
|
||||||
|
p[j-1] := Temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('SUMMARY OF CAUSAL MODELS');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Var. Caused Causing Var. Path Coefficient');
|
||||||
|
|
||||||
|
for i := 1 to NoModels do
|
||||||
|
begin
|
||||||
|
outline := format('%12s %12s %6.3f',
|
||||||
|
[OS3MainFrm.DataGrid.Cells[causal[0,i-1],0],
|
||||||
|
OS3MainFrm.DataGrid.Cells[causal[1,i-1],0],
|
||||||
|
p[i-1]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
|
||||||
|
//Get reproduced correlation matrix in e
|
||||||
|
done := false;
|
||||||
|
while not done do
|
||||||
|
begin
|
||||||
|
for i := 1 to nocaused do // check each caused for use of existing z values
|
||||||
|
begin
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin
|
||||||
|
count := 0;
|
||||||
|
for L := 1 to noselected do
|
||||||
|
begin
|
||||||
|
if genedz[L-1] = 1 then count := count + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if count >= nocausing[i-1] then // calculate path z
|
||||||
|
begin
|
||||||
|
row := causedseq[i-1]; // generation z column & row of path coef.
|
||||||
|
for j := 1 to nocausing[i-1] do
|
||||||
|
begin // sum of Path coefficients times corresponding z's
|
||||||
|
col := causingseq[i-1,j-1]; // column of path coefficient
|
||||||
|
for k := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
zscore := zvals[k-1,col-1]; // causing z score
|
||||||
|
zvals[k-1,row-1] := zvals[k-1,row-1] + zscore * PathCoef[row-1,col-1];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
genedz[row-1] := 1; // mark as generated
|
||||||
|
end; // if count equals no. of causing variables
|
||||||
|
count := 0; // check for completion of all z's
|
||||||
|
for j := 1 to noselected do
|
||||||
|
if genedz[j-1] = 1 then count := count + 1;
|
||||||
|
if count = noselected then done := true;
|
||||||
|
end; // next i caused variable
|
||||||
|
end; // while not done
|
||||||
|
|
||||||
|
// print matrix of path z scores
|
||||||
|
for i := 1 to NoCases do RowLabels[i-1] := format('Subject %d',[i]);
|
||||||
|
title := 'Data Array of Subject Path z Scores';
|
||||||
|
MAT_PRINT(zvals,NoCases,NoSelected,title,RowLabels,ColLabels,NoCases);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
|
||||||
|
// now calculate the correlation among the generated z values
|
||||||
|
for i := 1 to noselected do
|
||||||
|
begin // initialize arrays
|
||||||
|
for j := 1 to noselected do
|
||||||
|
begin
|
||||||
|
e[i-1,j-1] := 0.0;
|
||||||
|
end;
|
||||||
|
means[i-1] := 0.0;
|
||||||
|
stddevs[i-1] := 0.0;
|
||||||
|
end;
|
||||||
|
for k := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
for i := 1 to noselected do
|
||||||
|
begin
|
||||||
|
for j := 1 to noselected do
|
||||||
|
begin
|
||||||
|
e[i-1,j-1] := e[i-1,j-1] + zvals[k-1,i-1] * zvals[k-1,j-1];
|
||||||
|
end;
|
||||||
|
means[i-1] := means[i-1] + zvals[k-1,i-1];
|
||||||
|
stddevs[i-1] := stddevs[i-1] + (zvals[k-1,i-1] * zvals[k-1,i-1]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
for i := 1 to noselected do
|
||||||
|
begin
|
||||||
|
stddevs[i-1] := stddevs[i-1] - (means[i-1] * means[i-1] / NoCases);
|
||||||
|
stddevs[i-1] := stddevs[i-1] / (NoCases - 1);
|
||||||
|
stddevs[i-1] := sqrt(stddevs[i-1]);
|
||||||
|
for j := 1 to noselected do
|
||||||
|
begin // covariances
|
||||||
|
e[i-1,j-1] := e[i-1,j-1] - (means[i-1] * means[j-1] / NoCases);
|
||||||
|
e[i-1,j-1] := e[i-1,j-1] / (NoCases - 1);
|
||||||
|
end;
|
||||||
|
means[i-1] := means[i-1] / NoCases;
|
||||||
|
end;
|
||||||
|
for i := 1 to noselected do
|
||||||
|
begin
|
||||||
|
for j := 1 to noselected do
|
||||||
|
begin
|
||||||
|
e[i-1,j-1] := e[i-1,j-1] / (stddevs[i-1]*stddevs[j-1]);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if (ReproChk.Checked) then
|
||||||
|
begin
|
||||||
|
title := 'Reproduced Correlation Matrix';
|
||||||
|
MAT_PRINT(e,NoSelected,NoSelected,title,ColLabels,ColLabels,count);
|
||||||
|
end;
|
||||||
|
|
||||||
|
//Examine discrepencies
|
||||||
|
d2 := 0.0;
|
||||||
|
sum := 0.0;
|
||||||
|
for i := 1 to NoSelected do
|
||||||
|
begin
|
||||||
|
for j := 1 to NoSelected do
|
||||||
|
begin
|
||||||
|
absdiff := abs(rmat[i-1,j-1] - e[i-1,j-1]);
|
||||||
|
sum := sum + absdiff;
|
||||||
|
if (absdiff > d2) then d2 := absdiff;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Average absolute difference between observed and reproduced');
|
||||||
|
outline := format('coefficients := %5.3f',[sum / (NoSelected * NoSelected)]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Maximum difference found := %5.3f',[d2]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
|
||||||
|
// clean up heap (delete last allocated first)
|
||||||
|
genedz := nil;
|
||||||
|
zvals := nil;
|
||||||
|
selected := nil;
|
||||||
|
ColNoSelected := nil;
|
||||||
|
exogenous := nil;
|
||||||
|
IndepIndex := nil;
|
||||||
|
Labels := nil;
|
||||||
|
ColLabels := nil;
|
||||||
|
RowLabels := nil;
|
||||||
|
Causal := nil;
|
||||||
|
p := nil;
|
||||||
|
beta := nil;
|
||||||
|
stddevs := nil;
|
||||||
|
variances := nil;
|
||||||
|
means := nil;
|
||||||
|
W := nil;
|
||||||
|
e := nil;
|
||||||
|
InvMatrix := nil;
|
||||||
|
IndMatrix := nil;
|
||||||
|
PathCoef := nil;
|
||||||
|
WorkMat := nil;
|
||||||
|
rmat := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I pathunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
155
applications/lazstats/source_orig/pchartunit.lfm
Normal file
155
applications/lazstats/source_orig/pchartunit.lfm
Normal file
@@ -0,0 +1,155 @@
|
|||||||
|
object pChartFrm: TpChartFrm
|
||||||
|
Left = 143
|
||||||
|
Height = 264
|
||||||
|
Top = 120
|
||||||
|
Width = 512
|
||||||
|
Caption = 'p Control Chart'
|
||||||
|
ClientHeight = 264
|
||||||
|
ClientWidth = 512
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 10
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Caption = 'Selection Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 183
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 107
|
||||||
|
Caption = 'Measurement Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 186
|
||||||
|
Height = 14
|
||||||
|
Top = 72
|
||||||
|
Width = 106
|
||||||
|
Caption = 'No. of Parts Sampled:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 184
|
||||||
|
Height = 14
|
||||||
|
Top = 103
|
||||||
|
Width = 156
|
||||||
|
Caption = 'Expected Proportion of Defects:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 10
|
||||||
|
Height = 221
|
||||||
|
Top = 24
|
||||||
|
Width = 162
|
||||||
|
ItemHeight = 0
|
||||||
|
OnClick = VarListClick
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object MeasEdit: TEdit
|
||||||
|
Left = 183
|
||||||
|
Height = 21
|
||||||
|
Top = 32
|
||||||
|
Width = 152
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'MeasEdit'
|
||||||
|
end
|
||||||
|
object NEdit: TEdit
|
||||||
|
Left = 344
|
||||||
|
Height = 21
|
||||||
|
Top = 65
|
||||||
|
Width = 42
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'NEdit'
|
||||||
|
end
|
||||||
|
object PEdit: TEdit
|
||||||
|
Left = 344
|
||||||
|
Height = 21
|
||||||
|
Top = 96
|
||||||
|
Width = 42
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object SigmaOpts: TRadioGroup
|
||||||
|
Left = 184
|
||||||
|
Height = 122
|
||||||
|
Top = 128
|
||||||
|
Width = 202
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'No. Of Sigma Units for UCL and LCL'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 104
|
||||||
|
ClientWidth = 198
|
||||||
|
Items.Strings = (
|
||||||
|
'3 Sigma (Default)'
|
||||||
|
'2 Sigma'
|
||||||
|
'1 Sigma'
|
||||||
|
'X Sigma where X = '
|
||||||
|
)
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 417
|
||||||
|
Height = 29
|
||||||
|
Top = 72
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 417
|
||||||
|
Height = 29
|
||||||
|
Top = 120
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 416
|
||||||
|
Height = 29
|
||||||
|
Top = 168
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object Return: TButton
|
||||||
|
Left = 416
|
||||||
|
Height = 29
|
||||||
|
Top = 216
|
||||||
|
Width = 75
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object XSigmaEdit: TEdit
|
||||||
|
Left = 320
|
||||||
|
Height = 21
|
||||||
|
Top = 216
|
||||||
|
Width = 41
|
||||||
|
TabOrder = 9
|
||||||
|
Text = 'XSigmaEdit'
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 137
|
||||||
|
Left = 416
|
||||||
|
Height = 28
|
||||||
|
Top = 24
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
end
|
||||||
43
applications/lazstats/source_orig/pchartunit.lrs
Normal file
43
applications/lazstats/source_orig/pchartunit.lrs
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TpChartFrm','FORMDATA',[
|
||||||
|
'TPF0'#10'TpChartFrm'#9'pChartFrm'#4'Left'#3#143#0#6'Height'#3#8#1#3'Top'#2'x'
|
||||||
|
+#5'Width'#3#0#2#7'Caption'#6#15'p Control Chart'#12'ClientHeight'#3#8#1#11'C'
|
||||||
|
+'lientWidth'#3#0#2#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9.28.2'#0#6
|
||||||
|
+'TLabel'#6'Label1'#4'Left'#2#10#6'Height'#2#14#3'Top'#2#8#5'Width'#2'Z'#7'Ca'
|
||||||
|
+'ption'#6#19'Selection Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
|
||||||
|
+'Left'#3#183#0#6'Height'#2#14#3'Top'#2#8#5'Width'#2'k'#7'Caption'#6#20'Measu'
|
||||||
|
+'rement Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#3#186#0#6
|
||||||
|
+'Height'#2#14#3'Top'#2'H'#5'Width'#2'j'#7'Caption'#6#21'No. of Parts Sampled'
|
||||||
|
+':'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#184#0#6'Height'#2#14
|
||||||
|
+#3'Top'#2'g'#5'Width'#3#156#0#7'Caption'#6#31'Expected Proportion of Defects'
|
||||||
|
+':'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#10#6'Height'#3#221
|
||||||
|
+#0#3'Top'#2#24#5'Width'#3#162#0#10'ItemHeight'#2#0#7'OnClick'#7#12'VarListCl'
|
||||||
|
+'ick'#8'TabOrder'#2#0#0#0#5'TEdit'#8'MeasEdit'#4'Left'#3#183#0#6'Height'#2#21
|
||||||
|
+#3'Top'#2' '#5'Width'#3#152#0#8'TabOrder'#2#1#4'Text'#6#8'MeasEdit'#0#0#5'TE'
|
||||||
|
+'dit'#5'NEdit'#4'Left'#3'X'#1#6'Height'#2#21#3'Top'#2'A'#5'Width'#2'*'#8'Tab'
|
||||||
|
+'Order'#2#2#4'Text'#6#5'NEdit'#0#0#5'TEdit'#5'PEdit'#4'Left'#3'X'#1#6'Height'
|
||||||
|
+#2#21#3'Top'#2'`'#5'Width'#2'*'#8'TabOrder'#2#3#4'Text'#6#5'Edit1'#0#0#11'TR'
|
||||||
|
+'adioGroup'#9'SigmaOpts'#4'Left'#3#184#0#6'Height'#2'z'#3'Top'#3#128#0#5'Wid'
|
||||||
|
+'th'#3#202#0#8'AutoFill'#9#7'Caption'#6'"No. Of Sigma Units for UCL and LCL'
|
||||||
|
+#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29
|
||||||
|
+'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizin'
|
||||||
|
+'g.EnlargeVertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHori'
|
||||||
|
+'zontal'#7#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleCh'
|
||||||
|
+'ilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSi'
|
||||||
|
+'zing.ControlsPerLine'#2#1#12'ClientHeight'#2'h'#11'ClientWidth'#3#198#0#13
|
||||||
|
+'Items.Strings'#1#6#17'3 Sigma (Default)'#6#7'2 Sigma'#6#7'1 Sigma'#6#18'X S'
|
||||||
|
+'igma where X = '#0#8'TabOrder'#2#4#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#161
|
||||||
|
+#1#6'Height'#2#29#3'Top'#2'H'#5'Width'#2'K'#7'Caption'#6#5'Reset'#7'OnClick'
|
||||||
|
+#7#13'ResetBtnClick'#8'TabOrder'#2#5#0#0#7'TButton'#9'CancelBtn'#4'Left'#3
|
||||||
|
+#161#1#6'Height'#2#29#3'Top'#2'x'#5'Width'#2'K'#7'Caption'#6#6'Cancel'#11'Mo'
|
||||||
|
+'dalResult'#2#2#8'TabOrder'#2#6#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#160#1
|
||||||
|
+#6'Height'#2#29#3'Top'#3#168#0#5'Width'#2'K'#7'Caption'#6#7'Compute'#7'OnCli'
|
||||||
|
+'ck'#7#15'ComputeBtnClick'#8'TabOrder'#2#7#0#0#7'TButton'#6'Return'#4'Left'#3
|
||||||
|
+#160#1#6'Height'#2#29#3'Top'#3#216#0#5'Width'#2'K'#7'Caption'#6#6'Return'#11
|
||||||
|
+'ModalResult'#2#1#8'TabOrder'#2#8#0#0#5'TEdit'#10'XSigmaEdit'#4'Left'#3'@'#1
|
||||||
|
+#6'Height'#2#21#3'Top'#3#216#0#5'Width'#2')'#8'TabOrder'#2#9#4'Text'#6#10'XS'
|
||||||
|
+'igmaEdit'#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#137#0#4'Left'#3#160#1#6'Height'
|
||||||
|
+#2#28#3'Top'#2#24#5'Width'#2'L'#7'Caption'#6#4'Help'#7'OnClick'#7#12'HelpBtn'
|
||||||
|
+'Click'#8'TabOrder'#2#10#0#0#0
|
||||||
|
]);
|
||||||
291
applications/lazstats/source_orig/pchartunit.pas
Normal file
291
applications/lazstats/source_orig/pchartunit.pas
Normal file
@@ -0,0 +1,291 @@
|
|||||||
|
unit PCHARTUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, ExtCtrls, MainUnit, Globals, Math, OutPutUnit, Buttons, DataProcs,
|
||||||
|
FunctionsLib, BlankFrmUnit, contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TpChartFrm }
|
||||||
|
|
||||||
|
TpChartFrm = class(TForm)
|
||||||
|
HelpBtn: TButton;
|
||||||
|
XSigmaEdit: TEdit;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
Return: TButton;
|
||||||
|
NEdit: TEdit;
|
||||||
|
PEdit: TEdit;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
MeasEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
SigmaOpts: TRadioGroup;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure VarListClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
procedure PlotMeans(VAR means : DblDyneVec;
|
||||||
|
NoGrps : integer;
|
||||||
|
UCL, LCL, GrandMean, Target : double;
|
||||||
|
Sender: TObject);
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
pChartFrm: TpChartFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TpChartFrm }
|
||||||
|
|
||||||
|
procedure TpChartFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
VarList.Clear;
|
||||||
|
MeasEdit.Text := '';
|
||||||
|
NEdit.Text := '';
|
||||||
|
PEdit.Text := '';
|
||||||
|
XSigmaEdit.Text := '';
|
||||||
|
SigmaOpts.ItemIndex := 0;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TpChartFrm.VarListClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
MeasEdit.Text := VarList.Items.Strings[index];
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TpChartFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TpChartFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TpChartFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
P, N, variance, stddev, UCL, LCL, X, Sigma : double;
|
||||||
|
AVG : double;
|
||||||
|
i, measvar : integer;
|
||||||
|
cellstring, outline : string;
|
||||||
|
Obsp : DblDyneVec;
|
||||||
|
begin
|
||||||
|
AVG := 0.0;
|
||||||
|
measvar := 1;
|
||||||
|
Sigma := 3;
|
||||||
|
N := StrToFloat(NEdit.Text);
|
||||||
|
P := StrToFloat(PEdit.Text);
|
||||||
|
if SigmaOpts.ItemIndex = 3 then
|
||||||
|
Sigma := StrToFloat(XSigmaEdit.Text);
|
||||||
|
if SigmaOpts.ItemIndex = 0 then Sigma := 3.0;
|
||||||
|
if SigmaOpts.ItemIndex = 1 then Sigma := 2.0;
|
||||||
|
if SigmaOpts.ItemIndex = 2 then Sigma := 1.0;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
if cellstring = MeasEdit.Text then measvar := i;
|
||||||
|
end;
|
||||||
|
variance := P * (1.0 - P) / N;
|
||||||
|
stddev := sqrt(variance);
|
||||||
|
SetLength(obsp,NoCases + 1);
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
X := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[measvar,i]));
|
||||||
|
X := X / N;
|
||||||
|
obsp[i] := X;
|
||||||
|
AVG := AVG + X;
|
||||||
|
end;
|
||||||
|
AVG := AVG / NoCases;
|
||||||
|
UCL := P + Sigma * stddev;
|
||||||
|
LCL := P - Sigma * stddev;
|
||||||
|
|
||||||
|
// output results
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Defects p Control Chart Results');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Sample No. Proportion');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('__________ __________');
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
outline := format(' %5d %6.3f',[i,obsp[i]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('Target proportion = %6.4f',[P]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Sample size for each observation = %6.0f',[N]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Average proportion observed = %6.4f',[AVG]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
|
||||||
|
// Now create plot
|
||||||
|
PlotMeans(obsp,NoCases,UCL,LCL, Avg, P,self);
|
||||||
|
obsp := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TpChartFrm.PlotMeans(var means: DblDyneVec; NoGrps: integer; UCL,
|
||||||
|
LCL, GrandMean, Target: double; Sender: TObject);
|
||||||
|
var
|
||||||
|
i, xpos, ypos, hleft, hright, vtop, vbottom, imagewide : integer;
|
||||||
|
vhi, hwide, offset, strhi, oldxpos : integer;
|
||||||
|
imagehi, maxval, minval, valincr, Yvalue : double;
|
||||||
|
Title : string;
|
||||||
|
begin
|
||||||
|
maxval := -10000.0;
|
||||||
|
minval := 10000.0;
|
||||||
|
for i := 1 to NoGrps do
|
||||||
|
begin
|
||||||
|
if means[i] > maxval then maxval := means[i];
|
||||||
|
if means[i] < minval then minval := means[i];
|
||||||
|
end;
|
||||||
|
if UCL > maxval then maxval := UCL;
|
||||||
|
if LCL < minval then minval := LCL;
|
||||||
|
BlankFrm.Image1.Canvas.Clear;
|
||||||
|
BlankFrm.Show;
|
||||||
|
Title := 'p CONTROL CHART FOR : ' + OS3MainFrm.FileNameEdit.Text;
|
||||||
|
BlankFrm.Caption := Title;
|
||||||
|
imagewide := BlankFrm.Image1.Width;
|
||||||
|
imagehi := BlankFrm.Image1.Height;
|
||||||
|
vtop := 20;
|
||||||
|
vbottom := round(imagehi) - 80;
|
||||||
|
vhi := vbottom - vtop;
|
||||||
|
hleft := 100;
|
||||||
|
hright := imagewide - 80;
|
||||||
|
hwide := hright - hleft;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
|
||||||
|
|
||||||
|
// Draw chart border
|
||||||
|
BlankFrm.Image1.Canvas.Rectangle(hleft,vtop-10,hleft+hwide,vtop+vhi+10);
|
||||||
|
|
||||||
|
// draw Grand Mean
|
||||||
|
ypos := round(vhi * ( (maxval - GrandMean) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hright;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlue;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'MEAN';
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
ypos := ypos - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clLtGray;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
// draw target
|
||||||
|
ypos := round(vhi * ( (maxval - Target) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hright;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clRed;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'TARGET';
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
ypos := ypos - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clLtGray;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
// draw horizontal axis
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(hleft,vbottom + 20);
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(hright,vbottom + 20);
|
||||||
|
oldxpos := 0;
|
||||||
|
for i := 1 to NoGrps do
|
||||||
|
begin
|
||||||
|
ypos := vbottom + 10;
|
||||||
|
xpos := round((hwide / NoGrps)* i + hleft);
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := ypos + 10;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := format('%d',[i]);
|
||||||
|
offset := BlankFrm.Image1.Canvas.TextWidth(Title) div 2;
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
xpos := xpos - offset;
|
||||||
|
ypos := ypos + strhi;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
if xpos > oldxpos then
|
||||||
|
begin
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
oldxpos := xpos + (offset * 2);
|
||||||
|
end;
|
||||||
|
xpos := 10;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,'GROUPS:');
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Draw vertical axis
|
||||||
|
valincr := (maxval - minval) / 10.0;
|
||||||
|
for i := 1 to 11 do
|
||||||
|
begin
|
||||||
|
Title := format('%8.2f',[maxval - ((i-1)*valincr)]);
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
xpos := 10;
|
||||||
|
Yvalue := maxval - (valincr * (i-1));
|
||||||
|
ypos := round(vhi * ( (maxval - Yvalue) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw lines for means of the groups
|
||||||
|
ypos := round(vhi * ( (maxval - means[1]) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round((hwide / NoGrps) + hleft);
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
for i := 2 to NoGrps do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ( (maxval - means[i]) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round((hwide / NoGrps)* i + hleft);
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Draw upper and lower confidence intervals
|
||||||
|
ypos := round(vhi * ( (maxval - UCL) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hright;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clRed;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'UCL';
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
ypos := ypos - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
ypos := round(vhi * ( (maxval - LCL) / (maxval - minval)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hright;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clRed;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'LCL';
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
ypos := ypos - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I pchartunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
153
applications/lazstats/source_orig/pcurvesunit.lfm
Normal file
153
applications/lazstats/source_orig/pcurvesunit.lfm
Normal file
@@ -0,0 +1,153 @@
|
|||||||
|
object PCurvesFrm: TPCurvesFrm
|
||||||
|
Left = 177
|
||||||
|
Height = 300
|
||||||
|
Top = 88
|
||||||
|
Width = 361
|
||||||
|
Caption = 'Power Analysis for a z Test'
|
||||||
|
ClientHeight = 300
|
||||||
|
ClientWidth = 361
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 10
|
||||||
|
Height = 14
|
||||||
|
Top = 15
|
||||||
|
Width = 135
|
||||||
|
Caption = 'Mean of the Null Hypothesis'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 48
|
||||||
|
Width = 182
|
||||||
|
Caption = 'Standard Deviation of the Distribution'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 14
|
||||||
|
Top = 80
|
||||||
|
Width = 57
|
||||||
|
Caption = 'Sample Size'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object NullEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 21
|
||||||
|
Top = 8
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'NullEdit'
|
||||||
|
end
|
||||||
|
object SDEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 21
|
||||||
|
Top = 40
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object NEdit: TEdit
|
||||||
|
Left = 200
|
||||||
|
Height = 21
|
||||||
|
Top = 73
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 10
|
||||||
|
Height = 172
|
||||||
|
Top = 112
|
||||||
|
Width = 235
|
||||||
|
Caption = 'Probability of a Type I Error:'
|
||||||
|
ClientHeight = 154
|
||||||
|
ClientWidth = 231
|
||||||
|
TabOrder = 3
|
||||||
|
object Prob01: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 0
|
||||||
|
Width = 42
|
||||||
|
Caption = '0.01'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Prob025: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 24
|
||||||
|
Width = 48
|
||||||
|
Caption = '0.025'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Prob05: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 48
|
||||||
|
Width = 42
|
||||||
|
Caption = '0.05'
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Prob075: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 72
|
||||||
|
Width = 48
|
||||||
|
Caption = '0.075'
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object Prob10: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 96
|
||||||
|
Width = 42
|
||||||
|
Caption = '0.10'
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object Prob20: TCheckBox
|
||||||
|
Left = 9
|
||||||
|
Height = 17
|
||||||
|
Top = 120
|
||||||
|
Width = 42
|
||||||
|
Caption = '0.20'
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 272
|
||||||
|
Height = 28
|
||||||
|
Top = 33
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 272
|
||||||
|
Height = 28
|
||||||
|
Top = 88
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 272
|
||||||
|
Height = 28
|
||||||
|
Top = 144
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 272
|
||||||
|
Height = 28
|
||||||
|
Top = 200
|
||||||
|
Width = 69
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
end
|
||||||
38
applications/lazstats/source_orig/pcurvesunit.lrs
Normal file
38
applications/lazstats/source_orig/pcurvesunit.lrs
Normal file
@@ -0,0 +1,38 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPCurvesFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TPCurvesFrm'#10'PCurvesFrm'#4'Left'#3#177#0#6'Height'#3','#1#3'Top'
|
||||||
|
+#2'X'#5'Width'#3'i'#1#7'Caption'#6#27'Power Analysis for a z Test'#12'Client'
|
||||||
|
+'Height'#3','#1#11'ClientWidth'#3'i'#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'
|
||||||
|
+#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#10#6'Height'#2#14#3'Top'#2#15
|
||||||
|
+#5'Width'#3#135#0#7'Caption'#6#27'Mean of the Null Hypothesis'#11'ParentColo'
|
||||||
|
+'r'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'0'#5'Width'
|
||||||
|
+#3#182#0#7'Caption'#6'&Standard Deviation of the Distribution'#11'ParentColo'
|
||||||
|
+'r'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#9#6'Height'#2#14#3'Top'#2'P'#5'Width'
|
||||||
|
+#2'9'#7'Caption'#6#11'Sample Size'#11'ParentColor'#8#0#0#5'TEdit'#8'NullEdit'
|
||||||
|
+#4'Left'#3#200#0#6'Height'#2#21#3'Top'#2#8#5'Width'#2'+'#8'TabOrder'#2#0#4'T'
|
||||||
|
+'ext'#6#8'NullEdit'#0#0#5'TEdit'#6'SDEdit'#4'Left'#3#200#0#6'Height'#2#21#3
|
||||||
|
+'Top'#2'('#5'Width'#2'+'#8'TabOrder'#2#1#4'Text'#6#5'Edit1'#0#0#5'TEdit'#5'N'
|
||||||
|
+'Edit'#4'Left'#3#200#0#6'Height'#2#21#3'Top'#2'I'#5'Width'#2'+'#8'TabOrder'#2
|
||||||
|
+#2#4'Text'#6#5'Edit1'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#10#6'Height'#3
|
||||||
|
+#172#0#3'Top'#2'p'#5'Width'#3#235#0#7'Caption'#6#30'Probability of a Type I '
|
||||||
|
+'Error:'#12'ClientHeight'#3#154#0#11'ClientWidth'#3#231#0#8'TabOrder'#2#3#0#9
|
||||||
|
+'TCheckBox'#6'Prob01'#4'Left'#2#9#6'Height'#2#17#3'Top'#2#0#5'Width'#2'*'#7
|
||||||
|
+'Caption'#6#4'0.01'#8'TabOrder'#2#0#0#0#9'TCheckBox'#7'Prob025'#4'Left'#2#9#6
|
||||||
|
+'Height'#2#17#3'Top'#2#24#5'Width'#2'0'#7'Caption'#6#5'0.025'#8'TabOrder'#2#1
|
||||||
|
+#0#0#9'TCheckBox'#6'Prob05'#4'Left'#2#9#6'Height'#2#17#3'Top'#2'0'#5'Width'#2
|
||||||
|
+'*'#7'Caption'#6#4'0.05'#8'TabOrder'#2#2#0#0#9'TCheckBox'#7'Prob075'#4'Left'
|
||||||
|
+#2#9#6'Height'#2#17#3'Top'#2'H'#5'Width'#2'0'#7'Caption'#6#5'0.075'#8'TabOrd'
|
||||||
|
+'er'#2#3#0#0#9'TCheckBox'#6'Prob10'#4'Left'#2#9#6'Height'#2#17#3'Top'#2'`'#5
|
||||||
|
+'Width'#2'*'#7'Caption'#6#4'0.10'#8'TabOrder'#2#4#0#0#9'TCheckBox'#6'Prob20'
|
||||||
|
+#4'Left'#2#9#6'Height'#2#17#3'Top'#2'x'#5'Width'#2'*'#7'Caption'#6#4'0.20'#8
|
||||||
|
+'TabOrder'#2#5#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#16#1#6'Height'#2#28#3
|
||||||
|
+'Top'#2'!'#5'Width'#2'E'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'
|
||||||
|
+#8'TabOrder'#2#4#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#16#1#6'Height'#2#28#3
|
||||||
|
+'Top'#2'X'#5'Width'#2'E'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrd'
|
||||||
|
+'er'#2#5#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#16#1#6'Height'#2#28#3'Top'#3
|
||||||
|
+#144#0#5'Width'#2'E'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'
|
||||||
|
+#8'TabOrder'#2#6#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#16#1#6'Height'#2#28#3
|
||||||
|
+'Top'#3#200#0#5'Width'#2'E'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'Tab'
|
||||||
|
+'Order'#2#7#0#0#0
|
||||||
|
]);
|
||||||
225
applications/lazstats/source_orig/pcurvesunit.pas
Normal file
225
applications/lazstats/source_orig/pcurvesunit.pas
Normal file
@@ -0,0 +1,225 @@
|
|||||||
|
unit PCurvesUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, GraphLib, OutPutUnit, FunctionsLib, Globals;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPCurvesFrm }
|
||||||
|
|
||||||
|
TPCurvesFrm = class(TForm)
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
Prob01: TCheckBox;
|
||||||
|
Prob025: TCheckBox;
|
||||||
|
Prob05: TCheckBox;
|
||||||
|
Prob075: TCheckBox;
|
||||||
|
Prob10: TCheckBox;
|
||||||
|
Prob20: TCheckBox;
|
||||||
|
NullEdit: TEdit;
|
||||||
|
SDEdit: TEdit;
|
||||||
|
NEdit: TEdit;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PCurvesFrm: TPCurvesFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPCurvesFrm }
|
||||||
|
|
||||||
|
procedure TPCurvesFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Prob01.Checked := false;
|
||||||
|
Prob025.Checked := false;
|
||||||
|
Prob05.Checked := false;
|
||||||
|
Prob075.Checked := false;
|
||||||
|
Prob10.Checked := false;
|
||||||
|
Prob20.Checked := false;
|
||||||
|
NullEdit.Text := '';
|
||||||
|
SDEdit.Text := '';
|
||||||
|
NEdit.Text := '';
|
||||||
|
NullEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPCurvesFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPCurvesFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
mean, stddev, N, increment, althyp, power, zbeta, beta, StdErr : double;
|
||||||
|
XMax, offset : double;
|
||||||
|
ii : integer;
|
||||||
|
j, NoPlots, SetNo : integer;
|
||||||
|
alphas : array[1..6] of double;
|
||||||
|
zalphas : array[1..6] of double;
|
||||||
|
xalphas : array[1..6] of double;
|
||||||
|
XPlotPts : DblDyneMat;
|
||||||
|
YPlotPts : DblDyneMat;
|
||||||
|
LabelStr, outline, xTitle, yTitle : string;
|
||||||
|
oldCursor : TCursor;
|
||||||
|
begin
|
||||||
|
SetLength(YPlotPts,6,80);
|
||||||
|
SetLength(XPlotPts,1,80);
|
||||||
|
|
||||||
|
XMax := 0.0;
|
||||||
|
mean := StrToFloat(NullEdit.Text);
|
||||||
|
stddev := StrToFloat(SDEdit.Text);
|
||||||
|
N := StrToFloat(NEdit.Text);
|
||||||
|
StdErr := stddev / sqrt(N); // standard error of mean;
|
||||||
|
increment := 4.0 * StdErr / 80.0; //scale for 80 points
|
||||||
|
|
||||||
|
// Initialize alternative type I error arrays
|
||||||
|
for ii := 1 to 6 do
|
||||||
|
begin
|
||||||
|
alphas[ii] := 0.0;
|
||||||
|
zalphas[ii] := 0.0;
|
||||||
|
xalphas[ii] := 0.0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Get the desired alpha (Beta) curve options
|
||||||
|
if (Prob01.Checked) then alphas[1] := 0.01;
|
||||||
|
if (Prob025.Checked) then alphas[2] := 0.025;
|
||||||
|
if (Prob05.Checked) then alphas[3] := 0.05;
|
||||||
|
if (Prob075.Checked) then alphas[4] := 0.075;
|
||||||
|
if (Prob10.Checked) then alphas[5] := 0.10;
|
||||||
|
if (Prob20.Checked) then alphas[6] := 0.20;
|
||||||
|
oldCursor := Screen.Cursor;
|
||||||
|
Screen.Cursor := TCursor(crHourGlass);
|
||||||
|
|
||||||
|
// For curves selected, obtain corresponding z and x values
|
||||||
|
for ii := 1 to 6 do
|
||||||
|
begin
|
||||||
|
if (alphas[ii] <> 0.0) then
|
||||||
|
begin
|
||||||
|
zalphas[ii] := inversez(1.0 - alphas[ii]);
|
||||||
|
xalphas[ii] := (zalphas[ii] * StdErr) + mean;
|
||||||
|
if (xalphas[ii] > XMax) then XMax := xalphas[ii];
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// For each curve, obtain and plot 80 alternative hypotheses and
|
||||||
|
// their corresponding probabilities
|
||||||
|
NoPlots := 1;
|
||||||
|
for ii := 1 to 6 do // possible curves
|
||||||
|
begin
|
||||||
|
if (alphas[ii] <> 0.0) then // curve selected?
|
||||||
|
begin
|
||||||
|
Offset := 0.0;
|
||||||
|
for j := 1 to 80 do //get points to plot
|
||||||
|
begin
|
||||||
|
althyp := mean + Offset;
|
||||||
|
zbeta := (xalphas[ii] - althyp ) / StdErr;
|
||||||
|
if ( abs(zbeta) < 5.0) then beta := probz(zbeta)
|
||||||
|
else beta := 0.0;
|
||||||
|
power := 1.0 - beta;
|
||||||
|
XPlotPts[0,j-1] := althyp;
|
||||||
|
YPlotPts[NoPlots-1,j-1] := power;
|
||||||
|
Offset := offset + increment;
|
||||||
|
end;
|
||||||
|
NoPlots := NoPlots + 1;
|
||||||
|
end; // if alphas[i] <> 0
|
||||||
|
end; // next curve i
|
||||||
|
|
||||||
|
// Plot the points
|
||||||
|
GraphFrm.BackColor := clWhite;
|
||||||
|
GraphFrm.ShowLeftWall := true;
|
||||||
|
GraphFrm.ShowRightWall := true;
|
||||||
|
GraphFrm.ShowBottomWall := true;
|
||||||
|
GraphFrm.ShowBackWall := true;
|
||||||
|
GraphFrm.BackColor := clYellow;
|
||||||
|
GraphFrm.WallColor := clBlue;
|
||||||
|
GraphFrm.FloorColor := clBlue;
|
||||||
|
outline := format('z-Test Power. Pop. Mean := %6.2f, Sigma := %6.2f, N := %2.0f',[mean,stddev,N]);
|
||||||
|
GraphFrm.Heading := outline;
|
||||||
|
xTitle := format('%6.2f x INCREMENT ABOVE HYPOTHESIZED MEAN',[increment]);
|
||||||
|
GraphFrm.XTitle := xTitle;
|
||||||
|
yTitle := 'PROBABILITIES';
|
||||||
|
GraphFrm.YTitle := yTitle;
|
||||||
|
GraphFrm.nosets := NoPlots-1;
|
||||||
|
GraphFrm.nbars := 80;
|
||||||
|
GraphFrm.barwideprop := 0.5;
|
||||||
|
GraphFrm.miny := 0.0;
|
||||||
|
GraphFrm.maxy := 1.0;
|
||||||
|
GraphFrm.AutoScale := false;
|
||||||
|
GraphFrm.GraphType := 5; // 2d line charts
|
||||||
|
GraphFrm.PtLabels := false;
|
||||||
|
|
||||||
|
SetNo := 1;
|
||||||
|
for ii := 1 to 6 do
|
||||||
|
begin
|
||||||
|
if (alphas[ii] <> 0.0) then
|
||||||
|
begin
|
||||||
|
LabelStr := format('%4.2f',[alphas[ii]]);
|
||||||
|
GraphFrm.SetLabels[SetNo] := LabelStr;
|
||||||
|
SetNo := SetNo + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
GraphFrm.Ypoints := YPlotPts;
|
||||||
|
GraphFrm.Xpoints := XPlotPts;
|
||||||
|
|
||||||
|
Screen.Cursor := oldCursor;
|
||||||
|
GraphFrm.ShowModal;
|
||||||
|
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Power of the z-test for Alternate Hypotheses');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := 'Alpha Levels: ';
|
||||||
|
for ii := 1 to 6 do
|
||||||
|
begin
|
||||||
|
if (alphas[ii] <> 0.0) then
|
||||||
|
begin
|
||||||
|
LabelStr := format(' %4.2f ',[alphas[ii]]);
|
||||||
|
outline := outline + LabelStr;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := '';
|
||||||
|
for ii := 1 to 80 do
|
||||||
|
begin
|
||||||
|
outline := format('X := %6.2f ',[XPlotPts[0,ii-1]]);
|
||||||
|
SetNo := 1;
|
||||||
|
for j := 1 to 6 do
|
||||||
|
begin
|
||||||
|
if (alphas[j] <> 0.0) then
|
||||||
|
begin
|
||||||
|
LabelStr := format('%4.3f ',[YPlotPts[SetNo-1,ii-1]]);
|
||||||
|
outline := outline + LabelStr;
|
||||||
|
SetNo := SetNo + 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
end;
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
|
||||||
|
// clean up the heap
|
||||||
|
XPlotPts := nil;
|
||||||
|
YPlotPts := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I pcurvesunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
343
applications/lazstats/source_orig/plotxyunit.lfm
Normal file
343
applications/lazstats/source_orig/plotxyunit.lfm
Normal file
@@ -0,0 +1,343 @@
|
|||||||
|
object PlotXYFrm: TPlotXYFrm
|
||||||
|
Left = 94
|
||||||
|
Height = 300
|
||||||
|
Top = 112
|
||||||
|
Width = 605
|
||||||
|
Caption = 'Plot X versus Y'
|
||||||
|
ClientHeight = 300
|
||||||
|
ClientWidth = 605
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 8
|
||||||
|
Width = 48
|
||||||
|
Caption = 'Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 249
|
||||||
|
Height = 16
|
||||||
|
Top = 26
|
||||||
|
Width = 77
|
||||||
|
Caption = 'X Axis Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 250
|
||||||
|
Height = 16
|
||||||
|
Top = 165
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Y Axis Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 6
|
||||||
|
Height = 259
|
||||||
|
Top = 29
|
||||||
|
Width = 183
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object XinBtn: TBitBtn
|
||||||
|
Left = 200
|
||||||
|
Height = 32
|
||||||
|
Top = 29
|
||||||
|
Width = 39
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = XinBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object XOutBtn: TBitBtn
|
||||||
|
Left = 200
|
||||||
|
Height = 32
|
||||||
|
Top = 64
|
||||||
|
Width = 39
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = XOutBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object YInBtn: TBitBtn
|
||||||
|
Left = 200
|
||||||
|
Height = 32
|
||||||
|
Top = 168
|
||||||
|
Width = 39
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = YInBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object YOutBtn: TBitBtn
|
||||||
|
Left = 200
|
||||||
|
Height = 32
|
||||||
|
Top = 208
|
||||||
|
Width = 39
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = YOutBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object XEdit: TEdit
|
||||||
|
Left = 247
|
||||||
|
Height = 23
|
||||||
|
Top = 48
|
||||||
|
Width = 106
|
||||||
|
TabOrder = 5
|
||||||
|
Text = 'XEdit'
|
||||||
|
end
|
||||||
|
object YEdit: TEdit
|
||||||
|
Left = 248
|
||||||
|
Height = 23
|
||||||
|
Top = 183
|
||||||
|
Width = 102
|
||||||
|
TabOrder = 6
|
||||||
|
Text = 'YEdit'
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 360
|
||||||
|
Height = 185
|
||||||
|
Top = 16
|
||||||
|
Width = 216
|
||||||
|
Caption = 'Options'
|
||||||
|
ClientHeight = 167
|
||||||
|
ClientWidth = 212
|
||||||
|
TabOrder = 7
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 27
|
||||||
|
Height = 16
|
||||||
|
Top = 105
|
||||||
|
Width = 75
|
||||||
|
Caption = '% Confidence'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object DescChk: TCheckBox
|
||||||
|
Left = 8
|
||||||
|
Height = 19
|
||||||
|
Top = 8
|
||||||
|
Width = 155
|
||||||
|
Caption = 'Print Descriptive Statistics'
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object ConfEdit: TEdit
|
||||||
|
Left = 107
|
||||||
|
Height = 23
|
||||||
|
Top = 100
|
||||||
|
Width = 57
|
||||||
|
TabOrder = 1
|
||||||
|
Text = '95.0'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 384
|
||||||
|
Height = 24
|
||||||
|
Top = 224
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 496
|
||||||
|
Height = 24
|
||||||
|
Top = 224
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 384
|
||||||
|
Height = 24
|
||||||
|
Top = 264
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 10
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 496
|
||||||
|
Height = 24
|
||||||
|
Top = 264
|
||||||
|
Width = 81
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 11
|
||||||
|
end
|
||||||
|
object LineChk: TCheckBox
|
||||||
|
Left = 376
|
||||||
|
Height = 19
|
||||||
|
Top = 64
|
||||||
|
Width = 146
|
||||||
|
Caption = 'Plot the Regression Line'
|
||||||
|
TabOrder = 12
|
||||||
|
end
|
||||||
|
object MeansChk: TCheckBox
|
||||||
|
Left = 376
|
||||||
|
Height = 19
|
||||||
|
Top = 88
|
||||||
|
Width = 99
|
||||||
|
Caption = 'Plot the Means'
|
||||||
|
TabOrder = 13
|
||||||
|
end
|
||||||
|
object ConfChk: TCheckBox
|
||||||
|
Left = 376
|
||||||
|
Height = 19
|
||||||
|
Top = 112
|
||||||
|
Width = 155
|
||||||
|
Caption = 'Plot the Confidence Band'
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object PrintChk: TCheckBox
|
||||||
|
Left = 376
|
||||||
|
Height = 19
|
||||||
|
Top = 165
|
||||||
|
Width = 144
|
||||||
|
Caption = 'Print Plot on the Printer'
|
||||||
|
TabOrder = 15
|
||||||
|
end
|
||||||
|
end
|
||||||
247
applications/lazstats/source_orig/plotxyunit.lrs
Normal file
247
applications/lazstats/source_orig/plotxyunit.lrs
Normal file
@@ -0,0 +1,247 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPlotXYFrm','FORMDATA',[
|
||||||
|
'TPF0'#10'TPlotXYFrm'#9'PlotXYFrm'#4'Left'#2'^'#6'Height'#3','#1#3'Top'#2'p'#5
|
||||||
|
+'Width'#3']'#2#7'Caption'#6#15'Plot X versus Y'#12'ClientHeight'#3','#1#11'C'
|
||||||
|
+'lientWidth'#3']'#2#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.30'#0#6'T'
|
||||||
|
+'Label'#6'Label1'#4'Left'#2#9#6'Height'#2#16#3'Top'#2#8#5'Width'#2'0'#7'Capt'
|
||||||
|
+'ion'#6#9'Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#249
|
||||||
|
+#0#6'Height'#2#16#3'Top'#2#26#5'Width'#2'M'#7'Caption'#6#15'X Axis Variable'
|
||||||
|
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#3#250#0#6'Height'#2#16#3
|
||||||
|
+'Top'#3#165#0#5'Width'#2'M'#7'Caption'#6#15'Y Axis Variable'#11'ParentColor'
|
||||||
|
+#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#6#6'Height'#3#3#1#3'Top'#2#29#5'Widt'
|
||||||
|
+'h'#3#183#0#10'ItemHeight'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#6'XinBtn'#4'Le'
|
||||||
|
+'ft'#3#200#0#6'Height'#2' '#3'Top'#2#29#5'Width'#2''''#10'Glyph.Data'#10':'#4
|
||||||
|
+#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0
|
||||||
|
+#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'
|
||||||
|
+#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255#152#211
|
||||||
|
+#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142#255#130
|
||||||
|
+#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'
|
||||||
|
+#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162#216#171
|
||||||
|
+#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255#142#204
|
||||||
|
+#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130#255'J'
|
||||||
|
+#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255
|
||||||
|
+'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161
|
||||||
|
+'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'XinBtnClick'#8'TabOrde'
|
||||||
|
+'r'#2#1#0#0#7'TBitBtn'#7'XOutBtn'#4'Left'#3#200#0#6'Height'#2' '#3'Top'#2'@'
|
||||||
|
+#5'Width'#2''''#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0
|
||||||
|
+#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0
|
||||||
|
,#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'
|
||||||
|
+#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'
|
||||||
|
+#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255
|
||||||
|
+'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'
|
||||||
|
+#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135
|
||||||
|
+#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'
|
||||||
|
+#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#12'XOutBtnClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#6'YInB'
|
||||||
|
+'tn'#4'Left'#3#200#0#6'Height'#2' '#3'Top'#3#168#0#5'Width'#2''''#10'Glyph.D'
|
||||||
|
+'ata'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0
|
||||||
|
+#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184
|
||||||
|
+#29'^ '#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177
|
||||||
|
+'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255
|
||||||
|
+'5'#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255
|
||||||
|
+#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142
|
||||||
|
+#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'
|
||||||
|
+#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162
|
||||||
|
+#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255
|
||||||
|
+#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130
|
||||||
|
+#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199
|
||||||
|
+'t'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255
|
||||||
|
+'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'
|
||||||
|
+#209#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'YInBtnClick'#8
|
||||||
|
+'TabOrder'#2#3#0#0#7'TBitBtn'#7'YOutBtn'#4'Left'#3#200#0#6'Height'#2' '#3'To'
|
||||||
|
+'p'#3#208#0#5'Width'#2''''#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0
|
||||||
|
+#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'
|
||||||
|
+#153'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161
|
||||||
|
+'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131
|
||||||
|
+#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/'
|
||||||
|
+'x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'
|
||||||
|
+#195'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157#255
|
||||||
|
+#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132
|
||||||
|
+#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255#154
|
||||||
|
,#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255
|
||||||
|
+#133#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'#201
|
||||||
|
+#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'
|
||||||
|
+#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'Num'
|
||||||
|
+'Glyphs'#2#0#7'OnClick'#7#12'YOutBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#5'XE'
|
||||||
|
+'dit'#4'Left'#3#247#0#6'Height'#2#23#3'Top'#2'0'#5'Width'#2'j'#8'TabOrder'#2
|
||||||
|
+#5#4'Text'#6#5'XEdit'#0#0#5'TEdit'#5'YEdit'#4'Left'#3#248#0#6'Height'#2#23#3
|
||||||
|
+'Top'#3#183#0#5'Width'#2'f'#8'TabOrder'#2#6#4'Text'#6#5'YEdit'#0#0#9'TGroupB'
|
||||||
|
+'ox'#9'GroupBox1'#4'Left'#3'h'#1#6'Height'#3#185#0#3'Top'#2#16#5'Width'#3#216
|
||||||
|
+#0#7'Caption'#6#7'Options'#12'ClientHeight'#3#167#0#11'ClientWidth'#3#212#0#8
|
||||||
|
+'TabOrder'#2#7#0#6'TLabel'#6'Label4'#4'Left'#2#27#6'Height'#2#16#3'Top'#2'i'
|
||||||
|
+#5'Width'#2'K'#7'Caption'#6#12'% Confidence'#11'ParentColor'#8#0#0#9'TCheckB'
|
||||||
|
+'ox'#7'DescChk'#4'Left'#2#8#6'Height'#2#19#3'Top'#2#8#5'Width'#3#155#0#7'Cap'
|
||||||
|
+'tion'#6#28'Print Descriptive Statistics'#8'TabOrder'#2#0#0#0#5'TEdit'#8'Con'
|
||||||
|
+'fEdit'#4'Left'#2'k'#6'Height'#2#23#3'Top'#2'd'#5'Width'#2'9'#8'TabOrder'#2#1
|
||||||
|
+#4'Text'#6#4'95.0'#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#128#1#6'Height'#2
|
||||||
|
+#24#3'Top'#3#224#0#5'Width'#2'Q'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'Reset'
|
||||||
|
+'BtnClick'#8'TabOrder'#2#8#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#240#1#6'Hei'
|
||||||
|
+'ght'#2#24#3'Top'#3#224#0#5'Width'#2'Q'#7'Caption'#6#6'Cancel'#11'ModalResul'
|
||||||
|
+'t'#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#9#0#0#7'TButton'#10'Co'
|
||||||
|
+'mputeBtn'#4'Left'#3#128#1#6'Height'#2#24#3'Top'#3#8#1#5'Width'#2'Q'#7'Capti'
|
||||||
|
+'on'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#10#0#0#7'TB'
|
||||||
|
+'utton'#9'ReturnBtn'#4'Left'#3#240#1#6'Height'#2#24#3'Top'#3#8#1#5'Width'#2
|
||||||
|
+'Q'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#7'OnClick'#7#14'ReturnBtnClic'
|
||||||
|
+'k'#8'TabOrder'#2#11#0#0#9'TCheckBox'#7'LineChk'#4'Left'#3'x'#1#6'Height'#2
|
||||||
|
+#19#3'Top'#2'@'#5'Width'#3#146#0#7'Caption'#6#24'Plot the Regression Line'#8
|
||||||
|
+'TabOrder'#2#12#0#0#9'TCheckBox'#8'MeansChk'#4'Left'#3'x'#1#6'Height'#2#19#3
|
||||||
|
+'Top'#2'X'#5'Width'#2'c'#7'Caption'#6#14'Plot the Means'#8'TabOrder'#2#13#0#0
|
||||||
|
+#9'TCheckBox'#7'ConfChk'#4'Left'#3'x'#1#6'Height'#2#19#3'Top'#2'p'#5'Width'#3
|
||||||
|
+#155#0#7'Caption'#6#24'Plot the Confidence Band'#8'TabOrder'#2#14#0#0#9'TChe'
|
||||||
|
+'ckBox'#8'PrintChk'#4'Left'#3'x'#1#6'Height'#2#19#3'Top'#3#165#0#5'Width'#3
|
||||||
|
+#144#0#7'Caption'#6#25'Print Plot on the Printer'#8'TabOrder'#2#15#0#0#0
|
||||||
|
]);
|
||||||
692
applications/lazstats/source_orig/plotxyunit.pas
Normal file
692
applications/lazstats/source_orig/plotxyunit.pas
Normal file
@@ -0,0 +1,692 @@
|
|||||||
|
unit PlotXYUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, Globals, Math, OutPutUnit,
|
||||||
|
FunctionsLib, DataProcs, BlankFrmUnit, Printers;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPlotXYFrm }
|
||||||
|
|
||||||
|
TPlotXYFrm = class(TForm)
|
||||||
|
ConfEdit: TEdit;
|
||||||
|
Label4: TLabel;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
DescChk: TCheckBox;
|
||||||
|
LineChk: TCheckBox;
|
||||||
|
MeansChk: TCheckBox;
|
||||||
|
ConfChk: TCheckBox;
|
||||||
|
PrintChk: TCheckBox;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
YEdit: TEdit;
|
||||||
|
Label3: TLabel;
|
||||||
|
XEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
XinBtn: TBitBtn;
|
||||||
|
XOutBtn: TBitBtn;
|
||||||
|
YInBtn: TBitBtn;
|
||||||
|
YOutBtn: TBitBtn;
|
||||||
|
Label1: TLabel;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
procedure XinBtnClick(Sender: TObject);
|
||||||
|
procedure XOutBtnClick(Sender: TObject);
|
||||||
|
procedure YInBtnClick(Sender: TObject);
|
||||||
|
procedure YOutBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
procedure plotxy(VAR Xpoints : DblDyneVec;
|
||||||
|
VAR Ypoints : DblDyneVec;
|
||||||
|
VAR UpConf : DblDyneVec;
|
||||||
|
VAR LowConf : DblDyneVec;
|
||||||
|
ConfBand : double;
|
||||||
|
Xmean, Ymean , R : double;
|
||||||
|
Slope, Intercept : double;
|
||||||
|
Xmax, Xmin, Ymax, Ymin : double;
|
||||||
|
N : integer);
|
||||||
|
|
||||||
|
procedure pplotxy(VAR Xpoints : DblDyneVec;
|
||||||
|
VAR Ypoints : DblDyneVec;
|
||||||
|
VAR UpConf : DblDyneVec;
|
||||||
|
VAR LowConf : DblDyneVec;
|
||||||
|
ConfBand : double;
|
||||||
|
Xmean, Ymean , R : double;
|
||||||
|
Slope, Intercept : double;
|
||||||
|
Xmax, Xmin, Ymax, Ymin : double;
|
||||||
|
N : integer);
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PlotXYFrm: TPlotXYFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPlotXYFrm }
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
var i : integer;
|
||||||
|
begin
|
||||||
|
XEdit.Text := '';
|
||||||
|
YEdit.Text := '';
|
||||||
|
ConfEdit.Text := '95.0';
|
||||||
|
DescChk.Checked := false;
|
||||||
|
LineChk.Checked := false;
|
||||||
|
MeansChk.Checked := false;
|
||||||
|
ConfChk.Checked := false;
|
||||||
|
PrintChk.Checked := false;
|
||||||
|
XInBtn.Visible := true;
|
||||||
|
XOutBtn.Visible := false;
|
||||||
|
YInBtn.Visible := true;
|
||||||
|
YOutBtn.Visible := false;
|
||||||
|
VarList.Items.Clear;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
PlotXYFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.XinBtnClick(Sender: TObject);
|
||||||
|
var index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
XEdit.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
XInBtn.Visible := false;
|
||||||
|
XOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.XOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(XEdit.Text);
|
||||||
|
XEdit.Text := '';
|
||||||
|
XInBtn.Visible := true;
|
||||||
|
XOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.YInBtnClick(Sender: TObject);
|
||||||
|
var index : integer;
|
||||||
|
begin
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
YEdit.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
YInBtn.Visible := false;
|
||||||
|
YOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.YOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(YEdit.Text);
|
||||||
|
YEdit.Text := '';
|
||||||
|
YInBtn.Visible := true;
|
||||||
|
YOutBtn.Visible := false;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
PlotXYFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
Xmin, Xmax, Ymin, Ymax, SSx, t, DF : double;
|
||||||
|
Xmean, Ymean, Xvariance, Yvariance, Xstddev, Ystddev, ConfBand : double;
|
||||||
|
X, Y, R, temp, SEPred, Slope, Intercept, predicted, sedata : double;
|
||||||
|
i, j : integer;
|
||||||
|
Xcol, Ycol, N, NoSelected : integer;
|
||||||
|
Xpoints : DblDyneVec;
|
||||||
|
Ypoints : DblDyneVec;
|
||||||
|
UpConf : DblDyneVec;
|
||||||
|
lowConf : DblDyneVec;
|
||||||
|
cellstring, outline : string;
|
||||||
|
ColNoSelected : IntDyneVec;
|
||||||
|
begin
|
||||||
|
SetLength(Xpoints,NoCases + 1);
|
||||||
|
SetLength(Ypoints,NoCases + 1);
|
||||||
|
SetLength(UpConf,NoCases + 1);
|
||||||
|
SetLength(lowConf,NoCases + 1);
|
||||||
|
SetLength(ColNoSelected,NoVariables);
|
||||||
|
|
||||||
|
Xcol := 0;
|
||||||
|
Ycol := 0;
|
||||||
|
|
||||||
|
for i := 1 to Novariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
if cellstring = XEdit.Text then Xcol := i;
|
||||||
|
if cellstring = YEdit.Text then Ycol := i;
|
||||||
|
end;
|
||||||
|
NoSelected := 2;
|
||||||
|
ColNoSelected[0] := Xcol;
|
||||||
|
ColNoSelected[1] := Ycol;
|
||||||
|
N := 0;
|
||||||
|
Xmax := -1.0e20;
|
||||||
|
Xmin := 1.0e20;
|
||||||
|
Ymax := -1.0e20;
|
||||||
|
Ymin := 1.0e20;
|
||||||
|
Xmean := 0.0;
|
||||||
|
Ymean := 0.0;
|
||||||
|
Xvariance := 0.0;
|
||||||
|
Yvariance := 0.0;
|
||||||
|
R := 0.0;
|
||||||
|
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
if Not GoodRecord(i,NoSelected,ColNoSelected) then continue;
|
||||||
|
N := N + 1;
|
||||||
|
X := StrToFloat(OS3MainFrm.DataGrid.Cells[Xcol,i]);
|
||||||
|
Y := StrToFloat(OS3MainFrm.DataGrid.Cells[Ycol,i]);
|
||||||
|
Xpoints[N] := X;
|
||||||
|
Ypoints[N] := Y;
|
||||||
|
if X > Xmax then Xmax := X;
|
||||||
|
if X < Xmin then Xmin := X;
|
||||||
|
if Y > Ymax then Ymax := Y;
|
||||||
|
if Y < Ymin then Ymin := Y;
|
||||||
|
Xmean := Xmean + X;
|
||||||
|
Ymean := Ymean + Y;
|
||||||
|
Xvariance := Xvariance + (X * X);
|
||||||
|
Yvariance := Yvariance + (Y * Y);
|
||||||
|
R := R + (X * Y);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// sort on X
|
||||||
|
for i := 1 to N - 1 do
|
||||||
|
begin
|
||||||
|
for j := i + 1 to N do
|
||||||
|
begin
|
||||||
|
if Xpoints[i] > Xpoints[j] then //swap
|
||||||
|
begin
|
||||||
|
temp := Xpoints[i];
|
||||||
|
Xpoints[i] := Xpoints[j];
|
||||||
|
Xpoints[j] := temp;
|
||||||
|
temp := Ypoints[i];
|
||||||
|
Ypoints[i] := Ypoints[j];
|
||||||
|
Ypoints[j] := temp;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// calculate statistics
|
||||||
|
Xvariance := Xvariance - (Xmean * Xmean / N);
|
||||||
|
SSx := Xvariance;
|
||||||
|
Xvariance := Xvariance / (N - 1);
|
||||||
|
Xstddev := sqrt(Xvariance);
|
||||||
|
|
||||||
|
Yvariance := Yvariance - (Ymean * Ymean / N);
|
||||||
|
Yvariance := Yvariance / (N - 1);
|
||||||
|
Ystddev := sqrt(Yvariance);
|
||||||
|
|
||||||
|
R := R - (Xmean * Ymean / N);
|
||||||
|
R := R / (N - 1);
|
||||||
|
R := R / (Xstddev * Ystddev);
|
||||||
|
SEPred := sqrt(1.0 - (R * R)) * Ystddev;
|
||||||
|
SEPred := SEPred * sqrt((N - 1) / (N - 2));
|
||||||
|
Xmean := Xmean / N;
|
||||||
|
Ymean := Ymean / N;
|
||||||
|
Slope := R * Ystddev / Xstddev;
|
||||||
|
Intercept := Ymean - Slope * Xmean;
|
||||||
|
|
||||||
|
// Now, print the descriptive statistics if requested
|
||||||
|
if DescChk.Checked then
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('X versus Y Plot');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
outline := format('X = %s, Y = %s from file: %s',[Xedit.Text,
|
||||||
|
YEdit.Text,OS3MainFrm.FileNameEdit.Text]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Variable Mean Variance Std.Dev.');
|
||||||
|
outline := format('%-10s%8.2f %8.2f %8.2f',
|
||||||
|
[XEdit.Text,Xmean,Xvariance,Xstddev]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('%-10s%8.2f %8.2f %8.2f',
|
||||||
|
[YEdit.Text,Ymean,Yvariance,Ystddev]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Correlation = %6.4f, Slope = %8.2f, Intercept = %8.2f',
|
||||||
|
[R, Slope, Intercept]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Standard Error of Estimate = %8.2f',[SEPred]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
outline := format('Number of good cases = %d',[N]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// get upper and lower confidence points for each X value
|
||||||
|
if ConfChk.Checked then
|
||||||
|
begin
|
||||||
|
ConfBand := StrToFloat(ConfEdit.Text) / 100.0;
|
||||||
|
DF := N - 2;
|
||||||
|
t := inverset(ConfBand,DF);
|
||||||
|
for i := 1 to N do
|
||||||
|
begin
|
||||||
|
X := Xpoints[i];
|
||||||
|
predicted := slope * X + intercept;
|
||||||
|
sedata := SEPred * sqrt(1.0 + (1.0 / N) + (sqr(X - Xmean) / SSx));
|
||||||
|
UpConf[i] := predicted + (t * sedata);
|
||||||
|
lowConf[i] := predicted - (t * sedata);
|
||||||
|
if UpConf[i] > Ymax then Ymax := UpConf[i];
|
||||||
|
if lowConf[i] < Ymin then Ymin := lowConf[i];
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else ConfBand := 0.0;
|
||||||
|
|
||||||
|
// plot the values (and optional line and confidence band if elected)
|
||||||
|
plotxy(Xpoints, Ypoints, UpConf, LowConf, ConfBand, Xmean, Ymean, R,
|
||||||
|
Slope, Intercept, Xmax, Xmin, Ymax, Ymin, N);
|
||||||
|
|
||||||
|
// print the same if elected
|
||||||
|
if PrintChk.Checked then
|
||||||
|
pplotxy(Xpoints, Ypoints, UpConf, LowConf, ConfBand, Xmean, Ymean,
|
||||||
|
R, Slope, Intercept, Xmax, Xmin, Ymax, Ymin, N);
|
||||||
|
|
||||||
|
// cleanup
|
||||||
|
ColNoSelected := nil;
|
||||||
|
lowConf := nil;
|
||||||
|
UpConf := nil;
|
||||||
|
Ypoints := nil;
|
||||||
|
Xpoints := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.plotxy(VAR Xpoints : DblDyneVec;
|
||||||
|
VAR Ypoints : DblDyneVec;
|
||||||
|
VAR UpConf : DblDyneVec;
|
||||||
|
VAR LowConf : DblDyneVec;
|
||||||
|
ConfBand : double;
|
||||||
|
Xmean, Ymean , R : double;
|
||||||
|
Slope, Intercept : double;
|
||||||
|
Xmax, Xmin, Ymax, Ymin : double;
|
||||||
|
N : integer);
|
||||||
|
var
|
||||||
|
i, xpos, ypos, hleft, hright, vtop, vbottom, imagewide : integer;
|
||||||
|
vhi, hwide, offset, strhi, imagehi : integer;
|
||||||
|
maxval, minval, valincr, Yvalue, Xvalue : double;
|
||||||
|
Title : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
BlankFrm.Image1.Canvas.Clear;
|
||||||
|
BlankFrm.Show;
|
||||||
|
Title := 'X versus Y PLOT Using File: ' + OS3MainFrm.FileNameEdit.Text;
|
||||||
|
BlankFrm.Caption := Title;
|
||||||
|
imagewide := BlankFrm.Image1.Width;
|
||||||
|
imagehi := BlankFrm.Image1.Height;
|
||||||
|
vtop := 20;
|
||||||
|
vbottom := round(imagehi) - 80;
|
||||||
|
vhi := vbottom - vtop;
|
||||||
|
hleft := 100;
|
||||||
|
hright := imagewide - 80;
|
||||||
|
hwide := hright - hleft;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
|
||||||
|
|
||||||
|
// Draw chart border
|
||||||
|
BlankFrm.Image1.Canvas.Rectangle(0,0,imagewide,imagehi);
|
||||||
|
|
||||||
|
// draw Means
|
||||||
|
if MeansChk.Checked then
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ( (Ymax - Ymean) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hright;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clGreen;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'MEAN ';
|
||||||
|
Title := Title + YEdit.Text;
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
ypos := ypos - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
xpos := round(hwide * ( (Xmean - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
ypos := vtop;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := vbottom;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clGreen;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'MEAN ';
|
||||||
|
Title := Title + XEdit.Text;
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextWidth(Title);
|
||||||
|
xpos := xpos - strhi div 2;
|
||||||
|
ypos := vtop - BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clWhite;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw slope line
|
||||||
|
if LineChk.Checked then
|
||||||
|
begin
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
Yvalue := (Xpoints[1] * slope) + intercept; // predicted score
|
||||||
|
ypos := round(vhi * ( (Ymax - Yvalue) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[1]- Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
Yvalue := (Xpoints[N] * slope) + intercept; // predicted score
|
||||||
|
ypos := round(vhi * ( (Ymax - Yvalue) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[N] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw horizontal axis
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(hleft,vbottom);
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(hright,vbottom);
|
||||||
|
valincr := (Xmax - Xmin) / 10.0;
|
||||||
|
for i := 1 to 11 do
|
||||||
|
begin
|
||||||
|
ypos := vbottom;
|
||||||
|
Xvalue := Xmin + valincr * (i - 1);
|
||||||
|
xpos := round(hwide * ((Xvalue - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := ypos + 10;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := format('%6.2f',[Xvalue]);
|
||||||
|
offset := BlankFrm.Image1.Canvas.TextWidth(Title) div 2;
|
||||||
|
xpos := xpos - offset;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
xpos := hleft + (hwide div 2) - (BlankFrm.Image1.Canvas.TextWidth(XEdit.Text) div 2);
|
||||||
|
ypos := vbottom + 20;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,XEdit.Text);
|
||||||
|
Title := format('R(X,Y) = %5.3f, Slope = %6.2f, Intercept = %6.2f',
|
||||||
|
[R,Slope,Intercept]);
|
||||||
|
xpos := hleft + (hwide div 2) - (BlankFrm.Image1.Canvas.TextWidth(Title) div 2);
|
||||||
|
ypos := ypos + 15;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
// Draw vertical axis
|
||||||
|
Title := YEdit.Text;
|
||||||
|
xpos := hleft - BlankFrm.Image1.Canvas.TextWidth(Title) div 2;
|
||||||
|
ypos := vtop - BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,YEdit.Text);
|
||||||
|
xpos := hleft;
|
||||||
|
ypos := vtop;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := vbottom;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
valincr := (Ymax - Ymin) / 10.0;
|
||||||
|
for i := 1 to 11 do
|
||||||
|
begin
|
||||||
|
Title := format('%8.2f',[Ymax - ((i-1)*valincr)]);
|
||||||
|
strhi := BlankFrm.Image1.Canvas.TextHeight(Title);
|
||||||
|
xpos := 10;
|
||||||
|
Yvalue := Ymax - (valincr * (i-1));
|
||||||
|
ypos := round(vhi * ( (Ymax - Yvalue) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop - strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
xpos := hleft;
|
||||||
|
ypos := ypos + strhi div 2;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hleft - 10;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw points for x and y pairs
|
||||||
|
for i := 1 to N do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ( (Ymax - Ypoints[i]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[i] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Color := clNavy;
|
||||||
|
BlankFrm.Image1.Canvas.Brush.Style := bsSolid;
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clNavy;
|
||||||
|
BlankFrm.Image1.Canvas.Ellipse(xpos,ypos,xpos+5,ypos+5);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw confidence bands if requested
|
||||||
|
if ConfBand <> 0.0 then
|
||||||
|
begin
|
||||||
|
BlankFrm.Image1.Canvas.Pen.Color := clRed;
|
||||||
|
ypos := round(vhi * ((Ymax - UpConf[1]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[1] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
for i := 2 to N do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ((Ymax - UpConf[i]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[i] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
ypos := round(vhi * ((Ymax - lowConf[1]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[1] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.MoveTo(xpos,ypos);
|
||||||
|
for i := 2 to N do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ((Ymax - lowConf[i]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[i] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
BlankFrm.Image1.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
|
procedure TPlotXYFrm.pplotxy(VAR Xpoints : DblDyneVec;
|
||||||
|
VAR Ypoints : DblDyneVec;
|
||||||
|
VAR UpConf : DblDyneVec;
|
||||||
|
VAR LowConf : DblDyneVec;
|
||||||
|
ConfBand : double;
|
||||||
|
Xmean, Ymean , R : double;
|
||||||
|
Slope, Intercept : double;
|
||||||
|
Xmax, Xmin, Ymax, Ymin : double;
|
||||||
|
N : integer);
|
||||||
|
var
|
||||||
|
i, xpos, ypos, hleft, hright, vtop, vbottom, imagewide : integer;
|
||||||
|
vhi, hwide, offset, strhi : integer;
|
||||||
|
imagehi, maxval, minval, valincr, Yvalue, Xvalue : double;
|
||||||
|
Title : string;
|
||||||
|
|
||||||
|
begin
|
||||||
|
Printer.Orientation := poLandscape;
|
||||||
|
Printer.BeginDoc;
|
||||||
|
Title := 'X versus Y PLOT Using File: ' + OS3MainFrm.FileNameEdit.Text;
|
||||||
|
strhi := Printer.Canvas.TextWidth(Title) div 2;
|
||||||
|
Printer.Canvas.TextOut(strhi,5,Title);
|
||||||
|
imagewide := Printer.PageWidth - 100;
|
||||||
|
imagehi := Printer.PageHeight - 100;
|
||||||
|
vtop := 120;
|
||||||
|
vbottom := round(imagehi) - 100;
|
||||||
|
vhi := vbottom - vtop;
|
||||||
|
hleft := 300;
|
||||||
|
hright := imagewide - 200;
|
||||||
|
hwide := hright - hleft;
|
||||||
|
Printer.Canvas.Pen.Color := clBlack;
|
||||||
|
Printer.Canvas.Brush.Color := clWhite;
|
||||||
|
|
||||||
|
// draw Means
|
||||||
|
if MeansChk.Checked then
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ( (Ymax - Ymean) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := hleft;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hright;
|
||||||
|
Printer.Canvas.Pen.Color := clGreen;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'MEAN ';
|
||||||
|
Title := Title + YEdit.Text;
|
||||||
|
strhi := Printer.Canvas.TextHeight(Title);
|
||||||
|
ypos := ypos - strhi div 2;
|
||||||
|
Printer.Canvas.Brush.Color := clWhite;
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
xpos := round(hwide * ( (Xmean - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
ypos := vtop;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := vbottom;
|
||||||
|
Printer.Canvas.Pen.Color := clGreen;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := 'MEAN ';
|
||||||
|
Title := Title + XEdit.Text;
|
||||||
|
strhi := Printer.Canvas.TextWidth(Title);
|
||||||
|
xpos := xpos - strhi div 2;
|
||||||
|
ypos := vtop - Printer.Canvas.TextHeight(Title);
|
||||||
|
Printer.Canvas.Brush.Color := clWhite;
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw slope line
|
||||||
|
if LineChk.Checked then
|
||||||
|
begin
|
||||||
|
Printer.Canvas.Pen.Color := clBlack;
|
||||||
|
Yvalue := (Xpoints[1] * slope) + intercept; // predicted score
|
||||||
|
ypos := round(vhi * ( (Ymax - Yvalue) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[1]- Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
Yvalue := (Xpoints[N] * slope) + intercept; // predicted score
|
||||||
|
ypos := round(vhi * ( (Ymax - Yvalue) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[N] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw horizontal axis
|
||||||
|
Printer.Canvas.Pen.Color := clBlack;
|
||||||
|
Printer.Canvas.MoveTo(hleft,vbottom);
|
||||||
|
Printer.Canvas.LineTo(hright,vbottom);
|
||||||
|
valincr := (Xmax - Xmin) / 10.0;
|
||||||
|
for i := 1 to 11 do
|
||||||
|
begin
|
||||||
|
ypos := vbottom;
|
||||||
|
Xvalue := Xmin + valincr * (i - 1);
|
||||||
|
xpos := round(hwide * ((Xvalue - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := ypos + 10;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
Title := format('%6.2f',[Xvalue]);
|
||||||
|
offset := Printer.Canvas.TextWidth(Title) div 2;
|
||||||
|
xpos := xpos - offset;
|
||||||
|
Printer.Canvas.Pen.Color := clBlack;
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
end;
|
||||||
|
xpos := hleft + (hwide div 2) - (Printer.Canvas.TextWidth(XEdit.Text) div 2);
|
||||||
|
ypos := vbottom + 40;
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,XEdit.Text);
|
||||||
|
Title := format('R(X,Y) = %5.3f, Slope = %6.2f, Intercept = %6.2f',
|
||||||
|
[R,Slope,Intercept]);
|
||||||
|
xpos := hleft + (hwide div 2) - (Printer.Canvas.TextWidth(Title) div 2);
|
||||||
|
ypos := ypos + 40;
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
|
||||||
|
// Draw vertical axis
|
||||||
|
Title := YEdit.Text;
|
||||||
|
xpos := hleft - Printer.Canvas.TextWidth(Title) div 2;
|
||||||
|
ypos := vtop - Printer.Canvas.TextHeight(Title);
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,YEdit.Text);
|
||||||
|
xpos := hleft;
|
||||||
|
ypos := vtop;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
ypos := vbottom;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
valincr := (Ymax - Ymin) / 10.0;
|
||||||
|
for i := 1 to 11 do
|
||||||
|
begin
|
||||||
|
Title := format('%8.2f',[Ymax - ((i-1)*valincr)]);
|
||||||
|
strhi := Printer.Canvas.TextHeight(Title);
|
||||||
|
xpos := 10;
|
||||||
|
Yvalue := Ymax - (valincr * (i-1));
|
||||||
|
ypos := round(vhi * ( (Ymax - Yvalue) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop - strhi div 2;
|
||||||
|
Printer.Canvas.TextOut(xpos,ypos,Title);
|
||||||
|
xpos := hleft;
|
||||||
|
ypos := ypos + strhi div 2;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
xpos := hleft - 10;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw points for x and y pairs
|
||||||
|
for i := 1 to N do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ( (Ymax - Ypoints[i]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[i] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.Pen.Color := clBlack;
|
||||||
|
Printer.Canvas.Ellipse(xpos,ypos,xpos+15,ypos+15);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// draw confidence bands if requested
|
||||||
|
if ConfBand <> 0.0 then
|
||||||
|
begin
|
||||||
|
Printer.Canvas.Pen.Color := clRed;
|
||||||
|
ypos := round(vhi * ((Ymax - UpConf[1]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[1] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
for i := 2 to N do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ((Ymax - UpConf[i]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[i] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
ypos := round(vhi * ((Ymax - lowConf[1]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[1] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.MoveTo(xpos,ypos);
|
||||||
|
for i := 2 to N do
|
||||||
|
begin
|
||||||
|
ypos := round(vhi * ((Ymax - lowConf[i]) / (Ymax - Ymin)));
|
||||||
|
ypos := ypos + vtop;
|
||||||
|
xpos := round(hwide * ( (Xpoints[i] - Xmin) / (Xmax - Xmin)));
|
||||||
|
xpos := xpos + hleft;
|
||||||
|
Printer.Canvas.LineTo(xpos,ypos);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
Printer.EndDoc;
|
||||||
|
Printer.Orientation := poPortrait;
|
||||||
|
end;
|
||||||
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I plotxyunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
56
applications/lazstats/source_orig/pointsunit.lfm
Normal file
56
applications/lazstats/source_orig/pointsunit.lfm
Normal file
@@ -0,0 +1,56 @@
|
|||||||
|
object PointsFrm: TPointsFrm
|
||||||
|
Left = 7
|
||||||
|
Height = 470
|
||||||
|
Top = 144
|
||||||
|
Width = 736
|
||||||
|
Caption = 'Points Form'
|
||||||
|
ClientHeight = 470
|
||||||
|
ClientWidth = 736
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Image1: TImage
|
||||||
|
Left = 0
|
||||||
|
Height = 422
|
||||||
|
Top = 0
|
||||||
|
Width = 736
|
||||||
|
Align = alClient
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Height = 48
|
||||||
|
Top = 422
|
||||||
|
Width = 736
|
||||||
|
Align = alBottom
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
ClientHeight = 44
|
||||||
|
ClientWidth = 732
|
||||||
|
TabOrder = 0
|
||||||
|
object MsgEdit: TEdit
|
||||||
|
Left = 17
|
||||||
|
Height = 23
|
||||||
|
Top = 14
|
||||||
|
Width = 335
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'MsgEdit'
|
||||||
|
end
|
||||||
|
object PrintBtn: TButton
|
||||||
|
Left = 457
|
||||||
|
Height = 25
|
||||||
|
Top = 14
|
||||||
|
Width = 74
|
||||||
|
Caption = 'Print'
|
||||||
|
OnClick = PrintBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 561
|
||||||
|
Height = 24
|
||||||
|
Top = 14
|
||||||
|
Width = 74
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
17
applications/lazstats/source_orig/pointsunit.lrs
Normal file
17
applications/lazstats/source_orig/pointsunit.lrs
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPointsFrm','FORMDATA',[
|
||||||
|
'TPF0'#10'TPointsFrm'#9'PointsFrm'#4'Left'#2#7#6'Height'#3#214#1#3'Top'#3#144
|
||||||
|
+#0#5'Width'#3#224#2#7'Caption'#6#11'Points Form'#12'ClientHeight'#3#214#1#11
|
||||||
|
+'ClientWidth'#3#224#2#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#6'0.9.30'#0#6
|
||||||
|
+'TImage'#6'Image1'#4'Left'#2#0#6'Height'#3#166#1#3'Top'#2#0#5'Width'#3#224#2
|
||||||
|
+#5'Align'#7#8'alClient'#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'0'#3
|
||||||
|
+'Top'#3#166#1#5'Width'#3#224#2#5'Align'#7#8'alBottom'#11'BorderStyle'#7#8'bs'
|
||||||
|
+'Single'#12'ClientHeight'#2','#11'ClientWidth'#3#220#2#8'TabOrder'#2#0#0#5'T'
|
||||||
|
+'Edit'#7'MsgEdit'#4'Left'#2#17#6'Height'#2#23#3'Top'#2#14#5'Width'#3'O'#1#8
|
||||||
|
+'TabOrder'#2#0#4'Text'#6#7'MsgEdit'#0#0#7'TButton'#8'PrintBtn'#4'Left'#3#201
|
||||||
|
+#1#6'Height'#2#25#3'Top'#2#14#5'Width'#2'J'#7'Caption'#6#5'Print'#7'OnClick'
|
||||||
|
+#7#13'PrintBtnClick'#8'TabOrder'#2#1#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3'1'
|
||||||
|
+#2#6'Height'#2#24#3'Top'#2#14#5'Width'#2'J'#7'Caption'#6#6'Return'#11'ModalR'
|
||||||
|
+'esult'#2#1#7'OnClick'#7#14'ReturnBtnClick'#8'TabOrder'#2#2#0#0#0#0
|
||||||
|
]);
|
||||||
211
applications/lazstats/source_orig/pointsunit.pas
Normal file
211
applications/lazstats/source_orig/pointsunit.pas
Normal file
@@ -0,0 +1,211 @@
|
|||||||
|
unit PointsUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
ExtCtrls, StdCtrls, Printers, Globals;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPointsFrm }
|
||||||
|
|
||||||
|
TPointsFrm = class(TForm)
|
||||||
|
Image1: TImage;
|
||||||
|
PrintBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
MsgEdit: TEdit;
|
||||||
|
Panel1: TPanel;
|
||||||
|
// procedure FormPaint(Sender: TObject);
|
||||||
|
// procedure FormResize(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure PrintBtnClick(Sender: TObject);
|
||||||
|
procedure PtsPlot(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
pts : DblDyneVec;
|
||||||
|
avg : DblDyneVec;
|
||||||
|
LabelOne : string;
|
||||||
|
LabelTwo : string;
|
||||||
|
NoCases : integer;
|
||||||
|
Title : string;
|
||||||
|
// Caption : string;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PointsFrm: TPointsFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPointsFrm }
|
||||||
|
|
||||||
|
procedure TPointsFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Image1.Canvas.Clear;
|
||||||
|
PtsPlot(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPointsFrm.PrintBtnClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
r : Trect;
|
||||||
|
begin
|
||||||
|
with Printer do
|
||||||
|
begin
|
||||||
|
Printer.Orientation := poPortrait;
|
||||||
|
r := Rect(20,20,printer.pagewidth-20,printer.pageheight div 2 + 20);
|
||||||
|
BeginDoc;
|
||||||
|
Canvas.StretchDraw(r,Image1.Picture.BitMap);
|
||||||
|
EndDoc;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPointsFrm.PtsPlot(Sender: TObject);
|
||||||
|
var
|
||||||
|
topmarg, botmarg, leftmarg, rightmarg, verthi, horizlong : integer;
|
||||||
|
X, Y, yincrement, labelheight, i , j : integer;
|
||||||
|
labelstring, labelstr : string;
|
||||||
|
Xstep, Ystep, yprop, scaley, xprop, scalex, Min, Max : double;
|
||||||
|
begin
|
||||||
|
height := PointsFrm.Image1.Canvas.Height;
|
||||||
|
width := PointsFrm.Image1.Canvas.Width;
|
||||||
|
topmarg := height div 10;
|
||||||
|
verthi := height - (2 * topmarg);
|
||||||
|
botmarg := topmarg + verthi;
|
||||||
|
botmarg := height;
|
||||||
|
leftmarg := width div 10;
|
||||||
|
horizlong := width - 2 * leftmarg;
|
||||||
|
rightmarg := leftmarg + horizlong;
|
||||||
|
// get max and min of values to plot
|
||||||
|
Max := -1000.0;
|
||||||
|
Min := 1000.0;
|
||||||
|
for i := 0 to NoCases - 1 do
|
||||||
|
begin
|
||||||
|
if (pts[i] > Max) then Max := pts[i];
|
||||||
|
if (avg[i] > Max) then Max := avg[i];
|
||||||
|
if (pts[i] < Min) then Min := pts[i];
|
||||||
|
if (avg[i] < Min) then Min := avg[i];
|
||||||
|
end;
|
||||||
|
yincrement := verthi div 20;
|
||||||
|
PointsFrm.Image1.Canvas.Pen.Color := clBlack;
|
||||||
|
|
||||||
|
// print title at top, centered
|
||||||
|
labelstring := 'Plot of Original and ';
|
||||||
|
labelstring := labelstring + Title;
|
||||||
|
// labelstring := labelstring + DepVarEdit.Text;
|
||||||
|
X := (leftmarg + horizlong div 2) - (PointsFrm.Image1.Canvas.TextWidth(labelstring) div 2);
|
||||||
|
Y := 1;
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
|
||||||
|
// draw left axis
|
||||||
|
X := leftmarg;
|
||||||
|
Y := botmarg;
|
||||||
|
PointsFrm.Image1.Canvas.MoveTo(X,Y);
|
||||||
|
Y := topmarg;
|
||||||
|
PointsFrm.Image1.Canvas.LineTo(X,Y);
|
||||||
|
|
||||||
|
// scale to left of vertical axis
|
||||||
|
Ystep := (Max - Min) / 20;
|
||||||
|
for i := 0 to 20 do
|
||||||
|
begin
|
||||||
|
Y := topmarg + (i * yincrement);
|
||||||
|
labelstr := format('%4.2f -',[Max - (Ystep * i)]);
|
||||||
|
labelstring := labelstr;
|
||||||
|
X := leftmarg - PointsFrm.Image1.Canvas.TextWidth(labelstring);
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Make legend axis on bottom
|
||||||
|
X := leftmarg;
|
||||||
|
Y := botmarg;
|
||||||
|
Xstep := horizlong / 20;
|
||||||
|
xprop := NoCases / 20;
|
||||||
|
PointsFrm.Image1.Canvas.MoveTo(X,Y);
|
||||||
|
X := rightmarg;
|
||||||
|
PointsFrm.Image1.Canvas.LineTo(X,Y);
|
||||||
|
for i := 0 to 20 do
|
||||||
|
begin
|
||||||
|
X := leftmarg + round(Xstep * i);
|
||||||
|
labelstring := '|';
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
labelstring := IntToStr(round((xprop * i) + 1));
|
||||||
|
Y := Y + 5;
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
Y := botmarg;
|
||||||
|
end;
|
||||||
|
labelstring := 'CASES';
|
||||||
|
X := (leftmarg + horizlong div 2) - (PointsFrm.Canvas.TextWidth(labelstring) div 2);
|
||||||
|
Y := botmarg + PointsFrm.Image1.Canvas.TextHeight(labelstring);
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
|
||||||
|
// Plot lines from point to point
|
||||||
|
PointsFrm.Image1.Canvas.Pen.Color := clRed;
|
||||||
|
for i := 0 to NoCases - 1 do
|
||||||
|
begin
|
||||||
|
yprop := (Max - pts[i]) / (Max - Min);
|
||||||
|
scaley := yprop * verthi;
|
||||||
|
xprop := i / NoCases;
|
||||||
|
scalex := xprop * horizlong;
|
||||||
|
X := leftmarg + round(scalex);
|
||||||
|
Y := topmarg + round(scaley);
|
||||||
|
if (i = 0) then PointsFrm.Image1.Canvas.MoveTo(X,Y)
|
||||||
|
else PointsFrm.Image1.Canvas.LineTo(X,Y);
|
||||||
|
PointsFrm.Image1.Canvas.Ellipse(X-3,Y-3,X+3,Y+3);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Plot average points
|
||||||
|
PointsFrm.Image1.Canvas.Pen.Color := clBlue;
|
||||||
|
for i := 0 to NoCases - 1 do
|
||||||
|
begin
|
||||||
|
yprop := (Max - avg[i]) / (Max - Min);
|
||||||
|
scaley := yprop * verthi;
|
||||||
|
xprop := i / NoCases;
|
||||||
|
scalex := xprop * horizlong;
|
||||||
|
X := leftmarg + round(scalex);
|
||||||
|
Y := topmarg + round(scaley);
|
||||||
|
if (i = 0) then PointsFrm.Image1.Canvas.MoveTo(X,Y)
|
||||||
|
else PointsFrm.Image1.Canvas.LineTo(X,Y);
|
||||||
|
PointsFrm.Image1.Canvas.Ellipse(X-3,Y-3,X+3,Y+3);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Show legend at right
|
||||||
|
X := rightmarg;
|
||||||
|
labelstring := LabelOne;
|
||||||
|
labelheight := PointsFrm.Image1.Canvas.TextHeight(labelstring);
|
||||||
|
Y := 5 * labelheight;
|
||||||
|
PointsFrm.Image1.Canvas.Font.Color := clRed;
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
labelstring := LabelTwo;
|
||||||
|
Y := 6 * labelheight;
|
||||||
|
PointsFrm.Image1.Canvas.Font.Color := clBlue;
|
||||||
|
PointsFrm.Image1.Canvas.TextOut(X,Y,labelstring);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPointsFrm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
PointsFrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{
|
||||||
|
procedure TPointsFrm.FormPaint(Sender: TObject);
|
||||||
|
begin
|
||||||
|
PtsPlot;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPointsFrm.FormResize(Sender: TObject);
|
||||||
|
begin
|
||||||
|
PtsPlot;
|
||||||
|
end;
|
||||||
|
}
|
||||||
|
initialization
|
||||||
|
{$I pointsunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
482
applications/lazstats/source_orig/polydifunit.lfm
Normal file
482
applications/lazstats/source_orig/polydifunit.lfm
Normal file
@@ -0,0 +1,482 @@
|
|||||||
|
object PolyDIFFrm: TPolyDIFFrm
|
||||||
|
Left = 122
|
||||||
|
Height = 401
|
||||||
|
Top = 100
|
||||||
|
Width = 565
|
||||||
|
Caption = 'Polytomous Item DIF'
|
||||||
|
ClientHeight = 401
|
||||||
|
ClientWidth = 565
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Caption = 'Available Variables'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 224
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 72
|
||||||
|
Caption = 'Items Selected'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 220
|
||||||
|
Height = 14
|
||||||
|
Top = 216
|
||||||
|
Width = 85
|
||||||
|
Caption = 'Grouping Variable'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 384
|
||||||
|
Height = 14
|
||||||
|
Top = 8
|
||||||
|
Width = 114
|
||||||
|
Caption = 'No. of Grouping Levels:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 384
|
||||||
|
Height = 14
|
||||||
|
Top = 40
|
||||||
|
Width = 112
|
||||||
|
Caption = 'Enter bounds for levels'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 384
|
||||||
|
Height = 14
|
||||||
|
Top = 64
|
||||||
|
Width = 28
|
||||||
|
Caption = 'Down'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 480
|
||||||
|
Height = 14
|
||||||
|
Top = 64
|
||||||
|
Width = 14
|
||||||
|
Caption = 'Up'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 512
|
||||||
|
Height = 14
|
||||||
|
Top = 64
|
||||||
|
Width = 26
|
||||||
|
Caption = 'Level'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 431
|
||||||
|
Height = 14
|
||||||
|
Top = 128
|
||||||
|
Width = 63
|
||||||
|
Caption = 'Lower Bound'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 431
|
||||||
|
Height = 14
|
||||||
|
Top = 160
|
||||||
|
Width = 63
|
||||||
|
Caption = 'Upper Bound'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 11
|
||||||
|
Height = 14
|
||||||
|
Top = 296
|
||||||
|
Width = 94
|
||||||
|
Caption = 'Lowest Item Score:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 14
|
||||||
|
Top = 328
|
||||||
|
Width = 96
|
||||||
|
Caption = 'Highest Item Score:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 215
|
||||||
|
Height = 14
|
||||||
|
Top = 289
|
||||||
|
Width = 115
|
||||||
|
Caption = 'Reference Group Code:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 216
|
||||||
|
Height = 14
|
||||||
|
Top = 328
|
||||||
|
Width = 90
|
||||||
|
Caption = 'Focal Group Code:'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object VarList: TListBox
|
||||||
|
Left = 8
|
||||||
|
Height = 253
|
||||||
|
Top = 24
|
||||||
|
Width = 157
|
||||||
|
ItemHeight = 0
|
||||||
|
MultiSelect = True
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object ItemInBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 30
|
||||||
|
Top = 24
|
||||||
|
Width = 33
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ItemInBtnClick
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object ItemOutBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 30
|
||||||
|
Top = 56
|
||||||
|
Width = 33
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = ItemOutBtnClick
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object AllBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 30
|
||||||
|
Top = 112
|
||||||
|
Width = 33
|
||||||
|
Caption = 'ALL'
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = AllBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object GrpInBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 30
|
||||||
|
Top = 208
|
||||||
|
Width = 33
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00216324B81D5E2006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF002A702F38256929F7216324D9FFFFFF00FFFFFF00FFFFFF00FFFFFF0061BE
|
||||||
|
6DFF5DB868FF58B162FF53A95CFF4DA156FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF3F8845FF59A15EFF448B49FF216324CFFFFFFF00FFFFFF00FFFFFF0065C3
|
||||||
|
71FFA0D7A9FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF458C4AFF216324C4FFFFFF00FFFFFF0068C7
|
||||||
|
74FFA5DAAEFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF4A9150FF256929C9FFFFFF00FFFFFF0068C7
|
||||||
|
74FF68C774FF65C371FF61BE6DFF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF5AA362FF559D5CFF2F7835D1FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00419149F73B8842DBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0047994FBB41914906FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = GrpInBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object GrpOutBtn: TBitBtn
|
||||||
|
Left = 176
|
||||||
|
Height = 30
|
||||||
|
Top = 240
|
||||||
|
Width = 33
|
||||||
|
Glyph.Data = {
|
||||||
|
36040000424D3604000000000000360000002800000010000000100000000100
|
||||||
|
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF004DA1560647994FB8FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0053A95CD94DA156F747994F38FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF005DB868CF71BE7BFF7AC183FF5BAA64FF47994FFF419149FF3B8842FF3580
|
||||||
|
3BFF2F7835FF2A702FFF256929FF216324FF1D5E20FFFFFFFF00FFFFFF0065C3
|
||||||
|
71C47BC886FF9CD5A5FF98D3A1FF94D09DFF90CE98FF8BCB93FF87C98EFF82C6
|
||||||
|
89FF7EC384FF7AC180FF76BE7CFF72BD78FF216324FFFFFFFF00FFFFFF0068C7
|
||||||
|
74C97FCC8AFFA2D8ABFF9ED6A7FF9AD4A3FF96D29FFF93CF9AFF8ECC95FF89CA
|
||||||
|
90FF85C78BFF81C587FF7DC282FF78C07EFF256929FFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF0068C774D180CD8BFF7CC987FF5DB868FF58B162FF53A95CFF4DA156FF4799
|
||||||
|
4FFF419149FF3B8842FF35803BFF2F7835FF2A702FFFFFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C774DB65C371F7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF0068C7740668C774BBFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
|
||||||
|
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
|
||||||
|
}
|
||||||
|
NumGlyphs = 0
|
||||||
|
OnClick = GrpOutBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object ItemsList: TListBox
|
||||||
|
Left = 220
|
||||||
|
Height = 183
|
||||||
|
Top = 24
|
||||||
|
Width = 148
|
||||||
|
ItemHeight = 0
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object GroupVarEdit: TEdit
|
||||||
|
Left = 220
|
||||||
|
Height = 21
|
||||||
|
Top = 232
|
||||||
|
Width = 147
|
||||||
|
TabOrder = 7
|
||||||
|
Text = 'GroupVarEdit'
|
||||||
|
end
|
||||||
|
object LevelsEdit: TEdit
|
||||||
|
Left = 506
|
||||||
|
Height = 21
|
||||||
|
Top = 1
|
||||||
|
Width = 40
|
||||||
|
OnExit = LevelsEditExit
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object LevelScroll: TScrollBar
|
||||||
|
Left = 384
|
||||||
|
Height = 18
|
||||||
|
Top = 80
|
||||||
|
Width = 111
|
||||||
|
Min = 1
|
||||||
|
PageSize = 0
|
||||||
|
Position = 1
|
||||||
|
TabOrder = 9
|
||||||
|
OnScroll = LevelScrollScroll
|
||||||
|
end
|
||||||
|
object LevelNoEdit: TEdit
|
||||||
|
Left = 512
|
||||||
|
Height = 21
|
||||||
|
Top = 80
|
||||||
|
Width = 39
|
||||||
|
TabOrder = 10
|
||||||
|
Text = 'LevelNoEdit'
|
||||||
|
end
|
||||||
|
object LowBoundEdit: TEdit
|
||||||
|
Left = 512
|
||||||
|
Height = 21
|
||||||
|
Top = 121
|
||||||
|
Width = 40
|
||||||
|
OnExit = LowBoundEditExit
|
||||||
|
TabOrder = 11
|
||||||
|
Text = 'LowBoundEdit'
|
||||||
|
end
|
||||||
|
object UpBoundEdit: TEdit
|
||||||
|
Left = 511
|
||||||
|
Height = 21
|
||||||
|
Top = 153
|
||||||
|
Width = 40
|
||||||
|
OnExit = UpBoundEditExit
|
||||||
|
TabOrder = 12
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object GroupBox1: TGroupBox
|
||||||
|
Left = 381
|
||||||
|
Height = 50
|
||||||
|
Top = 188
|
||||||
|
Width = 170
|
||||||
|
Caption = 'Option:'
|
||||||
|
ClientHeight = 32
|
||||||
|
ClientWidth = 166
|
||||||
|
TabOrder = 13
|
||||||
|
object GraphChk: TCheckBox
|
||||||
|
Left = 7
|
||||||
|
Height = 17
|
||||||
|
Top = 5
|
||||||
|
Width = 124
|
||||||
|
Caption = 'Graph of Level Means'
|
||||||
|
Checked = True
|
||||||
|
State = cbChecked
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object LowScoreEdit: TEdit
|
||||||
|
Left = 122
|
||||||
|
Height = 21
|
||||||
|
Top = 289
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 14
|
||||||
|
end
|
||||||
|
object HiScoreEdit: TEdit
|
||||||
|
Left = 122
|
||||||
|
Height = 21
|
||||||
|
Top = 321
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 15
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object RefGrpEdit: TEdit
|
||||||
|
Left = 336
|
||||||
|
Height = 21
|
||||||
|
Top = 280
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 16
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object TrgtGrpEdit: TEdit
|
||||||
|
Left = 336
|
||||||
|
Height = 21
|
||||||
|
Top = 321
|
||||||
|
Width = 43
|
||||||
|
TabOrder = 17
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 104
|
||||||
|
Height = 28
|
||||||
|
Top = 360
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 18
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 200
|
||||||
|
Height = 28
|
||||||
|
Top = 360
|
||||||
|
Width = 72
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
OnClick = CancelBtnClick
|
||||||
|
TabOrder = 19
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 296
|
||||||
|
Height = 28
|
||||||
|
Top = 360
|
||||||
|
Width = 71
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 20
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 384
|
||||||
|
Height = 28
|
||||||
|
Top = 360
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
OnClick = ReturnBtnClick
|
||||||
|
TabOrder = 21
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 138
|
||||||
|
Left = 11
|
||||||
|
Height = 28
|
||||||
|
Top = 360
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 22
|
||||||
|
end
|
||||||
|
end
|
||||||
278
applications/lazstats/source_orig/polydifunit.lrs
Normal file
278
applications/lazstats/source_orig/polydifunit.lrs
Normal file
@@ -0,0 +1,278 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPolyDIFFrm','FORMDATA',[
|
||||||
|
'TPF0'#11'TPolyDIFFrm'#10'PolyDIFFrm'#4'Left'#2'z'#6'Height'#3#145#1#3'Top'#2
|
||||||
|
+'d'#5'Width'#3'5'#2#7'Caption'#6#19'Polytomous Item DIF'#12'ClientHeight'#3
|
||||||
|
+#145#1#11'ClientWidth'#3'5'#2#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9'
|
||||||
|
+'.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#9#6'Height'#2#14#3'Top'#2#8#5'Width'
|
||||||
|
+#2'Z'#7'Caption'#6#19'Available Variables'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||||
|
+'Label2'#4'Left'#3#224#0#6'Height'#2#14#3'Top'#2#8#5'Width'#2'H'#7'Caption'#6
|
||||||
|
+#14'Items Selected'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#3#220#0
|
||||||
|
+#6'Height'#2#14#3'Top'#3#216#0#5'Width'#2'U'#7'Caption'#6#17'Grouping Variab'
|
||||||
|
+'le'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#128#1#6'Height'#2#14
|
||||||
|
+#3'Top'#2#8#5'Width'#2'r'#7'Caption'#6#23'No. of Grouping Levels:'#11'Parent'
|
||||||
|
+'Color'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3#128#1#6'Height'#2#14#3'Top'#2'('
|
||||||
|
+#5'Width'#2'p'#7'Caption'#6#23'Enter bounds for levels'#11'ParentColor'#8#0#0
|
||||||
|
+#6'TLabel'#6'Label6'#4'Left'#3#128#1#6'Height'#2#14#3'Top'#2'@'#5'Width'#2#28
|
||||||
|
+#7'Caption'#6#4'Down'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#3#224
|
||||||
|
+#1#6'Height'#2#14#3'Top'#2'@'#5'Width'#2#14#7'Caption'#6#2'Up'#11'ParentColo'
|
||||||
|
+'r'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#0#2#6'Height'#2#14#3'Top'#2'@'#5'Wid'
|
||||||
|
+'th'#2#26#7'Caption'#6#5'Level'#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4
|
||||||
|
+'Left'#3#175#1#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2'?'#7'Caption'#6#11'L'
|
||||||
|
+'ower Bound'#11'ParentColor'#8#0#0#6'TLabel'#7'Label10'#4'Left'#3#175#1#6'He'
|
||||||
|
+'ight'#2#14#3'Top'#3#160#0#5'Width'#2'?'#7'Caption'#6#11'Upper Bound'#11'Par'
|
||||||
|
+'entColor'#8#0#0#6'TLabel'#7'Label11'#4'Left'#2#11#6'Height'#2#14#3'Top'#3'('
|
||||||
|
+#1#5'Width'#2'^'#7'Caption'#6#18'Lowest Item Score:'#11'ParentColor'#8#0#0#6
|
||||||
|
+'TLabel'#7'Label12'#4'Left'#2#9#6'Height'#2#14#3'Top'#3'H'#1#5'Width'#2'`'#7
|
||||||
|
+'Caption'#6#19'Highest Item Score:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label1'
|
||||||
|
+'3'#4'Left'#3#215#0#6'Height'#2#14#3'Top'#3'!'#1#5'Width'#2's'#7'Caption'#6
|
||||||
|
+#21'Reference Group Code:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label14'#4'Left'
|
||||||
|
+#3#216#0#6'Height'#2#14#3'Top'#3'H'#1#5'Width'#2'Z'#7'Caption'#6#17'Focal Gr'
|
||||||
|
+'oup Code:'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#8#6'Heigh'
|
||||||
|
+'t'#3#253#0#3'Top'#2#24#5'Width'#3#157#0#10'ItemHeight'#2#0#11'MultiSelect'#9
|
||||||
|
+#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'ItemInBtn'#4'Left'#3#176#0#6'Height'#2#30#3
|
||||||
|
+'Top'#2#24#5'Width'#2'!'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0
|
||||||
|
+#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0'!c$'#184#29'^ '#6#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'*p/8%i)'#247'!c$'#217#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
|
||||||
|
+#0'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'?'#136'E'#255'Y'#161'^'
|
||||||
|
+#255'D'#139'I'#255'!c$'#207#255#255#255#0#255#255#255#0#255#255#255#0'e'#195
|
||||||
|
+'q'#255#160#215#169#255#156#213#165#255#152#211#161#255#148#208#157#255#144
|
||||||
|
+#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195#132#255
|
||||||
|
+'z'#193#128#255'v'#190'|'#255'E'#140'J'#255'!c$'#196#255#255#255#0#255#255
|
||||||
|
+#255#0'h'#199't'#255#165#218#174#255#162#216#171#255#158#214#167#255#154#212
|
||||||
|
+#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144#255#133
|
||||||
|
+#199#139#255#129#197#135#255'}'#194#130#255'J'#145'P'#255'%i)'#201#255#255
|
||||||
|
+#255#0#255#255#255#0'h'#199't'#255'h'#199't'#255'e'#195'q'#255'a'#190'm'#255
|
||||||
|
+']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145
|
||||||
|
+'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'#209#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,'A'#145'I'#247';'#136'B'#219#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+'G'#153'O'#187'A'#145'I'#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyp'
|
||||||
|
+'hs'#2#0#7'OnClick'#7#14'ItemInBtnClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#10'I'
|
||||||
|
+'temOutBtn'#4'Left'#3#176#0#6'Height'#2#30#3'Top'#2'8'#5'Width'#2'!'#10'Glyp'
|
||||||
|
+'h.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
|
||||||
|
+#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'M'#161'V'#6'G'#153'O'#184#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217'M'#161'V'#247'G'#153'O8'#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193#131#255'['#170'd'#255'G'
|
||||||
|
+#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255'%i)'
|
||||||
|
+#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255#0'e'#195'q'#196'{'#200#134
|
||||||
|
+#255#156#213#165#255#152#211#161#255#148#208#157#255#144#206#152#255#139#203
|
||||||
|
+#147#255#135#201#142#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190
|
||||||
|
+'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0#255#255#255#0'h'#199't'#201#127
|
||||||
|
+#204#138#255#162#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255
|
||||||
|
+#147#207#154#255#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135
|
||||||
|
+#255'}'#194#130#255'x'#192'~'#255'%i)'#255#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0'h'#199't'#209#128#205#139#255'|'#201#135#255']'#184'h'#255'X'#177
|
||||||
|
+'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255
|
||||||
|
+'5'#128';'#255'/x5'#255'*p/'#255#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#219'e'#195'q'#247#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#6'h'#199't'#187#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#15
|
||||||
|
+'ItemOutBtnClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#6'AllBtn'#4'Left'#3#176#0#6
|
||||||
|
+'Height'#2#30#3'Top'#2'p'#5'Width'#2'!'#7'Caption'#6#3'ALL'#9'NumGlyphs'#2#0
|
||||||
|
+#7'OnClick'#7#11'AllBtnClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#8'GrpInBtn'#4'L'
|
||||||
|
+'eft'#3#176#0#6'Height'#2#30#3'Top'#3#208#0#5'Width'#2'!'#10'Glyph.Data'#10
|
||||||
|
+':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0
|
||||||
|
+' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'!c$'#184#29'^ '#6
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0'*p/8%i)'#247'!c$'#217#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'a'#190'm'#255']'#184'h'#255'X'#177'b'
|
||||||
|
+#255'S'#169'\'#255'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'
|
||||||
|
+#128';'#255'?'#136'E'#255'Y'#161'^'#255'D'#139'I'#255'!c$'#207#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0'e'#195'q'#255#160#215#169#255#156#213#165#255
|
||||||
|
+#152#211#161#255#148#208#157#255#144#206#152#255#139#203#147#255#135#201#142
|
||||||
|
+#255#130#198#137#255'~'#195#132#255'z'#193#128#255'v'#190'|'#255'E'#140'J'
|
||||||
|
+#255'!c$'#196#255#255#255#0#255#255#255#0'h'#199't'#255#165#218#174#255#162
|
||||||
|
+#216#171#255#158#214#167#255#154#212#163#255#150#210#159#255#147#207#154#255
|
||||||
|
+#142#204#149#255#137#202#144#255#133#199#139#255#129#197#135#255'}'#194#130
|
||||||
|
+#255'J'#145'P'#255'%i)'#201#255#255#255#0#255#255#255#0'h'#199't'#255'h'#199
|
||||||
|
+'t'#255'e'#195'q'#255'a'#190'm'#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255
|
||||||
|
+'M'#161'V'#255'G'#153'O'#255'A'#145'I'#255'Z'#163'b'#255'U'#157'\'#255'/x5'
|
||||||
|
+#209#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'A'#145'I'#247';'#136'B'#219#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0'G'#153'O'#187'A'#145'I'#6#255#255#255
|
||||||
|
+#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#13'GrpInBtnClick'
|
||||||
|
+#8'TabOrder'#2#4#0#0#7'TBitBtn'#9'GrpOutBtn'#4'Left'#3#176#0#6'Height'#2#30#3
|
||||||
|
+'Top'#3#240#0#5'Width'#2'!'#10'Glyph.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0
|
||||||
|
+#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0
|
||||||
|
+'d'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
,#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'M'#161'V'
|
||||||
|
+#6'G'#153'O'#184#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'S'#169'\'#217
|
||||||
|
+'M'#161'V'#247'G'#153'O8'#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0']'#184'h'#207'q'#190'{'#255'z'#193
|
||||||
|
+#131#255'['#170'd'#255'G'#153'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'
|
||||||
|
+#255'/x5'#255'*p/'#255'%i)'#255'!c$'#255#29'^ '#255#255#255#255#0#255#255#255
|
||||||
|
+#0'e'#195'q'#196'{'#200#134#255#156#213#165#255#152#211#161#255#148#208#157
|
||||||
|
+#255#144#206#152#255#139#203#147#255#135#201#142#255#130#198#137#255'~'#195
|
||||||
|
+#132#255'z'#193#128#255'v'#190'|'#255'r'#189'x'#255'!c$'#255#255#255#255#0
|
||||||
|
+#255#255#255#0'h'#199't'#201#127#204#138#255#162#216#171#255#158#214#167#255
|
||||||
|
+#154#212#163#255#150#210#159#255#147#207#154#255#142#204#149#255#137#202#144
|
||||||
|
+#255#133#199#139#255#129#197#135#255'}'#194#130#255'x'#192'~'#255'%i)'#255
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#209#128#205#139#255'|'
|
||||||
|
+#201#135#255']'#184'h'#255'X'#177'b'#255'S'#169'\'#255'M'#161'V'#255'G'#153
|
||||||
|
+'O'#255'A'#145'I'#255';'#136'B'#255'5'#128';'#255'/x5'#255'*p/'#255#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#219'e'#195'q'#247
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0'h'#199't'#6'h'#199't'#187
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
|
||||||
|
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
|
||||||
|
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
|
||||||
|
+#255#0#9'NumGlyphs'#2#0#7'OnClick'#7#14'GrpOutBtnClick'#8'TabOrder'#2#5#0#0#8
|
||||||
|
+'TListBox'#9'ItemsList'#4'Left'#3#220#0#6'Height'#3#183#0#3'Top'#2#24#5'Widt'
|
||||||
|
+'h'#3#148#0#10'ItemHeight'#2#0#8'TabOrder'#2#6#0#0#5'TEdit'#12'GroupVarEdit'
|
||||||
|
+#4'Left'#3#220#0#6'Height'#2#21#3'Top'#3#232#0#5'Width'#3#147#0#8'TabOrder'#2
|
||||||
|
+#7#4'Text'#6#12'GroupVarEdit'#0#0#5'TEdit'#10'LevelsEdit'#4'Left'#3#250#1#6
|
||||||
|
+'Height'#2#21#3'Top'#2#1#5'Width'#2'('#6'OnExit'#7#14'LevelsEditExit'#8'TabO'
|
||||||
|
+'rder'#2#8#0#0#10'TScrollBar'#11'LevelScroll'#4'Left'#3#128#1#6'Height'#2#18
|
||||||
|
+#3'Top'#2'P'#5'Width'#2'o'#3'Min'#2#1#8'PageSize'#2#0#8'Position'#2#1#8'TabO'
|
||||||
|
+'rder'#2#9#8'OnScroll'#7#17'LevelScrollScroll'#0#0#5'TEdit'#11'LevelNoEdit'#4
|
||||||
|
+'Left'#3#0#2#6'Height'#2#21#3'Top'#2'P'#5'Width'#2''''#8'TabOrder'#2#10#4'Te'
|
||||||
|
+'xt'#6#11'LevelNoEdit'#0#0#5'TEdit'#12'LowBoundEdit'#4'Left'#3#0#2#6'Height'
|
||||||
|
+#2#21#3'Top'#2'y'#5'Width'#2'('#6'OnExit'#7#16'LowBoundEditExit'#8'TabOrder'
|
||||||
|
+#2#11#4'Text'#6#12'LowBoundEdit'#0#0#5'TEdit'#11'UpBoundEdit'#4'Left'#3#255#1
|
||||||
|
+#6'Height'#2#21#3'Top'#3#153#0#5'Width'#2'('#6'OnExit'#7#15'UpBoundEditExit'
|
||||||
|
+#8'TabOrder'#2#12#4'Text'#6#5'Edit1'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#3
|
||||||
|
+'}'#1#6'Height'#2'2'#3'Top'#3#188#0#5'Width'#3#170#0#7'Caption'#6#7'Option:'
|
||||||
|
+#12'ClientHeight'#2' '#11'ClientWidth'#3#166#0#8'TabOrder'#2#13#0#9'TCheckBo'
|
||||||
|
+'x'#8'GraphChk'#4'Left'#2#7#6'Height'#2#17#3'Top'#2#5#5'Width'#2'|'#7'Captio'
|
||||||
|
+'n'#6#20'Graph of Level Means'#7'Checked'#9#5'State'#7#9'cbChecked'#8'TabOrd'
|
||||||
|
,'er'#2#0#0#0#0#5'TEdit'#12'LowScoreEdit'#4'Left'#2'z'#6'Height'#2#21#3'Top'#3
|
||||||
|
+'!'#1#5'Width'#2'+'#8'TabOrder'#2#14#0#0#5'TEdit'#11'HiScoreEdit'#4'Left'#2
|
||||||
|
+'z'#6'Height'#2#21#3'Top'#3'A'#1#5'Width'#2'+'#8'TabOrder'#2#15#4'Text'#6#5
|
||||||
|
+'Edit1'#0#0#5'TEdit'#10'RefGrpEdit'#4'Left'#3'P'#1#6'Height'#2#21#3'Top'#3#24
|
||||||
|
+#1#5'Width'#2'+'#8'TabOrder'#2#16#4'Text'#6#5'Edit1'#0#0#5'TEdit'#11'TrgtGrp'
|
||||||
|
+'Edit'#4'Left'#3'P'#1#6'Height'#2#21#3'Top'#3'A'#1#5'Width'#2'+'#8'TabOrder'
|
||||||
|
+#2#17#4'Text'#6#5'Edit1'#0#0#7'TButton'#8'ResetBtn'#4'Left'#2'h'#6'Height'#2
|
||||||
|
+#28#3'Top'#3'h'#1#5'Width'#2'G'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetB'
|
||||||
|
+'tnClick'#8'TabOrder'#2#18#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#200#0#6'Hei'
|
||||||
|
+'ght'#2#28#3'Top'#3'h'#1#5'Width'#2'H'#7'Caption'#6#6'Cancel'#11'ModalResult'
|
||||||
|
+#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#19#0#0#7'TButton'#10'Comp'
|
||||||
|
+'uteBtn'#4'Left'#3'('#1#6'Height'#2#28#3'Top'#3'h'#1#5'Width'#2'G'#7'Caption'
|
||||||
|
+#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#20#0#0#7'TButto'
|
||||||
|
+'n'#9'ReturnBtn'#4'Left'#3#128#1#6'Height'#2#28#3'Top'#3'h'#1#5'Width'#2'L'#7
|
||||||
|
+'Caption'#6#6'Return'#11'ModalResult'#2#1#7'OnClick'#7#14'ReturnBtnClick'#8
|
||||||
|
+'TabOrder'#2#21#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#138#0#4'Left'#2#11#6'Heig'
|
||||||
|
+'ht'#2#28#3'Top'#3'h'#1#5'Width'#2'L'#7'Caption'#6#4'Help'#7'OnClick'#7#12'H'
|
||||||
|
+'elpBtnClick'#8'TabOrder'#2#22#0#0#0
|
||||||
|
]);
|
||||||
584
applications/lazstats/source_orig/polydifunit.pas
Normal file
584
applications/lazstats/source_orig/polydifunit.pas
Normal file
@@ -0,0 +1,584 @@
|
|||||||
|
unit PolyDIFUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, Buttons, MainUnit, Globals, Math, OutPutUnit, MatrixLib,
|
||||||
|
DataProcs, FunctionsLib, GraphLib, ExtCtrls, contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPolyDIFFrm }
|
||||||
|
|
||||||
|
TPolyDIFFrm = class(TForm)
|
||||||
|
HelpBtn: TButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
LowScoreEdit: TEdit;
|
||||||
|
HiScoreEdit: TEdit;
|
||||||
|
RefGrpEdit: TEdit;
|
||||||
|
TrgtGrpEdit: TEdit;
|
||||||
|
GraphChk: TCheckBox;
|
||||||
|
GroupBox1: TGroupBox;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label13: TLabel;
|
||||||
|
Label14: TLabel;
|
||||||
|
LowBoundEdit: TEdit;
|
||||||
|
UpBoundEdit: TEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
LevelNoEdit: TEdit;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
LevelsEdit: TEdit;
|
||||||
|
ItemInBtn: TBitBtn;
|
||||||
|
ItemOutBtn: TBitBtn;
|
||||||
|
AllBtn: TBitBtn;
|
||||||
|
GrpInBtn: TBitBtn;
|
||||||
|
GrpOutBtn: TBitBtn;
|
||||||
|
GroupVarEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
ItemsList: TListBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
LevelScroll: TScrollBar;
|
||||||
|
VarList: TListBox;
|
||||||
|
procedure AllBtnClick(Sender: TObject);
|
||||||
|
procedure CancelBtnClick(Sender: TObject);
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure GrpInBtnClick(Sender: TObject);
|
||||||
|
procedure GrpOutBtnClick(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
procedure ItemInBtnClick(Sender: TObject);
|
||||||
|
procedure ItemOutBtnClick(Sender: TObject);
|
||||||
|
procedure LevelScrollScroll(Sender: TObject; ScrollCode: TScrollCode;
|
||||||
|
var ScrollPos: Integer);
|
||||||
|
procedure LevelsEditExit(Sender: TObject);
|
||||||
|
procedure LowBoundEditExit(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
procedure ReturnBtnClick(Sender: TObject);
|
||||||
|
procedure UpBoundEditExit(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
NoItems : integer;
|
||||||
|
nocats : integer;
|
||||||
|
ColNoSelected : IntDyneVec;
|
||||||
|
ColLabels, RowLabels : StrDyneVec;
|
||||||
|
Ubounds : IntDyneVec; // upper and lower bounds of score groups
|
||||||
|
Lbounds : IntdyneVec;
|
||||||
|
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PolyDIFFrm: TPolyDIFFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPolyDIFFrm }
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
VarList.Clear;
|
||||||
|
ItemsList.Clear;
|
||||||
|
GroupVarEdit.Text := '';
|
||||||
|
ItemInBtn.Visible := true;
|
||||||
|
ItemOutBtn.Visible := false;
|
||||||
|
AllBtn.Visible := true;
|
||||||
|
GrpInBtn.Visible := true;
|
||||||
|
GrpOutBtn.Visible := false;
|
||||||
|
// MHChk.Checked := true;
|
||||||
|
RefGrpEdit.Text := '';
|
||||||
|
TrgtGrpEdit.Text := '';
|
||||||
|
LowScoreEdit.Text := '';
|
||||||
|
HiScoreEdit.Text := '';
|
||||||
|
LevelsEdit.Text := '';
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||||
|
if NoVariables > 0 then LevelScroll.Max := NoVariables;
|
||||||
|
LevelNoEdit.Text := '1';
|
||||||
|
LowBoundEdit.Text := '0';
|
||||||
|
UpBoundEdit.Text := '2';
|
||||||
|
LevelScroll.Min := 1;
|
||||||
|
LevelScroll.Position := 1;
|
||||||
|
//allocate space on heap
|
||||||
|
SetLength(ColLabels,NoVariables+1);
|
||||||
|
SetLength(RowLabels,NoVariables+1);
|
||||||
|
SetLength(ColNoSelected,NoVariables);
|
||||||
|
SetLength(Lbounds,NoVariables * 10);
|
||||||
|
SetLength(Ubounds,NoVariables * 10);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.ReturnBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Ubounds := nil;
|
||||||
|
Lbounds := nil;
|
||||||
|
ColNoSelected := nil;
|
||||||
|
RowLabels := nil;
|
||||||
|
ColLabels := nil;
|
||||||
|
PolyDIFfrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.UpBoundEditExit(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
i := StrToInt(LevelNoEdit.Text);
|
||||||
|
Ubounds[i-1] := StrToInt(UpBoundEdit.Text);
|
||||||
|
if i = StrToInt(LevelsEdit.Text) then
|
||||||
|
begin
|
||||||
|
ComputeBtn.SetFocus;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
LowBoundEdit.Text := IntToStr(Ubounds[i-1] + 1);
|
||||||
|
LowBoundEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(Self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.GrpInBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
if VarList.ItemIndex < 0 then
|
||||||
|
begin
|
||||||
|
GrpInBtn.Visible := false;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
index := VarList.ItemIndex;
|
||||||
|
GroupVarEdit.Text := VarList.Items.Strings[index];
|
||||||
|
VarList.Items.Delete(index);
|
||||||
|
GrpInBtn.Visible := false;
|
||||||
|
GrpOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.GrpOutBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
VarList.Items.Add(GroupVarEdit.Text);
|
||||||
|
GroupVarEdit.Text := '';
|
||||||
|
GrpOutBtn.Visible := false;
|
||||||
|
GrpInBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.ItemInBtnClick(Sender: TObject);
|
||||||
|
VAR i, index : integer;
|
||||||
|
begin
|
||||||
|
if VarList.ItemIndex < 0 then
|
||||||
|
begin
|
||||||
|
ItemInBtn.Visible := false;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
index := VarList.Items.Count;
|
||||||
|
i := 0;
|
||||||
|
while i < index do
|
||||||
|
begin
|
||||||
|
if (VarList.Selected[i]) then
|
||||||
|
begin
|
||||||
|
ItemsList.Items.Add(VarList.Items.Strings[i]);
|
||||||
|
VarList.Items.Delete(i);
|
||||||
|
index := index - 1;
|
||||||
|
i := 0;
|
||||||
|
end
|
||||||
|
else i := i + 1;
|
||||||
|
end;
|
||||||
|
ItemOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.ItemOutBtnClick(Sender: TObject);
|
||||||
|
VAR index : integer;
|
||||||
|
begin
|
||||||
|
index := ItemsList.ItemIndex;
|
||||||
|
if index < 0 then
|
||||||
|
begin
|
||||||
|
ItemOutBtn.Visible := false;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
VarList.Items.Add(ItemsList.Items.Strings[index]);
|
||||||
|
ItemsList.Items.Delete(index);
|
||||||
|
ItemInBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.LevelScrollScroll(Sender: TObject;
|
||||||
|
ScrollCode: TScrollCode; var ScrollPos: Integer);
|
||||||
|
var
|
||||||
|
scrlpos : integer;
|
||||||
|
level : integer;
|
||||||
|
begin
|
||||||
|
level := StrToInt(LevelNoEdit.Text);
|
||||||
|
scrlpos := LevelScroll.Position;
|
||||||
|
if ((scrlpos > level) and (level <= StrToInt(LevelsEdit.Text))) then
|
||||||
|
begin
|
||||||
|
LevelNoEdit.Text := IntToStr(scrlpos);
|
||||||
|
LowBoundEdit.SetFocus;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
if scrlpos < level then
|
||||||
|
begin
|
||||||
|
level := scrlpos;
|
||||||
|
if level > 0 then
|
||||||
|
begin
|
||||||
|
LevelNoEdit.Text := IntToStr(level);
|
||||||
|
LowBoundEdit.Text := IntToStr(Lbounds[level-1]);
|
||||||
|
UpBoundEdit.Text := IntToStr(Ubounds[level-1]);
|
||||||
|
end;
|
||||||
|
LowBoundEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.LevelsEditExit(Sender: TObject);
|
||||||
|
begin
|
||||||
|
LevelScroll.Max := StrToInt(LevelsEdit.Text);
|
||||||
|
LowBoundEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.LowBoundEditExit(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
i := StrToInt(LevelNoEdit.Text);
|
||||||
|
Lbounds[i-1] := StrToInt(LowBoundEdit.Text);
|
||||||
|
UpBoundEdit.SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.CancelBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Ubounds := nil;
|
||||||
|
Lbounds := nil;
|
||||||
|
ColNoSelected := nil;
|
||||||
|
RowLabels := nil;
|
||||||
|
ColLabels := nil;
|
||||||
|
PolyDIFfrm.Hide;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.AllBtnClick(Sender: TObject);
|
||||||
|
VAR i : integer;
|
||||||
|
begin
|
||||||
|
if VarList.Items.Count < 1 then exit;
|
||||||
|
for i := 0 to VarList.Items.Count - 1 do
|
||||||
|
ItemsList.Items.Add(VarList.Items.Strings[i]);
|
||||||
|
VarList.Clear;
|
||||||
|
ItemInBtn.Visible := false;
|
||||||
|
ItemOutBtn.Visible := true;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolyDIFFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
Label first;
|
||||||
|
var
|
||||||
|
i, j, k : integer;
|
||||||
|
itm, nolevels, level : integer;
|
||||||
|
grpvar : integer;
|
||||||
|
subjgrp : integer;
|
||||||
|
subjtot : integer;
|
||||||
|
value : integer;
|
||||||
|
cellstring : string;
|
||||||
|
title : string;
|
||||||
|
nsize : array [1..2] of integer;
|
||||||
|
FData : IntDyneCube; //no. of category values within item for focal group
|
||||||
|
RData : IntDyneCube; //no. of category values within item for reference group
|
||||||
|
TotData : IntDyneCube; // sum of the above two
|
||||||
|
t, Mf, Mb, Sf, Sb, Nb, Nf, df, d, Sd : DblDyneVec;
|
||||||
|
Zc, Vart, Probt, g, BigJ, SumE, SumV, Term1, MY, prob : double;
|
||||||
|
X, BigDnum, BigDden, BigD, BigDS, Zd, M2, E, VarE, Ti, dftot : double;
|
||||||
|
m : integer;
|
||||||
|
loscore, hiscore : integer;
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Polytomous Item DIF Analysis adapted by Bill Miller from');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Procedures for extending item bias detection techniques');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('by Catherine Welch and H.D. Hoover, 1993');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Applied Measurement in Education 6(1), pages 1-19.');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
NoItems := ItemsList.Items.Count;
|
||||||
|
loscore := StrToInt(LowScoreEdit.Text);
|
||||||
|
hiscore := StrToInt(HiScoreEdit.Text);
|
||||||
|
nocats := hiscore - loscore + 1; // 0 to highest score
|
||||||
|
nolevels := StrToInt(LevelsEdit.Text);
|
||||||
|
SetLength(FData,NoItems,hiscore+10,nolevels+10);
|
||||||
|
SetLength(RData,NoItems,hiscore+10,nolevels+10);
|
||||||
|
SetLength(TotData,NoItems,hiscore+10,nolevels+10);
|
||||||
|
SetLength(t,nolevels);
|
||||||
|
SetLength(Mf,nolevels);
|
||||||
|
SetLength(Mb,nolevels);
|
||||||
|
SetLength(Sf,nolevels);
|
||||||
|
SetLength(Sb,nolevels);
|
||||||
|
SetLength(Nb,nolevels);
|
||||||
|
SetLength(Nf,nolevels);
|
||||||
|
SetLength(df,nolevels);
|
||||||
|
SetLength(d,nolevels);
|
||||||
|
SetLength(Sd,nolevels);
|
||||||
|
|
||||||
|
for k := 1 to 2 do nsize[k] := 0;
|
||||||
|
|
||||||
|
// get items to analyze and their labels
|
||||||
|
for i := 1 to NoItems do // items to analyze
|
||||||
|
begin
|
||||||
|
for j := 1 to NoVariables do // variables in grid
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[j,0];
|
||||||
|
if cellstring = ItemsList.Items.Strings[i-1] then
|
||||||
|
begin // matched - save info
|
||||||
|
ColNoSelected[i-1] := j;
|
||||||
|
ColLabels[i-1] := cellstring;
|
||||||
|
RowLabels[i-1] := cellstring;
|
||||||
|
end; // end match
|
||||||
|
end; // next j
|
||||||
|
end; // next i
|
||||||
|
ColLabels[NoItems] := 'TOTAL';
|
||||||
|
RowLabels[NoItems] := 'TOTAL';
|
||||||
|
|
||||||
|
// get the variable number of the grouping code
|
||||||
|
grpvar := 0;
|
||||||
|
for i := 1 to NoVariables do
|
||||||
|
begin
|
||||||
|
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||||
|
if cellstring = GroupVarEdit.Text then grpvar := i;
|
||||||
|
end;
|
||||||
|
if grpvar = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Error - No group variable found.');
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// read data (score group and items)
|
||||||
|
for i := 1 to NoCases do
|
||||||
|
begin
|
||||||
|
subjtot := 0;
|
||||||
|
// Get group (reference or target)
|
||||||
|
value := round(StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[grpvar,i])));
|
||||||
|
subjgrp := 0;
|
||||||
|
if value = StrToInt(RefGrpEdit.Text) then subjgrp := 1; // reference grp
|
||||||
|
if value = StrToInt(TrgtGrpEdit.Text) then subjgrp := 2; // target group
|
||||||
|
if subjgrp = 0 then
|
||||||
|
begin
|
||||||
|
ShowMessage('Error - Bad group code for a subject.');
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
nsize[subjgrp] := nsize[subjgrp] + 1;
|
||||||
|
|
||||||
|
for j := 1 to NoItems do // get item score and subject total
|
||||||
|
begin
|
||||||
|
itm := ColNoSelected[j-1];
|
||||||
|
value := Round(StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[itm,i])));
|
||||||
|
subjtot := subjtot + value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
level := 0;
|
||||||
|
for k := 0 to NoLevels-1 do // get score level category
|
||||||
|
begin
|
||||||
|
if ((subjtot >= Lbounds[k]) and (subjtot <= Ubounds[k])) then
|
||||||
|
level := k;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for j := 1 to NoItems do // add to data
|
||||||
|
begin
|
||||||
|
itm := ColNoSelected[j-1];
|
||||||
|
value := Round(StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[itm,i])));
|
||||||
|
value := value - loscore;
|
||||||
|
if subjgrp = 1 then
|
||||||
|
RData[j-1,value,level] := RData[j-1,value,level] + 1
|
||||||
|
else FData[j-1,value,level] := FData[j-1,value,level] + 1;
|
||||||
|
TotData[j-1,value,level] := TotData[j-1,value,level] + 1;
|
||||||
|
end;
|
||||||
|
end; // next case i
|
||||||
|
|
||||||
|
// Show upper and lower bounds for score group bins
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Conditioning Levels');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Lower Upper');
|
||||||
|
for i := 0 to nolevels-1 do
|
||||||
|
begin
|
||||||
|
cellstring := format('%5d %5d',[Lbounds[i],Ubounds[i]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(cellstring);
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
|
||||||
|
// obtain statistics and print frequency in categories for each item
|
||||||
|
for i := 1 to NoItems do
|
||||||
|
begin
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Observed Category Frequencies');
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('Item Group Level Category Number');
|
||||||
|
Title := ' ';
|
||||||
|
for j := 0 to nocats-1 do Title := Title + format('%10d',[j+loscore]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
Zc := 0.0;
|
||||||
|
dftot := 0.0;
|
||||||
|
BigDnum := 0.0;
|
||||||
|
BigDden := 0.0;
|
||||||
|
M2 := 0.0;
|
||||||
|
SumE := 0.0; // second term of M2 numerator
|
||||||
|
SumV := 0.0; // denominator of M2
|
||||||
|
Term1 := 0.0; // first term of M2 numerator
|
||||||
|
for k := 0 to nolevels-1 do
|
||||||
|
begin
|
||||||
|
Mf[k] := 0.0;
|
||||||
|
Mb[k] := 0.0;
|
||||||
|
Sf[k] := 0.0;
|
||||||
|
Sb[k] := 0.0;
|
||||||
|
t[k] := 0.0;
|
||||||
|
Nb[k] := 0.0;
|
||||||
|
Nf[k] := 0.0;
|
||||||
|
df[k] := 0.0;
|
||||||
|
d[k] := 0.0;
|
||||||
|
Sd[k] := 0.0;
|
||||||
|
VarE := 0.0;
|
||||||
|
E := 0.0;
|
||||||
|
Ti := 0.0;
|
||||||
|
MY := 0.0;
|
||||||
|
Title := format('%3d Ref. %3d',[i,k+1]);
|
||||||
|
for j := 0 to nocats-1 do
|
||||||
|
begin
|
||||||
|
Title := Title + format('%10d',[RData[i-1,j,k]]);
|
||||||
|
X := RData[i-1,j,k] * (j+loscore);
|
||||||
|
Mb[k] := Mb[k] + X;
|
||||||
|
Sb[k] := Sb[k] + (X * X);
|
||||||
|
Nb[k] := Nb[k] + RData[i-1,j,k];
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
Title := format('%3d Focal %3d',[i,k+1]);
|
||||||
|
for j := 0 to nocats-1 do
|
||||||
|
begin
|
||||||
|
Title := Title + format('%10d',[FData[i-1,j,k]]);
|
||||||
|
X := FData[i-1,j,k] * (j + loscore);
|
||||||
|
Mf[k] := Mf[k] + X;
|
||||||
|
Sf[k] := Sf[k] + (X * X);
|
||||||
|
Nf[k] := Nf[k] + FData[i-1,j,k];
|
||||||
|
end;
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
Title := format('%3d Total %3d',[i,k+1]);
|
||||||
|
for j := 0 to nocats-1 do
|
||||||
|
Title := Title + format('%10d',[TotData[i-1,j,k]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add('');
|
||||||
|
for j := 0 to nocats-1 do
|
||||||
|
begin
|
||||||
|
Term1 := Term1 + FData[i-1,j,k] * (j+loscore);
|
||||||
|
X := TotData[i-1,j,k] * (j+loscore);
|
||||||
|
E := E + X;
|
||||||
|
Ti := Ti + TotData[i-1,j,k];
|
||||||
|
MY := MY + TotData[i-1,j,k] * (j + loscore);
|
||||||
|
VarE := VarE + TotData[i-1,j,k] * (j + loscore)*(j + loscore);
|
||||||
|
end;
|
||||||
|
E := E / Ti;
|
||||||
|
E := Nf[k] * E;
|
||||||
|
SumE := SumE + E; // second term of num. of m2
|
||||||
|
VarE := (Ti * VarE) - (MY * MY);
|
||||||
|
VarE := ((Nf[k] * Nb[k]) / (Ti * Ti * (Ti - 1.0))) * VarE;
|
||||||
|
SumV := SumV + VarE; // den. of M2
|
||||||
|
if (Nf[k] + Nb[k]) < 5 then continue;
|
||||||
|
Sf[k] := Sf[k] - (Mf[k] * Mf[k] / Nf[k]);
|
||||||
|
Sf[k] := Sf[k] / (Nf[k] - 1.0);
|
||||||
|
Sb[k] := Sb[k] - (Mb[k] * Mb[k] / Nb[k]);
|
||||||
|
Sb[k] := Sb[k] / (Nb[k] - 1.0);
|
||||||
|
Mf[k] := Mf[k] / Nf[k];
|
||||||
|
Mb[k] := Mb[k] / Nb[k];
|
||||||
|
t[k] := Mf[k] - Mb[k];
|
||||||
|
df[k] := Nb[k] + Nf[k] - 2.0;
|
||||||
|
Vart := ((Sf[k] * Nf[k]) + (Sb[k] * Nb[k])) / df[k];
|
||||||
|
Vart := sqrt(Vart * ((1.0 / Nf[k]) + (1.0 / Nb[k])));
|
||||||
|
t[k] := t[k] / Vart;
|
||||||
|
Zc := Zc + t[k];
|
||||||
|
dftot := dftot + (df[k] / (df[k] - 2.0));
|
||||||
|
BigJ := 1.0 - (3.0 / (4.0 * df[k] - 1.0));
|
||||||
|
d[k] := BigJ * sqrt((Nb[k] * Nf[k]) / (Nb[k] * Nf[k]));
|
||||||
|
d[k] := d[k] * t[k];
|
||||||
|
Sd[k] := (BigJ * BigJ) * (df[k] / (df[k] - 2.0));
|
||||||
|
Sd[k] := Sd[k] * (Nb[k] + Nf[k]) / (Nb[k] * Nf[k]);
|
||||||
|
Sd[k] := Sd[k] + (d[k] * d[k]) * ((BigJ * BigJ * df[k])/(df[k]-2.0) - 1.0);
|
||||||
|
BigDnum := BigDnum + d[k] / Sd[k];
|
||||||
|
BigDden := BigDden + 1.0 / Sd[k];
|
||||||
|
end; // next level k
|
||||||
|
M2 := (Term1 - SumE) * (Term1 - SumE) / SumV;
|
||||||
|
Title := 't-test values for Reference and Focus Means for each level';
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
for k := 0 to nolevels-1 do
|
||||||
|
begin
|
||||||
|
Title := format('Mean Reference = %10.3f SD = %10.3f N = %5.0f',[Mb[k],sqrt(Sb[k]),Nb[k]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
Title := format('Mean Focal = %10.3f SD = %10.3f N = %5.0f',[Mf[k],sqrt(Sf[k]),Nf[k]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
Title := format('Level %3d t = %8.3f with deg. freedom = %5.0f',[k+1,t[k],df[k]]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
end;
|
||||||
|
Zc := Zc / dftot; // HW1 statistic
|
||||||
|
prob := 1.0 - probz(Zc);
|
||||||
|
Title := format('Composite z statistic = %6.3f. Prob. > |z| = %6.3f',[Zc, prob]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
BigD := BigDnum / BigDden;
|
||||||
|
BigDS := 1.0 / sqrt(BigDden);
|
||||||
|
Zd := BigD / BigDS; // HW3 statistic
|
||||||
|
prob := 1.0 - probz(Zd);
|
||||||
|
Title := format('Weighted Composite z statistic = %6.3f. Prob. > |z| = %6.3f',[Zd, prob]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
prob := 1.0 - chisquaredprob(M2,1);
|
||||||
|
Title := format('Generalized Mantel-Haenszel = %10.3f with D.F. = 1 and Prob. > Chi-Sqr. = %6.3f',[M2, prob]);
|
||||||
|
OutPutFrm.RichEdit.Lines.Add(Title);
|
||||||
|
OutPutFrm.ShowModal;
|
||||||
|
OutPutFrm.RichEdit.Clear;
|
||||||
|
if GraphChk.Checked then
|
||||||
|
begin
|
||||||
|
GraphFrm.nosets := 2;
|
||||||
|
GraphFrm.nbars := nolevels;
|
||||||
|
GraphFrm.Heading := 'Level Means';
|
||||||
|
GraphFrm.XTitle := 'Level';
|
||||||
|
GraphFrm.YTitle := 'Mean';
|
||||||
|
SetLength(GraphFrm.Ypoints,2,nolevels+1);
|
||||||
|
SetLength(GraphFrm.Xpoints,1,nolevels+1);
|
||||||
|
for k := 0 to nolevels-1 do
|
||||||
|
begin
|
||||||
|
GraphFrm.Ypoints[0,k] := Mb[k];
|
||||||
|
GraphFrm.Xpoints[0,k] := k+1;
|
||||||
|
GraphFrm.Ypoints[1,k] := Mf[k];
|
||||||
|
end;
|
||||||
|
GraphFrm.barwideprop := 0.5;
|
||||||
|
GraphFrm.AutoScale := true;
|
||||||
|
GraphFrm.GraphType := 2; // 3d Vertical Bar Chart
|
||||||
|
GraphFrm.ShowLeftWall := true;
|
||||||
|
GraphFrm.ShowRightWall := true;
|
||||||
|
GraphFrm.ShowBottomWall := true;
|
||||||
|
GraphFrm.ShowBackWall := true;
|
||||||
|
GraphFrm.BackColor := clYellow;
|
||||||
|
GraphFrm.WallColor := clBlack;
|
||||||
|
GraphFrm.ShowModal;
|
||||||
|
end;
|
||||||
|
end; // next item
|
||||||
|
|
||||||
|
// clean up the heap
|
||||||
|
GraphFrm.Xpoints := nil;
|
||||||
|
GraphFrm.Ypoints := nil;
|
||||||
|
FData := nil;
|
||||||
|
RData := nil;
|
||||||
|
TotData := nil;
|
||||||
|
t := nil;
|
||||||
|
Mf := nil;
|
||||||
|
Mb := nil;
|
||||||
|
Sf := nil;
|
||||||
|
Sb := nil;
|
||||||
|
Nb := nil;
|
||||||
|
Nf := nil;
|
||||||
|
df := nil;
|
||||||
|
d := nil;
|
||||||
|
Sd:= nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I polydifunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
55
applications/lazstats/source_orig/polynomialunit.lfm
Normal file
55
applications/lazstats/source_orig/polynomialunit.lfm
Normal file
@@ -0,0 +1,55 @@
|
|||||||
|
object PolynomialFrm: TPolynomialFrm
|
||||||
|
Left = 335
|
||||||
|
Height = 137
|
||||||
|
Top = 138
|
||||||
|
Width = 218
|
||||||
|
Caption = 'Polynomial Regression Smoothing'
|
||||||
|
ClientHeight = 137
|
||||||
|
ClientWidth = 218
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 16
|
||||||
|
Width = 87
|
||||||
|
Caption = 'Polynomial order :'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object PolyEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 21
|
||||||
|
Top = 9
|
||||||
|
Width = 47
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'PolyEdit'
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 120
|
||||||
|
Height = 29
|
||||||
|
Top = 56
|
||||||
|
Width = 70
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object OKBtn: TButton
|
||||||
|
Left = 56
|
||||||
|
Height = 29
|
||||||
|
Top = 96
|
||||||
|
Width = 80
|
||||||
|
Caption = 'OK'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object HelpBtn: TButton
|
||||||
|
Tag = 139
|
||||||
|
Left = 8
|
||||||
|
Height = 28
|
||||||
|
Top = 56
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Help'
|
||||||
|
OnClick = HelpBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
end
|
||||||
17
applications/lazstats/source_orig/polynomialunit.lrs
Normal file
17
applications/lazstats/source_orig/polynomialunit.lrs
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPolynomialFrm','FORMDATA',[
|
||||||
|
'TPF0'#14'TPolynomialFrm'#13'PolynomialFrm'#4'Left'#3'O'#1#6'Height'#3#137#0#3
|
||||||
|
+'Top'#3#138#0#5'Width'#3#218#0#7'Caption'#6#31'Polynomial Regression Smoothi'
|
||||||
|
+'ng'#12'ClientHeight'#3#137#0#11'ClientWidth'#3#218#0#6'OnShow'#7#8'FormShow'
|
||||||
|
+#10'LCLVersion'#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2
|
||||||
|
+#14#3'Top'#2#16#5'Width'#2'W'#7'Caption'#6#18'Polynomial order :'#11'ParentC'
|
||||||
|
+'olor'#8#0#0#5'TEdit'#8'PolyEdit'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#9#5'W'
|
||||||
|
+'idth'#2'/'#8'TabOrder'#2#0#4'Text'#6#8'PolyEdit'#0#0#7'TButton'#9'CancelBtn'
|
||||||
|
+#4'Left'#2'x'#6'Height'#2#29#3'Top'#2'8'#5'Width'#2'F'#7'Caption'#6#6'Cancel'
|
||||||
|
+#11'ModalResult'#2#2#8'TabOrder'#2#1#0#0#7'TButton'#5'OKBtn'#4'Left'#2'8'#6
|
||||||
|
+'Height'#2#29#3'Top'#2'`'#5'Width'#2'P'#7'Caption'#6#2'OK'#11'ModalResult'#2
|
||||||
|
+#1#8'TabOrder'#2#2#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#139#0#4'Left'#2#8#6'He'
|
||||||
|
+'ight'#2#28#3'Top'#2'8'#5'Width'#2'L'#7'Caption'#6#4'Help'#7'OnClick'#7#12'H'
|
||||||
|
+'elpBtnClick'#8'TabOrder'#2#3#0#0#0
|
||||||
|
]);
|
||||||
50
applications/lazstats/source_orig/polynomialunit.pas
Normal file
50
applications/lazstats/source_orig/polynomialunit.pas
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
unit PolynomialUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, contexthelpunit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPolynomialFrm }
|
||||||
|
|
||||||
|
TPolynomialFrm = class(TForm)
|
||||||
|
CancelBtn: TButton;
|
||||||
|
HelpBtn: TButton;
|
||||||
|
OKBtn: TButton;
|
||||||
|
PolyEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure HelpBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PolynomialFrm: TPolynomialFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPolynomialFrm }
|
||||||
|
|
||||||
|
procedure TPolynomialFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
PolyEdit.Text := '1';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPolynomialFrm.HelpBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I polynomialunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
167
applications/lazstats/source_orig/presentvalueunit.lfm
Normal file
167
applications/lazstats/source_orig/presentvalueunit.lfm
Normal file
@@ -0,0 +1,167 @@
|
|||||||
|
object PresentValueFrm: TPresentValueFrm
|
||||||
|
Left = 163
|
||||||
|
Height = 480
|
||||||
|
Top = 111
|
||||||
|
Width = 336
|
||||||
|
Caption = 'Present Value'
|
||||||
|
ClientHeight = 480
|
||||||
|
ClientWidth = 336
|
||||||
|
OnShow = FormShow
|
||||||
|
LCLVersion = '0.9.28.2'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 14
|
||||||
|
Top = 288
|
||||||
|
Width = 62
|
||||||
|
Caption = 'Future Value'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 321
|
||||||
|
Width = 43
|
||||||
|
Caption = 'Payment'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 354
|
||||||
|
Width = 89
|
||||||
|
Caption = 'Number of Periods'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 392
|
||||||
|
Width = 76
|
||||||
|
Caption = 'Rate Per Period'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 14
|
||||||
|
Top = 431
|
||||||
|
Width = 67
|
||||||
|
Caption = 'Present Value'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Memo1: TMemo
|
||||||
|
Left = 6
|
||||||
|
Height = 240
|
||||||
|
Top = 8
|
||||||
|
Width = 318
|
||||||
|
Lines.Strings = (
|
||||||
|
'Description:'
|
||||||
|
''
|
||||||
|
'This procedure calculates the Present Value of an investment'
|
||||||
|
'where Payment is received for N periods and is discounted at'
|
||||||
|
'the rate of Rate per period. Future Value is the value the'
|
||||||
|
'investment may reach at some point. Payment Time indicates'
|
||||||
|
'whether the cash flow occurs at the beginning or end of the'
|
||||||
|
'period.'
|
||||||
|
'EXAMPLE: What was the amount borrowed in a 7.5% APR'
|
||||||
|
'(Annual Percentage Rate) four year auto loan when the'
|
||||||
|
'payment is $500.00?'
|
||||||
|
'Rate per Period = 0.075 / 12 = 0.00625'
|
||||||
|
'Number of periods = 4 years * 12 months = 48'
|
||||||
|
'Payment = -$500.00'
|
||||||
|
'Future Value = 0'
|
||||||
|
'Payment Time = End of Period'
|
||||||
|
'ANSWER: about $20679.19'
|
||||||
|
)
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object FutureEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 21
|
||||||
|
Top = 281
|
||||||
|
Width = 68
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'FutureEdit'
|
||||||
|
end
|
||||||
|
object PaymentEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 21
|
||||||
|
Top = 314
|
||||||
|
Width = 68
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object NPeriodsEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 21
|
||||||
|
Top = 347
|
||||||
|
Width = 68
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object RateEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 21
|
||||||
|
Top = 384
|
||||||
|
Width = 68
|
||||||
|
TabOrder = 4
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object PresentEdit: TEdit
|
||||||
|
Left = 104
|
||||||
|
Height = 21
|
||||||
|
Top = 424
|
||||||
|
Width = 68
|
||||||
|
TabOrder = 5
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object PayTimeGrp: TRadioGroup
|
||||||
|
Left = 191
|
||||||
|
Height = 62
|
||||||
|
Top = 272
|
||||||
|
Width = 131
|
||||||
|
AutoFill = True
|
||||||
|
Caption = 'Payment Time:'
|
||||||
|
ChildSizing.LeftRightSpacing = 6
|
||||||
|
ChildSizing.TopBottomSpacing = 6
|
||||||
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||||
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||||
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||||
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||||
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||||
|
ChildSizing.ControlsPerLine = 1
|
||||||
|
ClientHeight = 44
|
||||||
|
ClientWidth = 127
|
||||||
|
Items.Strings = (
|
||||||
|
'Start of Period'
|
||||||
|
'End of Period'
|
||||||
|
)
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 208
|
||||||
|
Height = 34
|
||||||
|
Top = 344
|
||||||
|
Width = 85
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 208
|
||||||
|
Height = 34
|
||||||
|
Top = 392
|
||||||
|
Width = 85
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 8
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 208
|
||||||
|
Height = 34
|
||||||
|
Top = 440
|
||||||
|
Width = 85
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
end
|
||||||
50
applications/lazstats/source_orig/presentvalueunit.lrs
Normal file
50
applications/lazstats/source_orig/presentvalueunit.lrs
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TPresentValueFrm','FORMDATA',[
|
||||||
|
'TPF0'#16'TPresentValueFrm'#15'PresentValueFrm'#4'Left'#3#163#0#6'Height'#3
|
||||||
|
+#224#1#3'Top'#2'o'#5'Width'#3'P'#1#7'Caption'#6#13'Present Value'#12'ClientH'
|
||||||
|
+'eight'#3#224#1#11'ClientWidth'#3'P'#1#6'OnShow'#7#8'FormShow'#10'LCLVersion'
|
||||||
|
+#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#14#3'Top'#3' '#1
|
||||||
|
+#5'Width'#2'>'#7'Caption'#6#12'Future Value'#11'ParentColor'#8#0#0#6'TLabel'
|
||||||
|
+#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#3'A'#1#5'Width'#2'+'#7'Caption'
|
||||||
|
+#6#7'Payment'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#8#6'Height'
|
||||||
|
+#2#14#3'Top'#3'b'#1#5'Width'#2'Y'#7'Caption'#6#17'Number of Periods'#11'Pare'
|
||||||
|
+'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#136#1
|
||||||
|
+#5'Width'#2'L'#7'Caption'#6#15'Rate Per Period'#11'ParentColor'#8#0#0#6'TLab'
|
||||||
|
+'el'#6'Label5'#4'Left'#2#8#6'Height'#2#14#3'Top'#3#175#1#5'Width'#2'C'#7'Cap'
|
||||||
|
+'tion'#6#13'Present Value'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2
|
||||||
|
+#6#6'Height'#3#240#0#3'Top'#2#8#5'Width'#3'>'#1#13'Lines.Strings'#1#6#12'Des'
|
||||||
|
+'cription:'#6#0#6'<This procedure calculates the Present Value of an investm'
|
||||||
|
+'ent'#6'<where Payment is received for N periods and is discounted at'#6';th'
|
||||||
|
+'e rate of Rate per period. Future Value is the value the'#6';investment ma'
|
||||||
|
+'y reach at some point. Payment Time indicates'#6';whether the cash flow oc'
|
||||||
|
+'curs at the beginning or end of the'#6#7'period.'#6'4EXAMPLE: What was the'
|
||||||
|
+' amount borrowed in a 7.5% APR'#6'5(Annual Percentage Rate) four year auto '
|
||||||
|
+'loan when the'#6#19'payment is $500.00?'#6'&Rate per Period = 0.075 / 12 = '
|
||||||
|
+'0.00625'#6',Number of periods = 4 years * 12 months = 48'#6#18'Payment = -$'
|
||||||
|
+'500.00'#6#16'Future Value = 0'#6#28'Payment Time = End of Period'#6#23'ANSW'
|
||||||
|
+'ER: about $20679.19'#0#8'TabOrder'#2#0#0#0#5'TEdit'#10'FutureEdit'#4'Left'#2
|
||||||
|
+'h'#6'Height'#2#21#3'Top'#3#25#1#5'Width'#2'D'#8'TabOrder'#2#1#4'Text'#6#10
|
||||||
|
+'FutureEdit'#0#0#5'TEdit'#11'PaymentEdit'#4'Left'#2'h'#6'Height'#2#21#3'Top'
|
||||||
|
+#3':'#1#5'Width'#2'D'#8'TabOrder'#2#2#4'Text'#6#5'Edit1'#0#0#5'TEdit'#12'NPe'
|
||||||
|
+'riodsEdit'#4'Left'#2'h'#6'Height'#2#21#3'Top'#3'['#1#5'Width'#2'D'#8'TabOrd'
|
||||||
|
+'er'#2#3#4'Text'#6#5'Edit1'#0#0#5'TEdit'#8'RateEdit'#4'Left'#2'h'#6'Height'#2
|
||||||
|
+#21#3'Top'#3#128#1#5'Width'#2'D'#8'TabOrder'#2#4#4'Text'#6#5'Edit1'#0#0#5'TE'
|
||||||
|
+'dit'#11'PresentEdit'#4'Left'#2'h'#6'Height'#2#21#3'Top'#3#168#1#5'Width'#2
|
||||||
|
+'D'#8'TabOrder'#2#5#4'Text'#6#5'Edit1'#0#0#11'TRadioGroup'#10'PayTimeGrp'#4
|
||||||
|
+'Left'#3#191#0#6'Height'#2'>'#3'Top'#3#16#1#5'Width'#3#131#0#8'AutoFill'#9#7
|
||||||
|
+'Caption'#6#13'Payment Time:'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildS'
|
||||||
|
+'izing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomog'
|
||||||
|
+'enousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildRe'
|
||||||
|
+'size'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.'
|
||||||
|
+'ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToR'
|
||||||
|
+'ightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHeight'#2
|
||||||
|
+','#11'ClientWidth'#2#127#13'Items.Strings'#1#6#15'Start of Period'#6#13'End'
|
||||||
|
+' of Period'#0#8'TabOrder'#2#6#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#208#0#6
|
||||||
|
+'Height'#2'"'#3'Top'#3'X'#1#5'Width'#2'U'#7'Caption'#6#5'Reset'#7'OnClick'#7
|
||||||
|
+#13'ResetBtnClick'#8'TabOrder'#2#7#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3
|
||||||
|
+#208#0#6'Height'#2'"'#3'Top'#3#136#1#5'Width'#2'U'#7'Caption'#6#7'Compute'#7
|
||||||
|
+'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#8#0#0#7'TButton'#9'ReturnBtn'#4
|
||||||
|
+'Left'#3#208#0#6'Height'#2'"'#3'Top'#3#184#1#5'Width'#2'U'#7'Caption'#6#6'Re'
|
||||||
|
+'turn'#11'ModalResult'#2#1#8'TabOrder'#2#9#0#0#0
|
||||||
|
]);
|
||||||
99
applications/lazstats/source_orig/presentvalueunit.pas
Normal file
99
applications/lazstats/source_orig/presentvalueunit.pas
Normal file
@@ -0,0 +1,99 @@
|
|||||||
|
unit PresentValueUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, ExtCtrls;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TPresentValueFrm }
|
||||||
|
|
||||||
|
TPresentValueFrm = class(TForm)
|
||||||
|
ResetBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
FutureEdit: TEdit;
|
||||||
|
PaymentEdit: TEdit;
|
||||||
|
NPeriodsEdit: TEdit;
|
||||||
|
RateEdit: TEdit;
|
||||||
|
PresentEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Memo1: TMemo;
|
||||||
|
PayTimeGrp: TRadioGroup;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
function PresentValue(Rate: Extended; NPeriods: Integer; Payment, FutureValue:
|
||||||
|
Extended; PaymentTime: TPaymentTime): Extended;
|
||||||
|
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
PresentValueFrm: TPresentValueFrm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TPresentValueFrm }
|
||||||
|
|
||||||
|
procedure TPresentValueFrm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
FutureEdit.Text := '';
|
||||||
|
PaymentEdit.Text := '';
|
||||||
|
NPeriodsEdit.Text := '';
|
||||||
|
RateEdit.Text := '';
|
||||||
|
PresentEdit.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPresentValueFrm.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ResetBtnClick(self);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TPresentValueFrm.ComputeBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
Rate, Payment, PresentVal, FutureVal, Interest : Extended;
|
||||||
|
NPeriods, When : integer;
|
||||||
|
Time : TPaymentTime;
|
||||||
|
|
||||||
|
begin
|
||||||
|
If PayTimeGrp.ItemIndex = 0 then Time := ptStartofPeriod else
|
||||||
|
Time := ptEndofPeriod;
|
||||||
|
FutureVal := StrToFloat(FutureEdit.Text);
|
||||||
|
Rate := StrToFloat(RateEdit.Text);
|
||||||
|
NPeriods := StrToInt(NPeriodsEdit.Text);
|
||||||
|
Payment := StrToFloat(PaymentEdit.Text);
|
||||||
|
PresentVal := PresentValue(Rate, NPeriods, Payment, FutureVal, Time);
|
||||||
|
PresentEdit.Text := FloatToStr(PresentVal);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TPresentValueFrm.PresentValue(Rate: Extended; NPeriods: Integer; Payment, FutureValue:
|
||||||
|
Extended; PaymentTime: TPaymentTime): Extended;
|
||||||
|
var
|
||||||
|
Annuity, CompoundRN: Extended;
|
||||||
|
begin
|
||||||
|
if Rate <= -1.0 then ShowMessage('ERROR! PresentValue Rate <= -1.-');
|
||||||
|
Annuity := Annuity2(Rate, NPeriods, PaymentTime, CompoundRN);
|
||||||
|
if CompoundRN > 1.0E16 then
|
||||||
|
PresentValue := -(Payment / Rate * Integer(PaymentTime) * Payment)
|
||||||
|
else
|
||||||
|
PresentValue := (-Payment * Annuity - FutureValue) / CompoundRN
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I presentvalueunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
96
applications/lazstats/source_orig/probchisqrunit.lfm
Normal file
96
applications/lazstats/source_orig/probchisqrunit.lfm
Normal file
@@ -0,0 +1,96 @@
|
|||||||
|
object ChiSqrProbForm: TChiSqrProbForm
|
||||||
|
Left = 288
|
||||||
|
Height = 146
|
||||||
|
Top = 161
|
||||||
|
Width = 389
|
||||||
|
Caption = 'Probability of a chisquared value'
|
||||||
|
ClientHeight = 146
|
||||||
|
ClientWidth = 389
|
||||||
|
OnShow = ResetBtnClick
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 14
|
||||||
|
Width = 106
|
||||||
|
Caption = 'Chisquared value = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ChiSqrEdit: TEdit
|
||||||
|
Left = 123
|
||||||
|
Height = 23
|
||||||
|
Top = 7
|
||||||
|
Width = 62
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'ChiSqrEdit'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 195
|
||||||
|
Height = 16
|
||||||
|
Top = 14
|
||||||
|
Width = 112
|
||||||
|
Caption = 'with deg. freedom = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object DFEdit: TEdit
|
||||||
|
Left = 311
|
||||||
|
Height = 23
|
||||||
|
Top = 7
|
||||||
|
Width = 50
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'DFEdit'
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 16
|
||||||
|
Top = 47
|
||||||
|
Width = 136
|
||||||
|
Caption = 'Probability larger value = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ProbEdit: TEdit
|
||||||
|
Left = 145
|
||||||
|
Height = 23
|
||||||
|
Top = 39
|
||||||
|
Width = 74
|
||||||
|
TabOrder = 2
|
||||||
|
Text = 'ProbEdit'
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 8
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 104
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 200
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 296
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 6
|
||||||
|
end
|
||||||
|
end
|
||||||
26
applications/lazstats/source_orig/probchisqrunit.lrs
Normal file
26
applications/lazstats/source_orig/probchisqrunit.lrs
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TChiSqrProbForm','FORMDATA',[
|
||||||
|
'TPF0'#15'TChiSqrProbForm'#14'ChiSqrProbForm'#4'Left'#3' '#1#6'Height'#3#146#0
|
||||||
|
+#3'Top'#3#161#0#5'Width'#3#133#1#7'Caption'#6'!Probability of a chisquared v'
|
||||||
|
+'alue'#12'ClientHeight'#3#146#0#11'ClientWidth'#3#133#1#6'OnShow'#7#13'Reset'
|
||||||
|
+'BtnClick'#10'LCLVersion'#6#6'0.9.30'#0#6'TLabel'#6'Label1'#4'Left'#2#9#6'He'
|
||||||
|
+'ight'#2#16#3'Top'#2#14#5'Width'#2'j'#7'Caption'#6#19'Chisquared value = '#11
|
||||||
|
+'ParentColor'#8#0#0#5'TEdit'#10'ChiSqrEdit'#4'Left'#2'{'#6'Height'#2#23#3'To'
|
||||||
|
+'p'#2#7#5'Width'#2'>'#8'TabOrder'#2#0#4'Text'#6#10'ChiSqrEdit'#0#0#6'TLabel'
|
||||||
|
+#6'Label2'#4'Left'#3#195#0#6'Height'#2#16#3'Top'#2#14#5'Width'#2'p'#7'Captio'
|
||||||
|
+'n'#6#20'with deg. freedom = '#11'ParentColor'#8#0#0#5'TEdit'#6'DFEdit'#4'Le'
|
||||||
|
+'ft'#3'7'#1#6'Height'#2#23#3'Top'#2#7#5'Width'#2'2'#8'TabOrder'#2#1#4'Text'#6
|
||||||
|
+#6'DFEdit'#0#0#6'TLabel'#6'Label3'#4'Left'#2#8#6'Height'#2#16#3'Top'#2'/'#5
|
||||||
|
+'Width'#3#136#0#7'Caption'#6#27'Probability larger value = '#11'ParentColor'
|
||||||
|
+#8#0#0#5'TEdit'#8'ProbEdit'#4'Left'#3#145#0#6'Height'#2#23#3'Top'#2''''#5'Wi'
|
||||||
|
+'dth'#2'J'#8'TabOrder'#2#2#4'Text'#6#8'ProbEdit'#0#0#7'TButton'#9'CancelBtn'
|
||||||
|
+#4'Left'#2#8#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'R'#6'Cancel'#9#7'Caption'
|
||||||
|
+#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#3#0#0#7'TButton'#8'ResetBtn'#4
|
||||||
|
+'Left'#2'h'#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'R'#7'Caption'#6#5'Reset'#7
|
||||||
|
+'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#4#0#0#7'TButton'#10'ComputeBtn'#4
|
||||||
|
+'Left'#3#200#0#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'R'#7'Caption'#6#7'Compu'
|
||||||
|
+'te'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#5#0#0#7'TButton'#9'Retur'
|
||||||
|
+'nBtn'#4'Left'#3'('#1#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'M'#7'Caption'#6#6
|
||||||
|
+'Return'#11'ModalResult'#2#1#8'TabOrder'#2#6#0#0#0
|
||||||
|
]);
|
||||||
65
applications/lazstats/source_orig/probchisqrunit.pas
Normal file
65
applications/lazstats/source_orig/probchisqrunit.pas
Normal file
@@ -0,0 +1,65 @@
|
|||||||
|
unit ProbChiSqrUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, functionslib;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TChiSqrProbForm }
|
||||||
|
|
||||||
|
TChiSqrProbForm = class(TForm)
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ChiSqrEdit: TEdit;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
DFEdit: TEdit;
|
||||||
|
ProbEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
ChiSqrProbForm: TChiSqrProbForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TChiSqrProbForm }
|
||||||
|
|
||||||
|
procedure TChiSqrProbForm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ChiSqrEdit.Text := '';
|
||||||
|
DFEdit.Text := '';
|
||||||
|
ProbEdit.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TChiSqrProbForm.ComputeBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
ChiSqr, Prob : double;
|
||||||
|
DF : integer;
|
||||||
|
outvalue : string;
|
||||||
|
begin
|
||||||
|
ChiSqr := StrToFloat(ChiSqrEdit.Text);
|
||||||
|
DF := StrToInt(DFEdit.Text);
|
||||||
|
Prob := 1.0 - chisquaredprob(ChiSqr,DF);
|
||||||
|
outvalue := format('%6.4f',[Prob]);
|
||||||
|
ProbEdit.Text := outvalue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I probchisqrunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
80
applications/lazstats/source_orig/probsmallerzunit.lfm
Normal file
80
applications/lazstats/source_orig/probsmallerzunit.lfm
Normal file
@@ -0,0 +1,80 @@
|
|||||||
|
object ProbSmallerzForm: TProbSmallerzForm
|
||||||
|
Left = 288
|
||||||
|
Height = 194
|
||||||
|
Top = 161
|
||||||
|
Width = 320
|
||||||
|
Caption = 'Probability of a smaller z score'
|
||||||
|
ClientHeight = 194
|
||||||
|
ClientWidth = 320
|
||||||
|
OnShow = ResetBtnClick
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 104
|
||||||
|
Caption = 'Observed z score = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object zEdit: TEdit
|
||||||
|
Left = 113
|
||||||
|
Height = 23
|
||||||
|
Top = 9
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'zEdit'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 46
|
||||||
|
Width = 91
|
||||||
|
Caption = 'Probability < z = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ProbzEdit: TEdit
|
||||||
|
Left = 113
|
||||||
|
Height = 23
|
||||||
|
Top = 40
|
||||||
|
Width = 80
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'ProbzEdit'
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 8
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 113
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 216
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 115
|
||||||
|
Height = 33
|
||||||
|
Top = 130
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
22
applications/lazstats/source_orig/probsmallerzunit.lrs
Normal file
22
applications/lazstats/source_orig/probsmallerzunit.lrs
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TProbSmallerzForm','FORMDATA',[
|
||||||
|
'TPF0'#17'TProbSmallerzForm'#16'ProbSmallerzForm'#4'Left'#3' '#1#6'Height'#3
|
||||||
|
+#194#0#3'Top'#3#161#0#5'Width'#3'@'#1#7'Caption'#6' Probability of a smaller'
|
||||||
|
+' z score'#12'ClientHeight'#3#194#0#11'ClientWidth'#3'@'#1#6'OnShow'#7#13'Re'
|
||||||
|
+'setBtnClick'#10'LCLVersion'#6#6'0.9.30'#0#6'TLabel'#6'Label1'#4'Left'#2#9#6
|
||||||
|
+'Height'#2#16#3'Top'#2#16#5'Width'#2'h'#7'Caption'#6#19'Observed z score = '
|
||||||
|
+#11'ParentColor'#8#0#0#5'TEdit'#5'zEdit'#4'Left'#2'q'#6'Height'#2#23#3'Top'#2
|
||||||
|
+#9#5'Width'#2'S'#8'TabOrder'#2#0#4'Text'#6#5'zEdit'#0#0#6'TLabel'#6'Label2'#4
|
||||||
|
+'Left'#2#9#6'Height'#2#16#3'Top'#2'.'#5'Width'#2'['#7'Caption'#6#18'Probabil'
|
||||||
|
+'ity < z = '#11'ParentColor'#8#0#0#5'TEdit'#9'ProbzEdit'#4'Left'#2'q'#6'Heig'
|
||||||
|
+'ht'#2#23#3'Top'#2'('#5'Width'#2'P'#8'TabOrder'#2#1#4'Text'#6#9'ProbzEdit'#0
|
||||||
|
+#0#7'TButton'#9'CancelBtn'#4'Left'#2#8#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2
|
||||||
|
+'R'#6'Cancel'#9#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#2#0
|
||||||
|
+#0#7'TButton'#8'ResetBtn'#4'Left'#2'q'#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2
|
||||||
|
+'R'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#3#0#0
|
||||||
|
+#7'TButton'#10'ComputeBtn'#4'Left'#3#216#0#6'Height'#2'!'#3'Top'#2'P'#5'Widt'
|
||||||
|
+'h'#2'R'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'
|
||||||
|
+#2#4#0#0#7'TButton'#9'ReturnBtn'#4'Left'#2's'#6'Height'#2'!'#3'Top'#3#130#0#5
|
||||||
|
+'Width'#2'M'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#5#0#0#0
|
||||||
|
]);
|
||||||
60
applications/lazstats/source_orig/probsmallerzunit.pas
Normal file
60
applications/lazstats/source_orig/probsmallerzunit.pas
Normal file
@@ -0,0 +1,60 @@
|
|||||||
|
unit ProbSmallerzUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, functionslib;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TProbSmallerzForm }
|
||||||
|
|
||||||
|
TProbSmallerzForm = class(TForm)
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
ProbzEdit: TEdit;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
zEdit: TEdit;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
ProbSmallerzForm: TProbSmallerzForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TProbSmallerzForm }
|
||||||
|
|
||||||
|
procedure TProbSmallerzForm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
zEdit.Text := '';
|
||||||
|
ProbzEdit.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TProbSmallerzForm.ComputeBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
zprob, z : double;
|
||||||
|
outvalue : string;
|
||||||
|
begin
|
||||||
|
z := StrToFloat(zEdit.Text);
|
||||||
|
zprob := probz(z);
|
||||||
|
outvalue := format('%6.4f',[zprob]);
|
||||||
|
ProbzEdit.Text := outvalue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I probsmallerzunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
80
applications/lazstats/source_orig/probzunit.lfm
Normal file
80
applications/lazstats/source_orig/probzunit.lfm
Normal file
@@ -0,0 +1,80 @@
|
|||||||
|
object ProbzForm: TProbzForm
|
||||||
|
Left = 238
|
||||||
|
Height = 190
|
||||||
|
Top = 161
|
||||||
|
Width = 320
|
||||||
|
Caption = 'Probability of a larger z score'
|
||||||
|
ClientHeight = 190
|
||||||
|
ClientWidth = 320
|
||||||
|
OnShow = ResetBtnClick
|
||||||
|
LCLVersion = '0.9.30'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 16
|
||||||
|
Width = 104
|
||||||
|
Caption = 'Observed z score = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object zEdit: TEdit
|
||||||
|
Left = 113
|
||||||
|
Height = 23
|
||||||
|
Top = 9
|
||||||
|
Width = 83
|
||||||
|
TabOrder = 0
|
||||||
|
Text = 'zEdit'
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 9
|
||||||
|
Height = 16
|
||||||
|
Top = 46
|
||||||
|
Width = 91
|
||||||
|
Caption = 'Probability > z = '
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object ProbzEdit: TEdit
|
||||||
|
Left = 113
|
||||||
|
Height = 23
|
||||||
|
Top = 40
|
||||||
|
Width = 80
|
||||||
|
TabOrder = 1
|
||||||
|
Text = 'ProbzEdit'
|
||||||
|
end
|
||||||
|
object CancelBtn: TButton
|
||||||
|
Left = 8
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Cancel = True
|
||||||
|
Caption = 'Cancel'
|
||||||
|
ModalResult = 2
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object ResetBtn: TButton
|
||||||
|
Left = 113
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Reset'
|
||||||
|
OnClick = ResetBtnClick
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object ComputeBtn: TButton
|
||||||
|
Left = 216
|
||||||
|
Height = 33
|
||||||
|
Top = 80
|
||||||
|
Width = 82
|
||||||
|
Caption = 'Compute'
|
||||||
|
OnClick = ComputeBtnClick
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object ReturnBtn: TButton
|
||||||
|
Left = 115
|
||||||
|
Height = 33
|
||||||
|
Top = 130
|
||||||
|
Width = 77
|
||||||
|
Caption = 'Return'
|
||||||
|
ModalResult = 1
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
end
|
||||||
22
applications/lazstats/source_orig/probzunit.lrs
Normal file
22
applications/lazstats/source_orig/probzunit.lrs
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
{ This is an automatically generated lazarus resource file }
|
||||||
|
|
||||||
|
LazarusResources.Add('TProbzForm','FORMDATA',[
|
||||||
|
'TPF0'#10'TProbzForm'#9'ProbzForm'#4'Left'#3#238#0#6'Height'#3#190#0#3'Top'#3
|
||||||
|
+#161#0#5'Width'#3'@'#1#7'Caption'#6#31'Probability of a larger z score'#12'C'
|
||||||
|
+'lientHeight'#3#190#0#11'ClientWidth'#3'@'#1#6'OnShow'#7#13'ResetBtnClick'#10
|
||||||
|
+'LCLVersion'#6#6'0.9.30'#0#6'TLabel'#6'Label1'#4'Left'#2#9#6'Height'#2#16#3
|
||||||
|
+'Top'#2#16#5'Width'#2'h'#7'Caption'#6#19'Observed z score = '#11'ParentColor'
|
||||||
|
+#8#0#0#5'TEdit'#5'zEdit'#4'Left'#2'q'#6'Height'#2#23#3'Top'#2#9#5'Width'#2'S'
|
||||||
|
+#8'TabOrder'#2#0#4'Text'#6#5'zEdit'#0#0#6'TLabel'#6'Label2'#4'Left'#2#9#6'He'
|
||||||
|
+'ight'#2#16#3'Top'#2'.'#5'Width'#2'['#7'Caption'#6#18'Probability > z = '#11
|
||||||
|
+'ParentColor'#8#0#0#5'TEdit'#9'ProbzEdit'#4'Left'#2'q'#6'Height'#2#23#3'Top'
|
||||||
|
+#2'('#5'Width'#2'P'#8'TabOrder'#2#1#4'Text'#6#9'ProbzEdit'#0#0#7'TButton'#9
|
||||||
|
+'CancelBtn'#4'Left'#2#8#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'R'#6'Cancel'#9
|
||||||
|
+#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#7'TButton'#8
|
||||||
|
+'ResetBtn'#4'Left'#2'q'#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'R'#7'Caption'#6
|
||||||
|
+#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#3#0#0#7'TButton'#10'C'
|
||||||
|
+'omputeBtn'#4'Left'#3#216#0#6'Height'#2'!'#3'Top'#2'P'#5'Width'#2'R'#7'Capti'
|
||||||
|
+'on'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#4#0#0#7'TBu'
|
||||||
|
+'tton'#9'ReturnBtn'#4'Left'#2's'#6'Height'#2'!'#3'Top'#3#130#0#5'Width'#2'M'
|
||||||
|
+#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#5#0#0#0
|
||||||
|
]);
|
||||||
60
applications/lazstats/source_orig/probzunit.pas
Normal file
60
applications/lazstats/source_orig/probzunit.pas
Normal file
@@ -0,0 +1,60 @@
|
|||||||
|
unit ProbzUnit;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||||
|
StdCtrls, functionslib;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TProbzForm }
|
||||||
|
|
||||||
|
TProbzForm = class(TForm)
|
||||||
|
ReturnBtn: TButton;
|
||||||
|
CancelBtn: TButton;
|
||||||
|
ResetBtn: TButton;
|
||||||
|
ComputeBtn: TButton;
|
||||||
|
ProbzEdit: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
zEdit: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
procedure ComputeBtnClick(Sender: TObject);
|
||||||
|
procedure ResetBtnClick(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
ProbzForm: TProbzForm;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TProbzForm }
|
||||||
|
|
||||||
|
procedure TProbzForm.ResetBtnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
zEdit.Text := '';
|
||||||
|
ProbzEdit.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TProbzForm.ComputeBtnClick(Sender: TObject);
|
||||||
|
VAR
|
||||||
|
zprob, z : double;
|
||||||
|
outvalue : string;
|
||||||
|
begin
|
||||||
|
z := StrToFloat(zEdit.Text);
|
||||||
|
zprob := 1.0 - probz(z);
|
||||||
|
outvalue := format('%6.4f',[zprob]);
|
||||||
|
ProbzEdit.Text := outvalue;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I probzunit.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
5222
applications/lazstats/source_orig/project1.lrs
Normal file
5222
applications/lazstats/source_orig/project1.lrs
Normal file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user