You've already forked lazarus-ccr
LazStats: Adding original source, part 5.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7884 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
BIN
applications/lazstats/source_orig/LazStats.ico
Normal file
BIN
applications/lazstats/source_orig/LazStats.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
64
applications/lazstats/source_orig/LazStats.ini
Normal file
64
applications/lazstats/source_orig/LazStats.ini
Normal file
@ -0,0 +1,64 @@
|
||||
[LANGUAGE]
|
||||
DEFAULT=ENGLISH
|
||||
[ENGLISH]
|
||||
101=Directions: For entry of data on this form, enter the number of rows, columns and slices in the boxes provided. Press enter after each entry. Then enter the frequencies observed for each cell in the grid. If entering data from a file in the main grid, select the row, column, slice and frequency variables by selecting from the list of variables and clicking the right-arrow for the corresponding variable. Click the compute button to obtain the results.
|
||||
102=The AxBxR ANOVA involves two between treatment factors and repeated measures factors. Two grid column variables contain the A and B treatment values (codes 1, 2, etc.) and 2 to K grid column variables for the repeated measure observations. All ABC groups are assumed to be of the same size. There is a maximum of 20 repeated measures.
|
||||
103=This procedure analyzes fixed effects with up to three levels of interaction and one or more covariates. Multiple regression methods are used (See "Multiple Regression in Behavioral Research" by Elazar J. Pedhazur, Harcourt, Brace, College Publishers, 1997, Chapter 16, pages 675-713.) A test is performed for the assumption of homogeneous regression slopes in addition to the ANCOVA. Both adjusted and unadjusted means are reported. Comparisons are made among the adjusted means.
|
||||
104=Directions: Select a variable to analyze. You may analyxe series from either a column (default) or a "Case" row. You may elect to analyze all values in a column (or row) as desiredClick the buttons for any desired smoothing options. The program will automatically "split" the list of row values (or column values) for that variable into two sub-sets of X and Y scores with each Y score being the value which "lags" behind the X score in the list by k lag values. All possible lags which yield a sample as large as 3 or more are computed and plotted in a "correlogram". You may optionally print the lag,
|
||||
correlation, means, standard deviations and confidence interval for each correlation. The differences between original and smoothed values (residuals) may be plotted. The smoothed points replace the original values in the analysis if smoothing is elected.
|
||||
105=The main grid should contain a symetric matrix of similarity or dissimilarity values representing distances among the objects to be clustered. Check the type box io indicate if the measures are similarities (e.g. correlations) or dissimilarities.
|
||||
106=Directions: It is assumed you have one grid column variable representing the group codes for the (A) between treatment groups effect and 2 to k column variables representing the repeated measures. Group codes should be sequential values of 1, 2, etc. You may elect to plot the means.
|
||||
107=Directions: You may elect to complete a 1, 2 or 3 way ANOVA by selecting a dependent variable and 1, 2 or 3 factor variables. If you elect post-hoc tests, comparisons are made between factor levels. NOTE: some post-hoc comparisons are made only with equal N's.
|
||||
108=Directions: First click on the variable name that represents the group codes. Next, click on the variable that reresents the measurement to be plotted. Click the Compute button to obtain the results. You can obtain a single boxplot for all cases if you use a "dummy" group variable containing only the group code 1 for all cases.
|
||||
109=Directions: First, select the categorical variables of your study. Select them in the order of the desired breakdown. Next, slect the continuous variable for which you want statistics for each cell obtained by by breaking down the categorical variables into their respective categories.
|
||||
110=Directions: 1. Select the variable containing the bubble identification mumber - an integer in the range of 1 to N objects. 2. Select the variable representing the X axis integer value for the object. This is the repeated measures variable. 3. Select the variable representing the Y axis. This should be a floating point value. 4. Select the variable representing the size of the bubble for each object to be plotted at the X and Y location. NOTE: Each data line reresents one replication (X value) of the object plotted. See the example data in the file labeled BubblePlot.LAZ
|
||||
111=NOTE: No. of left hand variables must be less than or equal to the number of right hand variables.
|
||||
112=Directions: Click on the variable that represents the measurement. Click on the Sigma button to change the default value. Click the Compute button to obtain the results.
|
||||
113=Directions: Two to k variables representing dichotomous (0,1) values are analyzed for N cases. The values of the variables reflect repeated observations on the same subjects or on matched subjects. Click the variables on the left to analyze and enter them by clicking the right arrow button.
|
||||
114=Directions: Forst select the test scores from the available variables. You will see a default reliability and weight ssigned to each score selected in list boxes to the right. If you click on either a reliability or a weight, an input box will appear in which you can enter a new reliability or weight. Note - you can use the KR#21 reliability program to estimate reliability if you know the maximum score.
|
||||
115=Directions: A Judge's ratings or observations are recorded as variables (columns) 1 through k. Each line conrresponds to a different judge (person making the rating.) Select the variables from the left list to analyze and click on the right arrow button to enter them. To remove a variable from the list of selected ones, click on the variable name in the selected list and click the left arrow button. Click the Compute button to obtain the results.
|
||||
116=Directions: Select each categorical variable from the available variables in the leftmost box in the order that you wish to have the breakdown proceed. Click the OK button to start the analysis.
|
||||
117=Directions: First, click on the variable name that represents the sample lot number. Next, click on the variable that represents the measurement. Click on the Delta size and enter the desired value. Click on the alpha and/or beta probability boxes and enter values to change from the default values. You may also enter target specifications if you first click the check box to use a target specification.
|
||||
118=Description: Double Declining Value determines accelerated depreciation values for an asset given the initial cost, life expectancy, and value, and depreciation period. EXAMPLE: What is the depreciation value for a computer with a life expectancy of three years if it initially cost $2,000.00 with no expected value at the end of the three years? Initial Cost = 2000.00 Life Expectancy = 3 End Value = 0.0 Depreciation Period = 3 ANSWER: $148.15
|
||||
119=This procedure provides means, variances, standard deviations, skewness, kurtosis and range values for each variable selected. Select the variables in the left list and enter them for analysiis by clicking the right arrow. If you select the z score option, a new variable will be added to your grid for each variable you select. The new variable will contain the transformation of the original variable into a z score.
|
||||
120=Each row of the grid below corresponds to one column of the data grid. Complete the information requested in each cell of the row. To add another variable (row in the dictionary), press the down-arrow on your keyboard.
|
||||
121=Directions: Specify the lag value for the differences desired, e.g. 1 to obtain the difference between point 1 and 2, 2, and 3, etc. Also, indicate the order, i.e. the number of times to repeat the differencing operation. Click OK when ready.
|
||||
122=This procedure is an adaptation of the program written by Niels G. Waller, Dept. of Psychology, University of California-Davis, Jan. 1998. It's purpose is to identify test items that differ in the response pattern for two groups: a reference group and a focal group. The file of data to be analyzed should consist of a variable containing a code designating the two groups and variables containing subject's item responses coded 0 for incorrect and 1 for correct. No missing data may be included. The results provide the Mantel-Haenszel statistics for identifying those items which are different for the two groups.
|
||||
123=Directions: The number of intervals may not exceed the number of cses. To change the interval size, click on the current size and replace it with a new size. Press the enter button after entering a new value.
|
||||
124=Directions: The two way ANOVA on ranks is similar to a mixed design ANOVA with repeated measures (1 to k conditions) on ssubjects in 1 to M groups. The program expects one variable to represent the group code, and 1 to k score variables for each case. The scores for the cases in each group are used to obtain rankings among the k scores within each group. The test is whether or not the rank totals for the conditions are equal within the expected sampling variability.
|
||||
125=This procedure calculates the Kappa coefficient for objects or subjects classified into two or more categories by a group of judges or procedures. Each object is coded with a sequential integer ranging from 1 to the number of objects. Each judge is also coded with an integer from 1 to the number of judges. Categories are numbered with integers from 1 to the number of categories. These are column variables. It is expected that the total number of cases will be the number of judges times the number of objects.
|
||||
126=Directions: he GLM procedure permits the user to specify multiple dependent variables and multiple independent variables. Variables for both dependent and independent may be either continuous or categorical variables. The independent variables are classified as fixed effects, random effects, repeated measures or covariates. Interactions among the independent variables may be specified for the model used. To define an interaction in your model, click the start definition button and then click on each independent variable to be included in the interaction. Click the end definition button to end the definition. A maximum of 5 terms is allowed in an interaction.
|
||||
127=You may obtasin results for a single group or for experimental and control groups. If there is only one group, leave the group variable blank. Data entered on each line of the data grid represent one case within a group. You will typically have two or three columns of data with variable labels like "TIME", "GROUP" and "EVENT". Each variable should be defined as an integer in your variable definitions. Note that the code for experimental and control groups are 1 and 2. The coding for the event or censored is 1 for the event (death) and 2 for the censored (lost, can't observe.) An example file with the name "KaplanMeierTest.LAZ is available for use.
|
||||
128=This procedure provides both the weighted and unweighted Kappa Coefficients for assessing the consistency of judgements for two raters. It also provides other measures of the independence of the ratings. If nominal categories are used in the ratings, the unweighted statistic is appropriate. If the categories represent ordinal data, the weighted Kappa statistics may be appropriate. The number of rows must equal the number of columns to calculate the Kappa statistics.
|
||||
129=The main grid should contain data values representing variables meansured on the objects to be clustered (rows.) Enter the desired number of clusters, select the variables to use in clustering and select the options desired.
|
||||
130=See B. J. Winer's "Statistical Principles in Experimental Design", McGraw-Hill Book Company, New York, 1962, pages 514-577 for the analyses plans provided in this procedure. Note: Factor codes should be formatted as integers, data values as floating point values. All cell sizes should be equal and no missing values are allowed.
|
||||
131=Complete the specifications for your log-linear analysis of cross-classivation data as indicated below. Complete step 1, step 2 and step 3. Select any options desired. Click the Compute button to obtain the results. Should you need to start over, click the Reset button. When your analysis or analyses are commpleted, click the Return button.
|
||||
132=Directions: Enter the order of the moving averae. The order is the number of values on each side of a point to be included in the average. When you enter a value, a list of corresponding thetas will appear in the list. Click on each theta of the list for entry of the desired weight (default 1.0). Enter a weight in the theta value box and press the enter key. Repeat for each theta in the list. Click the Apply button when ready. The theta values will be re-proportioned to sum to 1.0 accross all values. Click the OK button to continue.
|
||||
133=Directions: You may generate sample multivariate data from a population with known intercorrelation among the variables and with known population means and standard deviations. Enter the number of variables and size of the sample to generate. Then enter the correlations among the variables row-wise the program will fill in the lower triangular values.) Next, enter the population means and standard deviations. When ready to generate the data, click the ComputeBtn. The data will be placed in the data grid. You can save this data to a file.
|
||||
134=Directions: 1. Select the X Variable 2. Select the Y variable 3. Select the group variable (integer) 4. Enter a label for the plot 5. Select an option if desired. 6. Click the Compute button
|
||||
135=If you use a language that uses the comma (,) separator to separate the whole part from the fractional part of a number (e.g. 123,45) then select the EUROPEAN option. The default is the English convention (a period, e.g. 123.45). You can enter a default directory to locate your data files. Click a button for values that represent a missing value and click a button that indicates how you want to display values in a grid cell (justification.)
|
||||
136=For partial and semi-partial correlations, select the dependent variable then select the predictor variable(s), and finally the variable(s) to be partialled. Note that simple, higher order and multiple simple and higher order partialling may be completed as a function of the number of predictors and partialled variables included in the analysis.
|
||||
137=Directions: The p Chart for nonconforming parts assumes you have a variable (column of data) which represents the number of nonconforming parts in a sample lot of size N. You are expected to enter the sample size N in which each of the observations was made. You will also need to enter P, the expected or target proportion of defects in a sample of N parts. To select the measurement variable, click on the name of the variable in the list of variables available. Enter the N and P values in the boxes provided. If you desire a sigma value other than the default, click the desired button. Click the Compute button to obtain the results.
|
||||
138=Directions: To use the program you should have the following values coded for each subject: (1) a variable (1/2) for the reference or focus group. (2) one or more items which contain an item score (integers representing response categories, e.g. a value from 1 to 5. Follow these steps to complete the analysis: (1) Enter the items in the available variables list into the selected items list. (2) Enter the group variable from the available variables list to the group box. (3) Enter the Lowest Item Score in the corresponding box. (4) Enter the highest Item Score in the corresponding box. (5) Enter the Reference Group Code in its box. (6) Enter the Focal Group Code in its box. (7) Enter the number of levels of total scores to analyze in the corresponding box. (8) For each level, enter the minimum and maximum scores. Click the scroll bar to go to the next level. You may need to click the down end of the scroll bar to correct errors or change minimum and maximum values for a level.
|
||||
139=Directions: In polynomial regression smoothing, the value of a point y at a given time t is estimated by the sum of regression weights times t raised to a power of 1, 2, etc. up to the order specified. Enter the order and click the OK button.
|
||||
140=Directions: Cases should consist of k dichotomous item scores (0 and 1 scores.) You can use the Classical Test program to score your test and save the item scores to the grid if necessary.
|
||||
141=Directions: First, click on the variable name that represents the sample lot number. Next, click on the variable that represents the measurement. Click on the sigma button to change the default and click on any of the optional check boxes and enter specifications desired. Click the Compute button to obtain the results. Up to 200 groups may be analyzed. Note! Equal group sizes of 2 to 25 required for ranges analysis. Control limits are plus and minus 3 sigma.
|
||||
142=R = 1 - (s2 / S2) x (1 - r) where R is the estimated reliability of a test obtained on a new group with variance S2 when a reliability of r was obtained for the same test on a group with variance s2. It is assumed the difference in variance is due soley to the difference in true score variance of the two groups. See Theory of Mental Tests by H. Guliksen, 1950.
|
||||
143=Directions: Your data grid should consist of a table of N rows and M+1 column variables. Each row should have a string type label variable and M columns of integer frequency data. 1. Enter the variable for the row labels (strings) 2. Enter the variables representing the columns of frequency integers 3. Select the Options desired 4. If only one variable is to be considered the reference variable, click the button labeled "Use Only the reference variable selected and click on one of the column variables just selected to represent the reference distribution. 5. If each column variable is to be considered as a reference variable, click on the other button labeled "Let each variable be a reference variable" 6. Change the alpha level for significance if desired. 7. Check the Bonferroni contrasts if desired. 8. Click the Compute button to obtain the results.
|
||||
144=This procedure calculates the Pearson Product-Moment correlation coefficients for two or more variables. If one or more of the variables selected have been filtered out or contain a missing value, the case containing that variable will not be included in the analysis (list-wise deletion.) You may elect to obtain not only the correlations but also the raw cross-products, the variance-covariance matrix and the means, variances and standard deviations of the variables. Click on the variable in the list to the left and enter it for analysis by clicking the right arrow box. Repeat this for each variable to be included or click the ALL button to include all variables.
|
||||
145=Directions: First click on the variable name that represents the sample lot number. Next, click on the variable that represents the measurement. Click the Compute Button to obtain the results. NOTE! Equal group (lot) sizes of 2 to 25 required for Sigma analysis. Control limits are plus and minus 3 sigma. Up to 200 lots may be analyzed.
|
||||
146=Description: Straight Line Depreciation calculates the depreciation allowance for an asset over one period in it's life. The function divides the cost minus the salvage value by the number of years of useful life of the asset. Cost is the inital amount paid for the asset. Salvage is the value left at the end of the asset's life. EXAMPLE: What is the depreciation value on might expect for a computer purchased for $2,000.00 and expected to have a useful life of three years with no residual value? ANSWER: Approximately $666.67
|
||||
147=R = Kr / (1 + (K - 1) r where R is the estimated reliability of a test when increased by a factor of K. K is the number of items in the lengthened test divided by the number of items in the original test. r is the reliability of the original test.
|
||||
148=Directions: Click on the variables from the left list of available variables. Click the right-pointing arrow to enter your selection(s). You can remove a selected variable by clicking on it and click the left-pointing arrow button. Click the Compute button to do the analysis. NOTE: Some leaves may represent fragments smaller than the leaf depth.
|
||||
149=Description: Sum of Years Digits Depreciation calculates depreciation amounts for an asset using an accelerated depreciation method. This allows for higher depreciation in the early years of an asset's life. Cost is the initial cost of the asset. Salvage is the value of the asset at the end of it's life expectancy. Life is the length of the asset's life expectancy. Period is the period that you wish to calculate the depreciation. EXAMPLE: What is the depreciation for period 1, 2 or 3 that one can claim for a computer purchased at a price of $2,000.00 and expected to have a useful life of 3 years with no salvage value? ANSWER: $1,000.00 the first year, $666.67 the second period and $333.33 the last year.
|
||||
150=New variables may be created that are transformations of an existing variable or a combination of two variables or a variable and a constant. For example, you may want to create a new variable that is the natural log of an existing variable. As another example, you may want to create a variable that is the product of two other variables. To create the new variable, enter a name for the new variable in the edit box provided for the new variable name. Next, select the transformation in the list of functions available. The selected transformation will be shown in a box below the list of functions. Next, click on the name of the variable for the first arguement of the function to be performed and use the corresponding right arrow button to enter it. If a second variable is required (V2) click on the name of the variable and enter it with the corresponding arrow for V2. If a constant is required, click on the constant edit box and enter the value. Click on the Compute button.
|
||||
151=Directions: For Dependent samples, click on the three variables representing X, Y and Z (in that order.) The test will compare the r(x,y) with the r(x,z). For Independent samples, click on the X and Y variables to be correlated and then the variable representing the group coding variable. The correlations obtained in each of two groups will be compared.
|
||||
152=Directions: For independent groups you should have a variable indicating group membership using 1 and 2 for the group codes and a variable with 0 or 1 values which represent observed or not observed in the group. For dependent proportions you should have two variables code with 0 or 1 in each case.
|
||||
153=Select the Dependent Variable and enter it in its box. Select the predictors (including the ones dependent on the instrumental variables) and enter them in the explanatory list. Copy the predictors dependent on the instrumental variables to the Instrumental Variables list. Add the instrumental variables to the same list. Select options desired and click the Compute button. NOTE: The number of variables in the Instrumental list should be equal to or greater than the Explanatory list.
|
||||
154=Directions: Data may be entered on this form or from a file loaded in the grid. First, enter the number of rows and columns pressing the return key after each entry. If entering Grid data, click on the variables corresponding to row, column and frequency data. If entering on this form, enter the frequencies in the cells corresponding to the row and column of your data.
|
||||
155=Directions: Click on the variable that represents the count of defects. Enter the number inspected in each subgroup (lot.) Note - all groups are of equal size. Click on a Sigma button to change to a different value. You may enter a specific value if you choose the X sigma option. Click the Compute button to see the results.
|
||||
156=Directions: First click on one of the variables representing matched pairs of observations from the list of available variables. Click the right-pointing button to enter your choice for variable 1. Repeat for the second variable. Click the Compute button to obtain the results.
|
||||
157=Directions: The repeated measures ANOVA requires you to select two or more variables (columns) which represent repeated observations on the same subjects (rows.) Homogeneity of variance and covariance are assumed and may be tested as an option. In addition, the ANOVA provides the basis for estimates of reliability as developed by Hoyt (Intraclass reliability) with the adjusted estimate equivalent to the Cronbach Alpha estimate. Finally, you may elect to plot the means obtained for the repeated measures.
|
||||
158=Weighted Least Squares Regression lets you save the residuals and squared residuals for an OLS weighted analysis. You may also complete a regression of these residuals on the independent variables and save the residuals and squared residuals from those analyses. The square root of the reciprocal of the absolute squared residuals from this last analysis may be used as weights to reduce the heteroscedasticity in your data. If this option is chosen, an OLS regression of the weighted variables is conducted. This may be done through the origin.
|
||||
159=Directions: Firs, click in the variable name that represents the sample lot numbers. Next, click on the variable that represents the measurement. Click on the sigma button to change the default and click on any of the optional check boxes and enter specifications desired. Click the Compute button to obtain the results.
|
||||
160=Correspondence analysis is a method for examining the relationship between two sets of categorical variables much as in a Chi-Squared analysis of a two-way contingency table. In fact, a typical chi-squared analysis is completed as part of this procedure. In addition, visualization of the relationships among the columns or rows of the analysis is performed in a manner similar to factor analysis. The data analyzed in the visualization is the table of relative proportions, that is, the original frequency values divided by the sum of all frequencies. The relative proportions of the row sums and the column sums are termed the �masses� of the rows or columns. The method used to analyze the relative proportions involves what is now called the �Generalized Singular Value Decomposition� or more simply the generalized SVD. This method obtains roots and vectors of a rectangular matrix by decomposing that matrix into three portions: a matrix of left singular column vectors (A) that has n rows and q columns (n � q), a square diagonal matrix with q rows and columns of singular values (D), and a transposed matrix (B�) that is m x q in size of right generalized singular vectors (m = q-1). Completing this analysis involves several steps. The first is to obtain the (regular) SVD analysis of a matrix Q defined as Dr-1/2PDc -1/2 where Dr and Dc are diagonal matrices of row and column relative proportions and P is the matrix of relative proportions. The SVD of Q gives Q = U D V� where D is the desired diagonal matrix of eigenvalues and U�U = V�V = I. It should be noted that the first of the q roots is trivial and to be ignored. At this point we obtain A = Dr1/2U and B = Dc 1/2 V. The results of this SVD analysis is available on the output. Now P = ADB�. The row coordinates F and column coordinates G are then computed according to the table: Analysis Choice Button Selected Row Coordinates Column Coordinates Row Profile Row F = Dr-1AD G = Dc-1B Column Profile Column F = Dr-1A G = Dc-1BD Both Profiles Both F = Dr-1AD G = Dc-1BD If Row profiles are computed, the row coordinates are weighted centroids of the column coordinates and the inertias D2 refer only to the row points. If the column profiles are computed, the column coordinates are weighted eentroids of the row coordinates and the inertias D2 refer only to the column points. If both profiles are selected, neither row or column coordinates are weighted centroids of the other but the inertias D2 refer to both sets of points. The q-1 inertias are plotted in a manner similar to a scree plot of roots in a factor analysis. The total inertia is, in fact, the chi-squared statistic divided by the total of all cell frequencies. You may elect to plot the coordinates for any two pairs of coordinates. This will provide a graphical representation of the separation of the row or column categories similar to a plot of variables in a discriminant function analysis or factors in a factor analysis. A way of looking at correspondence analysis is to consider it as a method for decomposing the overall inertia by identifying a small number of dimensions in which the deviations from the expected values can be represented. This is similar to factor analysis where the total variance is decomposed so as to arrive at a lower dimensional representation of variables.
|
||||
2298
applications/lazstats/source_orig/LazStats.lpi
Normal file
2298
applications/lazstats/source_orig/LazStats.lpi
Normal file
File diff suppressed because it is too large
Load Diff
216
applications/lazstats/source_orig/LazStats.lpr
Normal file
216
applications/lazstats/source_orig/LazStats.lpr
Normal file
@ -0,0 +1,216 @@
|
||||
program LazStats;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms
|
||||
{ you can add units after this }, MainUnit, Globals, DictionaryUnit,
|
||||
OptionsUnit, OutPutUnit, LicenseUnit, DataProcs, TransFrmUnit, FunctionsLib,
|
||||
DescriptiveUnit, GraphLib, FreqSpecsUnit, FreqUnit, CrossTabUnit, MatrixLib,
|
||||
BreakDownUnit, BoxPlotUnit, BlankFrmUnit, NormalityUnit, Rot3DUnit,
|
||||
Printer4Lazarus, PlotXYUnit, BubblePlotUnit, StemLeafUnit, MultXvsYUnit,
|
||||
OneSampUnit, TwoCorrsUnit, TwoPropUnit, TtestUnit, BLKANOVAUNIT,
|
||||
AnovaTestsUnit, WithinANOVAUnit, AxSAnovaUnit, ABRANOVAUNIT, ANCOVAUNIT,
|
||||
LatinSpecsUnit, LatinSqrsUnit, RMatUnit, PartialsUnit, PointsUnit,
|
||||
DifferenceUnit, ExpSmoothUnit, FFTUnit, PolynomialUnit, AutoCorUnit,
|
||||
MoveAvgUnit, AutoPlotUnit, CanonUnit, GLMUnit, StepFwdMRUnit, BlkMRegUnit,
|
||||
BackRegUnit, BestRegUnit, SimultRegUnit, CoxRegUnit, LogRegUnit, LinProUnit,
|
||||
DiscrimUnit, RotateUnit, FactorUnit, HierarchUnit, PathUnit, LogLinScreenUnit,
|
||||
TwoWayLogLinUnit, ABCLogLinUnit, TestGenUnit, TestScoreUnit, RaschUnit,
|
||||
SuccIntUnit, GuttmanUnit, CompRelUnit, KR21Unit, SpBrUnit, RelChangeUnit,
|
||||
DIFUnit, PolyDIFUnit, ChiSqrUnit, SpearmanUnit, MannWhitUUnit, ExactUnit,
|
||||
ConcordanceUnit, KWANOVAUnit, WilcoxonUnit, CochranQUnit, SignTestUnit,
|
||||
FriedmanUnit, BinomialUnit, KendallTauUnit, KaplanMeierUnit, XBarUnit,
|
||||
RChartUnit, SigmaChartUnit, CUMSUMUNIT, CCHARTUNIT, PCHARTUnit, UChartUnit,
|
||||
CorSimUnit, ERRORCURVESUNIT, PCurvesUnit, DISTRIBUNIT, GenSeqUnit,
|
||||
GenRndValsUnit, MultGenUnit, LoanItUnit, SumYrsDepUnit, SLDUnit,
|
||||
DblDeclineUnit, RIDITUnit, TwoSLSUnit, WLSUnit, HelpUnit, SortCasesUnit,
|
||||
SelectCasesUnit, SelectIfUnit, RandomSampUnit, RangeSelectUnit, GridHelpUnit,
|
||||
RecodeUnit, KappaUnit, AvgLinkUnit, kmeansunit, SingleLinkUnit, GenKappaUnit,
|
||||
contexthelpunit, CompareDistUnit, matmanunit, scripteditorunit, rowinsertunit,
|
||||
rootmethodunit, scriptoptsunit, colinsertunit, gradebookunit, gradingunit,
|
||||
ProbzUnit, ProbSmallerzUnit, TwozProbUnit, InversezUnit, ProbChiSqrUnit,
|
||||
TprobUnit, FProbUnit, HyperGeoUnit, BNestAUnit, ABCNestedUnit,
|
||||
BartlettTestUnit, DataSmoothUnit, GroupFreqUnit, RunsTestUnit, XvsMultYUnit,
|
||||
SensUnit, CorrespondenceUnit, EquationUnit, CalculatorUnit, JPEGUnit,
|
||||
ResistanceLineUnit, MedianPolishUnit, OneCaseAnovaUnit, SmoothDataUnit,
|
||||
SRHTestUnit, AboutUnit, ItemBankingUnit, ItemCodesUnit, TFItemUnit,
|
||||
EssayItemUnit, MCItemUnit, MatchItemUnit, TestSpecsUnit, SimpleChiSqrUnit,
|
||||
LifeTableUnit, LSMRunit;
|
||||
|
||||
//{$IFDEF WINDOWS}{$R LazStats.rc}{$ENDIF}
|
||||
|
||||
{$R LazStats.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TOS3MainFrm, OS3MainFrm);
|
||||
Application.CreateForm(TDictionaryFrm, DictionaryFrm);
|
||||
Application.CreateForm(TOptionsFrm, OptionsFrm);
|
||||
Application.CreateForm(TOutputFrm, OutputFrm);
|
||||
Application.CreateForm(TLicenseFrm, LicenseFrm);
|
||||
Application.CreateForm(TTransFrm, TransFrm);
|
||||
Application.CreateForm(TDescriptiveFrm, DescriptiveFrm);
|
||||
Application.CreateForm(TGraphFrm, GraphFrm);
|
||||
Application.CreateForm(TFreqSpecsFrm, FreqSpecsFrm);
|
||||
Application.CreateForm(TFreqFrm, FreqFrm);
|
||||
Application.CreateForm(TCrossTabFrm, CrossTabFrm);
|
||||
Application.CreateForm(TBreakDownFrm, BreakDownFrm);
|
||||
Application.CreateForm(TBoxPlotFrm, BoxPlotFrm);
|
||||
Application.CreateForm(TBlankFrm, BlankFrm);
|
||||
Application.CreateForm(TNormalityFrm, NormalityFrm);
|
||||
Application.CreateForm(TRot3DFrm, Rot3DFrm);
|
||||
Application.CreateForm(TPlotXYFrm, PlotXYFrm);
|
||||
Application.CreateForm(TBubbleForm, BubbleForm);
|
||||
Application.CreateForm(TStemLeafFrm, StemLeafFrm);
|
||||
Application.CreateForm(TMultXvsYFrm, MultXvsYFrm);
|
||||
Application.CreateForm(TOneSampFrm, OneSampFrm);
|
||||
Application.CreateForm(TTwoCorrsFrm, TwoCorrsFrm);
|
||||
Application.CreateForm(TTwoPropFrm, TwoPropFrm);
|
||||
Application.CreateForm(TTtestFrm, TtestFrm);
|
||||
Application.CreateForm(TBlksAnovaFrm, BlksAnovaFrm);
|
||||
Application.CreateForm(TWithinANOVAFrm, WithinANOVAFrm);
|
||||
Application.CreateForm(TAxSAnovaFrm, AxSAnovaFrm);
|
||||
Application.CreateForm(TABRAnovaFrm, ABRAnovaFrm);
|
||||
Application.CreateForm(TANCOVAfrm, ANCOVAfrm);
|
||||
Application.CreateForm(TLatinSpecsFrm, LatinSpecsFrm);
|
||||
Application.CreateForm(TLatinSqrsFrm, LatinSqrsFrm);
|
||||
Application.CreateForm(TRMatFrm, RMatFrm);
|
||||
Application.CreateForm(TPartialsFrm, PartialsFrm);
|
||||
Application.CreateForm(TPointsFrm, PointsFrm);
|
||||
Application.CreateForm(TDifferenceFrm, DifferenceFrm);
|
||||
Application.CreateForm(TExpSmoothFrm, ExpSmoothFrm);
|
||||
Application.CreateForm(TFFTFrm, FFTFrm);
|
||||
Application.CreateForm(TPolynomialFrm, PolynomialFrm);
|
||||
Application.CreateForm(TAutocorrFrm, AutocorrFrm);
|
||||
Application.CreateForm(TMoveAvgFrm, MoveAvgFrm);
|
||||
Application.CreateForm(TAutoPlotFrm, AutoPlotFrm);
|
||||
Application.CreateForm(TCannonFrm, CannonFrm);
|
||||
Application.CreateForm(TGLMFrm, GLMFrm);
|
||||
Application.CreateForm(TStepFwdFrm, StepFwdFrm);
|
||||
Application.CreateForm(TBlkMregFrm, BlkMregFrm);
|
||||
Application.CreateForm(TBackRegFrm, BackRegFrm);
|
||||
Application.CreateForm(TBestRegFrm, BestRegFrm);
|
||||
Application.CreateForm(TSimultFrm, SimultFrm);
|
||||
Application.CreateForm(TCoxRegFrm, CoxRegFrm);
|
||||
Application.CreateForm(TLogRegFrm, LogRegFrm);
|
||||
Application.CreateForm(TLinProFrm, LinProFrm);
|
||||
Application.CreateForm(TDiscrimFrm, DiscrimFrm);
|
||||
Application.CreateForm(TRotateFrm, RotateFrm);
|
||||
Application.CreateForm(TFactorFrm, FactorFrm);
|
||||
Application.CreateForm(THierarchFrm, HierarchFrm);
|
||||
Application.CreateForm(TPathFrm, PathFrm);
|
||||
Application.CreateForm(TLogLinScreenFrm, LogLinScreenFrm);
|
||||
Application.CreateForm(TTwoWayLogLinFrm, TwoWayLogLinFrm);
|
||||
Application.CreateForm(TABCLogLinearFrm, ABCLogLinearFrm);
|
||||
Application.CreateForm(TTestGenFrm, TestGenFrm);
|
||||
Application.CreateForm(TTestScoreFrm, TestScoreFrm);
|
||||
Application.CreateForm(TRaschFrm, RaschFrm);
|
||||
Application.CreateForm(TSuccIntFrm, SuccIntFrm);
|
||||
Application.CreateForm(TGuttmanFrm, GuttmanFrm);
|
||||
Application.CreateForm(TCompRelFrm, CompRelFrm);
|
||||
Application.CreateForm(TKR21Frm, KR21Frm);
|
||||
Application.CreateForm(TSpBrFrm, SpBrFrm);
|
||||
Application.CreateForm(TRelChangeFrm, RelChangeFrm);
|
||||
Application.CreateForm(TDIFFrm, DIFFrm);
|
||||
Application.CreateForm(TPolyDIFFrm, PolyDIFFrm);
|
||||
Application.CreateForm(TChiSqrFrm, ChiSqrFrm);
|
||||
Application.CreateForm(TSpearmanFrm, SpearmanFrm);
|
||||
Application.CreateForm(TMannWhitUFrm, MannWhitUFrm);
|
||||
Application.CreateForm(TFisherFrm, FisherFrm);
|
||||
Application.CreateForm(TConcordFrm, ConcordFrm);
|
||||
Application.CreateForm(TKWAnovaFrm, KWAnovaFrm);
|
||||
Application.CreateForm(TWilcoxonFrm, WilcoxonFrm);
|
||||
Application.CreateForm(TCochranQFrm, CochranQFrm);
|
||||
Application.CreateForm(TSignTestFrm, SignTestFrm);
|
||||
Application.CreateForm(TFriedmanFrm, FriedmanFrm);
|
||||
Application.CreateForm(TBinomialFrm, BinomialFrm);
|
||||
Application.CreateForm(TKendallTauFrm, KendallTauFrm);
|
||||
Application.CreateForm(TKaplanMeierFrm, KaplanMeierFrm);
|
||||
Application.CreateForm(TXBarFrm, XBarFrm);
|
||||
Application.CreateForm(TRChartFrm, RChartFrm);
|
||||
Application.CreateForm(TSigmaChartFrm, SigmaChartFrm);
|
||||
Application.CreateForm(TCUMSUMFrm, CUMSUMFrm);
|
||||
Application.CreateForm(TcChartFrm, cChartFrm);
|
||||
Application.CreateForm(TpChartFrm, pChartFrm);
|
||||
Application.CreateForm(TUChartFrm, UChartFrm);
|
||||
Application.CreateForm(TCorSimFrm, CorSimFrm);
|
||||
Application.CreateForm(TErrorCurvesFrm, ErrorCurvesFrm);
|
||||
Application.CreateForm(TPCurvesFrm, PCurvesFrm);
|
||||
Application.CreateForm(TDistribFrm, DistribFrm);
|
||||
Application.CreateForm(TGenSeqFrm, GenSeqFrm);
|
||||
Application.CreateForm(TGenRndValsFrm, GenRndValsFrm);
|
||||
Application.CreateForm(TMultGenFrm, MultGenFrm);
|
||||
Application.CreateForm(TLoanItFrm, LoanItFrm);
|
||||
Application.CreateForm(TSumYrsDepFrm, SumYrsDepFrm);
|
||||
Application.CreateForm(TSLDepFrm, SLDepFrm);
|
||||
Application.CreateForm(TDblDeclineFrm, DblDeclineFrm);
|
||||
Application.CreateForm(TRIDITFrm, RIDITFrm);
|
||||
Application.CreateForm(TTwoSLSFrm, TwoSLSFrm);
|
||||
Application.CreateForm(TWLSFrm, WLSFrm);
|
||||
Application.CreateForm(THelpFrm, HelpFrm);
|
||||
Application.CreateForm(TSortCasesFrm, SortCasesFrm);
|
||||
Application.CreateForm(TSelectFrm, SelectFrm);
|
||||
Application.CreateForm(TSelectIfFrm, SelectIfFrm);
|
||||
Application.CreateForm(TRandomSampFrm, RandomSampFrm);
|
||||
Application.CreateForm(TRangeSelectFrm, RangeSelectFrm);
|
||||
Application.CreateForm(TGridHelpFrm, GridHelpFrm);
|
||||
Application.CreateForm(TRecodeFrm, RecodeFrm);
|
||||
Application.CreateForm(TWeightedKappaFrm, WeightedKappaFrm);
|
||||
Application.CreateForm(TAvgLinkFrm, AvgLinkFrm);
|
||||
Application.CreateForm(Tkmeansfrm, kmeansfrm);
|
||||
Application.CreateForm(TSingleLinkFrm, SingleLinkFrm);
|
||||
Application.CreateForm(TGenKappaFrm, GenKappaFrm);
|
||||
Application.CreateForm(TContextHelpForm, ContextHelpForm);
|
||||
Application.CreateForm(TCompareDistFrm, CompareDistFrm);
|
||||
Application.CreateForm(Tmatmanfrm, matmanfrm);
|
||||
Application.CreateForm(Tscripteditorfrm, scripteditorfrm);
|
||||
Application.CreateForm(Trowinsertfrm, rowinsertfrm);
|
||||
Application.CreateForm(Trootmethodfrm, rootmethodfrm);
|
||||
Application.CreateForm(Tscriptoptsfrm, scriptoptsfrm);
|
||||
Application.CreateForm(Tcolinsertfrm, colinsertfrm);
|
||||
Application.CreateForm(TGradebookFrm, GradebookFrm);
|
||||
Application.CreateForm(Tgradingfrm, gradingfrm);
|
||||
Application.CreateForm(TProbzForm, ProbzForm);
|
||||
Application.CreateForm(TProbSmallerzForm, ProbSmallerzForm);
|
||||
Application.CreateForm(TTwozProbForm, TwozProbForm);
|
||||
Application.CreateForm(TInversezForm, InversezForm);
|
||||
Application.CreateForm(TChiSqrProbForm, ChiSqrProbForm);
|
||||
Application.CreateForm(TTprobForm, TprobForm);
|
||||
Application.CreateForm(TFForm, FForm);
|
||||
Application.CreateForm(THyperGeoForm, HyperGeoForm);
|
||||
Application.CreateForm(TBNestedAForm, BNestedAForm);
|
||||
Application.CreateForm(TABCNestedForm, ABCNestedForm);
|
||||
Application.CreateForm(TBartlettTestForm, BartlettTestForm);
|
||||
Application.CreateForm(TSmoothDataForm, SmoothDataForm);
|
||||
Application.CreateForm(TGroupFreqForm, GroupFreqForm);
|
||||
Application.CreateForm(Trunstestform, runstestform);
|
||||
Application.CreateForm(TXvsMultYForm, XvsMultYForm);
|
||||
Application.CreateForm(TSensForm, SensForm);
|
||||
Application.CreateForm(TCorrespondenceForm, CorrespondenceForm);
|
||||
Application.CreateForm(TEquationForm, EquationForm);
|
||||
Application.CreateForm(TCalculatorForm, CalculatorForm);
|
||||
Application.CreateForm(TJPEGform, JPEGform);
|
||||
Application.CreateForm(TResistanceLineForm, ResistanceLineForm);
|
||||
Application.CreateForm(TMedianPolishForm, MedianPolishForm);
|
||||
Application.CreateForm(TOneCaseAnovaForm, OneCaseAnovaForm);
|
||||
Application.CreateForm(TDataSmoothingForm, DataSmoothingForm);
|
||||
Application.CreateForm(TSRHTest, SRHTest);
|
||||
Application.CreateForm(TAboutBox, AboutBox);
|
||||
Application.CreateForm(TItemBankFrm, ItemBankFrm);
|
||||
Application.CreateForm(TCodesForm, CodesForm);
|
||||
Application.CreateForm(TTFItemForm, TFItemForm);
|
||||
Application.CreateForm(TEssayItemForm, EssayItemForm);
|
||||
Application.CreateForm(TMCItemForm, MCItemForm);
|
||||
Application.CreateForm(TMatchItemForm, MatchItemForm);
|
||||
Application.CreateForm(TTestSpecsForm, TestSpecsForm);
|
||||
Application.CreateForm(TSimpleChiSqrForm, SimpleChiSqrForm);
|
||||
Application.CreateForm(TLifeTableForm, LifeTableForm);
|
||||
Application.CreateForm(TLSMregForm, LSMregForm);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
5237
applications/lazstats/source_orig/LazStats.lrs
Normal file
5237
applications/lazstats/source_orig/LazStats.lrs
Normal file
File diff suppressed because it is too large
Load Diff
17
applications/lazstats/source_orig/LazStats.manifest
Normal file
17
applications/lazstats/source_orig/LazStats.manifest
Normal file
@ -0,0 +1,17 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
|
||||
<description>Your application description here.</description>
|
||||
<dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
|
||||
</dependentAssembly>
|
||||
</dependency>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<security>
|
||||
<requestedPrivileges>
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
</assembly>
|
||||
BIN
applications/lazstats/source_orig/LazStats.res
Normal file
BIN
applications/lazstats/source_orig/LazStats.res
Normal file
Binary file not shown.
433
applications/lazstats/source_orig/kaplanmeierunit.lfm
Normal file
433
applications/lazstats/source_orig/kaplanmeierunit.lfm
Normal file
@ -0,0 +1,433 @@
|
||||
object KaplanMeierFrm: TKaplanMeierFrm
|
||||
Left = 306
|
||||
Height = 366
|
||||
Top = 147
|
||||
Width = 493
|
||||
Caption = 'Kaplan-Meier Survival Analysis'
|
||||
ClientHeight = 366
|
||||
ClientWidth = 493
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 7
|
||||
Width = 90
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 217
|
||||
Height = 14
|
||||
Top = 24
|
||||
Width = 64
|
||||
Caption = 'Time Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 216
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 133
|
||||
Caption = 'Event vs Censored Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 217
|
||||
Height = 14
|
||||
Top = 128
|
||||
Width = 122
|
||||
Caption = 'Event = 1, Censored = 2'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 224
|
||||
Height = 14
|
||||
Top = 202
|
||||
Width = 133
|
||||
Caption = 'Group Variable (if 2 groups)'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 217
|
||||
Height = 14
|
||||
Top = 220
|
||||
Width = 153
|
||||
Caption = '(Experimental = 1, Control = 2)'
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 6
|
||||
Height = 332
|
||||
Top = 23
|
||||
Width = 163
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object TimeInBtn: TBitBtn
|
||||
Left = 176
|
||||
Height = 27
|
||||
Top = 23
|
||||
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 = TimeInBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object TimeOutBtn: TBitBtn
|
||||
Left = 177
|
||||
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 = TimeOutBtnClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object EventInBtn: TBitBtn
|
||||
Left = 177
|
||||
Height = 27
|
||||
Top = 112
|
||||
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 = EventInBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object EventOutBtn: TBitBtn
|
||||
Left = 177
|
||||
Height = 27
|
||||
Top = 144
|
||||
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 = EventOutBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object GroupInBtn: TBitBtn
|
||||
Left = 177
|
||||
Height = 27
|
||||
Top = 200
|
||||
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 = 177
|
||||
Height = 27
|
||||
Top = 232
|
||||
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 TimeEdit: TEdit
|
||||
Left = 216
|
||||
Height = 21
|
||||
Top = 41
|
||||
Width = 143
|
||||
TabOrder = 7
|
||||
Text = 'TimeEdit'
|
||||
end
|
||||
object EventEdit: TEdit
|
||||
Left = 217
|
||||
Height = 21
|
||||
Top = 144
|
||||
Width = 143
|
||||
TabOrder = 8
|
||||
Text = 'TimeEdit'
|
||||
end
|
||||
object GroupEdit: TEdit
|
||||
Left = 217
|
||||
Height = 21
|
||||
Top = 238
|
||||
Width = 143
|
||||
TabOrder = 9
|
||||
Text = 'TimeEdit'
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 175
|
||||
Height = 83
|
||||
Top = 273
|
||||
Width = 185
|
||||
Caption = 'Options:'
|
||||
ClientHeight = 65
|
||||
ClientWidth = 181
|
||||
TabOrder = 10
|
||||
object PlotChk: TCheckBox
|
||||
Left = 7
|
||||
Height = 17
|
||||
Top = 6
|
||||
Width = 172
|
||||
Caption = 'Graph Survival Probabilities (%)'
|
||||
TabOrder = 0
|
||||
end
|
||||
object PrintChk: TCheckBox
|
||||
Left = 7
|
||||
Height = 17
|
||||
Top = 34
|
||||
Width = 144
|
||||
Caption = 'Print Computation Results'
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 392
|
||||
Height = 32
|
||||
Top = 72
|
||||
Width = 83
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 392
|
||||
Height = 32
|
||||
Top = 128
|
||||
Width = 83
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 12
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 392
|
||||
Height = 32
|
||||
Top = 184
|
||||
Width = 83
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 13
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 392
|
||||
Height = 32
|
||||
Top = 240
|
||||
Width = 83
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 14
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Tag = 127
|
||||
Left = 392
|
||||
Height = 33
|
||||
Top = 16
|
||||
Width = 86
|
||||
Caption = 'Help'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 15
|
||||
end
|
||||
end
|
||||
352
applications/lazstats/source_orig/kaplanmeierunit.lrs
Normal file
352
applications/lazstats/source_orig/kaplanmeierunit.lrs
Normal file
@ -0,0 +1,352 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TKaplanMeierFrm','FORMDATA',[
|
||||
'TPF0'#15'TKaplanMeierFrm'#14'KaplanMeierFrm'#4'Left'#3'2'#1#6'Height'#3'n'#1
|
||||
+#3'Top'#3#147#0#5'Width'#3#237#1#7'Caption'#6#30'Kaplan-Meier Survival Analy'
|
||||
+'sis'#12'ClientHeight'#3'n'#1#11'ClientWidth'#3#237#1#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#7#5'Width'#2'Z'#7'Caption'#6#19'Available Variables'#11'ParentC'
|
||||
+'olor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#217#0#6'Height'#2#14#3'Top'#2#24#5
|
||||
+'Width'#2'@'#7'Caption'#6#13'Time Variable'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||
+'Label3'#4'Left'#3#216#0#6'Height'#2#14#3'Top'#2'p'#5'Width'#3#133#0#7'Capti'
|
||||
+'on'#6#26'Event vs Censored Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Labe'
|
||||
+'l4'#4'Left'#3#217#0#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2'z'#7'Caption'#6
|
||||
+#23'Event = 1, Censored = 2'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Lef'
|
||||
+'t'#3#224#0#6'Height'#2#14#3'Top'#3#202#0#5'Width'#3#133#0#7'Caption'#6#28'G'
|
||||
+'roup Variable (if 2 groups)'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Le'
|
||||
+'ft'#3#217#0#6'Height'#2#14#3'Top'#3#220#0#5'Width'#3#153#0#7'Caption'#6#31
|
||||
+'(Experimental = 1, Control = 2)'#11'ParentColor'#8#0#0#8'TListBox'#7'VarLis'
|
||||
+'t'#4'Left'#2#6#6'Height'#3'L'#1#3'Top'#2#23#5'Width'#3#163#0#10'ItemHeight'
|
||||
+#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#9'TimeInBtn'#4'Left'#3#176#0#6'Height'#2
|
||||
+#27#3'Top'#2#23#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#14'TimeInBtnClick'#8'TabOrder'#2#1#0#0#7'TBit'
|
||||
+'Btn'#10'TimeOutBtn'#4'Left'#3#177#0#6'Height'#2#27#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'NumGlyphs'#2#0#7'OnClick'#7#15
|
||||
+'TimeOutBtnClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#10'EventInBtn'#4'Left'#3#177
|
||||
+#0#6'Height'#2#27#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#255#255#255#0#255#255#255#0#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'EventInBtnClick'#8'TabOrder'
|
||||
+#2#3#0#0#7'TBitBtn'#11'EventOutBtn'#4'Left'#3#177#0#6'Height'#2#27#3'Top'#3
|
||||
+#144#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'EventOutBtnClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'
|
||||
+#10'GroupInBtn'#4'Left'#3#177#0#6'Height'#2#27#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#255#255#255#0#255#255#255#0#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
|
||||
+#177#0#6'Height'#2#27#3'Top'#3#232#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#16'GroupOutBtnClick'#8'Ta'
|
||||
+'bOrder'#2#6#0#0#5'TEdit'#8'TimeEdit'#4'Left'#3#216#0#6'Height'#2#21#3'Top'#2
|
||||
+')'#5'Width'#3#143#0#8'TabOrder'#2#7#4'Text'#6#8'TimeEdit'#0#0#5'TEdit'#9'Ev'
|
||||
+'entEdit'#4'Left'#3#217#0#6'Height'#2#21#3'Top'#3#144#0#5'Width'#3#143#0#8'T'
|
||||
+'abOrder'#2#8#4'Text'#6#8'TimeEdit'#0#0#5'TEdit'#9'GroupEdit'#4'Left'#3#217#0
|
||||
+#6'Height'#2#21#3'Top'#3#238#0#5'Width'#3#143#0#8'TabOrder'#2#9#4'Text'#6#8
|
||||
+'TimeEdit'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#3#175#0#6'Height'#2'S'#3'To'
|
||||
+'p'#3#17#1#5'Width'#3#185#0#7'Caption'#6#8'Options:'#12'ClientHeight'#2'A'#11
|
||||
+'ClientWidth'#3#181#0#8'TabOrder'#2#10#0#9'TCheckBox'#7'PlotChk'#4'Left'#2#7
|
||||
+#6'Height'#2#17#3'Top'#2#6#5'Width'#3#172#0#7'Caption'#6' Graph Survival Pro'
|
||||
+'babilities (%)'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'PrintChk'#4'Left'#2#7#6
|
||||
+'Height'#2#17#3'Top'#2'"'#5'Width'#3#144#0#7'Caption'#6#25'Print Computation'
|
||||
+' Results'#8'TabOrder'#2#1#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#136#1#6'He'
|
||||
+'ight'#2' '#3'Top'#2'H'#5'Width'#2'S'#7'Caption'#6#5'Reset'#7'OnClick'#7#13
|
||||
+'ResetBtnClick'#8'TabOrder'#2#11#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#136#1
|
||||
+#6'Height'#2' '#3'Top'#3#128#0#5'Width'#2'S'#7'Caption'#6#6'Cancel'#11'Modal'
|
||||
+'Result'#2#2#8'TabOrder'#2#12#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#136#1#6
|
||||
+'Height'#2' '#3'Top'#3#184#0#5'Width'#2'S'#7'Caption'#6#7'Compute'#7'OnClick'
|
||||
+#7#15'ComputeBtnClick'#8'TabOrder'#2#13#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3
|
||||
+#136#1#6'Height'#2' '#3'Top'#3#240#0#5'Width'#2'S'#7'Caption'#6#6'Return'#11
|
||||
+'ModalResult'#2#1#8'TabOrder'#2#14#0#0#7'TButton'#7'HelpBtn'#3'Tag'#2#127#4
|
||||
+'Left'#3#136#1#6'Height'#2'!'#3'Top'#2#16#5'Width'#2'V'#7'Caption'#6#4'Help'
|
||||
+#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#15#0#0#0
|
||||
]);
|
||||
1069
applications/lazstats/source_orig/kaplanmeierunit.pas
Normal file
1069
applications/lazstats/source_orig/kaplanmeierunit.pas
Normal file
File diff suppressed because it is too large
Load Diff
484
applications/lazstats/source_orig/kappaunit.lfm
Normal file
484
applications/lazstats/source_orig/kappaunit.lfm
Normal file
@ -0,0 +1,484 @@
|
||||
object WeightedKappaFrm: TWeightedKappaFrm
|
||||
Left = 132
|
||||
Height = 410
|
||||
Top = 112
|
||||
Width = 631
|
||||
Caption = 'Kappa and Weighted Kappa'
|
||||
ClientHeight = 410
|
||||
ClientWidth = 631
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 44
|
||||
Caption = 'Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 216
|
||||
Height = 14
|
||||
Top = 130
|
||||
Width = 38
|
||||
Caption = 'Rater A'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 216
|
||||
Height = 14
|
||||
Top = 209
|
||||
Width = 37
|
||||
Caption = 'Rater B'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 216
|
||||
Height = 14
|
||||
Top = 280
|
||||
Width = 93
|
||||
Caption = 'Variable to Analyze'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 376
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 114
|
||||
Caption = 'Total Number of Cases:'
|
||||
ParentColor = False
|
||||
end
|
||||
object InputGroup: TRadioGroup
|
||||
Left = 9
|
||||
Height = 90
|
||||
Top = 8
|
||||
Width = 610
|
||||
AutoFill = True
|
||||
Caption = 'Input Options:'
|
||||
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 = 72
|
||||
ClientWidth = 606
|
||||
Items.Strings = (
|
||||
'Count cases classified by row and column variables in the data grid'
|
||||
'Use frequencies in a variable for a given row variable value and column variable value.'
|
||||
'Use proportions in a variable for a given row variable value and column variable value.'
|
||||
)
|
||||
OnClick = InputGroupClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 9
|
||||
Height = 212
|
||||
Top = 128
|
||||
Width = 160
|
||||
ItemHeight = 0
|
||||
TabOrder = 1
|
||||
end
|
||||
object RowIn: TBitBtn
|
||||
Left = 176
|
||||
Height = 32
|
||||
Top = 130
|
||||
Width = 27
|
||||
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
|
||||
}
|
||||
OnClick = RowInClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object RowOut: TBitBtn
|
||||
Left = 176
|
||||
Height = 22
|
||||
Top = 168
|
||||
Width = 27
|
||||
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
|
||||
}
|
||||
OnClick = RowOutClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object ColIn: TBitBtn
|
||||
Left = 176
|
||||
Height = 22
|
||||
Top = 209
|
||||
Width = 27
|
||||
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
|
||||
}
|
||||
OnClick = ColInClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ColOut: TBitBtn
|
||||
Left = 176
|
||||
Height = 22
|
||||
Top = 232
|
||||
Width = 27
|
||||
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
|
||||
}
|
||||
OnClick = ColOutClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object DepIn: TBitBtn
|
||||
Left = 176
|
||||
Height = 22
|
||||
Top = 280
|
||||
Width = 27
|
||||
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
|
||||
}
|
||||
OnClick = DepInClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object DepOut: TBitBtn
|
||||
Left = 176
|
||||
Height = 20
|
||||
Top = 308
|
||||
Width = 27
|
||||
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
|
||||
}
|
||||
OnClick = DepOutClick
|
||||
TabOrder = 7
|
||||
end
|
||||
object RaterAEdit: TEdit
|
||||
Left = 216
|
||||
Height = 21
|
||||
Top = 144
|
||||
Width = 120
|
||||
TabOrder = 8
|
||||
Text = 'RaterAEdit'
|
||||
end
|
||||
object RaterBEdit: TEdit
|
||||
Left = 216
|
||||
Height = 21
|
||||
Top = 224
|
||||
Width = 120
|
||||
TabOrder = 9
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object DepEdit: TEdit
|
||||
Left = 216
|
||||
Height = 21
|
||||
Top = 296
|
||||
Width = 120
|
||||
TabOrder = 10
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object NCasesEdit: TEdit
|
||||
Left = 496
|
||||
Height = 21
|
||||
Top = 105
|
||||
Width = 62
|
||||
TabOrder = 11
|
||||
Text = 'NCasesEdit'
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 376
|
||||
Height = 197
|
||||
Top = 136
|
||||
Width = 242
|
||||
Caption = 'Options:'
|
||||
ClientHeight = 179
|
||||
ClientWidth = 238
|
||||
TabOrder = 12
|
||||
object ObsChk: TCheckBox
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 2
|
||||
Width = 157
|
||||
Caption = 'Show Observed Frequencies'
|
||||
TabOrder = 0
|
||||
end
|
||||
object ExpChk: TCheckBox
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 25
|
||||
Width = 155
|
||||
Caption = 'Show Expected Frequencies'
|
||||
TabOrder = 1
|
||||
end
|
||||
object PropChk: TCheckBox
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 50
|
||||
Width = 187
|
||||
Caption = 'Show Row and Column Proportions'
|
||||
TabOrder = 2
|
||||
end
|
||||
object ChiChk: TCheckBox
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 77
|
||||
Width = 155
|
||||
Caption = 'Show Cell Chi Square Values'
|
||||
TabOrder = 3
|
||||
end
|
||||
object YatesChk: TCheckBox
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 104
|
||||
Width = 209
|
||||
Caption = 'Use Yates'' Correction for a 2 by 2 table'
|
||||
TabOrder = 4
|
||||
end
|
||||
object SaveChk: TCheckBox
|
||||
Left = 9
|
||||
Height = 17
|
||||
Top = 130
|
||||
Width = 179
|
||||
Caption = 'Save as a File of Frequency Data'
|
||||
TabOrder = 5
|
||||
end
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 136
|
||||
Height = 33
|
||||
Top = 360
|
||||
Width = 79
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 13
|
||||
end
|
||||
object Cancel: TButton
|
||||
Left = 257
|
||||
Height = 33
|
||||
Top = 360
|
||||
Width = 79
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 14
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 376
|
||||
Height = 33
|
||||
Top = 360
|
||||
Width = 79
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 15
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 496
|
||||
Height = 33
|
||||
Top = 360
|
||||
Width = 79
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 16
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Tag = 128
|
||||
Left = 10
|
||||
Height = 33
|
||||
Top = 360
|
||||
Width = 86
|
||||
Caption = 'Help'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 17
|
||||
end
|
||||
end
|
||||
367
applications/lazstats/source_orig/kappaunit.lrs
Normal file
367
applications/lazstats/source_orig/kappaunit.lrs
Normal file
@ -0,0 +1,367 @@
|
||||
LazarusResources.Add('TWeightedKappaFrm','FORMDATA',[
|
||||
'TPF0'#17'TWeightedKappaFrm'#16'WeightedKappaFrm'#4'Left'#3#132#0#6'Height'#3
|
||||
+#154#1#3'Top'#2'p'#5'Width'#3'w'#2#7'Caption'#6#24'Kappa and Weighted Kappa'
|
||||
+#12'ClientHeight'#3#154#1#11'ClientWidth'#3'w'#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'p'#5'Width'#2','#7'Caption'#6#9'Variables'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#6'Label2'#4'Left'#3#216#0#6'Height'#2#14#3'Top'#3#130#0#5'Width'#2
|
||||
+'&'#7'Caption'#6#7'Rater A'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'
|
||||
+#3#216#0#6'Height'#2#14#3'Top'#3#209#0#5'Width'#2'%'#7'Caption'#6#7'Rater B'
|
||||
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#216#0#6'Height'#2#14#3
|
||||
+'Top'#3#24#1#5'Width'#2']'#7'Caption'#6#19'Variable to Analyze'#11'ParentCol'
|
||||
+'or'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3'x'#1#6'Height'#2#14#3'Top'#2'p'#5'W'
|
||||
+'idth'#2'r'#7'Caption'#6#22'Total Number of Cases:'#11'ParentColor'#8#0#0#11
|
||||
+'TRadioGroup'#10'InputGroup'#4'Left'#2#9#6'Height'#2'Z'#3'Top'#2#8#5'Width'#3
|
||||
+'b'#2#8'AutoFill'#9#7'Caption'#6#14'Input Options:'#28'ChildSizing.LeftRight'
|
||||
+'Spacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHor'
|
||||
+'izontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24
|
||||
+'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChi'
|
||||
+'lds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Lay'
|
||||
+'out'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1
|
||||
+#12'ClientHeight'#2'H'#11'ClientWidth'#3'^'#2#13'Items.Strings'#1#6'CCount c'
|
||||
+'ases classified by row and column variables in the data grid'#6'WUse freque'
|
||||
+'ncies in a variable for a given row variable value and column variable valu'
|
||||
+'e.'#6'WUse proportions in a variable for a given row variable value and col'
|
||||
+'umn variable value.'#0#7'OnClick'#7#15'InputGroupClick'#8'TabOrder'#2#0#0#0
|
||||
+#8'TListBox'#7'VarList'#4'Left'#2#9#6'Height'#3#212#0#3'Top'#3#128#0#5'Width'
|
||||
+#3#160#0#10'ItemHeight'#2#0#8'TabOrder'#2#1#0#0#7'TBitBtn'#5'RowIn'#4'Left'#3
|
||||
+#176#0#6'Height'#2' '#3'Top'#3#130#0#5'Width'#2#27#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#7'OnClick'#7#10'RowInClick'#8'TabOrder'#2#2#0#0#7'TBitB'
|
||||
+'tn'#6'RowOut'#4'Left'#3#176#0#6'Height'#2#22#3'Top'#3#168#0#5'Width'#2#27#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#7'OnClick'#7#11'RowOutClick'#8'Ta'
|
||||
,'bOrder'#2#3#0#0#7'TBitBtn'#5'ColIn'#4'Left'#3#176#0#6'Height'#2#22#3'Top'#3
|
||||
+#209#0#5'Width'#2#27#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#7'OnClick'
|
||||
+#7#10'ColInClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'#6'ColOut'#4'Left'#3#176#0#6
|
||||
+'Height'#2#22#3'Top'#3#232#0#5'Width'#2#27#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#7'OnClick'#7#11'ColOutClick'#8'TabOrder'#2#5#0#0#7'TBit'
|
||||
+'Btn'#5'DepIn'#4'Left'#3#176#0#6'Height'#2#22#3'Top'#3#24#1#5'Width'#2#27#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#7'OnClick'#7#10'DepInClick'#8'TabOrder'#2
|
||||
+#6#0#0#7'TBitBtn'#6'DepOut'#4'Left'#3#176#0#6'Height'#2#20#3'Top'#3'4'#1#5'W'
|
||||
+'idth'#2#27#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#7'OnClick'
|
||||
+#7#11'DepOutClick'#8'TabOrder'#2#7#0#0#5'TEdit'#10'RaterAEdit'#4'Left'#3#216
|
||||
+#0#6'Height'#2#21#3'Top'#3#144#0#5'Width'#2'x'#8'TabOrder'#2#8#4'Text'#6#10
|
||||
+'RaterAEdit'#0#0#5'TEdit'#10'RaterBEdit'#4'Left'#3#216#0#6'Height'#2#21#3'To'
|
||||
+'p'#3#224#0#5'Width'#2'x'#8'TabOrder'#2#9#4'Text'#6#5'Edit1'#0#0#5'TEdit'#7
|
||||
+'DepEdit'#4'Left'#3#216#0#6'Height'#2#21#3'Top'#3'('#1#5'Width'#2'x'#8'TabOr'
|
||||
+'der'#2#10#4'Text'#6#5'Edit1'#0#0#5'TEdit'#10'NCasesEdit'#4'Left'#3#240#1#6
|
||||
+'Height'#2#21#3'Top'#2'i'#5'Width'#2'>'#8'TabOrder'#2#11#4'Text'#6#10'NCases'
|
||||
+'Edit'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#3'x'#1#6'Height'#3#197#0#3'Top'
|
||||
+#3#136#0#5'Width'#3#242#0#7'Caption'#6#8'Options:'#12'ClientHeight'#3#179#0
|
||||
+#11'ClientWidth'#3#238#0#8'TabOrder'#2#12#0#9'TCheckBox'#6'ObsChk'#4'Left'#2
|
||||
+#9#6'Height'#2#17#3'Top'#2#2#5'Width'#3#157#0#7'Caption'#6#25'Show Observed '
|
||||
+'Frequencies'#8'TabOrder'#2#0#0#0#9'TCheckBox'#6'ExpChk'#4'Left'#2#9#6'Heigh'
|
||||
+'t'#2#17#3'Top'#2#25#5'Width'#3#155#0#7'Caption'#6#25'Show Expected Frequenc'
|
||||
+'ies'#8'TabOrder'#2#1#0#0#9'TCheckBox'#7'PropChk'#4'Left'#2#9#6'Height'#2#17
|
||||
+#3'Top'#2'2'#5'Width'#3#187#0#7'Caption'#6#31'Show Row and Column Proportion'
|
||||
+'s'#8'TabOrder'#2#2#0#0#9'TCheckBox'#6'ChiChk'#4'Left'#2#9#6'Height'#2#17#3
|
||||
+'Top'#2'M'#5'Width'#3#155#0#7'Caption'#6#27'Show Cell Chi Square Values'#8'T'
|
||||
+'abOrder'#2#3#0#0#9'TCheckBox'#8'YatesChk'#4'Left'#2#9#6'Height'#2#17#3'Top'
|
||||
+#2'h'#5'Width'#3#209#0#7'Caption'#6'(Use Yates'' Correction for a 2 by 2 tab'
|
||||
+'le'#8'TabOrder'#2#4#0#0#9'TCheckBox'#7'SaveChk'#4'Left'#2#9#6'Height'#2#17#3
|
||||
+'Top'#3#130#0#5'Width'#3#179#0#7'Caption'#6' Save as a File of Frequency Dat'
|
||||
+'a'#8'TabOrder'#2#5#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#136#0#6'Height'#2
|
||||
+'!'#3'Top'#3'h'#1#5'Width'#2'O'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetB'
|
||||
+'tnClick'#8'TabOrder'#2#13#0#0#7'TButton'#6'Cancel'#4'Left'#3#1#1#6'Height'#2
|
||||
+'!'#3'Top'#3'h'#1#5'Width'#2'O'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8
|
||||
+'TabOrder'#2#14#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3'x'#1#6'Height'#2'!'#3
|
||||
+'Top'#3'h'#1#5'Width'#2'O'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBt'
|
||||
+'nClick'#8'TabOrder'#2#15#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#240#1#6'Heig'
|
||||
+'ht'#2'!'#3'Top'#3'h'#1#5'Width'#2'O'#7'Caption'#6#6'Return'#11'ModalResult'
|
||||
+#2#1#8'TabOrder'#2#16#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#128#0#4'Left'#2#10#6
|
||||
+'Height'#2'!'#3'Top'#3'h'#1#5'Width'#2'V'#7'Caption'#6#4'Help'#7'OnClick'#7
|
||||
+#12'HelpBtnClick'#8'TabOrder'#2#17#0#0#0
|
||||
]);
|
||||
670
applications/lazstats/source_orig/kappaunit.pas
Normal file
670
applications/lazstats/source_orig/kappaunit.pas
Normal file
@ -0,0 +1,670 @@
|
||||
unit KappaUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, ExtCtrls, Buttons, MainUnit, Globals, OutPutUnit, FunctionsLib,
|
||||
Math, DictionaryUnit, DataProcs, MatrixLib, contexthelpunit;
|
||||
|
||||
type
|
||||
|
||||
{ TWeightedKappaFrm }
|
||||
|
||||
TWeightedKappaFrm = class(TForm)
|
||||
HelpBtn: TButton;
|
||||
ResetBtn: TButton;
|
||||
Cancel: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
ObsChk: TCheckBox;
|
||||
ExpChk: TCheckBox;
|
||||
PropChk: TCheckBox;
|
||||
ChiChk: TCheckBox;
|
||||
YatesChk: TCheckBox;
|
||||
SaveChk: TCheckBox;
|
||||
GroupBox1: TGroupBox;
|
||||
NCasesEdit: TEdit;
|
||||
Label5: TLabel;
|
||||
RowIn: TBitBtn;
|
||||
RowOut: TBitBtn;
|
||||
ColIn: TBitBtn;
|
||||
ColOut: TBitBtn;
|
||||
DepIn: TBitBtn;
|
||||
DepOut: TBitBtn;
|
||||
RaterAEdit: TEdit;
|
||||
RaterBEdit: TEdit;
|
||||
DepEdit: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
VarList: TListBox;
|
||||
InputGroup: TRadioGroup;
|
||||
procedure ColInClick(Sender: TObject);
|
||||
procedure ColOutClick(Sender: TObject);
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure DepInClick(Sender: TObject);
|
||||
procedure DepOutClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure HelpBtnClick(Sender: TObject);
|
||||
procedure InputGroupClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure RowInClick(Sender: TObject);
|
||||
procedure RowOutClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
WeightedKappaFrm: TWeightedKappaFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TWeightedKappaFrm }
|
||||
|
||||
procedure TWeightedKappaFrm.ResetBtnClick(Sender: TObject);
|
||||
VAR i : integer;
|
||||
begin
|
||||
VarList.Clear;
|
||||
RaterAEdit.Text := '';
|
||||
RaterBEdit.Text := '';
|
||||
DepEdit.Text := '';
|
||||
DepEdit.Visible := false;
|
||||
RowIn.Visible := true;
|
||||
RowOut.Visible := false;
|
||||
ColIn.Visible := true;
|
||||
ColOut.Visible := false;
|
||||
DepIn.Visible := false;
|
||||
DepOut.Visible := false;
|
||||
NCasesEdit.Text := '';
|
||||
NCasesEdit.Visible := false;
|
||||
Label4.Visible := false;
|
||||
Label5.Visible := false;
|
||||
InputGroup.ItemIndex := 0;
|
||||
for i := 1 to NoVariables do
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.RowInClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
RaterAEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
RowIn.Visible := false;
|
||||
RowOut.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.RowOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(RaterAEdit.Text);
|
||||
RaterAEdit.Text := '';
|
||||
RowIn.Visible := true;
|
||||
RowOut.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.HelpBtnClick(Sender: TObject);
|
||||
begin
|
||||
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.InputGroupClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := InputGroup.ItemIndex;
|
||||
if (index = 2) then // only proportions available - get N size
|
||||
begin
|
||||
Label4.Visible := true;
|
||||
NCasesEdit.Visible := true;
|
||||
NCasesEdit.SetFocus;
|
||||
DepIn.Visible := true;
|
||||
DepOut.Visible := false;
|
||||
DepEdit.Visible := true;
|
||||
Label5.Visible := true;
|
||||
end;
|
||||
if (index = 1) then // frequencies available for each row and column combo
|
||||
begin
|
||||
Label4.Visible := true;
|
||||
NCasesEdit.Visible := false;
|
||||
DepIn.Visible := true;
|
||||
DepOut.Visible := false;
|
||||
DepEdit.Visible := true;
|
||||
Label5.Visible := false;
|
||||
end;
|
||||
if (index = 0) then // have to count cases in each row and col. combination
|
||||
begin
|
||||
NCasesEdit.Visible := false;
|
||||
DepIn.Visible := false;
|
||||
DepOut.Visible := false;
|
||||
DepEdit.Visible := false;
|
||||
Label4.Visible := false;
|
||||
Label5.Visible := false;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.ColInClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
RaterBEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
ColIn.Visible := false;
|
||||
ColOut.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.ColOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(RaterBEdit.Text);
|
||||
RaterBEdit.Text := '';
|
||||
ColIn.Visible := true;
|
||||
ColOut.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.ComputeBtnClick(Sender: TObject);
|
||||
VAR
|
||||
i, j, k, RowNo, ColNo, DepNo, MinRow, MaxRow, MinCol, MaxCol : integer;
|
||||
Row, Col, NoSelected, Ncases, Nrows, Ncols, FObs, df : integer;
|
||||
RowLabels, ColLabels : StrDyneVec;
|
||||
ColNoSelected : IntDyneVec;
|
||||
cellstring : string;
|
||||
outline : string;
|
||||
Freq : IntDyneMat;
|
||||
Prop, Expected, CellChi : DblDyneMat;
|
||||
PObs, ChiSquare, ProbChi, liklihood, Fval, phi : double;
|
||||
yates, aresult : boolean;
|
||||
title : string;
|
||||
filename : string;
|
||||
Adjchisqr, Adjprobchi, probliklihood, pearsonr : double;
|
||||
pobserved, SumX, SumY, VarX, VarY, obsdiag, expdiag, expnondiag : double;
|
||||
pexpected, MantelHaenszel, MHprob, CoefCont, CramerV, Kappa : double;
|
||||
Frq : integer;
|
||||
weights, quadweights : DblDyneMat;
|
||||
begin
|
||||
SetLength(ColNoSelected,NoVariables);
|
||||
yates := false;
|
||||
RowNo := 0;
|
||||
ColNo := 0;
|
||||
DepNo := 0;
|
||||
pobserved := 0.0;
|
||||
pexpected := 0.0;
|
||||
|
||||
for i := 1 to NoVariables do
|
||||
begin
|
||||
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||
if (cellstring = RaterAEdit.Text) then RowNo := i;
|
||||
if (cellstring = RaterBEdit.Text) then ColNo := i;
|
||||
if (cellstring = DepEdit.Text) then DepNo := i;
|
||||
end;
|
||||
if ((InputGroup.ItemIndex > 0) and (DepNo = 0)) then
|
||||
begin
|
||||
ShowMessage('ERROR! You must select a dependent variable.');
|
||||
ColNoSelected := nil;
|
||||
exit;
|
||||
end;
|
||||
if ((RowNo = 0) or (ColNo = 0)) then // || (DepNo == 0))
|
||||
begin
|
||||
ShowMessage('ERROR! A required variable has not been selected.');
|
||||
ColNoSelected := nil;
|
||||
exit;
|
||||
end;
|
||||
|
||||
aresult := ValidValue(RowNo,1);
|
||||
if (aresult = false) then
|
||||
begin
|
||||
ColNoSelected := nil;
|
||||
exit;
|
||||
end;
|
||||
aresult := ValidValue(ColNo,1);
|
||||
if (aresult = false) then
|
||||
begin
|
||||
ColNoSelected := nil;
|
||||
exit;
|
||||
end;
|
||||
|
||||
ColNoSelected[0] := RowNo;
|
||||
ColNoSelected[1] := ColNo;
|
||||
NoSelected := 2;
|
||||
if (InputGroup.ItemIndex > 0) then // for reading proportions or frequencies
|
||||
begin
|
||||
NoSelected := 3;
|
||||
ColNoSelected[2] := DepNo;
|
||||
end;
|
||||
if (InputGroup.ItemIndex = 1) then
|
||||
begin
|
||||
aresult := ValidValue(DepNo,1);
|
||||
if (aresult = false) then
|
||||
begin
|
||||
ColNoSelected := nil;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
if (InputGroup.ItemIndex = 2) then
|
||||
begin
|
||||
aresult := ValidValue(DepNo,0);
|
||||
if (aresult = false) then
|
||||
begin
|
||||
ColNoSelected := nil;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
// get min and max of row and col numbers
|
||||
MinRow := 1000;
|
||||
MaxRow := 0;
|
||||
MinCol := 1000;
|
||||
MaxCol := 0;
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
if (NOT GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||
Row := StrToInt(OS3MainFrm.DataGrid.Cells[RowNo,i]);
|
||||
Col := StrToInt(OS3MainFrm.DataGrid.Cells[ColNo,i]);
|
||||
if (Row > MaxRow) then MaxRow := Row;
|
||||
if (Row < MinRow) then MinRow := Row;
|
||||
if (Col > MaxCol) then MaxCol := Col;
|
||||
if (Col < MinCol) then MinCol := Col;
|
||||
end;
|
||||
Nrows := MaxRow - MinRow + 1;
|
||||
Ncols := MaxCol - MinCol + 1;
|
||||
|
||||
// allocate and initialize
|
||||
SetLength(Freq,Nrows+1,Ncols+1);
|
||||
SetLength(Prop,Nrows+1,Ncols+1);
|
||||
SetLength(Expected,Nrows,Ncols);
|
||||
SetLength(CellChi,Nrows,Ncols);
|
||||
SetLength(RowLabels,Nrows+1);
|
||||
SetLength(ColLabels,Ncols+1);
|
||||
for i := 1 to Nrows + 1 do
|
||||
for j := 1 to Ncols + 1 do Freq[i-1,j-1] := 0;
|
||||
for i := 1 to Nrows do
|
||||
begin
|
||||
outline := format('Row %d',[i]);
|
||||
cellstring := outline;
|
||||
RowLabels[i-1] := cellstring;
|
||||
end;
|
||||
RowLabels[Nrows] := 'Total';
|
||||
for j := 1 to Ncols do
|
||||
begin
|
||||
outline := format('COL. %d',[j]);
|
||||
cellstring := outline;
|
||||
ColLabels[j-1] := cellstring;
|
||||
end;
|
||||
ColLabels[Ncols] := 'Total';
|
||||
|
||||
// get cell data
|
||||
Ncases := 0;
|
||||
if (InputGroup.ItemIndex = 0) then
|
||||
begin // count number of cases in each row and column combination
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
if (NOT GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||
Ncases := Ncases + 1;
|
||||
Row := StrToInt(OS3MainFrm.DataGrid.Cells[RowNo,i]);
|
||||
Col := StrToInt(OS3MainFrm.DataGrid.Cells[ColNo,i]);
|
||||
Row := Row - MinRow + 1;
|
||||
Col := Col - MinCol + 1;
|
||||
Freq[Row-1,Col-1] := Freq[Row-1,Col-1] + 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
if (InputGroup.ItemIndex = 1) then // read frequencies data from grid
|
||||
begin
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
if (NOT GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||
Row := StrToInt(OS3MainFrm.DataGrid.Cells[RowNo,i]);
|
||||
Col := StrToInt(OS3MainFrm.DataGrid.Cells[ColNo,i]);
|
||||
Row := Row - MinRow + 1;
|
||||
Col := Col - MinCol + 1;
|
||||
FObs := StrToInt(OS3MainFrm.DataGrid.Cells[DepNo,i]);
|
||||
Freq[Row-1,Col-1] := Freq[Row-1,Col-1] + FObs;
|
||||
Ncases := Ncases + FObs;
|
||||
end;
|
||||
end;
|
||||
if (InputGroup.ItemIndex = 2) then // get no. of cases and proportions for each cell
|
||||
begin
|
||||
Ncases := StrToInt(NCasesEdit.Text);
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
if (NOT GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||
Row := StrToInt(OS3MainFrm.DataGrid.Cells[RowNo,i]);
|
||||
Col := StrToInt(OS3MainFrm.DataGrid.Cells[ColNo,i]);
|
||||
Row := Row - MinRow + 1;
|
||||
Col := Col - MinCol + 1;
|
||||
PObs := StrToInt(OS3MainFrm.DataGrid.Cells[DepNo,i]);
|
||||
Frq := round(PObs * Ncases);
|
||||
Fval := PObs * Ncases;
|
||||
if (Fval - Frq < 0.5) then Frq := round(Fval)
|
||||
else Frq := ceil(Fval);
|
||||
Freq[Row-1,Col-1] := Freq[Row-1,Col-1] + Frq;
|
||||
end;
|
||||
end;
|
||||
Freq[Nrows,Ncols] := Ncases;
|
||||
|
||||
// Now, calculate expected values
|
||||
// Get row totals first
|
||||
for i := 1 to Nrows do
|
||||
begin
|
||||
for j := 1 to Ncols do
|
||||
begin
|
||||
Freq[i-1,Ncols] := Freq[i-1,Ncols] + Freq[i-1,j-1];
|
||||
end;
|
||||
end;
|
||||
// Get col totals next
|
||||
for j := 1 to Ncols do
|
||||
begin
|
||||
for i := 1 to Nrows do
|
||||
begin
|
||||
Freq[Nrows,j-1] := Freq[Nrows,j-1] + Freq[i-1,j-1];
|
||||
end;
|
||||
end;
|
||||
// Then get expected values and cell chi-squares
|
||||
ChiSquare := 0.0;
|
||||
Adjchisqr := 0.0;
|
||||
if ((YatesChk.Checked) and (Nrows = 2) and (Ncols = 2)) then yates := true;
|
||||
for i := 1 to Nrows do
|
||||
begin
|
||||
for j := 1 to Ncols do
|
||||
begin
|
||||
Expected[i-1,j-1] := Freq[Nrows,j-1] * Freq[i-1,Ncols] / Ncases;
|
||||
if (Expected[i-1,j-1] > 0.0) then
|
||||
CellChi[i-1,j-1] := sqr(Freq[i-1,j-1] - Expected[i-1,j-1])
|
||||
/ Expected[i-1,j-1]
|
||||
else
|
||||
begin
|
||||
ShowMessage('ERROR! Zero expected value found.');
|
||||
CellChi[i-1,j-1] := 0.0;
|
||||
end;
|
||||
ChiSquare := ChiSquare + CellChi[i-1,j-1];
|
||||
end;
|
||||
end;
|
||||
df := (Nrows - 1) * (Ncols - 1);
|
||||
if (yates = true) then // 2 x 2 corrected chi-square
|
||||
begin
|
||||
Adjchisqr := abs((Freq[0,0] * Freq[1,1]) - (Freq[0,1] * Freq[1,0]));
|
||||
Adjchisqr := sqr(Adjchisqr - Ncases / 2.0) * Ncases; // numerator
|
||||
Adjchisqr := Adjchisqr / (Freq[0,2] * Freq[1,2] * Freq[2,0] * Freq[2,1]);
|
||||
Adjprobchi := 1.0 - chisquaredprob(Adjchisqr,df);
|
||||
end;
|
||||
ProbChi := 1.0 - chisquaredprob(ChiSquare,df); // prob. larger chi
|
||||
|
||||
//Print results to output form
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
OutPutFrm.RichEdit.Lines.Add('Chi-square Analysis Results for ' + RaterAEdit.Text + ' and ' + RaterBEdit.Text);
|
||||
outline := format('No. of Cases = %d',[Ncases]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
// print tables requested by use
|
||||
if (ObsChk.Checked) then
|
||||
begin
|
||||
IntArrayPrint(Freq, Nrows+1, Ncols+1,'Frequencies',
|
||||
RowLabels, ColLabels,'OBSERVED FREQUENCIES');
|
||||
end;
|
||||
|
||||
if (ExpChk.Checked) then
|
||||
begin
|
||||
outline := 'EXPECTED FREQUENCIES';
|
||||
MAT_PRINT(Expected, Nrows, Ncols, outline, RowLabels, ColLabels,
|
||||
NoCases);
|
||||
end;
|
||||
|
||||
if (PropChk.Checked) then
|
||||
begin
|
||||
outline := 'ROW PROPORTIONS';
|
||||
for i := 1 to Nrows + 1 do
|
||||
begin
|
||||
for j := 1 to Ncols do
|
||||
begin
|
||||
if (Freq[i-1,Ncols] > 0.0) then
|
||||
Prop[i-1,j-1] := Freq[i-1,j-1] / Freq[i-1,Ncols]
|
||||
else Prop[i-1,j-1] := 0.0;
|
||||
end;
|
||||
if (Freq[i-1,Ncols] > 0.0) then Prop[i-1,Ncols] := 1.0
|
||||
else Prop[i-1][Ncols] := 0.0;
|
||||
end;
|
||||
MAT_PRINT(Prop, Nrows+1, Ncols+1, outline, RowLabels, ColLabels,
|
||||
NoCases);
|
||||
outline := 'COLUMN PROPORTIONS';
|
||||
for j := 1 to Ncols + 1 do
|
||||
begin
|
||||
for i := 1 to Nrows do
|
||||
begin
|
||||
if (Freq[Nrows,j-1] > 0.0) then
|
||||
Prop[i-1,j-1] := Freq[i-1,j-1] / Freq[Nrows,j-1]
|
||||
else Prop[i-1,j-1] := 0.0;
|
||||
end;
|
||||
if (Freq[Nrows,j-1] > 0.0) then Prop[Nrows][j-1] := 1.0
|
||||
else Prop[Nrows,j-1] := 0.0;
|
||||
end;
|
||||
MAT_PRINT(Prop, Nrows+1, Ncols+1, outline, RowLabels, ColLabels,
|
||||
NoCases);
|
||||
outline := 'PROPORTIONS OF TOTAL N';
|
||||
for i := 1 to Nrows + 1 do
|
||||
for j := 1 to Ncols + 1 do Prop[i-1,j-1] := Freq[i-1,j-1] / Ncases;
|
||||
Prop[Nrows,Ncols] := 1.0;
|
||||
MAT_PRINT(Prop, Nrows+1, Ncols+1, outline, RowLabels, ColLabels,
|
||||
NoCases);
|
||||
end;
|
||||
|
||||
if (ChiChk.Checked) then
|
||||
begin
|
||||
outline := 'CHI-SQUARED VALUE FOR CELLS';
|
||||
MAT_PRINT(CellChi, Nrows, Ncols, outline, RowLabels, ColLabels,
|
||||
NoCases);
|
||||
end;
|
||||
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
outline := format('Chi-square = %8.3f with D.F. = %d. Prob. > value = %8.3f',
|
||||
[ChiSquare,df,ProbChi]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
if (yates = true) then
|
||||
begin
|
||||
outline := format('Chi-square using Yates correction = %8.3f and Prob > value = %8.3f',
|
||||
[Adjchisqr,Adjprobchi]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
|
||||
liklihood := 0.0;
|
||||
for i := 0 to Nrows - 1 do
|
||||
for j := 0 to Ncols - 1 do
|
||||
liklihood := Liklihood + Freq[i,j] * (ln(Expected[i,j] / Freq[i,j]));
|
||||
liklihood := -2.0 * liklihood;
|
||||
probliklihood := 1.0 - chisquaredprob(liklihood,df);
|
||||
outline := format('Liklihood Ratio = %8.3f with prob. > value = %6.4f',
|
||||
[liklihood,probliklihood]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
phi := sqrt(ChiSquare / Ncases);
|
||||
outline := format('phi correlation = %6.4f',[phi]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
pearsonr := 0.0;
|
||||
SumX := 0.0;
|
||||
SumY := 0.0;
|
||||
VarX := 0.0;
|
||||
VarY := 0.0;
|
||||
for i := 0 to Nrows - 1 do SumX := SumX + ( (i+1) * Freq[i,Ncols] );
|
||||
for j := 0 to Ncols - 1 do SumY := SumY + ( (j+1) * Freq[Nrows,j] );
|
||||
for i := 0 to Nrows - 1 do VarX := VarX + ( ((i+1)*(i+1)) * Freq[i,Ncols] );
|
||||
for j := 0 to Ncols - 1 do VarY := VarY + ( ((j+1)*(j+1)) * Freq[Nrows,j] );
|
||||
VarX := VarX - ((SumX * SumX) / Ncases);
|
||||
VarY := VarY - ((SumY * SumY) / Ncases);
|
||||
for i := 0 to Nrows - 1 do
|
||||
for j := 0 to Ncols - 1 do
|
||||
pearsonr := pearsonr + ((i+1)*(j+1) * Freq[i,j]);
|
||||
pearsonr := pearsonr - (SumX * SumY / Ncases);
|
||||
pearsonr := pearsonr / sqrt(VarX * VarY);
|
||||
outline := format('Pearson Correlation r = %6.4f',[pearsonr]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
MantelHaenszel := (Ncases-1) * (pearsonr * pearsonr);
|
||||
MHprob := 1.0 - chisquaredprob(MantelHaenszel,1);
|
||||
outline := format('Mantel-Haenszel Test of Linear Association = %8.3f with probability > value = %6.4f',
|
||||
[MantelHaenszel, MHprob]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
CoefCont := sqrt(ChiSquare / (ChiSquare + Ncases));
|
||||
outline := format('The coefficient of contingency = %8.3f',[CoefCont]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
if (Nrows < Ncols) then CramerV := sqrt(ChiSquare / (Ncases * ((Nrows-1))))
|
||||
else CramerV := sqrt(ChiSquare / (Ncases * ((Ncols-1))));
|
||||
outline := format('Cramers V = %8.3f',[CramerV]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
|
||||
// kappa
|
||||
if (Nrows = Ncols) then
|
||||
begin
|
||||
obsdiag := 0.0;
|
||||
expdiag := 0.0;
|
||||
for i := 0 to Nrows - 1 do
|
||||
begin
|
||||
obsdiag := obsdiag + Freq[i,i];
|
||||
expdiag := expdiag + Expected[i,i];
|
||||
end;
|
||||
expnondiag := Ncases - expdiag;
|
||||
Kappa := (obsdiag - expdiag) / expnondiag;
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
outline := format('Unweighted Kappa = %8.4f',[Kappa]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
// get linear weights
|
||||
SetLength(weights,Nrows,Ncols);
|
||||
SetLength(quadweights,Nrows,Ncols);
|
||||
for i := 0 to Nrows - 1 do
|
||||
begin
|
||||
for j := 0 to Ncols - 1 do
|
||||
begin
|
||||
weights[i,j] := 0.0;
|
||||
quadweights[i,j] := 0.0;
|
||||
end;
|
||||
end;
|
||||
for i := 0 to Nrows - 1 do
|
||||
begin
|
||||
for j := 0 to Ncols - 1 do
|
||||
begin
|
||||
weights[i,j] := 1.0 - (abs((i-j)) / (Nrows-1));
|
||||
quadweights[i,j] := 1.0 - ( abs((i-j)*(i-j)) / ((Nrows-1)*(Nrows-1)) );
|
||||
end;
|
||||
end;
|
||||
outline := 'Observed Linear Weights';
|
||||
MAT_PRINT(weights, Nrows, Ncols, outline, RowLabels, ColLabels, NoCases);
|
||||
outline := 'Observed Quadratic Weights';
|
||||
MAT_PRINT(quadweights, Nrows, Ncols, outline, RowLabels, ColLabels, NoCases);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
for i := 0 to Nrows - 1 do
|
||||
begin
|
||||
for j := 0 to Ncols - 1 do
|
||||
begin
|
||||
pobserved := pobserved + (Freq[i][j] / Ncases) * weights[i,j];
|
||||
pexpected := pexpected + (Expected[i,j] / Ncases) * weights[i,j];
|
||||
end;
|
||||
end;
|
||||
Kappa := (pobserved - pexpected) / (1.0 - pexpected);
|
||||
outline := format('Linear Weighted Kappa = %8.4f',[Kappa]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
pobserved := 0.0;
|
||||
pexpected := 0.0;
|
||||
for i := 0 to Nrows - 1 do
|
||||
begin
|
||||
for j := 0 to Ncols - 1 do
|
||||
begin
|
||||
pobserved := pobserved + (Freq[i,j] / Ncases) * quadweights[i,j];
|
||||
pexpected := pexpected + (Expected[i,j] / Ncases) * quadweights[i,j];
|
||||
end;
|
||||
end;
|
||||
Kappa := (pobserved - pexpected) / (1.0 - pexpected);
|
||||
outline := format('Quadratic Weighted Kappa = %8.4f',[Kappa]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
quadweights := nil;
|
||||
weights := nil;
|
||||
end;
|
||||
|
||||
OutPutFrm.ShowModal;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
|
||||
// save frequency data file if elected
|
||||
if ((SaveChk.Checked) and (InputGroup.ItemIndex = 0)) then
|
||||
begin
|
||||
ClearGrid;
|
||||
for i := 1 to 3 do DictionaryFrm.NewVar(i);
|
||||
DictionaryFrm.DictGrid.Cells[1,1] := 'ROW';
|
||||
DictionaryFrm.DictGrid.Cells[1,2] := 'COL';
|
||||
DictionaryFrm.DictGrid.Cells[1,3] := 'FREQ.';
|
||||
OS3MainFrm.DataGrid.Cells[1,0] := 'ROW';
|
||||
OS3MainFrm.DataGrid.Cells[2,0] := 'COL';
|
||||
OS3MainFrm.DataGrid.Cells[3,0] := 'Freq.';
|
||||
k := 1;
|
||||
for i := 1 to Nrows do
|
||||
begin
|
||||
for j := 1 to Ncols do
|
||||
begin
|
||||
OS3MainFrm.DataGrid.RowCount := k + 1;
|
||||
OS3MainFrm.DataGrid.Cells[1,k] := IntToStr(i);
|
||||
OS3MainFrm.DataGrid.Cells[2,k] := IntToStr(j);
|
||||
OS3MainFrm.DataGrid.Cells[3,k] := IntToStr(Freq[i-1,j-1]);
|
||||
k := k + 1;
|
||||
end;
|
||||
end;
|
||||
for i := 1 to k - 1 do
|
||||
begin
|
||||
title := 'CASE ' + IntToStr(i);
|
||||
OS3MainFrm.DataGrid.Cells[0,i] := title;
|
||||
end;
|
||||
title := InputBox('FILE:','File Name:','Frequencies.LAZ');
|
||||
OS3MainFrm.FileNameEdit.Text := title;
|
||||
OS3MainFrm.NoVarsEdit.Text := IntToStr(3);
|
||||
OS3MainFrm.NoCasesEdit.Text := IntToStr(k-1);
|
||||
NoVariables := 3;
|
||||
NoCases := k-1;
|
||||
SaveOS2File;
|
||||
end;
|
||||
|
||||
//clean up
|
||||
ColLabels := nil;
|
||||
RowLabels := nil;
|
||||
CellChi := nil;
|
||||
Expected := nil;
|
||||
Prop := nil;
|
||||
Freq := nil;
|
||||
ColNoSelected := nil;
|
||||
end;
|
||||
|
||||
procedure TWeightedKappaFrm.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 TWeightedKappaFrm.DepOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(DepEdit.Text);
|
||||
DepEdit.Text := '';
|
||||
DepIn.Visible := true;
|
||||
DepOut.Visible := false;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I kappaunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
398
applications/lazstats/source_orig/kendalltauunit.lfm
Normal file
398
applications/lazstats/source_orig/kendalltauunit.lfm
Normal file
@ -0,0 +1,398 @@
|
||||
object KendallTauFrm: TKendallTauFrm
|
||||
Left = 132
|
||||
Height = 348
|
||||
Top = 97
|
||||
Width = 352
|
||||
Caption = 'Kendall Rank Correlation Tau and Partial Tau'
|
||||
ClientHeight = 348
|
||||
ClientWidth = 352
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.26.2'
|
||||
object Label1: TLabel
|
||||
Left = 5
|
||||
Height = 14
|
||||
Top = 5
|
||||
Width = 90
|
||||
Caption = 'Variables Available'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 214
|
||||
Height = 14
|
||||
Top = 25
|
||||
Width = 48
|
||||
Caption = 'X Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 217
|
||||
Height = 14
|
||||
Top = 105
|
||||
Width = 48
|
||||
Caption = 'Y Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 216
|
||||
Height = 14
|
||||
Top = 184
|
||||
Width = 48
|
||||
Caption = 'Z Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 6
|
||||
Height = 254
|
||||
Top = 21
|
||||
Width = 160
|
||||
TabOrder = 0
|
||||
end
|
||||
object XIn: TBitBtn
|
||||
Left = 176
|
||||
Height = 28
|
||||
Top = 22
|
||||
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 = XInClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object XOut: TBitBtn
|
||||
Left = 176
|
||||
Height = 28
|
||||
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 = XOutClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object YIn: TBitBtn
|
||||
Left = 176
|
||||
Height = 28
|
||||
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 = YInClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object YOut: TBitBtn
|
||||
Left = 175
|
||||
Height = 28
|
||||
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 = YOutClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ZIn: TBitBtn
|
||||
Left = 176
|
||||
Height = 28
|
||||
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 = ZInClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object ZOut: TBitBtn
|
||||
Left = 176
|
||||
Height = 28
|
||||
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 = ZOutClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object XEdit: TEdit
|
||||
Left = 213
|
||||
Height = 18
|
||||
Top = 39
|
||||
Width = 120
|
||||
TabOrder = 7
|
||||
Text = 'XEdit'
|
||||
end
|
||||
object YEdit: TEdit
|
||||
Left = 217
|
||||
Height = 18
|
||||
Top = 120
|
||||
Width = 120
|
||||
TabOrder = 8
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object ZEdit: TEdit
|
||||
Left = 216
|
||||
Height = 18
|
||||
Top = 200
|
||||
Width = 120
|
||||
TabOrder = 9
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 6
|
||||
Height = 46
|
||||
Top = 287
|
||||
Width = 161
|
||||
Caption = 'Options:'
|
||||
ClientHeight = 28
|
||||
ClientWidth = 157
|
||||
TabOrder = 10
|
||||
object RanksChk: TCheckBox
|
||||
Left = 8
|
||||
Height = 17
|
||||
Top = 3
|
||||
Width = 124
|
||||
Caption = 'Show Ranked Scores'
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 174
|
||||
Height = 26
|
||||
Top = 254
|
||||
Width = 65
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 268
|
||||
Height = 26
|
||||
Top = 254
|
||||
Width = 65
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 12
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 176
|
||||
Height = 26
|
||||
Top = 307
|
||||
Width = 65
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 13
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 268
|
||||
Height = 26
|
||||
Top = 307
|
||||
Width = 65
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 14
|
||||
end
|
||||
end
|
||||
341
applications/lazstats/source_orig/kendalltauunit.lrs
Normal file
341
applications/lazstats/source_orig/kendalltauunit.lrs
Normal file
@ -0,0 +1,341 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TKendallTauFrm','FORMDATA',[
|
||||
'TPF0'#14'TKendallTauFrm'#13'KendallTauFrm'#4'Left'#3#132#0#6'Height'#3'\'#1#3
|
||||
+'Top'#2'a'#5'Width'#3'`'#1#7'Caption'#6',Kendall Rank Correlation Tau and Pa'
|
||||
+'rtial Tau'#12'ClientHeight'#3'\'#1#11'ClientWidth'#3'`'#1#6'OnShow'#7#8'For'
|
||||
+'mShow'#10'LCLVersion'#6#8'0.9.26.2'#0#6'TLabel'#6'Label1'#4'Left'#2#5#6'Hei'
|
||||
+'ght'#2#14#3'Top'#2#5#5'Width'#2'Z'#7'Caption'#6#19'Variables Available'#11
|
||||
+'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#214#0#6'Height'#2#14#3'Top'
|
||||
+#2#25#5'Width'#2'0'#7'Caption'#6#10'X Variable'#11'ParentColor'#8#0#0#6'TLab'
|
||||
+'el'#6'Label3'#4'Left'#3#217#0#6'Height'#2#14#3'Top'#2'i'#5'Width'#2'0'#7'Ca'
|
||||
+'ption'#6#10'Y Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3
|
||||
+#216#0#6'Height'#2#14#3'Top'#3#184#0#5'Width'#2'0'#7'Caption'#6#10'Z Variabl'
|
||||
+'e'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#6#6'Height'#3#254
|
||||
+#0#3'Top'#2#21#5'Width'#3#160#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#3'XIn'#4'Left'
|
||||
+#3#176#0#6'Height'#2#28#3'Top'#2#22#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#8'XInClick'#8'TabOrder'#2
|
||||
+#1#0#0#7'TBitBtn'#4'XOut'#4'Left'#3#176#0#6'Height'#2#28#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#9'X'
|
||||
+'OutClick'#8'TabOrder'#2#2#0#0#7'TBitBtn'#3'YIn'#4'Left'#3#176#0#6'Height'#2
|
||||
+#28#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#255#255
|
||||
+#255#0#255#255#255#0#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#8'YInClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#4
|
||||
+'YOut'#4'Left'#3#175#0#6'Height'#2#28#3'Top'#3#136#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#9'YOutClick'#8'Ta'
|
||||
+'bOrder'#2#4#0#0#7'TBitBtn'#3'ZIn'#4'Left'#3#176#0#6'Height'#2#28#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'NumGlyp'
|
||||
+'hs'#2#0#7'OnClick'#7#8'ZInClick'#8'TabOrder'#2#5#0#0#7'TBitBtn'#4'ZOut'#4'L'
|
||||
+'eft'#3#176#0#6'Height'#2#28#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''#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#9'ZOutClick'#8'TabOrd'
|
||||
,'er'#2#6#0#0#5'TEdit'#5'XEdit'#4'Left'#3#213#0#6'Height'#2#18#3'Top'#2''''#5
|
||||
+'Width'#2'x'#8'TabOrder'#2#7#4'Text'#6#5'XEdit'#0#0#5'TEdit'#5'YEdit'#4'Left'
|
||||
+#3#217#0#6'Height'#2#18#3'Top'#2'x'#5'Width'#2'x'#8'TabOrder'#2#8#4'Text'#6#5
|
||||
+'Edit1'#0#0#5'TEdit'#5'ZEdit'#4'Left'#3#216#0#6'Height'#2#18#3'Top'#3#200#0#5
|
||||
+'Width'#2'x'#8'TabOrder'#2#9#4'Text'#6#5'Edit1'#0#0#9'TGroupBox'#9'GroupBox1'
|
||||
+#4'Left'#2#6#6'Height'#2'.'#3'Top'#3#31#1#5'Width'#3#161#0#7'Caption'#6#8'Op'
|
||||
+'tions:'#12'ClientHeight'#2#28#11'ClientWidth'#3#157#0#8'TabOrder'#2#10#0#9
|
||||
+'TCheckBox'#8'RanksChk'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#3#5'Width'#2'|'#7
|
||||
+'Caption'#6#18'Show Ranked Scores'#8'TabOrder'#2#0#0#0#0#7'TButton'#8'ResetB'
|
||||
+'tn'#4'Left'#3#174#0#6'Height'#2#26#3'Top'#3#254#0#5'Width'#2'A'#7'Caption'#6
|
||||
+#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#11#0#0#7'TButton'#9'C'
|
||||
+'ancelBtn'#4'Left'#3#12#1#6'Height'#2#26#3'Top'#3#254#0#5'Width'#2'A'#7'Capt'
|
||||
+'ion'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#12#0#0#7'TButton'#10'Com'
|
||||
+'puteBtn'#4'Left'#3#176#0#6'Height'#2#26#3'Top'#3'3'#1#5'Width'#2'A'#7'Capti'
|
||||
+'on'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#13#0#0#7'TB'
|
||||
+'utton'#9'ReturnBtn'#4'Left'#3#12#1#6'Height'#2#26#3'Top'#3'3'#1#5'Width'#2
|
||||
+'A'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#14#0#0#0
|
||||
]);
|
||||
554
applications/lazstats/source_orig/kendalltauunit.pas
Normal file
554
applications/lazstats/source_orig/kendalltauunit.pas
Normal file
@ -0,0 +1,554 @@
|
||||
unit KendallTauUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, MainUnit, OutPutUnit, FunctionsLib, Globals,
|
||||
DataProcs, Math, MatrixLib;
|
||||
|
||||
type
|
||||
|
||||
{ TKendallTauFrm }
|
||||
|
||||
TKendallTauFrm = class(TForm)
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
RanksChk: TCheckBox;
|
||||
GroupBox1: TGroupBox;
|
||||
XEdit: TEdit;
|
||||
YEdit: TEdit;
|
||||
ZEdit: TEdit;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
XIn: TBitBtn;
|
||||
XOut: TBitBtn;
|
||||
YIn: TBitBtn;
|
||||
YOut: TBitBtn;
|
||||
ZIn: TBitBtn;
|
||||
ZOut: TBitBtn;
|
||||
Label1: TLabel;
|
||||
VarList: TListBox;
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure XInClick(Sender: TObject);
|
||||
procedure XOutClick(Sender: TObject);
|
||||
procedure YInClick(Sender: TObject);
|
||||
procedure YOutClick(Sender: TObject);
|
||||
procedure ZInClick(Sender: TObject);
|
||||
procedure ZOutClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
KendallTauFrm: TKendallTauFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TKendallTauFrm }
|
||||
|
||||
procedure TKendallTauFrm.ResetBtnClick(Sender: TObject);
|
||||
VAR i : integer;
|
||||
begin
|
||||
XEdit.Text := '';
|
||||
YEdit.Text := '';
|
||||
ZEdit.Text := '';
|
||||
Xin.Visible := true;
|
||||
Xout.Visible := false;
|
||||
Yin.Visible := true;
|
||||
Yout.Visible := false;
|
||||
Zin.Visible := true;
|
||||
Zout.Visible := false;
|
||||
RanksChk.Checked := false;
|
||||
VarList.Items.Clear;
|
||||
for i := 1 to NoVariables do
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.XInClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
XEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
Xin.Visible := false;
|
||||
Xout.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.XOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(XEdit.Text);
|
||||
XEdit.Text := '';
|
||||
Xin.Visible := true;
|
||||
Xout.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.YInClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
YEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
Yin.Visible := false;
|
||||
Yout.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.YOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(YEdit.Text);
|
||||
YEdit.Text := '';
|
||||
Yin.Visible := true;
|
||||
Yout.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.ZInClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
ZEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
Zin.Visible := false;
|
||||
Zout.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.ZOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(YEdit.Text);
|
||||
ZEdit.Text := '';
|
||||
Zin.Visible := true;
|
||||
Zout.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TKendallTauFrm.ComputeBtnClick(Sender: TObject);
|
||||
label Check1, Check2, Check3;
|
||||
var
|
||||
i, j, k, itemp, NoTies, NoTieGroups, NoSelected : integer;
|
||||
col1, col2, col3, NCases : integer;
|
||||
index : IntDyneMat;
|
||||
Probability, Temp, TieSum, Avg, t, SumT, r : double;
|
||||
z, denominator, df, stddev : double;
|
||||
Ranks, X : DblDyneMat;
|
||||
cellstring, outline : string;
|
||||
ColNoSelected : IntdyneVec;
|
||||
ColLabels : StrDyneVec;
|
||||
RowLabels : StrDyneVec;
|
||||
TauXY, TauXZ, TauYZ : double;
|
||||
TiesX, TiesY, TiesZ : integer;
|
||||
Tx, Ty, Tz : double;
|
||||
Term1, Term2 : double;
|
||||
PartialTau : double;
|
||||
title : string;
|
||||
begin
|
||||
// Allocate memory
|
||||
SetLength(index,NoCases,3);
|
||||
SetLength(Ranks,NoCases,3);
|
||||
SetLength(X,NoCases,3);
|
||||
SetLength(ColLabels,3);
|
||||
SetLength(RowLabels,NoCases);
|
||||
SetLength(ColNoSelected,NoVariables);
|
||||
Tx := 0.0;
|
||||
Ty := 0.0;
|
||||
Tz := 0.0;
|
||||
|
||||
// Get column numbers and labels of variables selected
|
||||
NoSelected := 0;
|
||||
for j := 1 to NoVariables do
|
||||
begin
|
||||
cellstring := OS3MainFrm.DataGrid.Cells[j,0];
|
||||
if cellstring = Xedit.Text then
|
||||
begin
|
||||
ColNoSelected[0] := j;
|
||||
ColLabels[0] := cellstring;
|
||||
NoSelected := NoSelected + 1;
|
||||
end;
|
||||
if cellstring = Yedit.Text then
|
||||
begin
|
||||
ColNoSelected[1] := j;
|
||||
ColLabels[1] := cellstring;
|
||||
NoSelected := NoSelected + 1;
|
||||
end;
|
||||
if cellstring = Zedit.Text then
|
||||
begin
|
||||
ColNoSelected[2] := j;
|
||||
ColLabels[2] := cellstring;
|
||||
NoSelected := NoSelected + 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Get scores
|
||||
NCases := 0;
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
if ( not GoodRecord(i,NoSelected,ColNoSelected)) then continue;
|
||||
NCases := NCases + 1;
|
||||
col1 := ColNoSelected[0];
|
||||
col2 := ColNoSelected[1];
|
||||
if NoSelected = 3 then col3 := ColNoSelected[2];
|
||||
X[NCases-1,0] := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[col1,i]));
|
||||
Ranks[NCases-1,0] := X[NCases-1,0];
|
||||
X[NCases-1,1] := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[col2,i]));
|
||||
Ranks[NCases-1,1] := X[NCases-1,1];
|
||||
if NoSelected = 3 then
|
||||
begin
|
||||
X[NCases-1,2] := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[col3,i]));
|
||||
Ranks[NCases-1,2] := X[NCases-1,2];
|
||||
end;
|
||||
index[NCases-1,0] := NCases;
|
||||
index[NCases-1,1] := NCases;
|
||||
if NoSelected = 3 then index[NCases-1,2] := NCases;
|
||||
end;
|
||||
|
||||
for i := 0 to NCases - 1 do RowLabels[i] := IntToStr(i+1);
|
||||
// Rank the first variable (X)
|
||||
for i := 0 to NCases - 2 do
|
||||
begin
|
||||
for j := i + 1 to NCases-1 do
|
||||
begin
|
||||
if (Ranks[i,0] > Ranks[j,0]) then // swap
|
||||
begin
|
||||
Temp := Ranks[i,0];
|
||||
Ranks[i,0] := Ranks[j,0];
|
||||
Ranks[j,0] := Temp;
|
||||
itemp := index[i,0];
|
||||
index[i,0] := index[j,0];
|
||||
index[j,0] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Assign ranks
|
||||
for i := 0 to NCases-1 do Ranks[i,0] := i+1;
|
||||
|
||||
// Check for ties in each
|
||||
i := 1;
|
||||
while (i < NCases) do
|
||||
begin
|
||||
j := i+1;
|
||||
TieSum := 0.0;
|
||||
NoTies := 0;
|
||||
while (j <= NCases) do
|
||||
begin
|
||||
if (X[j-1,0] > X[i-1,0]) then goto Check1;
|
||||
if (X[j-1,0] = X[i-1,0]) then
|
||||
begin
|
||||
TieSum := TieSum + 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;
|
||||
i := i + (NoTies-1);
|
||||
Tx := Tx + NoTies *(NoTies-1);
|
||||
end;
|
||||
i := i + 1;
|
||||
end;
|
||||
Tx := Tx / 2.0;
|
||||
|
||||
// Repeat sort for second variable Y
|
||||
for i := 0 to NCases - 2 do
|
||||
begin
|
||||
for j := i + 1 to NCases-1 do
|
||||
begin
|
||||
if (Ranks[i,1] > Ranks[j,1]) then // swap
|
||||
begin
|
||||
Temp := Ranks[i,1];
|
||||
Ranks[i,1] := Ranks[j,1];
|
||||
Ranks[j,1] := Temp;
|
||||
itemp := index[i,1];
|
||||
index[i,1] := index[j,1];
|
||||
index[j,1] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Assign ranks
|
||||
for i := 0 to NCases-1 do Ranks[i,1] := i+1;
|
||||
|
||||
// Check for ties in each
|
||||
i := 1;
|
||||
while (i < NCases) do
|
||||
begin
|
||||
j := i+1;
|
||||
TieSum := 0.0;
|
||||
NoTies := 0;
|
||||
while (j <= NoCases) do
|
||||
begin
|
||||
if (X[j-1,1] > X[i-1,1]) then goto Check2;
|
||||
if (X[j-1,1] = X[i-1,1]) then
|
||||
begin
|
||||
TieSum := TieSum + Ranks[j-1,1];
|
||||
NoTies := NoTies + 1;
|
||||
end;
|
||||
j := j + 1;
|
||||
end;
|
||||
Check2:
|
||||
if (NoTies > 0) then // at least one tie found
|
||||
begin
|
||||
TieSum := TieSum + Ranks[i-1,1];
|
||||
NoTies := NoTies + 1;
|
||||
Avg := TieSum / NoTies;
|
||||
for j := i to i + NoTies - 1 do Ranks[j-1,1] := Avg;
|
||||
i := i + (NoTies-1);
|
||||
Ty := Ty + NoTies * (NoTies - 1);
|
||||
end;
|
||||
i := i + 1;
|
||||
end;
|
||||
Ty := Ty / 2.0;
|
||||
|
||||
// Repeat for z variable
|
||||
if NoSelected > 2 then // z was entered
|
||||
begin
|
||||
for i := 0 to NCases - 2 do
|
||||
begin
|
||||
for j := i + 1 to NCases-1 do
|
||||
begin
|
||||
if (Ranks[i,2] > Ranks[j,2]) then // swap
|
||||
begin
|
||||
Temp := Ranks[i,2];
|
||||
Ranks[i,2] := Ranks[j,2];
|
||||
Ranks[j,2] := Temp;
|
||||
itemp := index[i,2];
|
||||
index[i,2] := index[j,2];
|
||||
index[j,2] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Assign ranks
|
||||
for i := 0 to NCases-1 do Ranks[i,2] := i+1;
|
||||
|
||||
// Check for ties in each
|
||||
i := 1;
|
||||
while (i < NCases) do
|
||||
begin
|
||||
j := i+1;
|
||||
TieSum := 0.0;
|
||||
NoTies := 0;
|
||||
while (j <= NoCases) do
|
||||
begin
|
||||
if (X[j-1,2] > X[i-1,2]) then goto Check3;
|
||||
if (X[j-1,2] = X[i-1,2]) then
|
||||
begin
|
||||
TieSum := TieSum + Ranks[j-1,2];
|
||||
NoTies := NoTies + 1;
|
||||
end;
|
||||
j := j + 1;
|
||||
end;
|
||||
Check3:
|
||||
if (NoTies > 0) then // at least one tie found
|
||||
begin
|
||||
TieSum := TieSum + Ranks[i-1,2];
|
||||
NoTies := NoTies + 1;
|
||||
Avg := TieSum / NoTies;
|
||||
for j := i to i + NoTies - 1 do Ranks[j-1,2] := Avg;
|
||||
i := i + (NoTies-1);
|
||||
Tz := Tz + NoTies * (NoTies - 1);
|
||||
end;
|
||||
i := i + 1;
|
||||
end;
|
||||
Tz := Tz / 2.0;
|
||||
end;
|
||||
|
||||
// Rearrange ranks into original score order
|
||||
for k := 1 to 3 do
|
||||
begin
|
||||
for i := 1 to NCases - 1 do
|
||||
begin
|
||||
for j := i + 1 to NCases do
|
||||
begin
|
||||
if (index[i-1,k-1] > index[j-1,k-1]) then // swap
|
||||
begin
|
||||
itemp := index[i-1,k-1];
|
||||
index[i-1,k-1] := index[j-1,k-1];
|
||||
index[j-1,k-1] := itemp;
|
||||
Temp := Ranks[i-1,k-1];
|
||||
Ranks[i-1,k-1] := Ranks[j-1,k-1];
|
||||
Ranks[j-1,k-1] := Temp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// print data matrix if option is elected
|
||||
if RanksChk.Checked then
|
||||
begin
|
||||
title := 'Ranks';
|
||||
if NoSelected = 2 then
|
||||
MAT_PRINT(Ranks,NCases,2,title,RowLabels,ColLabels,NCases)
|
||||
else
|
||||
MAT_PRINT(Ranks,NCases,3,title,RowLabels,ColLabels,NCases);
|
||||
OutPutFrm.ShowModal;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
end;
|
||||
|
||||
// compute Tau for X and Y
|
||||
// sort on X and obtain SumT for Y ranks
|
||||
SumT := 0.0;
|
||||
for i := 0 to NCases - 2 do
|
||||
begin
|
||||
for j := i + 1 to NCases-1 do
|
||||
begin
|
||||
if (Ranks[i,0] > Ranks[j,0]) then // swap
|
||||
begin
|
||||
Temp := Ranks[i,0];
|
||||
Ranks[i,0] := Ranks[j,0];
|
||||
Ranks[j,0] := Temp;
|
||||
Temp := Ranks[i,1];
|
||||
Ranks[i,1] := Ranks[j,1];
|
||||
Ranks[j,1] := Temp;
|
||||
if NoSelected = 3 then
|
||||
begin
|
||||
Temp := Ranks[i,2];
|
||||
Ranks[i,2] := Ranks[j,2];
|
||||
Ranks[j,2] := Temp;
|
||||
end;
|
||||
itemp := index[i,0];
|
||||
index[i,0] := index[j,0];
|
||||
index[j,0] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
for i := 0 to NCases - 2 do
|
||||
for j := i + 1 to NCases - 1 do
|
||||
if Ranks[i,1] < Ranks[j,1] then SumT := SumT + 1.0
|
||||
else if Ranks[i,1] > Ranks[j,1] then SumT := SumT - 1.0;
|
||||
Term1 := sqrt((NCases * (NCases-1)) / 2.0 - Tx);
|
||||
Term2 := sqrt((NCases * (Ncases-1)) / 2.0 - Ty);
|
||||
denominator := Term1 * Term2;
|
||||
TauXY := SumT / denominator;
|
||||
|
||||
if NoSelected > 2 then // get tau values for partial
|
||||
begin
|
||||
// Get TauXZ
|
||||
SumT := 0.0;
|
||||
for i := 0 to NCases - 2 do
|
||||
for j := i + 1 to NCases - 1 do
|
||||
if Ranks[i,2] < Ranks[j,2] then SumT := SumT + 1.0
|
||||
else if Ranks[i,2] > Ranks[j,2] then SumT := SumT - 1.0;
|
||||
Term1 := sqrt((NCases * (NCases-1)) / 2.0 - Tx);
|
||||
Term2 := sqrt((NCases * (Ncases-1)) / 2.0 - Tz);
|
||||
denominator := Term1 * Term2;
|
||||
TauXZ := SumT / denominator;
|
||||
|
||||
// get back to original order then sort on Y
|
||||
for i := 0 to NCases - 2 do
|
||||
begin
|
||||
for j := i + 1 to NCases - 1 do
|
||||
begin
|
||||
if index[i,0] > index[j,0] then // swap
|
||||
begin
|
||||
Temp := Ranks[i,0];
|
||||
Ranks[i,0] := Ranks[j,0];
|
||||
Ranks[j,0] := temp;
|
||||
Temp := Ranks[i,1];
|
||||
Ranks[i,1] := Ranks[j,1];
|
||||
Ranks[j,1] := Temp;
|
||||
Temp := Ranks[i,2];
|
||||
Ranks[i,2] := Ranks[j,2];
|
||||
Ranks[j,2] := Temp;
|
||||
itemp := index[i,0];
|
||||
index[i,0] := index[j,0];
|
||||
index[j,0] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Get TauYZ
|
||||
for i := 0 to NCases - 2 do // sort on Y variable
|
||||
begin
|
||||
for j := i + 1 to NCases-1 do
|
||||
begin
|
||||
if (Ranks[i,1] > Ranks[j,1]) then // swap
|
||||
begin
|
||||
Temp := Ranks[i,1];
|
||||
Ranks[i,1] := Ranks[j,1];
|
||||
Ranks[j,1] := Temp;
|
||||
Temp := Ranks[i,2];
|
||||
Ranks[i,2] := Ranks[j,2];
|
||||
Ranks[j,2] := Temp;
|
||||
itemp := index[i,1];
|
||||
index[i,1] := index[j,1];
|
||||
index[j,1] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
SumT := 0.0;
|
||||
for i := 0 to NCases - 2 do
|
||||
for j := i + 1 to NCases - 1 do
|
||||
if Ranks[i,2] < Ranks[j,2] then SumT := SumT + 1.0
|
||||
else if Ranks[i,2] > Ranks[j,2] then SumT := SumT - 1.0;
|
||||
Term1 := sqrt((NCases * (NCases-1)) / 2.0 - Ty);
|
||||
Term2 := sqrt((NCases * (Ncases-1)) / 2.0 - Tz);
|
||||
denominator := Term1 * Term2;
|
||||
TauYZ := SumT / denominator;
|
||||
PartialTau := (TauXY - TauXZ * TauYZ) /
|
||||
(sqrt(1.0 - sqr(TauXZ)) * sqrt(1.0 - sqr(TauYZ)));
|
||||
end;
|
||||
|
||||
// do significance tests
|
||||
stddev := sqrt( (2.0 * ( 2.0 * NCases + 5)) / (9.0 * NCases * (NCases - 1.0)));
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
OutPutFrm.RichEdit.Lines.Add('Kendall Tau for File: ' + OS3MainFrm.FileNameEdit.Text);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('Kendall Tau for variables ' + ColLabels[0] + ' and ' + ColLabels[1]);
|
||||
z := abs(TauXY / stddev);
|
||||
probability := 1.0 - probz(z);
|
||||
outline := format('Tau = %8.4f z = %8.3f probability > |z| = %4.3f',[TauXY,z,probability]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
if NoSelected > 2 then
|
||||
begin
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
z := abs(TauXZ / stddev);
|
||||
probability := 1.0 - probz(z);
|
||||
OutPutFrm.RichEdit.Lines.Add('Kendall Tau for variables ' + ColLabels[0] + ' and ' + ColLabels[2]);
|
||||
outline := format('Tau = %8.4f z = %8.3f probability > |z| = %4.3f',[TauXZ,z,probability]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
z := abs(TauYZ / stddev);
|
||||
probability := 1.0 - probz(z);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('Kendall Tau for variables ' + ColLabels[1] + ' and ' + ColLabels[2]);
|
||||
outline := format('Tau = %8.4f z = %8.3f probability > |z| = %4.3f',[TauYZ,z,probability]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
outline := format('Partial Tau = %8.4f',[PartialTau]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('NOTE: Probabilities are for large N (>10)');
|
||||
OutPutFrm.ShowModal;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
|
||||
ColNoSelected := nil;
|
||||
RowLabels := nil;
|
||||
ColLabels := nil;
|
||||
X := nil;
|
||||
Ranks := nil;
|
||||
index := nil;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I kendalltauunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
253
applications/lazstats/source_orig/kmeansunit.lfm
Normal file
253
applications/lazstats/source_orig/kmeansunit.lfm
Normal file
@ -0,0 +1,253 @@
|
||||
object kmeansfrm: Tkmeansfrm
|
||||
Left = 157
|
||||
Height = 398
|
||||
Top = 115
|
||||
Width = 443
|
||||
Caption = 'k Means Clustering '
|
||||
ClientHeight = 398
|
||||
ClientWidth = 443
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Label1: TLabel
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 112
|
||||
Caption = 'No. of Desired Clusters'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 40
|
||||
Width = 81
|
||||
Caption = 'No. of Iterations'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 90
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 249
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 88
|
||||
Caption = 'Selected Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object NoClustersEdit: TEdit
|
||||
Left = 130
|
||||
Height = 21
|
||||
Top = 1
|
||||
Width = 54
|
||||
TabOrder = 0
|
||||
Text = 'NoClustersEdit'
|
||||
end
|
||||
object ItersEdit: TEdit
|
||||
Left = 129
|
||||
Height = 21
|
||||
Top = 33
|
||||
Width = 55
|
||||
TabOrder = 1
|
||||
Text = 'ItersEdit'
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 262
|
||||
Height = 101
|
||||
Top = 1
|
||||
Width = 160
|
||||
Caption = 'Analysis Optons'
|
||||
ClientHeight = 83
|
||||
ClientWidth = 156
|
||||
TabOrder = 2
|
||||
object StdChkBox: TCheckBox
|
||||
Left = 7
|
||||
Height = 17
|
||||
Top = 5
|
||||
Width = 123
|
||||
Caption = 'Standardize Variables'
|
||||
TabOrder = 0
|
||||
end
|
||||
object RepChkBox: TCheckBox
|
||||
Left = 25
|
||||
Height = 17
|
||||
Top = 31
|
||||
Width = 114
|
||||
Caption = 'Replace Grid Values'
|
||||
TabOrder = 1
|
||||
end
|
||||
object DescChkBox: TCheckBox
|
||||
Left = 10
|
||||
Height = 17
|
||||
Top = 57
|
||||
Width = 119
|
||||
Caption = 'Descriptive Statistics'
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 7
|
||||
Height = 208
|
||||
Top = 128
|
||||
Width = 176
|
||||
ItemHeight = 0
|
||||
MultiSelect = True
|
||||
TabOrder = 3
|
||||
end
|
||||
object VarInBtn: TBitBtn
|
||||
Left = 192
|
||||
Height = 34
|
||||
Top = 128
|
||||
Width = 45
|
||||
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
|
||||
}
|
||||
OnClick = VarInBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object VarOutBtn: TBitBtn
|
||||
Left = 192
|
||||
Height = 34
|
||||
Top = 168
|
||||
Width = 45
|
||||
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
|
||||
}
|
||||
OnClick = VarOutBtnClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object AllBtn: TBitBtn
|
||||
Left = 192
|
||||
Height = 34
|
||||
Top = 224
|
||||
Width = 45
|
||||
Caption = 'ALL'
|
||||
OnClick = AllBtnClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object ListBox1: TListBox
|
||||
Left = 248
|
||||
Height = 208
|
||||
Top = 128
|
||||
Width = 174
|
||||
ItemHeight = 0
|
||||
TabOrder = 7
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 96
|
||||
Height = 28
|
||||
Top = 352
|
||||
Width = 75
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 8
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 184
|
||||
Height = 28
|
||||
Top = 352
|
||||
Width = 75
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 9
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 264
|
||||
Height = 28
|
||||
Top = 352
|
||||
Width = 75
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 10
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 347
|
||||
Height = 28
|
||||
Top = 352
|
||||
Width = 75
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 11
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Tag = 129
|
||||
Left = 9
|
||||
Height = 28
|
||||
Top = 352
|
||||
Width = 81
|
||||
Caption = 'Help'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 12
|
||||
end
|
||||
end
|
||||
144
applications/lazstats/source_orig/kmeansunit.lrs
Normal file
144
applications/lazstats/source_orig/kmeansunit.lrs
Normal file
@ -0,0 +1,144 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('Tkmeansfrm','FORMDATA',[
|
||||
'TPF0'#10'Tkmeansfrm'#9'kmeansfrm'#4'Left'#3#157#0#6'Height'#3#142#1#3'Top'#2
|
||||
+'s'#5'Width'#3#187#1#7'Caption'#6#19'k Means Clustering '#12'ClientHeight'#3
|
||||
+#142#1#11'ClientWidth'#3#187#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'#2#8#5'Width'
|
||||
+#2'p'#7'Caption'#6#23'No. of Desired Clusters'#11'ParentColor'#8#0#0#6'TLabe'
|
||||
+'l'#6'Label2'#4'Left'#2#9#6'Height'#2#14#3'Top'#2'('#5'Width'#2'Q'#7'Caption'
|
||||
+#6#17'No. of Iterations'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2
|
||||
+#9#6'Height'#2#14#3'Top'#2'p'#5'Width'#2'Z'#7'Caption'#6#19'Available Variab'
|
||||
+'les'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#249#0#6'Height'#2
|
||||
+#14#3'Top'#2'p'#5'Width'#2'X'#7'Caption'#6#18'Selected Variables'#11'ParentC'
|
||||
+'olor'#8#0#0#5'TEdit'#14'NoClustersEdit'#4'Left'#3#130#0#6'Height'#2#21#3'To'
|
||||
+'p'#2#1#5'Width'#2'6'#8'TabOrder'#2#0#4'Text'#6#14'NoClustersEdit'#0#0#5'TEd'
|
||||
+'it'#9'ItersEdit'#4'Left'#3#129#0#6'Height'#2#21#3'Top'#2'!'#5'Width'#2'7'#8
|
||||
+'TabOrder'#2#1#4'Text'#6#9'ItersEdit'#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#3
|
||||
+#6#1#6'Height'#2'e'#3'Top'#2#1#5'Width'#3#160#0#7'Caption'#6#15'Analysis Opt'
|
||||
+'ons'#12'ClientHeight'#2'S'#11'ClientWidth'#3#156#0#8'TabOrder'#2#2#0#9'TChe'
|
||||
+'ckBox'#9'StdChkBox'#4'Left'#2#7#6'Height'#2#17#3'Top'#2#5#5'Width'#2'{'#7'C'
|
||||
+'aption'#6#21'Standardize Variables'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9'RepC'
|
||||
+'hkBox'#4'Left'#2#25#6'Height'#2#17#3'Top'#2#31#5'Width'#2'r'#7'Caption'#6#19
|
||||
+'Replace Grid Values'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'DescChkBox'#4'Left'
|
||||
+#2#10#6'Height'#2#17#3'Top'#2'9'#5'Width'#2'w'#7'Caption'#6#22'Descriptive S'
|
||||
+'tatistics'#8'TabOrder'#2#2#0#0#0#8'TListBox'#7'VarList'#4'Left'#2#7#6'Heigh'
|
||||
+'t'#3#208#0#3'Top'#3#128#0#5'Width'#3#176#0#10'ItemHeight'#2#0#11'MultiSelec'
|
||||
+'t'#9#8'TabOrder'#2#3#0#0#7'TBitBtn'#8'VarInBtn'#4'Left'#3#192#0#6'Height'#2
|
||||
+'"'#3'Top'#3#128#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
|
||||
+#7'OnClick'#7#13'VarInBtnClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'#9'VarOutBtn'#4
|
||||
+'Left'#3#192#0#6'Height'#2'"'#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#7'OnClick'#7#14'VarOutBtnClick'#8'TabOrder'#2#5
|
||||
+#0#0#7'TBitBtn'#6'AllBtn'#4'Left'#3#192#0#6'Height'#2'"'#3'Top'#3#224#0#5'Wi'
|
||||
+'dth'#2'-'#7'Caption'#6#3'ALL'#7'OnClick'#7#11'AllBtnClick'#8'TabOrder'#2#6#0
|
||||
,#0#8'TListBox'#8'ListBox1'#4'Left'#3#248#0#6'Height'#3#208#0#3'Top'#3#128#0#5
|
||||
+'Width'#3#174#0#10'ItemHeight'#2#0#8'TabOrder'#2#7#0#0#7'TButton'#8'ResetBtn'
|
||||
+#4'Left'#2'`'#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'K'#7'Caption'#6#5'Rese'
|
||||
+'t'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#8#0#0#7'TButton'#9'CancelBt'
|
||||
+'n'#4'Left'#3#184#0#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'K'#7'Caption'#6#6
|
||||
+'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#9#0#0#7'TButton'#10'ComputeBtn'#4
|
||||
+'Left'#3#8#1#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'K'#7'Caption'#6#7'Compu'
|
||||
+'te'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#10#0#0#7'TButton'#9'Retu'
|
||||
+'rnBtn'#4'Left'#3'['#1#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'K'#7'Caption'
|
||||
+#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#11#0#0#7'TButton'#7'HelpBtn'#3
|
||||
+'Tag'#3#129#0#4'Left'#2#9#6'Height'#2#28#3'Top'#3'`'#1#5'Width'#2'Q'#7'Capti'
|
||||
+'on'#6#4'Help'#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#12#0#0#0
|
||||
]);
|
||||
867
applications/lazstats/source_orig/kmeansunit.pas
Normal file
867
applications/lazstats/source_orig/kmeansunit.pas
Normal file
@ -0,0 +1,867 @@
|
||||
unit kmeansunit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, MainUnit, functionslib, Globals, matrixlib, dataprocs,
|
||||
outputunit, contexthelpunit;
|
||||
|
||||
type
|
||||
|
||||
{ Tkmeansfrm }
|
||||
|
||||
Tkmeansfrm = class(TForm)
|
||||
DescChkBox: TCheckBox;
|
||||
HelpBtn: TButton;
|
||||
VarInBtn: TBitBtn;
|
||||
VarOutBtn: TBitBtn;
|
||||
AllBtn: TBitBtn;
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
StdChkBox: TCheckBox;
|
||||
RepChkBox: TCheckBox;
|
||||
GroupBox1: TGroupBox;
|
||||
ItersEdit: TEdit;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
ListBox1: TListBox;
|
||||
VarList: TListBox;
|
||||
NoClustersEdit: TEdit;
|
||||
Label1: TLabel;
|
||||
procedure AllBtnClick(Sender: TObject);
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure HelpBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure VarInBtnClick(Sender: TObject);
|
||||
procedure VarOutBtnClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
procedure KMNS(VAR A : DblDyneMat; M, N : integer;
|
||||
VAR C : DblDyneMat; K : integer; VAR IC1 : IntDyneVec;
|
||||
VAR IC2 : IntDyneVec; VAR NC : IntDyneVec;
|
||||
VAR AN1 : DblDyneVec; VAR AN2 : DblDyneVec;
|
||||
VAR NCP : IntDyneVec; VAR D : DblDyneVec;
|
||||
VAR ITRAN : IntDyneVec; VAR LIVE : IntDyneVec;
|
||||
ITER : integer; VAR WSS : DblDyneVec; IFAULT : integer);
|
||||
procedure OPTRA(VAR A : DblDyneMat; M, N : integer;
|
||||
VAR C : DblDyneMat; K : integer;
|
||||
VAR IC1 : IntDyneVec; VAR IC2 : IntDyneVec;
|
||||
VAR NC : IntDyneVec; VAR AN1 : DblDyneVec;
|
||||
VAR AN2 : DblDyneVec; VAR NCP : IntDyneVec;
|
||||
VAR D : DblDyneVec; VAR ITRAN : IntDyneVec;
|
||||
VAR LIVE : IntDyneVec; INDX : integer);
|
||||
procedure QTRAN(VAR A : DblDyneMat; M, N : integer;
|
||||
VAR C : DblDyneMat; K : integer;
|
||||
VAR IC1 : IntDyneVec; VAR IC2 : IntDyneVec;
|
||||
VAR NC : IntDyneVec; VAR AN1 : DblDyneVec;
|
||||
VAR AN2 : DblDyneVec; VAR NCP : IntDyneVec;
|
||||
VAR D : DblDyneVec; VAR ITRAN : IntDyneVec;
|
||||
INDX : integer);
|
||||
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
kmeansfrm: Tkmeansfrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ Tkmeansfrm }
|
||||
|
||||
procedure Tkmeansfrm.ResetBtnClick(Sender: TObject);
|
||||
VAR cellstring : string;
|
||||
i : integer;
|
||||
begin
|
||||
VarList.Clear;
|
||||
ListBox1.Clear;
|
||||
for i := 1 to NoVariables do
|
||||
begin
|
||||
cellstring := OS3MainFrm.DataGrid.Cells[i,0];
|
||||
VarList.Items.Add(cellstring);
|
||||
end;
|
||||
RepChkBox.Checked := false;
|
||||
StdChkBox.Checked := true;
|
||||
VarOutBtn.Enabled := false;
|
||||
DescChkBox.Checked := false;
|
||||
NoClustersEdit.Text := '';
|
||||
ItersEdit.Text := '100';
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.VarInBtnClick(Sender: TObject);
|
||||
VAR
|
||||
index, count, i : integer;
|
||||
cellstring : string;
|
||||
begin
|
||||
count := 0;
|
||||
index := ListBox1.Items.Count;
|
||||
for i := 0 to index - 1 do
|
||||
begin
|
||||
if (VarList.Selected[i]) then
|
||||
begin
|
||||
cellstring := VarList.Items.strings[i];
|
||||
ListBox1.Items.Add(cellstring);
|
||||
count := count + 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
while (count > 0) do
|
||||
begin
|
||||
for i := 0 to VarList.Items.Count - 1 do
|
||||
begin
|
||||
if (VarList.Selected[i]) then
|
||||
begin
|
||||
VarList.Items.Delete(i);
|
||||
count := count - 1;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
VarOutBtn.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.VarOutBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
cellstring : string;
|
||||
begin
|
||||
index := ListBox1.ItemIndex;
|
||||
cellstring := ListBox1.Items.Strings[index];
|
||||
VarList.Items.Add(cellstring);
|
||||
ListBox1.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.HelpBtnClick(Sender: TObject);
|
||||
begin
|
||||
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.AllBtnClick(Sender: TObject);
|
||||
VAR
|
||||
index, noitems : integer;
|
||||
cellstring : string;
|
||||
begin
|
||||
noitems := VarList.Items.Count;
|
||||
for index := 0 to noitems - 1 do
|
||||
begin
|
||||
cellstring := VarList.Items.Strings[index];
|
||||
ListBox1.Items.Add(cellstring);
|
||||
end;
|
||||
VarList.Clear;
|
||||
VarOutBtn.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.ComputeBtnClick(Sender: TObject);
|
||||
VAR
|
||||
i, j, L, Ncols, N, M, K,IFAULT, ITER, result, intvalue, col : integer;
|
||||
center, itemp : integer;
|
||||
IC1, IC2, NC, NCP, ITRAN, LIVE, ColSelected : IntDyneVec;
|
||||
A, C : DblDyneMat;
|
||||
D, AN1, AN2, WSS, DT : DblDyneVec;
|
||||
cellstring, strvalue : string;
|
||||
outline : string;
|
||||
strval : string;
|
||||
varlabels, rowlabels : StrDyneVec;
|
||||
dblvalue, Mean, stddev : double;
|
||||
label cleanup;
|
||||
|
||||
begin
|
||||
Ncols := ListBox1.Items.Count;
|
||||
if (Ncols <= 0) then
|
||||
begin
|
||||
ShowMessage('ERROR! No variables selected to cluster.');
|
||||
exit;
|
||||
end;
|
||||
|
||||
N := Ncols;
|
||||
M := NoCases;
|
||||
K := StrToInt(NoClustersEdit.Text);
|
||||
IFAULT := 0;
|
||||
ITER := StrToInt(ItersEdit.Text);
|
||||
|
||||
SetLength(varlabels,Ncols);
|
||||
SetLength(rowlabels,NoCases);
|
||||
SetLength(ColSelected,Ncols);
|
||||
SetLength(A,M+1,N+1);
|
||||
SetLength(C,K+1,N+1);
|
||||
SetLength(D,M+1);
|
||||
SetLength(AN1,K+1);
|
||||
SetLength(AN2,K+1);
|
||||
SetLength(WSS,K+1);
|
||||
SetLength(DT,3);
|
||||
SetLength(IC1,M+1);
|
||||
SetLength(IC2,M+1);
|
||||
SetLength(NC,K+1);
|
||||
SetLength(NCP,K+1);
|
||||
SetLength(ITRAN,K+1);
|
||||
SetLength(LIVE,K+1);
|
||||
|
||||
if (K <= 0) then
|
||||
begin
|
||||
ShowMessage('ERROR! You must enter the desired number of clusters.');
|
||||
goto cleanup;
|
||||
end;
|
||||
|
||||
// initialize arrays
|
||||
for i := 1 to K do
|
||||
begin
|
||||
AN1[i] := 0.0;
|
||||
AN2[i] := 0.0;
|
||||
WSS[i] := 0.0;
|
||||
NC[i] := 0;
|
||||
NCP[i] := 0;
|
||||
ITRAN[i] := 0;
|
||||
LIVE[i] := 0;
|
||||
for j := 1 to N do C[i,j] := 0.0;
|
||||
end;
|
||||
for i := 1 to M do
|
||||
begin
|
||||
IC1[i] := 0;
|
||||
IC2[i] := 0;
|
||||
D[i] := 0.0;
|
||||
end;
|
||||
|
||||
//Get labels and columns of selected variables
|
||||
for i := 0 to Ncols - 1 do
|
||||
begin
|
||||
cellstring := ListBox1.Items.Strings[i];
|
||||
for j := 0 to NoVariables - 1 do
|
||||
begin
|
||||
if (cellstring = OS3MainFrm.DataGrid.Cells[j+1,0]) then
|
||||
begin
|
||||
varlabels[i] := cellstring;
|
||||
ColSelected[i] := j+1;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Get labels of rows
|
||||
for i := 0 to NoCases - 1 do rowlabels[i] := OS3MainFrm.DataGrid.Cells[0,i+1];
|
||||
|
||||
// read the data
|
||||
for i := 1 to M do
|
||||
begin
|
||||
if (NOT GoodRecord(i,N,ColSelected)) then continue;
|
||||
for j := 1 to N do
|
||||
begin
|
||||
col := ColSelected[j-1];
|
||||
A[i,j] := StrToFloat(OS3MainFrm.DataGrid.Cells[col,i]);
|
||||
end;
|
||||
end;
|
||||
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
OutPutFrm.RichEdit.Lines.Add('K-Means Clustering. Adapted from AS 136 APPL. STATIST. (1979) VOL.28, NO.1');
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
outline := format('File := %s',[OS3MainFrm.FileNameEdit.Text]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
outline := format('No. Cases := %d, No. Variables := %d, No. Clusters := %d',[M,N,K]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
// transform to z scores if needed
|
||||
if (StdChkBox.Checked = true) then
|
||||
begin
|
||||
for j := 1 to N do
|
||||
begin
|
||||
Mean := 0.0;
|
||||
stddev := 0.0;
|
||||
for i := 1 to M do
|
||||
begin
|
||||
Mean := Mean + A[i,j];
|
||||
stddev := stddev + (A[i,j] * A[i,j]);
|
||||
end;
|
||||
stddev := stddev - Mean * Mean / M;
|
||||
stddev := stddev / (M - 1);
|
||||
Mean := Mean / M;
|
||||
if (DescChkBox.Checked) then
|
||||
begin
|
||||
outline := format('Mean := %8.3f, Std.Dev. := %8.3f for %s',[Mean,stddev,varlabels[j-1]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
for i := 1 to M do
|
||||
begin
|
||||
A[i,j] := (A[i,j] - Mean) / stddev;
|
||||
if (RepChkBox.Checked = true) then
|
||||
begin
|
||||
col := ColSelected[j-1];
|
||||
outline := format('%8.5f',[A[i,j]]);
|
||||
OS3MainFrm.DataGrid.Cells[col,i] := outline;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// Now enter initial points
|
||||
for L := 1 to K do
|
||||
begin
|
||||
center := 1 + (L-1) * (M div K); // initial cluster center
|
||||
for j := 1 to N do C[L,j] := A[center,j];
|
||||
end;
|
||||
|
||||
// do analysis
|
||||
KMNS(A,M,N,C,K,IC1,IC2,NC,AN1,AN2,NCP,D,ITRAN,LIVE,ITER,WSS,IFAULT);
|
||||
|
||||
// show results
|
||||
|
||||
// sort subjects by cluster
|
||||
for i := 1 to M do IC2[i] := i; // store ids in here
|
||||
for i := 1 to M - 1 do
|
||||
begin
|
||||
for j := i+1 to M do
|
||||
begin
|
||||
if (IC1[i] > IC1[j]) then // swap these clusters and ids
|
||||
begin
|
||||
itemp := IC1[i];
|
||||
IC1[i] := IC1[j];
|
||||
IC1[j] := itemp;
|
||||
itemp := IC2[i];
|
||||
IC2[i] := IC2[j];
|
||||
IC2[j] := itemp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('NUMBER OF SUBJECTS IN EACH CLUSTER');
|
||||
for i := 1 to K do
|
||||
begin
|
||||
outline := format('Cluster := %d with %d cases.',[i,NC[i]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('PLACEMENT OF SUBJECTS IN CLUSTERS');
|
||||
OutPutFrm.RichEdit.Lines.Add('CLUSTER SUBJECT');
|
||||
for i := 1 to M do
|
||||
begin
|
||||
outline := format(' %3d %3d',[IC1[i],IC2[i]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('AVERAGE VARIABLE VALUES BY CLUSTER');
|
||||
outline := ' VARIABLES';
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
outline := 'CLUSTER';
|
||||
for j := 1 to N do
|
||||
begin
|
||||
strval := format(' %3d ',[j]);
|
||||
outline := outline + strval;
|
||||
end;
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add(' ');
|
||||
for i := 1 to K do
|
||||
begin
|
||||
outline := format(' %3d ',[i]);
|
||||
for j := 1 to N do
|
||||
begin
|
||||
strval := format('%5.2f ',[C[i,j]]);
|
||||
outline := outline + strval;
|
||||
end;
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('WITHIN CLUSTER SUMS OF SQUARES');
|
||||
for i := 1 to K do
|
||||
begin
|
||||
outline := format('Cluster %d := %6.3f',[i,WSS[i]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
|
||||
OutPutFrm.ShowModal;
|
||||
|
||||
// cleanup
|
||||
cleanup:
|
||||
LIVE := nil;
|
||||
ITRAN := nil;
|
||||
NCP := nil;
|
||||
NC := nil;
|
||||
IC2 := nil;
|
||||
IC1 := nil;
|
||||
DT := nil;
|
||||
WSS := nil;
|
||||
AN2 := nil;
|
||||
AN1 := nil;
|
||||
D := nil;
|
||||
C := nil;
|
||||
A := nil;
|
||||
ColSelected := nil;
|
||||
rowlabels := nil;
|
||||
varlabels := nil;
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.KMNS(VAR A : DblDyneMat; M, N : integer;
|
||||
VAR C : DblDyneMat; K : integer; VAR IC1 : IntDyneVec;
|
||||
VAR IC2 : IntDyneVec; VAR NC : IntDyneVec;
|
||||
VAR AN1 : DblDyneVec; VAR AN2 : DblDyneVec;
|
||||
VAR NCP : IntDyneVec; VAR D : DblDyneVec;
|
||||
VAR ITRAN : IntDyneVec; VAR LIVE : IntDyneVec;
|
||||
ITER : integer; VAR WSS : DblDyneVec; IFAULT : integer);
|
||||
VAR
|
||||
DT : array[0..2] of double;
|
||||
BIG : double;
|
||||
ZERO : double;
|
||||
ONE : double;
|
||||
DA, DB, DC, TEMP, AA : double;
|
||||
L, II, INDX, I, J, IL, IJ : integer;
|
||||
label cont50, cont40, cont150;
|
||||
|
||||
begin
|
||||
// SUBROUTINE KMNS(A, M, N, C, K, IC1, IC2, NC, AN1, AN2, NCP, D,
|
||||
// * ITRAN, LIVE, ITER, WSS, IFAULT)
|
||||
//
|
||||
// ALGORITHM AS 136 APPL. STATIST. (1979) VOL.28, NO.1
|
||||
// Divide M points in N-dimensional space into K clusters so that
|
||||
// the within cluster sum of squares is minimized.
|
||||
//
|
||||
// INTEGER IC1(M), IC2(M), NC(K), NCP(K), ITRAN(K), LIVE(K)
|
||||
// REAL A(M,N), D(M), C(K,N), AN1(K), AN2(K), WSS(K), DT(2)
|
||||
// REAL ZERO, ONE
|
||||
//
|
||||
// Define BIG to be a very large positive number
|
||||
//
|
||||
// DATA BIG /1.E30/, ZERO /0.0/, ONE /1.0/
|
||||
//
|
||||
BIG := 1.0e30;
|
||||
ZERO := 0.0;
|
||||
ONE := 1.0;
|
||||
IFAULT := 3;
|
||||
if ((K <= 1) or (K >= M)) then
|
||||
begin
|
||||
ShowMessage('The no. of clusters must be less than the no. of variables.');
|
||||
exit;
|
||||
end;
|
||||
|
||||
// For each point I, find its two closest centres, IC1(I) and
|
||||
// IC2(I). Assign it to IC1(I).
|
||||
//
|
||||
for I := 1 to M do
|
||||
begin
|
||||
IC1[I] := 1;
|
||||
IC2[I] := 2;
|
||||
for IL := 1 to 2 do
|
||||
begin
|
||||
DT[IL] := ZERO;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
DA := A[I,J] - C[IL,J];
|
||||
DT[IL] := DT[IL] + (DA * DA); //(squared difference for this comparison)
|
||||
end; // 10 CONTINUE
|
||||
end; // 10 CONTINUE
|
||||
if (DT[1] > DT[2]) then // THEN swap
|
||||
begin
|
||||
IC1[I] := 2;
|
||||
IC2[I] := 1;
|
||||
TEMP := DT[1];
|
||||
DT[1] := DT[2];
|
||||
DT[2] := TEMP;
|
||||
end; // END IF
|
||||
for L := 3 to K do // (remaining clusters)
|
||||
begin
|
||||
DB := ZERO;
|
||||
for J := 1 to N do // (variables)
|
||||
begin
|
||||
DC := A[I,J] - C[L,J];
|
||||
DB := DB + DC * DC;
|
||||
if (DB >= DT[2]) then goto cont50;
|
||||
end;
|
||||
if (DB < DT[1]) then goto cont40;
|
||||
DT[2] := DB;
|
||||
IC2[I] := L;
|
||||
goto cont50;
|
||||
cont40: DT[2] := DT[1];
|
||||
IC2[I] := IC1[I];
|
||||
DT[1] := DB;
|
||||
IC1[I] := L;
|
||||
cont50: end;
|
||||
end; // 50 CONTINUE (next case)
|
||||
|
||||
// Update cluster centres to be the average of points contained
|
||||
// within them.
|
||||
//
|
||||
for L := 1 to K do // (clusters)
|
||||
begin
|
||||
NC[L] := 0;
|
||||
for J := 1 to N do C[L,J] := ZERO; //(initialize clusters)
|
||||
end;
|
||||
for I := 1 to M do // (subjects)
|
||||
begin
|
||||
L := IC1[I]; // which cluster the Ith case is in
|
||||
NC[L] := NC[L] + 1; // no. in the cluster L
|
||||
for J := 1 to N do C[L,J] := C[L,J] + A[I,J]; // sum of var. values in the cluster L
|
||||
end;
|
||||
|
||||
// Check to see if there is any empty cluster at this stage
|
||||
//
|
||||
for L := 1 to K do
|
||||
begin
|
||||
if (NC[L] = 0) then
|
||||
begin
|
||||
IFAULT := 1;
|
||||
exit;
|
||||
end;
|
||||
AA := NC[L];
|
||||
for J := 1 to N do C[L,J] := C[L,J] / AA; // average the values in the cluster
|
||||
|
||||
// Initialize AN1, AN2, ITRAN & NCP
|
||||
// AN1(L) := NC(L) / (NC(L) - 1)
|
||||
// AN2(L) := NC(L) / (NC(L) + 1)
|
||||
// ITRAN(L) := 1 if cluster L is updated in the quick-transfer stage,
|
||||
// := 0 otherwise
|
||||
// In the optimal-transfer stage, NCP(L) stores the step at which
|
||||
// cluster L is last updated.
|
||||
// In the quick-transfer stage, NCP(L) stores the step at which
|
||||
// cluster L is last updated plus M.
|
||||
//
|
||||
AN2[L] := AA / (AA + ONE);
|
||||
AN1[L] := BIG;
|
||||
if (AA > ONE) then AN1[L] := AA / (AA - ONE);
|
||||
ITRAN[L] := 1;
|
||||
NCP[L] := -1;
|
||||
end;
|
||||
INDX := 0;
|
||||
for IJ := 1 to ITER do
|
||||
begin
|
||||
//
|
||||
// In this stage, there is only one pass through the data. Each
|
||||
// point is re-allocated, if necessary, to the cluster that will
|
||||
// induce the maximum reduction in within-cluster sum of squares.
|
||||
//
|
||||
OPTRA(A, M, N, C, K, IC1, IC2, NC, AN1, AN2, NCP, D, ITRAN, LIVE, INDX);
|
||||
//
|
||||
// Stop if no transfer took place in the last M optimal transfer
|
||||
// steps.
|
||||
//
|
||||
if (INDX = M) then goto cont150;
|
||||
//
|
||||
// Each point is tested in turn to see if it should be re-allocated
|
||||
// to the cluster to which it is most likely to be transferred,
|
||||
// IC2(I), from its present cluster, IC1(I). Loop through the
|
||||
// data until no further change is to take place.
|
||||
//
|
||||
QTRAN(A, M, N, C, K, IC1, IC2, NC, AN1, AN2, NCP, D, ITRAN, INDX);
|
||||
//
|
||||
// If there are only two clusters, there is no need to re-enter the
|
||||
// optimal transfer stage.
|
||||
//
|
||||
if (K = 2) then goto cont150;
|
||||
//
|
||||
// NCP has to be set to 0 before entering OPTRA.
|
||||
//
|
||||
for L := 1 to K do NCP[L] := 0;
|
||||
end;
|
||||
//
|
||||
// Since the specified number of iterations has been exceeded, set
|
||||
// IFAULT := 2. This may indicate unforeseen looping.
|
||||
//
|
||||
IFAULT := 2;
|
||||
//
|
||||
// Compute within-cluster sum of squares for each cluster.
|
||||
//
|
||||
cont150:
|
||||
for L := 1 to K do
|
||||
begin
|
||||
WSS[L] := ZERO;
|
||||
for J := 1 to N do C[L,J] := ZERO;
|
||||
end;
|
||||
for I := 1 to M do
|
||||
begin
|
||||
II := IC1[I];
|
||||
for J := 1 to N do C[II,J] := C[II,J] + A[I,J];
|
||||
end;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
for L := 1 to K do C[L,J] := C[L,J] / (NC[L]);
|
||||
for I := 1 to M do
|
||||
begin
|
||||
II := IC1[I];
|
||||
DA := A[I,J] - C[II,J];
|
||||
WSS[II] := WSS[II] + DA * DA;
|
||||
end;
|
||||
end; // 190 CONTINUE
|
||||
end;
|
||||
|
||||
|
||||
procedure Tkmeansfrm.OPTRA(VAR A : DblDyneMat; M, N : integer;
|
||||
VAR C : DblDyneMat; K : integer;
|
||||
VAR IC1 : IntDyneVec; VAR IC2 : IntDyneVec;
|
||||
VAR NC : IntDyneVec; VAR AN1 : DblDyneVec;
|
||||
VAR AN2 : DblDyneVec; VAR NCP : IntDyneVec;
|
||||
VAR D : DblDyneVec; VAR ITRAN : IntDyneVec;
|
||||
VAR LIVE : IntDyneVec; INDX : integer);
|
||||
VAR
|
||||
ZERO, ONE, BIG,DE, DF, DD, DC, DB, DA, R2, RR, AL1, AL2, ALT, ALW : double;
|
||||
I, J, L, L1, L2, LL : integer;
|
||||
label cont30, cont60, cont70, cont90;
|
||||
|
||||
begin
|
||||
// SUBROUTINE OPTRA(A, M, N, C, K, IC1, IC2, NC, AN1, AN2, NCP, D,
|
||||
// * ITRAN, LIVE, INDX)
|
||||
//
|
||||
// ALGORITHM AS 136.1 APPL. STATIST. (1979) VOL.28, NO.1
|
||||
//
|
||||
// This is the optimal transfer stage.
|
||||
//
|
||||
// Each point is re-allocated, if necessary, to the cluster that
|
||||
// will induce a maximum reduction in the within-cluster sum of
|
||||
// squares.
|
||||
//
|
||||
// INTEGER IC1(M), IC2(M), NC(K), NCP(K), ITRAN(K), LIVE(K)
|
||||
// REAL A(M,N), D(M), C(K,N), AN1(K), AN2(K), ZERO, ONE
|
||||
//
|
||||
// Define BIG to be a very large positive number.
|
||||
//
|
||||
// DATA BIG /1.0E30/, ZERO /0.0/, ONE/1.0/
|
||||
//
|
||||
// If cluster L is updated in the last quick-transfer stage, it
|
||||
// belongs to the live set throughout this stage. Otherwise, at
|
||||
// each step, it is not in the live set if it has not been updated
|
||||
// in the last M optimal transfer steps.
|
||||
//
|
||||
|
||||
ZERO := 0.0;
|
||||
ONE := 1.0;
|
||||
BIG := 1.0e30;
|
||||
|
||||
for L := 1 to K do
|
||||
begin
|
||||
if (ITRAN[L] = 1) then LIVE[L] := M + 1;
|
||||
end; // 10 CONTINUE
|
||||
|
||||
for I := 1 to M do
|
||||
begin
|
||||
INDX := INDX + 1;
|
||||
L1 := IC1[I];
|
||||
L2 := IC2[I];
|
||||
LL := L2;
|
||||
//
|
||||
// If point I is the only member of cluster L1, no transfer.
|
||||
//
|
||||
if (NC[L1] = 1) then goto cont90; // GO TO 90
|
||||
//
|
||||
// If L1 has not yet been updated in this stage, no need to
|
||||
// re-compute D(I).
|
||||
//
|
||||
if (NCP[L1] = 0) then goto cont30; // GO TO 30
|
||||
DE := ZERO;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
DF := A[I,J] - C[L1,J];
|
||||
DE := DE + DF * DF;
|
||||
end;
|
||||
D[I] := DE * AN1[L1];
|
||||
//
|
||||
// Find the cluster with minimum R2.
|
||||
//
|
||||
cont30:
|
||||
DA := ZERO;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
DB := A[I,J] - C[L2,J];
|
||||
DA := DA + DB * DB;
|
||||
end;
|
||||
R2 := DA * AN2[L2];
|
||||
for L := 1 to K do
|
||||
begin
|
||||
//
|
||||
// If I >:= LIVE(L1), then L1 is not in the live set. If this is
|
||||
// true, we only need to consider clusters that are in the live set
|
||||
// for possible transfer of point I. Otherwise, we need to consider
|
||||
// all possible clusters.
|
||||
//
|
||||
if ((I >= LIVE[L1]) and (I >= LIVE[L]) or (L = L1) or (L = LL)) then goto cont60;
|
||||
RR := R2 / AN2[L];
|
||||
DC := ZERO;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
DD := A[I,J] - C[L,J];
|
||||
DC := DC + DD * DD;
|
||||
if (DC >= RR) then goto cont60;
|
||||
end;
|
||||
R2 := DC * AN2[L];
|
||||
L2 := L;
|
||||
cont60:
|
||||
end; // 60 CONTINUE
|
||||
if (R2 < D[I]) then goto cont70;
|
||||
//
|
||||
// If no transfer is necessary, L2 is the new IC2(I).
|
||||
//
|
||||
IC2[I] := L2;
|
||||
goto cont90; // GO TO 90
|
||||
//
|
||||
// Update cluster centres, LIVE, NCP, AN1 & AN2 for clusters L1 and
|
||||
// L2, and update IC1(I) & IC2(I).
|
||||
//
|
||||
cont70:
|
||||
INDX := 0;
|
||||
LIVE[L1] := M + I;
|
||||
LIVE[L2] := M + I;
|
||||
NCP[L1] := I;
|
||||
NCP[L2] := I;
|
||||
AL1 := NC[L1];
|
||||
ALW := AL1 - ONE;
|
||||
AL2 := NC[L2];
|
||||
ALT := AL2 + ONE;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
C[L1,J] := (C[L1,J] * AL1 - A[I,J]) / ALW;
|
||||
C[L2,J] := (C[L2,J] * AL2 + A[I,J]) / ALT;
|
||||
end;
|
||||
NC[L1] := NC[L1] - 1;
|
||||
NC[L2] := NC[L2] + 1;
|
||||
AN2[L1] := ALW / AL1;
|
||||
AN1[L1] := BIG;
|
||||
if (ALW > ONE) then AN1[L1] := ALW / (ALW - ONE);
|
||||
AN1[L2] := ALT / AL2;
|
||||
AN2[L2] := ALT / (ALT + ONE);
|
||||
IC1[I] := L2;
|
||||
IC2[I] := L1;
|
||||
cont90:
|
||||
// 90 CONTINUE
|
||||
if (INDX = M) then exit;
|
||||
end; // 100 CONTINUE
|
||||
for L := 1 to K do
|
||||
begin
|
||||
//
|
||||
// ITRAN(L) := 0 before entering QTRAN. Also, LIVE(L) has to be
|
||||
// decreased by M before re-entering OPTRA.
|
||||
//
|
||||
ITRAN[L] := 0;
|
||||
LIVE[L] := LIVE[L] - M;
|
||||
end; // 110 CONTINUE
|
||||
end;
|
||||
|
||||
procedure Tkmeansfrm.QTRAN(VAR A : DblDyneMat; M, N : integer;
|
||||
VAR C : DblDyneMat; K : integer;
|
||||
VAR IC1 : IntDyneVec; VAR IC2 : IntDyneVec;
|
||||
VAR NC : IntDyneVec; VAR AN1 : DblDyneVec;
|
||||
VAR AN2 : DblDyneVec; VAR NCP : IntDyneVec;
|
||||
VAR D : DblDyneVec; VAR ITRAN : IntDyneVec;
|
||||
INDX : integer);
|
||||
VAR
|
||||
BIG, ZERO, ONE, DA, DB, DE, DD, R2, AL1, ALW, AL2, ALT : double;
|
||||
I, J, L, ICOUN, ISTEP, L1, L2 : integer;
|
||||
label cont10, cont30, cont60;
|
||||
|
||||
begin
|
||||
// SUBROUTINE QTRAN(A, M, N, C, K, IC1, IC2, NC, AN1, AN2, NCP, D,
|
||||
// * ITRAN, INDX)
|
||||
//
|
||||
// ALGORITHM AS 136.2 APPL. STATIST. (1979) VOL.28, NO.1
|
||||
//
|
||||
// This is the quick transfer stage.
|
||||
// IC1(I) is the cluster which point I belongs to.
|
||||
// IC2(I) is the cluster which point I is most likely to be
|
||||
// transferred to.
|
||||
// For each point I, IC1(I) & IC2(I) are switched, if necessary, to
|
||||
// reduce within-cluster sum of squares. The cluster centres are
|
||||
// updated after each step.
|
||||
//
|
||||
// INTEGER IC1(M), IC2(M), NC(K), NCP(K), ITRAN(K)
|
||||
// REAL A(M,N), D(M), C(K,N), AN1(K), AN2(K), ZERO, ONE
|
||||
//
|
||||
// Define BIG to be a very large positive number
|
||||
//
|
||||
// DATA BIG /1.0E30/, ZERO /0.0/, ONE /1.0/
|
||||
//
|
||||
// In the optimal transfer stage, NCP(L) indicates the step at which
|
||||
// cluster L is last updated. In the quick transfer stage, NCP(L)
|
||||
// is equal to the step at which cluster L is last updated plus M.
|
||||
//
|
||||
BIG := 1.0e30;
|
||||
ZERO := 0.0;
|
||||
ONE := 1.0;
|
||||
ICOUN := 0;
|
||||
ISTEP := 0;
|
||||
cont10:
|
||||
for I := 1 to M do
|
||||
begin
|
||||
ICOUN := ICOUN + 1;
|
||||
ISTEP := ISTEP + 1;
|
||||
L1 := IC1[I];
|
||||
L2 := IC2[I];
|
||||
//
|
||||
// If point I is the only member of cluster L1, no transfer.
|
||||
//
|
||||
if (NC[L1] = 1) then goto cont60;
|
||||
//
|
||||
// If ISTEP > NCP(L1), no need to re-compute distance from point I to
|
||||
// cluster L1. Note that if cluster L1 is last updated exactly M
|
||||
// steps ago, we still need to compute the distance from point I to
|
||||
// cluster L1.
|
||||
//
|
||||
if (ISTEP > NCP[L1]) then goto cont30;
|
||||
DA := ZERO;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
DB := A[I,J] - C[L1,J];
|
||||
DA := DA + DB * DB;
|
||||
end;
|
||||
D[I] := DA * AN1[L1];
|
||||
//
|
||||
// If ISTEP >:= both NCP(L1) & NCP(L2) there will be no transfer of
|
||||
// point I at this step.
|
||||
//
|
||||
cont30:
|
||||
if ((ISTEP >= NCP[L1]) and (ISTEP >= NCP[L2])) then goto cont60;
|
||||
R2 := D[I] / AN2[L2];
|
||||
DD := ZERO;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
DE := A[I,J] - C[L2,J];
|
||||
DD := DD + DE * DE;
|
||||
if (DD >= R2) then goto cont60;
|
||||
end; // 40 CONTINUE
|
||||
//
|
||||
// Update cluster centres, NCP, NC, ITRAN, AN1 & AN2 for clusters
|
||||
// L1 & L2. Also update IC1(I) & IC2(I). Note that if any
|
||||
// updating occurs in this stage, INDX is set back to 0.
|
||||
//
|
||||
ICOUN := 0;
|
||||
INDX := 0;
|
||||
ITRAN[L1] := 1;
|
||||
ITRAN[L2] := 1;
|
||||
NCP[L1] := ISTEP + M;
|
||||
NCP[L2] := ISTEP + M;
|
||||
AL1 := NC[L1];
|
||||
ALW := AL1 - ONE;
|
||||
AL2 := NC[L2];
|
||||
ALT := AL2 + ONE;
|
||||
for J := 1 to N do
|
||||
begin
|
||||
C[L1,J] := (C[L1,J] * AL1 - A[I,J]) / ALW;
|
||||
C[L2,J] := (C[L2,J] * AL2 + A[I,J]) / ALT;
|
||||
end; // 50 CONTINUE
|
||||
NC[L1] := NC[L1] - 1;
|
||||
NC[L2] := NC[L2] + 1;
|
||||
AN2[L1] := ALW / AL1;
|
||||
AN1[L1] := BIG;
|
||||
if (ALW > ONE) then AN1[L1] := ALW / (ALW - ONE);
|
||||
AN1[L2] := ALT / AL2;
|
||||
AN2[L2] := ALT / (ALT + ONE);
|
||||
IC1[I] := L2;
|
||||
IC2[I] := L1;
|
||||
//
|
||||
// If no re-allocation took place in the last M steps, return.
|
||||
//
|
||||
cont60:
|
||||
if (ICOUN = M) then exit;
|
||||
end; // 70 CONTINUE
|
||||
goto cont10;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I kmeansunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
111
applications/lazstats/source_orig/kr21unit.lfm
Normal file
111
applications/lazstats/source_orig/kr21unit.lfm
Normal file
@ -0,0 +1,111 @@
|
||||
object KR21Frm: TKR21Frm
|
||||
Left = 151
|
||||
Height = 227
|
||||
Top = 98
|
||||
Width = 204
|
||||
Caption = 'Kuder-Richarson #21'
|
||||
ClientHeight = 227
|
||||
ClientWidth = 204
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.26.2'
|
||||
object Label1: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 16
|
||||
Width = 120
|
||||
Caption = 'Maximum Score Possible:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 46
|
||||
Width = 118
|
||||
Caption = 'Mean of he Test Scores:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 80
|
||||
Width = 123
|
||||
Caption = 'Std. Dev. of Test Scores:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 112
|
||||
Width = 130
|
||||
Caption = 'KR#21 Reliability Estimate:'
|
||||
ParentColor = False
|
||||
end
|
||||
object NoItemsEdit: TEdit
|
||||
Left = 143
|
||||
Height = 22
|
||||
Top = 8
|
||||
Width = 49
|
||||
TabOrder = 0
|
||||
Text = 'NoItemsEdit'
|
||||
end
|
||||
object MeanEdit: TEdit
|
||||
Left = 143
|
||||
Height = 22
|
||||
Top = 38
|
||||
Width = 49
|
||||
TabOrder = 1
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object StdDevEdit: TEdit
|
||||
Left = 143
|
||||
Height = 22
|
||||
Top = 72
|
||||
Width = 49
|
||||
TabOrder = 2
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object RelEdit: TEdit
|
||||
Left = 143
|
||||
Height = 22
|
||||
Top = 104
|
||||
Width = 49
|
||||
TabOrder = 3
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 6
|
||||
Height = 32
|
||||
Top = 137
|
||||
Width = 69
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 123
|
||||
Height = 32
|
||||
Top = 137
|
||||
Width = 69
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 5
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 8
|
||||
Height = 32
|
||||
Top = 184
|
||||
Width = 69
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 123
|
||||
Height = 32
|
||||
Top = 184
|
||||
Width = 69
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
29
applications/lazstats/source_orig/kr21unit.lrs
Normal file
29
applications/lazstats/source_orig/kr21unit.lrs
Normal file
@ -0,0 +1,29 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TKR21Frm','FORMDATA',[
|
||||
'TPF0'#8'TKR21Frm'#7'KR21Frm'#4'Left'#3#151#0#6'Height'#3#227#0#3'Top'#2'b'#5
|
||||
+'Width'#3#204#0#7'Caption'#6#19'Kuder-Richarson #21'#12'ClientHeight'#3#227#0
|
||||
+#11'ClientWidth'#3#204#0#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#16#5'Width'#2'x'#7
|
||||
+'Caption'#6#23'Maximum Score Possible:'#11'ParentColor'#8#0#0#6'TLabel'#6'La'
|
||||
+'bel2'#4'Left'#2#7#6'Height'#2#14#3'Top'#2'.'#5'Width'#2'v'#7'Caption'#6#23
|
||||
+'Mean of he Test Scores:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2
|
||||
+#7#6'Height'#2#14#3'Top'#2'P'#5'Width'#2'{'#7'Caption'#6#25'Std. Dev. of Tes'
|
||||
+'t Scores:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#6#6'Height'#2
|
||||
+#14#3'Top'#2'p'#5'Width'#3#130#0#7'Caption'#6#27'KR#21 Reliability Estimate:'
|
||||
+#11'ParentColor'#8#0#0#5'TEdit'#11'NoItemsEdit'#4'Left'#3#143#0#6'Height'#2
|
||||
+#22#3'Top'#2#8#5'Width'#2'1'#8'TabOrder'#2#0#4'Text'#6#11'NoItemsEdit'#0#0#5
|
||||
+'TEdit'#8'MeanEdit'#4'Left'#3#143#0#6'Height'#2#22#3'Top'#2'&'#5'Width'#2'1'
|
||||
+#8'TabOrder'#2#1#4'Text'#6#5'Edit1'#0#0#5'TEdit'#10'StdDevEdit'#4'Left'#3#143
|
||||
+#0#6'Height'#2#22#3'Top'#2'H'#5'Width'#2'1'#8'TabOrder'#2#2#4'Text'#6#5'Edit'
|
||||
+'1'#0#0#5'TEdit'#7'RelEdit'#4'Left'#3#143#0#6'Height'#2#22#3'Top'#2'h'#5'Wid'
|
||||
+'th'#2'1'#8'TabOrder'#2#3#4'Text'#6#5'Edit1'#0#0#7'TButton'#8'ResetBtn'#4'Le'
|
||||
+'ft'#2#6#6'Height'#2' '#3'Top'#3#137#0#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'#2'{'#6'Height'#2' '#3'Top'#3#137#0#5'Width'#2'E'#7'Caption'#6#6'Cance'
|
||||
+'l'#11'ModalResult'#2#2#8'TabOrder'#2#5#0#0#7'TButton'#10'ComputeBtn'#4'Left'
|
||||
+#2#8#6'Height'#2' '#3'Top'#3#184#0#5'Width'#2'E'#7'Caption'#6#7'Compute'#7'O'
|
||||
+'nClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#6#0#0#7'TButton'#9'ReturnBtn'#4
|
||||
+'Left'#2'{'#6'Height'#2' '#3'Top'#3#184#0#5'Width'#2'E'#7'Caption'#6#6'Retur'
|
||||
+'n'#11'ModalResult'#2#1#8'TabOrder'#2#7#0#0#0
|
||||
]);
|
||||
73
applications/lazstats/source_orig/kr21unit.pas
Normal file
73
applications/lazstats/source_orig/kr21unit.pas
Normal file
@ -0,0 +1,73 @@
|
||||
unit KR21Unit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TKR21Frm }
|
||||
|
||||
TKR21Frm = class(TForm)
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
NoItemsEdit: TEdit;
|
||||
MeanEdit: TEdit;
|
||||
StdDevEdit: TEdit;
|
||||
RelEdit: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
KR21Frm: TKR21Frm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TKR21Frm }
|
||||
|
||||
procedure TKR21Frm.ResetBtnClick(Sender: TObject);
|
||||
begin
|
||||
NoItemsEdit.Text := '';
|
||||
MeanEdit.Text := '';
|
||||
StdDevEdit.Text := '';
|
||||
RelEdit.Text := '';
|
||||
end;
|
||||
|
||||
procedure TKR21Frm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TKR21Frm.ComputeBtnClick(Sender: TObject);
|
||||
var
|
||||
items, mean, stddev, rel : double;
|
||||
begin
|
||||
items := StrToFloat(NoItemsEdit.Text);
|
||||
mean := StrToFloat(MeanEdit.Text);
|
||||
stddev := StrToFloat(StdDevEdit.Text);
|
||||
rel := (items / (items - 1.0)) * (1.0 - (mean * (items - mean))/
|
||||
(items * sqr(stddev)));
|
||||
RelEdit.Text := FloatToStr(rel);
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I kr21unit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
307
applications/lazstats/source_orig/kwanovaunit.lfm
Normal file
307
applications/lazstats/source_orig/kwanovaunit.lfm
Normal file
@ -0,0 +1,307 @@
|
||||
object KWAnovaFrm: TKWAnovaFrm
|
||||
Left = 154
|
||||
Height = 357
|
||||
Top = 128
|
||||
Width = 339
|
||||
Caption = 'Kruskal-Wallis One Way ANOVA on Ranks'
|
||||
ClientHeight = 357
|
||||
ClientWidth = 339
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.30.4'
|
||||
object Label1: TLabel
|
||||
Left = 5
|
||||
Height = 16
|
||||
Top = 4
|
||||
Width = 99
|
||||
Caption = 'Variables Available'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 193
|
||||
Height = 16
|
||||
Top = 24
|
||||
Width = 79
|
||||
Caption = 'Group Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 193
|
||||
Height = 16
|
||||
Top = 113
|
||||
Width = 104
|
||||
Caption = 'Dependent Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 6
|
||||
Height = 265
|
||||
Top = 20
|
||||
Width = 140
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object GrpIn: TBitBtn
|
||||
Left = 153
|
||||
Height = 31
|
||||
Top = 23
|
||||
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 = GrpInClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object GrpOut: TBitBtn
|
||||
Left = 152
|
||||
Height = 31
|
||||
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 = GrpOutClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object DepIn: TBitBtn
|
||||
Left = 153
|
||||
Height = 31
|
||||
Top = 112
|
||||
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 = DepInClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object DepOut: TBitBtn
|
||||
Left = 153
|
||||
Height = 31
|
||||
Top = 144
|
||||
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 = DepOutClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object GrpEdit: TEdit
|
||||
Left = 191
|
||||
Height = 23
|
||||
Top = 39
|
||||
Width = 120
|
||||
TabOrder = 5
|
||||
Text = 'GrpEdit'
|
||||
end
|
||||
object DepEdit: TEdit
|
||||
Left = 193
|
||||
Height = 23
|
||||
Top = 136
|
||||
Width = 120
|
||||
TabOrder = 6
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 153
|
||||
Height = 32
|
||||
Top = 248
|
||||
Width = 63
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 7
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 248
|
||||
Height = 32
|
||||
Top = 248
|
||||
Width = 63
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 8
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 153
|
||||
Height = 32
|
||||
Top = 304
|
||||
Width = 63
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 9
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 248
|
||||
Height = 32
|
||||
Top = 304
|
||||
Width = 63
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 10
|
||||
end
|
||||
object MWUChk: TCheckBox
|
||||
Left = 161
|
||||
Height = 19
|
||||
Top = 206
|
||||
Width = 141
|
||||
Caption = 'Mann-Whitney U Tests'
|
||||
TabOrder = 11
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 162
|
||||
Height = 16
|
||||
Top = 185
|
||||
Width = 162
|
||||
Caption = 'Post Hoc Comparisons Option'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 9
|
||||
Height = 16
|
||||
Top = 312
|
||||
Width = 46
|
||||
Caption = 'Alpha = '
|
||||
ParentColor = False
|
||||
end
|
||||
object AlphaEdit: TEdit
|
||||
Left = 57
|
||||
Height = 23
|
||||
Top = 303
|
||||
Width = 41
|
||||
TabOrder = 12
|
||||
Text = 'AlphaEdit'
|
||||
end
|
||||
end
|
||||
239
applications/lazstats/source_orig/kwanovaunit.lrs
Normal file
239
applications/lazstats/source_orig/kwanovaunit.lrs
Normal file
@ -0,0 +1,239 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TKWAnovaFrm','FORMDATA',[
|
||||
'TPF0'#11'TKWAnovaFrm'#10'KWAnovaFrm'#4'Left'#3#154#0#6'Height'#3'e'#1#3'Top'
|
||||
+#3#128#0#5'Width'#3'S'#1#7'Caption'#6'%Kruskal-Wallis One Way ANOVA on Ranks'
|
||||
+#12'ClientHeight'#3'e'#1#11'ClientWidth'#3'S'#1#6'OnShow'#7#8'FormShow'#10'L'
|
||||
+'CLVersion'#6#8'0.9.30.4'#0#6'TLabel'#6'Label1'#4'Left'#2#5#6'Height'#2#16#3
|
||||
+'Top'#2#4#5'Width'#2'c'#7'Caption'#6#19'Variables Available'#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#193#0#6'Height'#2#16#3'Top'#2#24#5'Widt'
|
||||
+'h'#2'O'#7'Caption'#6#14'Group Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
|
||||
+'abel3'#4'Left'#3#193#0#6'Height'#2#16#3'Top'#2'q'#5'Width'#2'h'#7'Caption'#6
|
||||
+#18'Dependent Variable'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'
|
||||
+#2#6#6'Height'#3#9#1#3'Top'#2#20#5'Width'#3#140#0#10'ItemHeight'#2#0#8'TabOr'
|
||||
+'der'#2#0#0#0#7'TBitBtn'#5'GrpIn'#4'Left'#3#153#0#6'Height'#2#31#3'Top'#2#23
|
||||
+#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#10'GrpInClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#6'GrpOut'#4'Left'#3#152
|
||||
+#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'NumGlyphs'#2#0#7'OnClick'#7#11'GrpOutClick'#8'TabOrde'
|
||||
+'r'#2#2#0#0#7'TBitBtn'#5'DepIn'#4'Left'#3#153#0#6'Height'#2#31#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#255#255#255#0#255#255
|
||||
+#255#0#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#10'DepInClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#6'DepOut'#4'Left'#3#153
|
||||
+#0#6'Height'#2#31#3'Top'#3#144#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#11'DepOutClick'#8'TabOrde'
|
||||
+'r'#2#4#0#0#5'TEdit'#7'GrpEdit'#4'Left'#3#191#0#6'Height'#2#23#3'Top'#2''''#5
|
||||
+'Width'#2'x'#8'TabOrder'#2#5#4'Text'#6#7'GrpEdit'#0#0#5'TEdit'#7'DepEdit'#4
|
||||
+'Left'#3#193#0#6'Height'#2#23#3'Top'#3#136#0#5'Width'#2'x'#8'TabOrder'#2#6#4
|
||||
+'Text'#6#5'Edit1'#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#153#0#6'Height'#2' '#3
|
||||
+'Top'#3#248#0#5'Width'#2'?'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnCl'
|
||||
+'ick'#8'TabOrder'#2#7#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#248#0#6'Height'#2
|
||||
+' '#3'Top'#3#248#0#5'Width'#2'?'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8
|
||||
+'TabOrder'#2#8#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#153#0#6'Height'#2' '#3
|
||||
+'Top'#3'0'#1#5'Width'#2'?'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBt'
|
||||
+'nClick'#8'TabOrder'#2#9#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#248#0#6'Heigh'
|
||||
+'t'#2' '#3'Top'#3'0'#1#5'Width'#2'?'#7'Caption'#6#6'Return'#11'ModalResult'#2
|
||||
+#1#8'TabOrder'#2#10#0#0#9'TCheckBox'#6'MWUChk'#4'Left'#3#161#0#6'Height'#2#19
|
||||
+#3'Top'#3#206#0#5'Width'#3#141#0#7'Caption'#6#20'Mann-Whitney U Tests'#8'Tab'
|
||||
+'Order'#2#11#0#0#6'TLabel'#6'Label4'#4'Left'#3#162#0#6'Height'#2#16#3'Top'#3
|
||||
+#185#0#5'Width'#3#162#0#7'Caption'#6#27'Post Hoc Comparisons Option'#11'Pare'
|
||||
+'ntColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#9#6'Height'#2#16#3'Top'#3'8'#1
|
||||
+#5'Width'#2'.'#7'Caption'#6#8'Alpha = '#11'ParentColor'#8#0#0#5'TEdit'#9'Alp'
|
||||
+'haEdit'#4'Left'#2'9'#6'Height'#2#23#3'Top'#3'/'#1#5'Width'#2')'#8'TabOrder'
|
||||
+#2#12#4'Text'#6#9'AlphaEdit'#0#0#0
|
||||
]);
|
||||
488
applications/lazstats/source_orig/kwanovaunit.pas
Normal file
488
applications/lazstats/source_orig/kwanovaunit.pas
Normal file
@ -0,0 +1,488 @@
|
||||
unit KWANOVAUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, MainUnit, OutPutUnit, FunctionsLib,
|
||||
Globals, DataProcs, Math;
|
||||
|
||||
type
|
||||
|
||||
{ TKWAnovaFrm }
|
||||
|
||||
TKWAnovaFrm = class(TForm)
|
||||
AlphaEdit: TEdit;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
MWUChk: TCheckBox;
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
GrpEdit: TEdit;
|
||||
DepEdit: TEdit;
|
||||
GrpIn: TBitBtn;
|
||||
GrpOut: TBitBtn;
|
||||
DepIn: TBitBtn;
|
||||
DepOut: TBitBtn;
|
||||
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
|
||||
KWAnovaFrm: TKWAnovaFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TKWAnovaFrm }
|
||||
|
||||
procedure TKWAnovaFrm.ResetBtnClick(Sender: TObject);
|
||||
VAR i : integer;
|
||||
begin
|
||||
GrpEdit.Text := '';
|
||||
DepEdit.Text := '';
|
||||
AlphaEdit.Text := '0.05';
|
||||
GrpIn.Visible := true;
|
||||
GrpOut.Visible := false;
|
||||
DepIn.Visible := true;
|
||||
DepOut.Visible := false;
|
||||
MWUChk.Checked := false;
|
||||
VarList.Items.Clear;
|
||||
for i := 1 to NoVariables do
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
|
||||
procedure TKWAnovaFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TKWAnovaFrm.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 TKWAnovaFrm.ComputeBtnClick(Sender: TObject);
|
||||
label cleanup, Check1, Check2;
|
||||
var
|
||||
i, j, k, m, ind_var, dep_var, min_grp, max_grp, group, total_n : integer;
|
||||
NoTies, NoTieGroups, nogroups, NoSelected, npairs, n1, n2 : integer;
|
||||
largestn : integer;
|
||||
ColNoSelected : IntdyneVec;
|
||||
group_count : IntDyneVec;
|
||||
score, t, SumT, Avg, Probchi, H, CorrectedH, value : double;
|
||||
Correction, Temp, TieSum, alpha, U, U2, SD, z, prob : double;
|
||||
Ranks, X : DblDyneMat;
|
||||
RankSums : DblDyneVec;
|
||||
cellstring, outline : string;
|
||||
begin
|
||||
// Check for data
|
||||
if (NoVariables < 1) then
|
||||
begin
|
||||
ShowMessage('ERROR! You must have grid data!');
|
||||
exit;
|
||||
end;
|
||||
|
||||
// allocate space
|
||||
SetLength(ColNoSelected,NoVariables);
|
||||
SetLength(Ranks,NoCases,2);
|
||||
SetLength(X,NoCases,2);
|
||||
|
||||
// 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
|
||||
total_n := 0;
|
||||
NoSelected := 2;
|
||||
min_grp := 10000; //atoi(MainForm.Grid.Cells[ind_var,1].c_str);
|
||||
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;
|
||||
NoTieGroups := 0;
|
||||
SumT := 0.0;
|
||||
H := 0.0;
|
||||
|
||||
// Initialize arrays
|
||||
SetLength(RankSums,nogroups);
|
||||
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('Kruskal - Wallis One-Way Analysis of Variance');
|
||||
OutPutFrm.RichEdit.Lines.Add('See pages 184-194 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 > nogroups) then
|
||||
begin
|
||||
ShowMessage('ERROR! Group codes must be sequential like 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 := 0 to total_n-1 do
|
||||
begin
|
||||
Ranks[i,0] := i+1;
|
||||
Ranks[i,1] := X[i,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 statistics
|
||||
for j := 0 to nogroups-1 do H := H + (RankSums[j] * RankSums[j] / (group_count[j]));
|
||||
H := H * (12.0 / ( total_n * (total_n + 1)) );
|
||||
H := H - (3.0 * (total_n + 1));
|
||||
Correction := 1.0 - ( SumT / (Power(total_n,3) - total_n) );
|
||||
CorrectedH := H / Correction;
|
||||
k := max_grp - min_grp;
|
||||
Probchi := 1.0 - chisquaredprob(H, k);
|
||||
|
||||
// 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);
|
||||
outline := format('Statistic H uncorrected for ties = %8.4f',[H]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
outline := format('Correction for Ties = %6.4f',[Correction]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
outline := format('Statistic H corrected for ties = %8.4f',[CorrectedH]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
outline := format('Corrected H is approx. chi-square with %3d D.F. and probability = %6.4f',[k,Probchi]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.ShowModal;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
|
||||
if not MWUChk.Checked then goto cleanup;
|
||||
// do Mann-Whitney U tests on group pairs
|
||||
alpha := StrToFloat(AlphaEdit.Text);
|
||||
npairs := nogroups * (nogroups - 1) div 2;
|
||||
alpha := alpha / npairs;
|
||||
outline := format('New alpha for %d paired comparisons = %5.3f',[npairs, alpha]);
|
||||
ShowMessage(outline);
|
||||
for i := 1 to nogroups - 1 do
|
||||
begin
|
||||
for j := i + 1 to nogroups do
|
||||
begin
|
||||
// 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('');
|
||||
outline := format('Comparison of group %d with group %d',[i,j]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
group_count[0] := 0;
|
||||
group_count[1] := 0;
|
||||
RankSums[0] := 0;
|
||||
RankSums[1] := 0;
|
||||
total_n := 0;
|
||||
for k := 1 to NoCases do
|
||||
begin
|
||||
if (not GoodRecord(k,NoSelected,ColNoSelected)) then continue;
|
||||
score := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[dep_var,k]));
|
||||
value := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[ind_var,k]));
|
||||
if round(value) = i then
|
||||
begin
|
||||
X[total_n,0] := score;
|
||||
X[total_n,1] := value;
|
||||
group_count[0] := group_count[0] + 1;
|
||||
total_n := total_n + 1;
|
||||
end;
|
||||
if round(value) = j then
|
||||
begin
|
||||
X[total_n,0] := score;
|
||||
X[total_n,1] := value;
|
||||
group_count[1] := group_count[1] + 1;
|
||||
total_n := total_n + 1;
|
||||
end;
|
||||
end; // next case k
|
||||
|
||||
//Sort all scores in ascending order
|
||||
for k := 1 to total_n - 1 do
|
||||
begin
|
||||
for m := k + 1 to total_n do
|
||||
begin
|
||||
if (X[k-1,0] > X[m-1,0]) then
|
||||
begin
|
||||
Temp := X[k-1,0];
|
||||
X[k-1,0] := X[m-1,0];
|
||||
X[m-1,0] := Temp;
|
||||
Temp := X[k-1,1];
|
||||
X[k-1,1] := X[m-1,1];
|
||||
X[m-1,1] := Temp;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
// get ranks for these two groups
|
||||
for k := 1 to total_n do
|
||||
begin
|
||||
Ranks[k-1,0] := k;
|
||||
Ranks[k-1,1] := X[k-1,1];
|
||||
end;
|
||||
|
||||
//Check for ties in ranks - replace with average rank and calculate
|
||||
//T for each tie and sum of the T's
|
||||
NoTieGroups := 0;
|
||||
k := 1;
|
||||
while k < total_n do
|
||||
begin
|
||||
m := k + 1;
|
||||
TieSum := 0;
|
||||
NoTies := 0;
|
||||
while (m < total_n) do
|
||||
begin
|
||||
if (X[m-1,0] > X[k-1,0]) then goto Check2;
|
||||
if (X[m-1,0] = X[k-1,0]) then // match
|
||||
begin
|
||||
TieSum := TieSum + round(Ranks[m-1,0]);
|
||||
NoTies := NoTies + 1;
|
||||
end;
|
||||
m := m + 1;
|
||||
end;
|
||||
Check2:
|
||||
if (NoTies > 0) then //At least one tie found
|
||||
begin
|
||||
TieSum := TieSum + Ranks[k-1,0];
|
||||
NoTies := NoTies + 1;
|
||||
Avg := TieSum / NoTies;
|
||||
for m := k to k + NoTies - 1 do Ranks[m-1,0] := Avg;
|
||||
t := Power(NoTies,3) - NoTies;
|
||||
SumT := SumT + t;
|
||||
NoTieGroups := NoTieGroups + 1;
|
||||
k := k + (NoTies - 1);
|
||||
end;
|
||||
k := k + 1;
|
||||
end; // next k
|
||||
|
||||
// Calculate sum of ranks in each group
|
||||
for k := 1 to total_n do
|
||||
begin
|
||||
group := round(Ranks[k-1,1]);
|
||||
RankSums[group-1] := RankSums[group-1] + Ranks[k-1,0];
|
||||
end;
|
||||
|
||||
//Calculate U for larger and smaller groups
|
||||
n1 := group_count[0];
|
||||
n2 := group_count[1];
|
||||
if (n1 > n2) then
|
||||
begin
|
||||
group := i-1;
|
||||
U := (n1 * n2) + ((n1 * (n1 + 1)) / 2.0) - RankSums[group];
|
||||
end
|
||||
else
|
||||
begin
|
||||
group := j - 1;
|
||||
U := (n1 * n2) + ((n2 * (n2 + 1)) / 2.0) - RankSums[group];
|
||||
end;
|
||||
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 k := 1 to total_n do
|
||||
begin
|
||||
outline := format('%10.2f %10.2f %10.0f',
|
||||
[X[k-1,0], Ranks[k-1,0], Ranks[k-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');
|
||||
group := i - 1;
|
||||
outline := format('%3d %10.3f %5d', [i, RankSums[group],group_count[0]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
group := j - 1;
|
||||
outline := format('%3d %10.3f %5d', [j, RankSums[group],group_count[1]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
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;
|
||||
end; // next group j
|
||||
end; // next group i
|
||||
cleanup:
|
||||
group_count := nil;
|
||||
RankSums := nil;
|
||||
X := nil;
|
||||
Ranks := nil;
|
||||
ColNoSelected := nil;
|
||||
end;
|
||||
|
||||
procedure TKWAnovaFrm.DepOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(DepEdit.Text);
|
||||
DepEdit.Text := '';
|
||||
DepIn.Visible := true;
|
||||
DepOut.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TKWAnovaFrm.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 TKWAnovaFrm.GrpOutClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(GrpEdit.Text);
|
||||
GrpEdit.Text := '';
|
||||
GrpIn.Visible := true;
|
||||
GrpOut.Visible := false;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I kwanovaunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
706
applications/lazstats/source_orig/latinspecsunit.lfm
Normal file
706
applications/lazstats/source_orig/latinspecsunit.lfm
Normal file
@ -0,0 +1,706 @@
|
||||
object LatinSpecsFrm: TLatinSpecsFrm
|
||||
Left = 163
|
||||
Height = 566
|
||||
Top = 51
|
||||
Width = 493
|
||||
Caption = 'Latin Squares Analysis Specification Form'
|
||||
ClientHeight = 566
|
||||
ClientWidth = 493
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.26.2'
|
||||
object Label1: TLabel
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 7
|
||||
Width = 63
|
||||
Caption = 'File Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 280
|
||||
Height = 14
|
||||
Top = 26
|
||||
Width = 111
|
||||
Caption = 'Factor A Code Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 279
|
||||
Height = 14
|
||||
Top = 105
|
||||
Width = 110
|
||||
Caption = 'Factor B Code Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 280
|
||||
Height = 14
|
||||
Top = 183
|
||||
Width = 111
|
||||
Caption = 'Factor C Code Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 281
|
||||
Height = 14
|
||||
Top = 265
|
||||
Width = 111
|
||||
Caption = 'Factor D Code Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 281
|
||||
Height = 14
|
||||
Top = 352
|
||||
Width = 99
|
||||
Caption = 'Group Code Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 280
|
||||
Height = 14
|
||||
Top = 431
|
||||
Width = 95
|
||||
Caption = 'Dependent Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 231
|
||||
Height = 14
|
||||
Top = 504
|
||||
Width = 62
|
||||
Caption = 'No. per cell: '
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 8
|
||||
Height = 504
|
||||
Top = 29
|
||||
Width = 210
|
||||
TabOrder = 0
|
||||
end
|
||||
object AInBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 25
|
||||
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 = AInBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object AOutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
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 = AOutBtnClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object BInBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 104
|
||||
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 = BInBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object BOutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 136
|
||||
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 = BOutBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object CInBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 184
|
||||
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 = CInBtnClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object COutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 216
|
||||
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 = COutBtnClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object DInBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 264
|
||||
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 = DInBtnClick
|
||||
TabOrder = 7
|
||||
end
|
||||
object DOutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 296
|
||||
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 = DOutBtnClick
|
||||
TabOrder = 8
|
||||
end
|
||||
object GrpInBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 352
|
||||
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 = 9
|
||||
end
|
||||
object GrpOutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 384
|
||||
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 = 10
|
||||
end
|
||||
object DataInBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 432
|
||||
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 = DataInBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object DataOutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 28
|
||||
Top = 464
|
||||
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 = DataOutBtnClick
|
||||
TabOrder = 12
|
||||
end
|
||||
object ACodeEdit: TEdit
|
||||
Left = 278
|
||||
Height = 20
|
||||
Top = 42
|
||||
Width = 155
|
||||
TabOrder = 13
|
||||
Text = 'ACodeEdit'
|
||||
end
|
||||
object BCodeEdit: TEdit
|
||||
Left = 280
|
||||
Height = 20
|
||||
Top = 120
|
||||
Width = 155
|
||||
TabOrder = 14
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object CCodeEdit: TEdit
|
||||
Left = 278
|
||||
Height = 20
|
||||
Top = 200
|
||||
Width = 155
|
||||
TabOrder = 15
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object DCodeEdit: TEdit
|
||||
Left = 278
|
||||
Height = 20
|
||||
Top = 280
|
||||
Width = 155
|
||||
TabOrder = 16
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object GrpCodeEdit: TEdit
|
||||
Left = 280
|
||||
Height = 20
|
||||
Top = 368
|
||||
Width = 155
|
||||
TabOrder = 17
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object DepVarEdit: TEdit
|
||||
Left = 278
|
||||
Height = 20
|
||||
Top = 448
|
||||
Width = 155
|
||||
TabOrder = 18
|
||||
Text = 'Edit1'
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 232
|
||||
Height = 30
|
||||
Top = 528
|
||||
Width = 74
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 19
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 315
|
||||
Height = 30
|
||||
Top = 528
|
||||
Width = 74
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 20
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 400
|
||||
Height = 30
|
||||
Top = 528
|
||||
Width = 74
|
||||
Caption = 'OK'
|
||||
ModalResult = 1
|
||||
OnClick = OKBtnClick
|
||||
TabOrder = 21
|
||||
end
|
||||
object nPerCellEdit: TEdit
|
||||
Left = 296
|
||||
Height = 19
|
||||
Top = 495
|
||||
Width = 48
|
||||
TabOrder = 22
|
||||
Text = 'nPerCellEdit'
|
||||
end
|
||||
end
|
||||
658
applications/lazstats/source_orig/latinspecsunit.lrs
Normal file
658
applications/lazstats/source_orig/latinspecsunit.lrs
Normal file
@ -0,0 +1,658 @@
|
||||
LazarusResources.Add('TLatinSpecsFrm','FORMDATA',[
|
||||
'TPF0'#14'TLatinSpecsFrm'#13'LatinSpecsFrm'#4'Left'#3#163#0#6'Height'#3'6'#2#3
|
||||
+'Top'#2'3'#5'Width'#3#237#1#7'Caption'#6')Latin Squares Analysis Specificati'
|
||||
+'on Form'#12'ClientHeight'#3'6'#2#11'ClientWidth'#3#237#1#6'OnShow'#7#8'Form'
|
||||
+'Show'#10'LCLVersion'#6#8'0.9.26.2'#0#6'TLabel'#6'Label1'#4'Left'#2#9#6'Heig'
|
||||
+'ht'#2#14#3'Top'#2#7#5'Width'#2'?'#7'Caption'#6#14'File Variables'#11'Parent'
|
||||
+'Color'#8#0#0#6'TLabel'#6'Label2'#4'Left'#3#24#1#6'Height'#2#14#3'Top'#2#26#5
|
||||
+'Width'#2'o'#7'Caption'#6#22'Factor A Code Variable'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#6'Label3'#4'Left'#3#23#1#6'Height'#2#14#3'Top'#2'i'#5'Width'#2'n'#7
|
||||
+'Caption'#6#22'Factor B Code Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Lab'
|
||||
+'el4'#4'Left'#3#24#1#6'Height'#2#14#3'Top'#3#183#0#5'Width'#2'o'#7'Caption'#6
|
||||
+#22'Factor C Code Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'
|
||||
+#3#25#1#6'Height'#2#14#3'Top'#3#9#1#5'Width'#2'o'#7'Caption'#6#22'Factor D C'
|
||||
+'ode Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#3#25#1#6'He'
|
||||
+'ight'#2#14#3'Top'#3'`'#1#5'Width'#2'c'#7'Caption'#6#19'Group Code Variable'
|
||||
+#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#3#24#1#6'Height'#2#14#3'T'
|
||||
+'op'#3#175#1#5'Width'#2'_'#7'Caption'#6#18'Dependent Variable'#11'ParentColo'
|
||||
+'r'#8#0#0#6'TLabel'#6'Label8'#4'Left'#3#231#0#6'Height'#2#14#3'Top'#3#248#1#5
|
||||
+'Width'#2'>'#7'Caption'#6#14'No. per cell: '#11'ParentColor'#8#0#0#8'TListBo'
|
||||
+'x'#7'VarList'#4'Left'#2#8#6'Height'#3#248#1#3'Top'#2#29#5'Width'#3#210#0#8
|
||||
+'TabOrder'#2#0#0#0#7'TBitBtn'#6'AInBtn'#4'Left'#3#232#0#6'Height'#2#28#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#11'AInBtnClick'#8'TabOrder'#2#1#0#0#7'TBitBtn'#7'AOutBtn'#4'Left'
|
||||
+#3#232#0#6'Height'#2#28#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#12'AOutBtnClick'#8'TabOrd'
|
||||
+'er'#2#2#0#0#7'TBitBtn'#6'BInBtn'#4'Left'#3#232#0#6'Height'#2#28#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#255#255#255#0#255#255
|
||||
+#255#0#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#11'BInBtnClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#7'BOutBtn'#4'Left'#3
|
||||
+#232#0#6'Height'#2#28#3'Top'#3#136#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#12'BOutBtnClick'#8'TabOrd'
|
||||
+'er'#2#4#0#0#7'TBitBtn'#6'CInBtn'#4'Left'#3#232#0#6'Height'#2#28#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#11'CInBtnClick'#8'TabOrder'#2#5#0#0#7'TBitBtn'#7'COutBtn'#4'Left'
|
||||
+#3#232#0#6'Height'#2#28#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''#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'COutBtnClick'#8'TabOrd'
|
||||
+'er'#2#6#0#0#7'TBitBtn'#6'DInBtn'#4'Left'#3#232#0#6'Height'#2#28#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'OnCl'
|
||||
+'ick'#7#11'DInBtnClick'#8'TabOrder'#2#7#0#0#7'TBitBtn'#7'DOutBtn'#4'Left'#3
|
||||
+#232#0#6'Height'#2#28#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''#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'DOutBtnClick'#8'TabOrd'
|
||||
+'er'#2#8#0#0#7'TBitBtn'#8'GrpInBtn'#4'Left'#3#232#0#6'Height'#2#28#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#255#255#255#0#255
|
||||
+#255#255#0#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#9#0#0#7'TBitBtn'#9'GrpOutBtn'#4
|
||||
+'Left'#3#232#0#6'Height'#2#28#3'Top'#3#128#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''#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#10#0#0#7'TBitBtn'#9'DataInBtn'#4'Left'#3#232#0#6'Height'#2#28#3
|
||||
+'Top'#3#176#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#14'DataInBtnClick'#8'TabOrder'#2#11#0#0#7'TBi'
|
||||
+'tBtn'#10'DataOutBtn'#4'Left'#3#232#0#6'Height'#2#28#3'Top'#3#208#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
|
||||
+''#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
|
||||
+'DataOutBtnClick'#8'TabOrder'#2#12#0#0#5'TEdit'#9'ACodeEdit'#4'Left'#3#22#1#6
|
||||
+'Height'#2#20#3'Top'#2'*'#5'Width'#3#155#0#8'TabOrder'#2#13#4'Text'#6#9'ACod'
|
||||
+'eEdit'#0#0#5'TEdit'#9'BCodeEdit'#4'Left'#3#24#1#6'Height'#2#20#3'Top'#2'x'#5
|
||||
,'Width'#3#155#0#8'TabOrder'#2#14#4'Text'#6#5'Edit1'#0#0#5'TEdit'#9'CCodeEdit'
|
||||
+#4'Left'#3#22#1#6'Height'#2#20#3'Top'#3#200#0#5'Width'#3#155#0#8'TabOrder'#2
|
||||
+#15#4'Text'#6#5'Edit1'#0#0#5'TEdit'#9'DCodeEdit'#4'Left'#3#22#1#6'Height'#2
|
||||
+#20#3'Top'#3#24#1#5'Width'#3#155#0#8'TabOrder'#2#16#4'Text'#6#5'Edit1'#0#0#5
|
||||
+'TEdit'#11'GrpCodeEdit'#4'Left'#3#24#1#6'Height'#2#20#3'Top'#3'p'#1#5'Width'
|
||||
+#3#155#0#8'TabOrder'#2#17#4'Text'#6#5'Edit1'#0#0#5'TEdit'#10'DepVarEdit'#4'L'
|
||||
+'eft'#3#22#1#6'Height'#2#20#3'Top'#3#192#1#5'Width'#3#155#0#8'TabOrder'#2#18
|
||||
+#4'Text'#6#5'Edit1'#0#0#7'TButton'#8'ResetBtn'#4'Left'#3#232#0#6'Height'#2#30
|
||||
+#3'Top'#3#16#2#5'Width'#2'J'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnC'
|
||||
+'lick'#8'TabOrder'#2#19#0#0#7'TButton'#9'CancelBtn'#4'Left'#3';'#1#6'Height'
|
||||
+#2#30#3'Top'#3#16#2#5'Width'#2'J'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2
|
||||
+#8'TabOrder'#2#20#0#0#7'TButton'#5'OKBtn'#4'Left'#3#144#1#6'Height'#2#30#3'T'
|
||||
+'op'#3#16#2#5'Width'#2'J'#7'Caption'#6#2'OK'#11'ModalResult'#2#1#7'OnClick'#7
|
||||
+#10'OKBtnClick'#8'TabOrder'#2#21#0#0#5'TEdit'#12'nPerCellEdit'#4'Left'#3'('#1
|
||||
+#6'Height'#2#19#3'Top'#3#239#1#5'Width'#2'0'#8'TabOrder'#2#22#4'Text'#6#12'n'
|
||||
+'PerCellEdit'#0#0#0
|
||||
]);
|
||||
208
applications/lazstats/source_orig/latinspecsunit.pas
Normal file
208
applications/lazstats/source_orig/latinspecsunit.pas
Normal file
@ -0,0 +1,208 @@
|
||||
unit LatinSpecsUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, MainUnit, Globals;
|
||||
|
||||
type
|
||||
|
||||
{ TLatinSpecsFrm }
|
||||
|
||||
TLatinSpecsFrm = class(TForm)
|
||||
AInBtn: TBitBtn;
|
||||
nPerCellEdit: TEdit;
|
||||
GrpOutBtn: TBitBtn;
|
||||
DataInBtn: TBitBtn;
|
||||
DataOutBtn: TBitBtn;
|
||||
AOutBtn: TBitBtn;
|
||||
BInBtn: TBitBtn;
|
||||
BOutBtn: TBitBtn;
|
||||
CInBtn: TBitBtn;
|
||||
COutBtn: TBitBtn;
|
||||
DInBtn: TBitBtn;
|
||||
DOutBtn: TBitBtn;
|
||||
GrpInBtn: TBitBtn;
|
||||
Label8: TLabel;
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
OKBtn: TButton;
|
||||
ACodeEdit: TEdit;
|
||||
BCodeEdit: TEdit;
|
||||
CCodeEdit: TEdit;
|
||||
DCodeEdit: TEdit;
|
||||
GrpCodeEdit: TEdit;
|
||||
DepVarEdit: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
Label7: TLabel;
|
||||
VarList: TListBox;
|
||||
procedure AInBtnClick(Sender: TObject);
|
||||
procedure AOutBtnClick(Sender: TObject);
|
||||
procedure BInBtnClick(Sender: TObject);
|
||||
procedure BOutBtnClick(Sender: TObject);
|
||||
procedure CInBtnClick(Sender: TObject);
|
||||
procedure COutBtnClick(Sender: TObject);
|
||||
procedure DataInBtnClick(Sender: TObject);
|
||||
procedure DataOutBtnClick(Sender: TObject);
|
||||
procedure DInBtnClick(Sender: TObject);
|
||||
procedure DOutBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure GrpInBtnClick(Sender: TObject);
|
||||
procedure GrpOutBtnClick(Sender: TObject);
|
||||
procedure OKBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LatinSpecsFrm: TLatinSpecsFrm;
|
||||
|
||||
implementation
|
||||
uses LatinSqrsUnit;
|
||||
|
||||
|
||||
{ TLatinSpecsFrm }
|
||||
|
||||
procedure TLatinSpecsFrm.ResetBtnClick(Sender: TObject);
|
||||
VAR i : integer;
|
||||
begin
|
||||
VarList.Clear;
|
||||
for i := 1 to NoVariables do
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(Self);
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.GrpInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
GrpCodeEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
GrpInBtn.Visible := false;
|
||||
GrpOutBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.GrpOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(GrpCodeEdit.Text);
|
||||
GrpCodeEdit.Text := '';
|
||||
GrpInBtn.Visible := true;
|
||||
GrpOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.AInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
ACodeEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
AinBtn.Visible := false;
|
||||
AOutBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.AOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(ACodeEdit.Text);
|
||||
ACodeEdit.Text := '';
|
||||
AinBtn.Visible := true;
|
||||
AOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.BInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
BCodeEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
BinBtn.Visible := false;
|
||||
BOutBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.BOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(BCodeEdit.Text);
|
||||
BCodeEdit.Text := '';
|
||||
BinBtn.Visible := true;
|
||||
BOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.CInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
CCodeEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
CinBtn.Visible := false;
|
||||
COutBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.COutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(CCodeEdit.Text);
|
||||
CCodeEdit.Text := '';
|
||||
CinBtn.Visible := true;
|
||||
COutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.DataInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
DepVarEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
DataInBtn.Visible := false;
|
||||
DataOutBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.DataOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(DepVarEdit.Text);
|
||||
DepVarEdit.Text := '';
|
||||
DataInBtn.Visible := true;
|
||||
DataOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.DInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
DCodeEdit.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
DinBtn.Visible := false;
|
||||
DOutBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.DOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(DCodeEdit.Text);
|
||||
DCodeEdit.Text := '';
|
||||
DinBtn.Visible := true;
|
||||
DOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLatinSpecsFrm.OKBtnClick(Sender: TObject);
|
||||
begin
|
||||
LatinSpecsFrm.Hide;
|
||||
ModalResult := mrOK;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I latinspecsunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
69
applications/lazstats/source_orig/latinsqrsunit.lfm
Normal file
69
applications/lazstats/source_orig/latinsqrsunit.lfm
Normal file
@ -0,0 +1,69 @@
|
||||
object LatinSqrsFrm: TLatinSqrsFrm
|
||||
Left = 199
|
||||
Height = 313
|
||||
Top = 108
|
||||
Width = 514
|
||||
Caption = 'Latin and Greco-Latin Squares Analyses'
|
||||
ClientHeight = 313
|
||||
ClientWidth = 514
|
||||
LCLVersion = '0.9.28.2'
|
||||
object CancelBtn: TButton
|
||||
Left = 208
|
||||
Height = 28
|
||||
Top = 272
|
||||
Width = 74
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 0
|
||||
end
|
||||
object OKBtn: TButton
|
||||
Left = 424
|
||||
Height = 28
|
||||
Top = 272
|
||||
Width = 74
|
||||
Caption = 'OK'
|
||||
ModalResult = 1
|
||||
OnClick = OKBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object Plan: TRadioGroup
|
||||
Left = 8
|
||||
Height = 246
|
||||
Top = 8
|
||||
Width = 493
|
||||
AutoFill = True
|
||||
Caption = 'Winer''s Plans:'
|
||||
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 = 228
|
||||
ClientWidth = 489
|
||||
Items.Strings = (
|
||||
'Plan 1. Three Factors (A,B,C) with no interactions.'
|
||||
'Plan 2. Four Factors (A,B,C,D) with partial interactions.'
|
||||
'Plan 3. Like Plan 2 but different assumptions (Partial confounding of interaction ABC.)'
|
||||
'The Greco-Latin with no interactions assumed.'
|
||||
'Plan 5. Repeated measures Latin Square (random assignment of groups to rows.)'
|
||||
'Plan 6. Fractional replication of a three factor factorial experiment in incomplete blocks.'
|
||||
'Plan 7. Plan 5 with superimposing of an orthogonal Latin square.'
|
||||
'Plan 9. AxBxC (same square used for all levels of Factor C.)'
|
||||
)
|
||||
OnClick = PlanClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Tag = 130
|
||||
Left = 8
|
||||
Height = 28
|
||||
Top = 272
|
||||
Width = 81
|
||||
Caption = 'Help'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
30
applications/lazstats/source_orig/latinsqrsunit.lrs
Normal file
30
applications/lazstats/source_orig/latinsqrsunit.lrs
Normal file
@ -0,0 +1,30 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLatinSqrsFrm','FORMDATA',[
|
||||
'TPF0'#13'TLatinSqrsFrm'#12'LatinSqrsFrm'#4'Left'#3#199#0#6'Height'#3'9'#1#3
|
||||
+'Top'#2'l'#5'Width'#3#2#2#7'Caption'#6'&Latin and Greco-Latin Squares Analys'
|
||||
+'es'#12'ClientHeight'#3'9'#1#11'ClientWidth'#3#2#2#10'LCLVersion'#6#8'0.9.28'
|
||||
+'.2'#0#7'TButton'#9'CancelBtn'#4'Left'#3#208#0#6'Height'#2#28#3'Top'#3#16#1#5
|
||||
+'Width'#2'J'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#0#0#0#7
|
||||
+'TButton'#5'OKBtn'#4'Left'#3#168#1#6'Height'#2#28#3'Top'#3#16#1#5'Width'#2'J'
|
||||
+#7'Caption'#6#2'OK'#11'ModalResult'#2#1#7'OnClick'#7#10'OKBtnClick'#8'TabOrd'
|
||||
+'er'#2#1#0#0#11'TRadioGroup'#4'Plan'#4'Left'#2#8#6'Height'#3#246#0#3'Top'#2#8
|
||||
+#5'Width'#3#237#1#8'AutoFill'#9#7'Caption'#6#14'Winer''s Plans:'#28'ChildSiz'
|
||||
+'ing.LeftRightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizi'
|
||||
+'ng.EnlargeHorizontal'#7#24'crsHomogenousChildResize'#27'ChildSizing.Enlarge'
|
||||
+'Vertical'#7#24'crsHomogenousChildResize'#28'ChildSizing.ShrinkHorizontal'#7
|
||||
+#14'crsScaleChilds'#26'ChildSizing.ShrinkVertical'#7#14'crsScaleChilds'#18'C'
|
||||
+'hildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'#27'ChildSizing.Contr'
|
||||
+'olsPerLine'#2#1#12'ClientHeight'#3#228#0#11'ClientWidth'#3#233#1#13'Items.S'
|
||||
+'trings'#1#6'5Plan 1. Three Factors (A,B,C) with no interactions.'#6';Plan'
|
||||
+' 2. Four Factors (A,B,C,D) with partial interactions.'#6'YPlan 3. Like '
|
||||
+'Plan 2 but different assumptions (Partial confounding of interaction ABC.)'
|
||||
+#6'-The Greco-Latin with no interactions assumed.'#6'OPlan 5. Repeated mea'
|
||||
+'sures Latin Square (random assignment of groups to rows.)'#6']Plan 6. Fra'
|
||||
+'ctional replication of a three factor factorial experiment in incomplete bl'
|
||||
+'ocks.'#6'BPlan 7. Plan 5 with superimposing of an orthogonal Latin square'
|
||||
+'.'#6'>Plan 9. AxBxC (same square used for all levels of Factor C.)'#0#7'O'
|
||||
+'nClick'#7#9'PlanClick'#8'TabOrder'#2#2#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3
|
||||
+#130#0#4'Left'#2#8#6'Height'#2#28#3'Top'#3#16#1#5'Width'#2'Q'#7'Caption'#6#4
|
||||
+'Help'#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#3#0#0#0
|
||||
]);
|
||||
4491
applications/lazstats/source_orig/latinsqrsunit.pas
Normal file
4491
applications/lazstats/source_orig/latinsqrsunit.pas
Normal file
File diff suppressed because it is too large
Load Diff
78
applications/lazstats/source_orig/licenseunit.lfm
Normal file
78
applications/lazstats/source_orig/licenseunit.lfm
Normal file
@ -0,0 +1,78 @@
|
||||
object LicenseFrm: TLicenseFrm
|
||||
Left = 138
|
||||
Height = 347
|
||||
Top = 105
|
||||
Width = 637
|
||||
Caption = 'License For Use'
|
||||
ClientHeight = 347
|
||||
ClientWidth = 637
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Memo1: TMemo
|
||||
Left = 0
|
||||
Height = 307
|
||||
Top = 0
|
||||
Width = 637
|
||||
Align = alClient
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
Font.Color = clBlack
|
||||
Font.Height = -13
|
||||
Font.Name = 'Courier'
|
||||
Font.Pitch = fpFixed
|
||||
Font.Quality = fqDraft
|
||||
Lines.Strings = (
|
||||
' ***************************************************************************'
|
||||
' * *'
|
||||
' * This source is free software; you can redistribute it and/or modify *'
|
||||
' * it under the terms of the GNU General Public License as published by *'
|
||||
' * the Free Software Foundation; either version 2 of the License, or *'
|
||||
' * (at your option) any later version. *'
|
||||
' * *'
|
||||
' * This code is distributed in the hope that it will be useful, but *'
|
||||
' * WITHOUT ANY WARRANTY; without even the implied warranty of *'
|
||||
' * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *'
|
||||
' * General Public License for more details. *'
|
||||
' * *'
|
||||
' * A copy of the GNU General Public License is available on the World *'
|
||||
' * Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *'
|
||||
' * obtain it by writing to the Free Software Foundation, *'
|
||||
' * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *'
|
||||
' * *'
|
||||
' ***************************************************************************'
|
||||
''
|
||||
'Use at your own risk. Compare results to other statistics programs'
|
||||
'or text book examples for each procedure.'
|
||||
'Click on Accept or Reject below.'
|
||||
)
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 40
|
||||
Top = 307
|
||||
Width = 637
|
||||
Align = alBottom
|
||||
ClientHeight = 40
|
||||
ClientWidth = 637
|
||||
TabOrder = 1
|
||||
object AcceptBtn: TButton
|
||||
Left = 48
|
||||
Height = 22
|
||||
Top = 9
|
||||
Width = 67
|
||||
Caption = 'Accept'
|
||||
ModalResult = 1
|
||||
OnClick = AcceptBtnClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object RejectBtn: TButton
|
||||
Left = 216
|
||||
Height = 20
|
||||
Top = 10
|
||||
Width = 72
|
||||
Caption = 'Reject'
|
||||
OnClick = RejectBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
end
|
||||
40
applications/lazstats/source_orig/licenseunit.lrs
Normal file
40
applications/lazstats/source_orig/licenseunit.lrs
Normal file
@ -0,0 +1,40 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLicenseFrm','FORMDATA',[
|
||||
'TPF0'#11'TLicenseFrm'#10'LicenseFrm'#4'Left'#3#138#0#6'Height'#3'['#1#3'Top'
|
||||
+#2'i'#5'Width'#3'}'#2#7'Caption'#6#15'License For Use'#12'ClientHeight'#3'['
|
||||
+#1#11'ClientWidth'#3'}'#2#10'LCLVersion'#6#8'0.9.28.2'#0#5'TMemo'#5'Memo1'#4
|
||||
+'Left'#2#0#6'Height'#3'3'#1#3'Top'#2#0#5'Width'#3'}'#2#5'Align'#7#8'alClient'
|
||||
+#12'Font.CharSet'#7#12'ANSI_CHARSET'#10'Font.Color'#7#7'clBlack'#11'Font.Hei'
|
||||
+'ght'#2#243#9'Font.Name'#6#7'Courier'#10'Font.Pitch'#7#7'fpFixed'#12'Font.Qu'
|
||||
+'ality'#7#7'fqDraft'#13'Lines.Strings'#1#6'L *******************************'
|
||||
+'********************************************'#6'L * '
|
||||
+' *'#6'L * This source is '
|
||||
+'free software; you can redistribute it and/or modify *'#6'L * it under '
|
||||
+'the terms of the GNU General Public License as published by *'#6'L * the'
|
||||
+' Free Software Foundation; either version 2 of the License, or *'#6'L *'
|
||||
+' (at your option) any later version. *'
|
||||
+#6'L * '
|
||||
+' *'#6'L * This code is distributed in the hope that it will be useful, '
|
||||
+'but *'#6'L * WITHOUT ANY WARRANTY; without even the implied warranty'
|
||||
+' of *'#6'L * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPO'
|
||||
+'SE. See the GNU *'#6'L * General Public License for more details. '
|
||||
+' *'#6'L * '
|
||||
+' *'#6'L * A copy of the GNU General Publi'
|
||||
+'c License is available on the World *'#6'L * Wide Web at <http://www.g'
|
||||
+'nu.org/copyleft/gpl.html>. You can also *'#6'L * obtain it by writin'
|
||||
+'g to the Free Software Foundation, *'#6'L * Inc., 59 Temp'
|
||||
+'le Place - Suite 330, Boston, MA 02111-1307, USA. *'#6'L * '
|
||||
+' *'#6'L *****'
|
||||
+'**********************************************************************'#6#0
|
||||
+#6'CUse at your own risk. Compare results to other statistics programs'#6')'
|
||||
+'or text book examples for each procedure.'#6' Click on Accept or Reject bel'
|
||||
+'ow.'#0#10'ParentFont'#8#8'TabOrder'#2#0#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0
|
||||
+#6'Height'#2'('#3'Top'#3'3'#1#5'Width'#3'}'#2#5'Align'#7#8'alBottom'#12'Clie'
|
||||
+'ntHeight'#2'('#11'ClientWidth'#3'}'#2#8'TabOrder'#2#1#0#7'TButton'#9'Accept'
|
||||
+'Btn'#4'Left'#2'0'#6'Height'#2#22#3'Top'#2#9#5'Width'#2'C'#7'Caption'#6#6'Ac'
|
||||
+'cept'#11'ModalResult'#2#1#7'OnClick'#7#14'AcceptBtnClick'#8'TabOrder'#2#0#0
|
||||
+#0#7'TButton'#9'RejectBtn'#4'Left'#3#216#0#6'Height'#2#20#3'Top'#2#10#5'Widt'
|
||||
+'h'#2'H'#7'Caption'#6#6'Reject'#7'OnClick'#7#14'RejectBtnClick'#8'TabOrder'#2
|
||||
+#1#0#0#0#0
|
||||
]);
|
||||
49
applications/lazstats/source_orig/licenseunit.pas
Normal file
49
applications/lazstats/source_orig/licenseunit.pas
Normal file
@ -0,0 +1,49 @@
|
||||
unit LicenseUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TLicenseFrm }
|
||||
|
||||
TLicenseFrm = class(TForm)
|
||||
AcceptBtn: TButton;
|
||||
RejectBtn: TButton;
|
||||
Memo1: TMemo;
|
||||
Panel1: TPanel;
|
||||
procedure AcceptBtnClick(Sender: TObject);
|
||||
procedure RejectBtnClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LicenseFrm: TLicenseFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TLicenseFrm }
|
||||
|
||||
procedure TLicenseFrm.AcceptBtnClick(Sender: TObject);
|
||||
begin
|
||||
LicenseFrm.Hide;
|
||||
end;
|
||||
|
||||
procedure TLicenseFrm.RejectBtnClick(Sender: TObject);
|
||||
begin
|
||||
close;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I licenseunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
644
applications/lazstats/source_orig/lifetableunit.lfm
Normal file
644
applications/lazstats/source_orig/lifetableunit.lfm
Normal file
@ -0,0 +1,644 @@
|
||||
object LifeTableForm: TLifeTableForm
|
||||
Left = 117
|
||||
Height = 549
|
||||
Top = 157
|
||||
Width = 1195
|
||||
Caption = 'LIFE TABLE'
|
||||
ClientHeight = 549
|
||||
ClientWidth = 1195
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.30.4'
|
||||
object Label1: TLabel
|
||||
Left = 7
|
||||
Height = 16
|
||||
Top = 11
|
||||
Width = 51
|
||||
Caption = 'Variables:'
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 8
|
||||
Height = 496
|
||||
Top = 32
|
||||
Width = 168
|
||||
ItemHeight = 0
|
||||
TabOrder = 0
|
||||
end
|
||||
object Memo1: TMemo
|
||||
Left = 320
|
||||
Height = 112
|
||||
Top = 8
|
||||
Width = 440
|
||||
Lines.Strings = (
|
||||
'Directions: Your input grid data should consist of five integer column vaiables:'
|
||||
'1. The beginning of each observation period (typically 0 for the first observation.'
|
||||
'2. The ending of each observation period.'
|
||||
'3. The number alive in the observation period.'
|
||||
'4. The number that died during the observation period.'
|
||||
'5. The number last seen alive during the period that are lost (censored)'
|
||||
'See the example file LIFETABLE.LAZ.'
|
||||
)
|
||||
TabOrder = 1
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 766
|
||||
Height = 37
|
||||
Top = 8
|
||||
Width = 81
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 768
|
||||
Height = 37
|
||||
Top = 56
|
||||
Width = 81
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 872
|
||||
Height = 37
|
||||
Top = 8
|
||||
Width = 81
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 872
|
||||
Height = 37
|
||||
Top = 56
|
||||
Width = 81
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 5
|
||||
end
|
||||
object ObsStartInBtn: TBitBtn
|
||||
Left = 184
|
||||
Height = 29
|
||||
Top = 72
|
||||
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 = ObsStartInBtnClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object ObsStartOutBtn: TBitBtn
|
||||
Left = 232
|
||||
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 = ObsStartOutBtnClick
|
||||
TabOrder = 7
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 185
|
||||
Height = 16
|
||||
Top = 31
|
||||
Width = 92
|
||||
Caption = 'Observation Start'
|
||||
ParentColor = False
|
||||
end
|
||||
object ObsStartEdit: TEdit
|
||||
Left = 186
|
||||
Height = 23
|
||||
Top = 46
|
||||
Width = 125
|
||||
TabOrder = 8
|
||||
Text = 'ObsStartEdit'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 184
|
||||
Height = 16
|
||||
Top = 114
|
||||
Width = 91
|
||||
Caption = 'Observation End:'
|
||||
ParentColor = False
|
||||
end
|
||||
object ObsEndEdit: TEdit
|
||||
Left = 186
|
||||
Height = 23
|
||||
Top = 131
|
||||
Width = 127
|
||||
TabOrder = 9
|
||||
Text = 'ObsEndEdit'
|
||||
end
|
||||
object ObsEndInBtn: TBitBtn
|
||||
Left = 186
|
||||
Height = 29
|
||||
Top = 160
|
||||
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 = ObsEndInBtnClick
|
||||
TabOrder = 10
|
||||
end
|
||||
object ObsEndOutBtn: TBitBtn
|
||||
Left = 234
|
||||
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 = ObsEndOutBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 184
|
||||
Height = 16
|
||||
Top = 207
|
||||
Width = 77
|
||||
Caption = 'Number Alive:'
|
||||
ParentColor = False
|
||||
end
|
||||
object NoAliveEdit: TEdit
|
||||
Left = 184
|
||||
Height = 23
|
||||
Top = 226
|
||||
Width = 128
|
||||
TabOrder = 12
|
||||
Text = 'NoAliveEdit'
|
||||
end
|
||||
object AliveInBtn: TBitBtn
|
||||
Left = 185
|
||||
Height = 29
|
||||
Top = 256
|
||||
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 = AliveInBtnClick
|
||||
TabOrder = 13
|
||||
end
|
||||
object AliveOutBtn: TBitBtn
|
||||
Left = 233
|
||||
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 = AliveOutBtnClick
|
||||
TabOrder = 14
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 186
|
||||
Height = 16
|
||||
Top = 313
|
||||
Width = 75
|
||||
Caption = 'Number Died:'
|
||||
ParentColor = False
|
||||
end
|
||||
object NoDiedEdit: TEdit
|
||||
Left = 185
|
||||
Height = 23
|
||||
Top = 330
|
||||
Width = 126
|
||||
TabOrder = 15
|
||||
Text = 'NoDiedEdit'
|
||||
end
|
||||
object NoDiedInBtn: TBitBtn
|
||||
Left = 184
|
||||
Height = 29
|
||||
Top = 360
|
||||
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 = NoDiedInBtnClick
|
||||
TabOrder = 16
|
||||
end
|
||||
object NoDiedOutBtn: TBitBtn
|
||||
Left = 232
|
||||
Height = 29
|
||||
Top = 360
|
||||
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 = NoDiedOutBtnClick
|
||||
TabOrder = 17
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 184
|
||||
Height = 16
|
||||
Top = 414
|
||||
Width = 101
|
||||
Caption = 'Number Censored:'
|
||||
ParentColor = False
|
||||
end
|
||||
object NoCensoredEdit: TEdit
|
||||
Left = 184
|
||||
Height = 23
|
||||
Top = 433
|
||||
Width = 130
|
||||
TabOrder = 18
|
||||
Text = 'NoCensoredEdit'
|
||||
end
|
||||
object NoCensoredInBtn: TBitBtn
|
||||
Left = 185
|
||||
Height = 29
|
||||
Top = 464
|
||||
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 = NoCensoredInBtnClick
|
||||
TabOrder = 19
|
||||
end
|
||||
object NoCensoredOutBtn: TBitBtn
|
||||
Left = 234
|
||||
Height = 29
|
||||
Top = 464
|
||||
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 = NoCensoredOutBtnClick
|
||||
TabOrder = 20
|
||||
end
|
||||
object Grid: TStringGrid
|
||||
Left = 321
|
||||
Height = 353
|
||||
Top = 129
|
||||
Width = 861
|
||||
ColCount = 13
|
||||
RowCount = 2
|
||||
ScrollBars = ssVertical
|
||||
TabOrder = 21
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 432
|
||||
Height = 16
|
||||
Top = 504
|
||||
Width = 189
|
||||
Caption = 'Confidence Level for Number Alive:'
|
||||
ParentColor = False
|
||||
end
|
||||
object CIEdit: TEdit
|
||||
Left = 626
|
||||
Height = 23
|
||||
Top = 499
|
||||
Width = 38
|
||||
TabOrder = 22
|
||||
Text = '0.95'
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Left = 999
|
||||
Height = 38
|
||||
Top = 33
|
||||
Width = 78
|
||||
Caption = 'HELP'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 23
|
||||
end
|
||||
end
|
||||
569
applications/lazstats/source_orig/lifetableunit.lrs
Normal file
569
applications/lazstats/source_orig/lifetableunit.lrs
Normal file
@ -0,0 +1,569 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLifeTableForm','FORMDATA',[
|
||||
'TPF0'#14'TLifeTableForm'#13'LifeTableForm'#4'Left'#2'u'#6'Height'#3'%'#2#3'T'
|
||||
+'op'#3#157#0#5'Width'#3#171#4#7'Caption'#6#10'LIFE TABLE'#12'ClientHeight'#3
|
||||
+'%'#2#11'ClientWidth'#3#171#4#6'OnShow'#7#8'FormShow'#10'LCLVersion'#6#8'0.9'
|
||||
+'.30.4'#0#6'TLabel'#6'Label1'#4'Left'#2#7#6'Height'#2#16#3'Top'#2#11#5'Width'
|
||||
+#2'3'#7'Caption'#6#10'Variables:'#11'ParentColor'#8#0#0#8'TListBox'#7'VarLis'
|
||||
+'t'#4'Left'#2#8#6'Height'#3#240#1#3'Top'#2' '#5'Width'#3#168#0#10'ItemHeight'
|
||||
+#2#0#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#3'@'#1#6'Height'#2'p'#3'T'
|
||||
+'op'#2#8#5'Width'#3#184#1#13'Lines.Strings'#1#6'QDirections: Your input gri'
|
||||
+'d data should consist of five integer column vaiables:'#6'U1. The beginni'
|
||||
+'ng of each observation period (typically 0 for the first observation.'#6'+2'
|
||||
+'. The ending of each observation period.'#6'03. The number alive in the'
|
||||
+' observation period.'#6'84. The number that died during the observation p'
|
||||
+'eriod.'#6'J5. The number last seen alive during the period that are lost '
|
||||
+'(censored)'#6'#See the example file LIFETABLE.LAZ.'#0#8'TabOrder'#2#1#0#0#7
|
||||
+'TButton'#9'CancelBtn'#4'Left'#3#254#2#6'Height'#2'%'#3'Top'#2#8#5'Width'#2
|
||||
+'Q'#7'Caption'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#2#0#0#7'TButton'
|
||||
+#8'ResetBtn'#4'Left'#3#0#3#6'Height'#2'%'#3'Top'#2'8'#5'Width'#2'Q'#7'Captio'
|
||||
+'n'#6#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#3#0#0#7'TButton'
|
||||
+#10'ComputeBtn'#4'Left'#3'h'#3#6'Height'#2'%'#3'Top'#2#8#5'Width'#2'Q'#7'Cap'
|
||||
+'tion'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#4#0#0#7'T'
|
||||
+'Button'#9'ReturnBtn'#4'Left'#3'h'#3#6'Height'#2'%'#3'Top'#2'8'#5'Width'#2'Q'
|
||||
+#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#5#0#0#7'TBitBtn'#13
|
||||
+'ObsStartInBtn'#4'Left'#3#184#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#255#255#255#0#255#255#255#0#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#18'ObsStart'
|
||||
+'InBtnClick'#8'TabOrder'#2#6#0#0#7'TBitBtn'#14'ObsStartOutBtn'#4'Left'#3#232
|
||||
+#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#19'ObsStartOutBtnClick'#8
|
||||
+'TabOrder'#2#7#0#0#6'TLabel'#6'Label2'#4'Left'#3#185#0#6'Height'#2#16#3'Top'
|
||||
+#2#31#5'Width'#2'\'#7'Caption'#6#17'Observation Start'#11'ParentColor'#8#0#0
|
||||
+#5'TEdit'#12'ObsStartEdit'#4'Left'#3#186#0#6'Height'#2#23#3'Top'#2'.'#5'Widt'
|
||||
,'h'#2'}'#8'TabOrder'#2#8#4'Text'#6#12'ObsStartEdit'#0#0#6'TLabel'#6'Label3'#4
|
||||
+'Left'#3#184#0#6'Height'#2#16#3'Top'#2'r'#5'Width'#2'['#7'Caption'#6#16'Obse'
|
||||
+'rvation End:'#11'ParentColor'#8#0#0#5'TEdit'#10'ObsEndEdit'#4'Left'#3#186#0
|
||||
+#6'Height'#2#23#3'Top'#3#131#0#5'Width'#2#127#8'TabOrder'#2#9#4'Text'#6#10'O'
|
||||
+'bsEndEdit'#0#0#7'TBitBtn'#11'ObsEndInBtn'#4'Left'#3#186#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#255#255
|
||||
+#255#0#255#255#255#0#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'ObsEndInBtnClick'#8'TabOrder'#2#10#0#0#7'T'
|
||||
+'BitBtn'#12'ObsEndOutBtn'#4'Left'#3#234#0#6'Height'#2#29#3'Top'#3#160#0#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#17'ObsEndOutBtnClick'#8'TabOrder'#2#11#0#0#6'TLabel'#6'Label4'#4
|
||||
+'Left'#3#184#0#6'Height'#2#16#3'Top'#3#207#0#5'Width'#2'M'#7'Caption'#6#13'N'
|
||||
+'umber Alive:'#11'ParentColor'#8#0#0#5'TEdit'#11'NoAliveEdit'#4'Left'#3#184#0
|
||||
+#6'Height'#2#23#3'Top'#3#226#0#5'Width'#3#128#0#8'TabOrder'#2#12#4'Text'#6#11
|
||||
+'NoAliveEdit'#0#0#7'TBitBtn'#10'AliveInBtn'#4'Left'#3#185#0#6'Height'#2#29#3
|
||||
+'Top'#3#0#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'NumGlyp'
|
||||
+'hs'#2#0#7'OnClick'#7#15'AliveInBtnClick'#8'TabOrder'#2#13#0#0#7'TBitBtn'#11
|
||||
+'AliveOutBtn'#4'Left'#3#233#0#6'Height'#2#29#3'Top'#3#0#1#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#16
|
||||
+'AliveOutBtnClick'#8'TabOrder'#2#14#0#0#6'TLabel'#6'Label5'#4'Left'#3#186#0#6
|
||||
+'Height'#2#16#3'Top'#3'9'#1#5'Width'#2'K'#7'Caption'#6#12'Number Died:'#11'P'
|
||||
+'arentColor'#8#0#0#5'TEdit'#10'NoDiedEdit'#4'Left'#3#185#0#6'Height'#2#23#3
|
||||
+'Top'#3'J'#1#5'Width'#2'~'#8'TabOrder'#2#15#4'Text'#6#10'NoDiedEdit'#0#0#7'T'
|
||||
+'BitBtn'#11'NoDiedInBtn'#4'Left'#3#184#0#6'Height'#2#29#3'Top'#3'h'#1#5'Widt'
|
||||
+'h'#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
|
||||
+'NoDiedInBtnClick'#8'TabOrder'#2#16#0#0#7'TBitBtn'#12'NoDiedOutBtn'#4'Left'#3
|
||||
+#232#0#6'Height'#2#29#3'Top'#3'h'#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'NumGlyphs'#2#0#7'OnClick'#7#17'NoDiedOutBtnClick'#8'T'
|
||||
+'abOrder'#2#17#0#0#6'TLabel'#6'Label6'#4'Left'#3#184#0#6'Height'#2#16#3'Top'
|
||||
+#3#158#1#5'Width'#2'e'#7'Caption'#6#16'Number Censored:'#11'ParentColor'#8#0
|
||||
+#0#5'TEdit'#14'NoCensoredEdit'#4'Left'#3#184#0#6'Height'#2#23#3'Top'#3#177#1
|
||||
+#5'Width'#3#130#0#8'TabOrder'#2#18#4'Text'#6#14'NoCensoredEdit'#0#0#7'TBitBt'
|
||||
+'n'#15'NoCensoredInBtn'#4'Left'#3#185#0#6'Height'#2#29#3'Top'#3#208#1#5'Widt'
|
||||
+'h'#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#20
|
||||
+'NoCensoredInBtnClick'#8'TabOrder'#2#19#0#0#7'TBitBtn'#16'NoCensoredOutBtn'#4
|
||||
+'Left'#3#234#0#6'Height'#2#29#3'Top'#3#208#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'NumGlyphs'#2#0#7'OnClick'#7#21'NoCensoredOutB'
|
||||
+'tnClick'#8'TabOrder'#2#20#0#0#11'TStringGrid'#4'Grid'#4'Left'#3'A'#1#6'Heig'
|
||||
+'ht'#3'a'#1#3'Top'#3#129#0#5'Width'#3']'#3#8'ColCount'#2#13#8'RowCount'#2#2
|
||||
+#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#21#0#0#6'TLabel'#6'Label7'#4
|
||||
+'Left'#3#176#1#6'Height'#2#16#3'Top'#3#248#1#5'Width'#3#189#0#7'Caption'#6'"'
|
||||
+'Confidence Level for Number Alive:'#11'ParentColor'#8#0#0#5'TEdit'#6'CIEdit'
|
||||
+#4'Left'#3'r'#2#6'Height'#2#23#3'Top'#3#243#1#5'Width'#2'&'#8'TabOrder'#2#22
|
||||
+#4'Text'#6#4'0.95'#0#0#7'TButton'#7'HelpBtn'#4'Left'#3#231#3#6'Height'#2'&'#3
|
||||
+'Top'#2'!'#5'Width'#2'N'#7'Caption'#6#4'HELP'#7'OnClick'#7#12'HelpBtnClick'#8
|
||||
+'TabOrder'#2#23#0#0#0
|
||||
]);
|
||||
311
applications/lazstats/source_orig/lifetableunit.pas
Normal file
311
applications/lazstats/source_orig/lifetableunit.pas
Normal file
@ -0,0 +1,311 @@
|
||||
unit LifeTableUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, ExtCtrls, Grids, MainUnit, Globals, FunctionsLib,
|
||||
OutPutUnit, DictionaryUnit, DataProcs, GraphLib, contexthelpunit;
|
||||
|
||||
type
|
||||
|
||||
{ TLifeTableForm }
|
||||
|
||||
TLifeTableForm = class(TForm)
|
||||
HelpBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
CIEdit: TEdit;
|
||||
Label7: TLabel;
|
||||
NoCensoredEdit: TEdit;
|
||||
Label6: TLabel;
|
||||
NoDiedEdit: TEdit;
|
||||
Label5: TLabel;
|
||||
NoAliveEdit: TEdit;
|
||||
Label4: TLabel;
|
||||
ObsEndEdit: TEdit;
|
||||
Label3: TLabel;
|
||||
ObsStartEdit: TEdit;
|
||||
Label2: TLabel;
|
||||
ObsStartInBtn: TBitBtn;
|
||||
ObsEndInBtn: TBitBtn;
|
||||
AliveInBtn: TBitBtn;
|
||||
NoDiedInBtn: TBitBtn;
|
||||
NoCensoredInBtn: TBitBtn;
|
||||
ObsStartOutBtn: TBitBtn;
|
||||
ObsEndOutBtn: TBitBtn;
|
||||
AliveOutBtn: TBitBtn;
|
||||
NoDiedOutBtn: TBitBtn;
|
||||
NoCensoredOutBtn: TBitBtn;
|
||||
ResetBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
Label1: TLabel;
|
||||
Memo1: TMemo;
|
||||
Grid: TStringGrid;
|
||||
VarList: TListBox;
|
||||
procedure AliveInBtnClick(Sender: TObject);
|
||||
procedure AliveOutBtnClick(Sender: TObject);
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure HelpBtnClick(Sender: TObject);
|
||||
procedure NoCensoredInBtnClick(Sender: TObject);
|
||||
procedure NoCensoredOutBtnClick(Sender: TObject);
|
||||
procedure NoDiedInBtnClick(Sender: TObject);
|
||||
procedure NoDiedOutBtnClick(Sender: TObject);
|
||||
procedure ObsEndInBtnClick(Sender: TObject);
|
||||
procedure ObsEndOutBtnClick(Sender: TObject);
|
||||
procedure ObsStartInBtnClick(Sender: TObject);
|
||||
procedure ObsStartOutBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
// NoCases : integer;
|
||||
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LifeTableForm: TLifeTableForm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TLifeTableForm }
|
||||
|
||||
procedure TLifeTableForm.FormShow(Sender: TObject);
|
||||
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.HelpBtnClick(Sender: TObject);
|
||||
begin
|
||||
ContextHelpForm.HelpMessage((Sender as TButton).tag);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.NoCensoredInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
NoCensoredEdit.Text := VarList.Items.Strings[index];
|
||||
NoCensoredInBtn.Visible := false;
|
||||
NoCensoredOutBtn.Visible := true;
|
||||
VarList.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.NoCensoredOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(NoCensoredEdit.Text);
|
||||
NoCensoredEdit.Text := '';
|
||||
NoCensoredOutBtn.Visible := false;
|
||||
NoCensoredInBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.NoDiedInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
NoDiedEdit.Text := VarList.Items.Strings[index];
|
||||
NoDiedInBtn.Visible := false;
|
||||
NoDiedOutBtn.Visible := true;
|
||||
VarList.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.NoDiedOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(NoDiedEdit.Text);
|
||||
NoDiedEdit.Text := '';
|
||||
NoDiedOutBtn.Visible := false;
|
||||
NoDiedInBtn.Visible := true;
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.AliveInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
NoAliveEdit.Text := VarList.Items.Strings[index];
|
||||
AliveInBtn.Visible := false;
|
||||
AliveOutBtn.Visible := true;
|
||||
VarList.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.AliveOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(NoAliveEdit.Text);
|
||||
NoAliveEdit.Text := '';
|
||||
AliveInBtn.Visible := true;
|
||||
AliveOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.ComputeBtnClick(Sender: TObject);
|
||||
VAR
|
||||
i : integer;
|
||||
varcols : IntDyneVec;
|
||||
AtRisk, ProbDie, CumProbLive, StdErr, Up95, Low95 : double;
|
||||
N, P, Q, mu, CI, z : double;
|
||||
outline : string;
|
||||
begin
|
||||
CI := StrToFloat(CIEdit.Text);
|
||||
z := inversez(CI);
|
||||
SetLength(varcols,5);
|
||||
for i := 1 to 5 do
|
||||
begin
|
||||
if (OS3MainFrm.DataGrid.Cells[i,0] = ObsStartEdit.Text) then varcols[0] := i;
|
||||
if (OS3MainFrm.DataGrid.Cells[i,0] = ObsEndEdit.Text) then varcols[1] := i;
|
||||
if (OS3MainFrm.DataGrid.Cells[i,0] = NoAliveEdit.Text) then varcols[2] := i;
|
||||
if (OS3MainFrm.DataGrid.Cells[i,0] = NoDiedEdit.Text) then varcols[3] := i;
|
||||
if (OS3MainFrm.DataGrid.Cells[i,0] = NoCensoredEdit.Text) then varcols[4] := i;
|
||||
end;
|
||||
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
Grid.Cells[0,i] := 'CASE ' + IntToStr(i);
|
||||
Grid.Cells[1,i] := Trim(OS3MainFrm.DataGrid.Cells[varcols[0],i]);
|
||||
Grid.Cells[2,i] := Trim(OS3MainFrm.DataGrid.Cells[varcols[1],i]);
|
||||
Grid.Cells[3,i] := Trim(OS3MainFrm.DataGrid.Cells[varcols[2],i]);
|
||||
Grid.Cells[4,i] := Trim(OS3MainFrm.DataGrid.Cells[varcols[3],i]);
|
||||
Grid.Cells[5,i] := Trim(OS3MainFrm.DataGrid.Cells[varcols[4],i]);
|
||||
end;
|
||||
for i := 1 to NoCases do
|
||||
begin
|
||||
AtRisk := StrToFloat(Grid.Cells[3,i]);
|
||||
AtRisk := AtRisk - (StrToFloat(Grid.Cells[5,i]) / 2.0);
|
||||
outline := format('%8.4f',[AtRisk]);
|
||||
Grid.Cells[6,i] := outline;
|
||||
ProbDie := StrToFloat(Grid.Cells[4,i]) / AtRisk;
|
||||
outline := format('%8.4f',[ProbDie]);
|
||||
Grid.Cells[7,i] := outline;
|
||||
outline := format('%8.4f',[1.0-ProbDie]);
|
||||
Grid.Cells[8,i] := outline;
|
||||
end;
|
||||
N := StrToFloat(Grid.Cells[3,1]);
|
||||
Grid.Cells[9,1] := Grid.Cells[8,1];
|
||||
P := StrToFloat(Grid.Cells[9,1]);
|
||||
Q := 1.0 - P;
|
||||
StdErr := sqrt(N * P * Q);
|
||||
outline := format('%8.4f',[StdErr]);
|
||||
Grid.Cells[10,1] := outline;
|
||||
mu := N * P;
|
||||
outline := format('%8.4f',[StdErr]);
|
||||
Grid.Cells[10,1] := outline;
|
||||
Up95 := mu + (z * StdErr);
|
||||
Low95 := mu - (z * StdErr);
|
||||
outline := format('%8.4f',[Low95]);
|
||||
Grid.Cells[11,1] := outline;
|
||||
outline := format('%8.3f',[Up95]);
|
||||
Grid.Cells[12,1] := outline;
|
||||
|
||||
for i := 2 to NoCases do
|
||||
begin
|
||||
CumProbLive := StrToFloat(Grid.Cells[9,i-1]) *
|
||||
StrToFloat(Grid.Cells[8,i]);
|
||||
outline := format('%8.4f',[CumProbLive]);
|
||||
Grid.Cells[9,i] := outline;
|
||||
P := CumProbLive;
|
||||
Q := 1.0 - P;
|
||||
StdErr := sqrt(N * P * Q);
|
||||
mu := N * P;
|
||||
outline := format('%8.4f',[StdErr]);
|
||||
Grid.Cells[10,i] := outline;
|
||||
Up95 := mu + (z * StdErr);
|
||||
Low95 := mu - (z * StdErr);
|
||||
outline := format('%8.4f',[Low95]);
|
||||
Grid.Cells[11,i] := outline;
|
||||
outline := format('%8.3f',[Up95]);
|
||||
Grid.Cells[12,i] := outline;
|
||||
end;
|
||||
varcols := nil;
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.ObsEndInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
ObsEndEdit.Text := VarList.Items.Strings[index];
|
||||
ObsEndInBtn.Visible := false;
|
||||
ObsEndOutBtn.Visible := true;
|
||||
VarList.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.ObsEndOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(ObsEndEdit.Text);
|
||||
ObsEndEdit.Text := '';
|
||||
ObsEndInBtn.Visible := true;
|
||||
ObsEndOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.ObsStartInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
ObsStartEdit.Text := VarList.Items.Strings[index];
|
||||
ObsStartInBtn.Visible := false;
|
||||
ObsStartOutBtn.Visible := true;
|
||||
VarList.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.ObsStartOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(ObsStartEdit.Text);
|
||||
ObsStartEdit.Text := '';
|
||||
ObsStartInBtn.Visible := true;
|
||||
ObsStartOutBtn.Visible := false;
|
||||
end;
|
||||
|
||||
procedure TLifeTableForm.ResetBtnClick(Sender: TObject);
|
||||
|
||||
VAR i : integer;
|
||||
j : integer;
|
||||
outline : string;
|
||||
begin
|
||||
// outline := format('NoCases = %d',[NoCases]);
|
||||
// ShowMessage(outline);
|
||||
// outline := format('No.Variables = %d',[NoVariables]);
|
||||
// ShowMessage(outline);
|
||||
VarList.Clear;
|
||||
ObsStartEdit.Text := '';
|
||||
ObsEndEdit.Text := '';
|
||||
NoAliveEdit.Text := '';
|
||||
NoDiedEdit.Text := '';
|
||||
NoCensoredEdit.Text := '';
|
||||
ObsStartInBtn.Visible := true;
|
||||
ObsStartOutBtn.Visible := false;
|
||||
ObsEndInBtn.Visible := true;
|
||||
ObsEndOutBtn.Visible := false;
|
||||
AliveInBtn.Visible := true;
|
||||
AliveOutBtn.Visible := false;
|
||||
NoDiedInBtn.Visible := true;
|
||||
NoDiedOutBtn.Visible := false;
|
||||
NoCensoredInBtn.Visible := true;
|
||||
NoCensoredOutBtn.Visible := false;
|
||||
Grid.RowCount := NoCases+1;
|
||||
Grid.ColCount := 13;
|
||||
Grid.Cells[1,0] := 'Obs.Start';
|
||||
Grid.Cells[2,0] := 'Obs.End';
|
||||
Grid.Cells[3,0] := 'Alive';
|
||||
Grid.Cells[4,0] := 'Died';
|
||||
Grid.Cells[5,0] := 'Censored';
|
||||
Grid.Cells[6,0] := 'At Risk';
|
||||
Grid.Cells[7,0] := 'Prob.Die';
|
||||
Grid.Cells[8,0] := 'Prob.Alive';
|
||||
Grid.Cells[9,0] := 'Cum.P.Alive';
|
||||
Grid.Cells[10,0] := 'S.E. Alive';
|
||||
Grid.Cells[11,0] := 'Low 95%';
|
||||
Grid.Cells[12,0] := 'Hi 95%';
|
||||
for i := 0 to 12 do
|
||||
begin
|
||||
for j := 1 to NoCases do Grid.Cells[i,j] := '';
|
||||
end;
|
||||
for i := 1 to NoVariables do
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
{$I lifetableunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
34
applications/lazstats/source_orig/limitedunit.lfm
Normal file
34
applications/lazstats/source_orig/limitedunit.lfm
Normal file
@ -0,0 +1,34 @@
|
||||
object LimitedForm: TLimitedForm
|
||||
Left = 290
|
||||
Height = 192
|
||||
Top = 175
|
||||
Width = 400
|
||||
Caption = 'UNAVAILABLE IN THIS LIMITED VERSION'
|
||||
ClientHeight = 192
|
||||
ClientWidth = 400
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Memo1: TMemo
|
||||
Left = 6
|
||||
Height = 120
|
||||
Top = 8
|
||||
Width = 384
|
||||
Lines.Strings = (
|
||||
'This procedure is not implimented in this limited'
|
||||
'version. The full version for Windows and Linux'
|
||||
'systems can be purchased at:'
|
||||
'http://www.statprograms4U.com'
|
||||
'If you have any questions, send an email to me'
|
||||
'at billmiller50322@gmail.com'
|
||||
)
|
||||
TabOrder = 0
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 104
|
||||
Height = 35
|
||||
Top = 143
|
||||
Width = 146
|
||||
Caption = 'RETURN'
|
||||
ModalResult = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
15
applications/lazstats/source_orig/limitedunit.lrs
Normal file
15
applications/lazstats/source_orig/limitedunit.lrs
Normal file
@ -0,0 +1,15 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLimitedForm','FORMDATA',[
|
||||
'TPF0'#12'TLimitedForm'#11'LimitedForm'#4'Left'#3'"'#1#6'Height'#3#192#0#3'To'
|
||||
+'p'#3#175#0#5'Width'#3#144#1#7'Caption'#6'#UNAVAILABLE IN THIS LIMITED VERSI'
|
||||
+'ON'#12'ClientHeight'#3#192#0#11'ClientWidth'#3#144#1#10'LCLVersion'#6#8'0.9'
|
||||
+'.28.2'#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2'x'#3'Top'#2#8#5'Width'#3
|
||||
+#128#1#13'Lines.Strings'#1#6'1This procedure is not implimented in this limi'
|
||||
+'ted'#6'0version. The full version for Windows and Linux'#6#28'systems can '
|
||||
+'be purchased at:'#6#29'http://www.statprograms4U.com'#6'.If you have any qu'
|
||||
+'estions, send an email to me'#6#28'at billmiller50322@gmail.com'#0#8'TabOrd'
|
||||
+'er'#2#0#0#0#7'TButton'#9'ReturnBtn'#4'Left'#2'h'#6'Height'#2'#'#3'Top'#3#143
|
||||
+#0#5'Width'#3#146#0#7'Caption'#6#6'RETURN'#11'ModalResult'#2#1#8'TabOrder'#2
|
||||
+#1#0#0#0
|
||||
]);
|
||||
33
applications/lazstats/source_orig/limitedunit.pas
Normal file
33
applications/lazstats/source_orig/limitedunit.pas
Normal file
@ -0,0 +1,33 @@
|
||||
unit LimitedUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TLimitedForm }
|
||||
|
||||
TLimitedForm = class(TForm)
|
||||
ReturnBtn: TButton;
|
||||
Memo1: TMemo;
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LimitedForm: TLimitedForm;
|
||||
|
||||
implementation
|
||||
|
||||
initialization
|
||||
{$I limitedunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
308
applications/lazstats/source_orig/linprounit.lfm
Normal file
308
applications/lazstats/source_orig/linprounit.lfm
Normal file
@ -0,0 +1,308 @@
|
||||
object LinProFrm: TLinProFrm
|
||||
Left = 106
|
||||
Height = 483
|
||||
Top = 92
|
||||
Width = 740
|
||||
Caption = 'Linear Programming Using Min/Max Algorithm'
|
||||
ClientHeight = 483
|
||||
ClientWidth = 740
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.26.2'
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 3
|
||||
Width = 26
|
||||
Caption = 'FILE:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 144
|
||||
Height = 14
|
||||
Top = 24
|
||||
Width = 47
|
||||
Caption = 'Objective'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 72
|
||||
Height = 14
|
||||
Top = 61
|
||||
Width = 56
|
||||
Caption = 'Constraints'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 30
|
||||
Width = 64
|
||||
Caption = 'No. Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 64
|
||||
Width = 58
|
||||
Caption = 'No.Max.(<)'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 6
|
||||
Height = 14
|
||||
Top = 79
|
||||
Width = 54
|
||||
Caption = 'constraints'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 183
|
||||
Width = 57
|
||||
Caption = 'No. Min.(>)'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 5
|
||||
Height = 14
|
||||
Top = 201
|
||||
Width = 54
|
||||
Caption = 'constraints'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 5
|
||||
Height = 14
|
||||
Top = 293
|
||||
Width = 66
|
||||
Caption = 'No. Equal (=)'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label10: TLabel
|
||||
Left = 4
|
||||
Height = 14
|
||||
Top = 310
|
||||
Width = 54
|
||||
Caption = 'constraints'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label11: TLabel
|
||||
Left = 120
|
||||
Height = 14
|
||||
Top = 409
|
||||
Width = 80
|
||||
Caption = 'General Results:'
|
||||
ParentColor = False
|
||||
end
|
||||
object FileNameEdit: TEdit
|
||||
Left = 37
|
||||
Height = 15
|
||||
Top = 1
|
||||
Width = 675
|
||||
TabOrder = 0
|
||||
Text = 'FileNameEdit'
|
||||
end
|
||||
object ObjectiveGrid: TStringGrid
|
||||
Left = 143
|
||||
Height = 30
|
||||
Top = 42
|
||||
Width = 570
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
object MaxGrid: TStringGrid
|
||||
Left = 143
|
||||
Height = 98
|
||||
Top = 80
|
||||
Width = 571
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
TabOrder = 2
|
||||
end
|
||||
object MinGrid: TStringGrid
|
||||
Left = 143
|
||||
Height = 100
|
||||
Top = 186
|
||||
Width = 570
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
TabOrder = 3
|
||||
end
|
||||
object EqualGrid: TStringGrid
|
||||
Left = 143
|
||||
Height = 99
|
||||
Top = 295
|
||||
Width = 569
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
TabOrder = 4
|
||||
end
|
||||
object MaxConstraintsGrid: TStringGrid
|
||||
Left = 72
|
||||
Height = 94
|
||||
Top = 82
|
||||
Width = 65
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
ScrollBars = ssNone
|
||||
TabOrder = 5
|
||||
end
|
||||
object MinConstraintsGrid: TStringGrid
|
||||
Left = 71
|
||||
Height = 98
|
||||
Top = 185
|
||||
Width = 66
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
ScrollBars = ssNone
|
||||
TabOrder = 6
|
||||
end
|
||||
object EqualConstraintsGrid: TStringGrid
|
||||
Left = 72
|
||||
Height = 98
|
||||
Top = 294
|
||||
Width = 64
|
||||
ColCount = 1
|
||||
RowCount = 1
|
||||
ScrollBars = ssNone
|
||||
TabOrder = 7
|
||||
end
|
||||
object NoVarsEdit: TEdit
|
||||
Left = 71
|
||||
Height = 22
|
||||
Top = 21
|
||||
Width = 62
|
||||
OnExit = NoVarsEditExit
|
||||
OnKeyPress = NoVarsEditKeyPress
|
||||
TabOrder = 8
|
||||
Text = 'NoVarsEdit'
|
||||
end
|
||||
object NoMaxEdit: TEdit
|
||||
Left = 4
|
||||
Height = 18
|
||||
Top = 97
|
||||
Width = 59
|
||||
OnExit = NoMaxEditExit
|
||||
OnKeyPress = NoMaxEditKeyPress
|
||||
TabOrder = 9
|
||||
Text = 'NoMaxEdit'
|
||||
end
|
||||
object NoMinEdit: TEdit
|
||||
Left = 5
|
||||
Height = 19
|
||||
Top = 216
|
||||
Width = 59
|
||||
OnExit = NoMinEditExit
|
||||
OnKeyPress = NoMinEditKeyPress
|
||||
TabOrder = 10
|
||||
Text = 'NoMinEdit'
|
||||
end
|
||||
object NoEqualEdit: TEdit
|
||||
Left = 4
|
||||
Height = 16
|
||||
Top = 327
|
||||
Width = 59
|
||||
OnExit = NoEqualEditExit
|
||||
OnKeyPress = NoEqualEditKeyPress
|
||||
TabOrder = 11
|
||||
Text = 'NoEqualEdit'
|
||||
end
|
||||
object MinMaxGrp: TRadioGroup
|
||||
Left = 5
|
||||
Height = 65
|
||||
Top = 407
|
||||
Width = 95
|
||||
AutoFill = True
|
||||
Caption = 'Min/Max'
|
||||
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 = 47
|
||||
ClientWidth = 91
|
||||
Items.Strings = (
|
||||
'Maximize'
|
||||
'Minimize'
|
||||
)
|
||||
TabOrder = 12
|
||||
end
|
||||
object ResultsEdit: TEdit
|
||||
Left = 202
|
||||
Height = 18
|
||||
Top = 405
|
||||
Width = 508
|
||||
TabOrder = 13
|
||||
Text = 'ResultsEdit'
|
||||
end
|
||||
object LoadBtn: TButton
|
||||
Left = 184
|
||||
Height = 26
|
||||
Top = 439
|
||||
Width = 79
|
||||
Caption = 'Load File'
|
||||
OnClick = LoadBtnClick
|
||||
TabOrder = 14
|
||||
end
|
||||
object SaveBtn: TButton
|
||||
Left = 272
|
||||
Height = 26
|
||||
Top = 440
|
||||
Width = 79
|
||||
Caption = 'Save File'
|
||||
OnClick = SaveBtnClick
|
||||
TabOrder = 15
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 368
|
||||
Height = 27
|
||||
Top = 440
|
||||
Width = 76
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 16
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 456
|
||||
Height = 27
|
||||
Top = 440
|
||||
Width = 76
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 17
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 544
|
||||
Height = 27
|
||||
Top = 440
|
||||
Width = 76
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 18
|
||||
end
|
||||
object ExitBtn: TButton
|
||||
Left = 632
|
||||
Height = 27
|
||||
Top = 439
|
||||
Width = 76
|
||||
Caption = 'EXIT'
|
||||
ModalResult = 1
|
||||
OnClick = ExitBtnClick
|
||||
TabOrder = 19
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
left = 112
|
||||
top = 436
|
||||
end
|
||||
object SaveDialog1: TSaveDialog
|
||||
left = 144
|
||||
top = 435
|
||||
end
|
||||
end
|
||||
77
applications/lazstats/source_orig/linprounit.lrs
Normal file
77
applications/lazstats/source_orig/linprounit.lrs
Normal file
@ -0,0 +1,77 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLinProFrm','FORMDATA',[
|
||||
'TPF0'#10'TLinProFrm'#9'LinProFrm'#4'Left'#2'j'#6'Height'#3#227#1#3'Top'#2'\'
|
||||
+#5'Width'#3#228#2#7'Caption'#6'*Linear Programming Using Min/Max Algorithm'
|
||||
+#12'ClientHeight'#3#227#1#11'ClientWidth'#3#228#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#3#5'Width'#2#26#7'Caption'#6#5'FILE:'#11'ParentColor'#8#0#0#6'TLabel'
|
||||
+#6'Label2'#4'Left'#3#144#0#6'Height'#2#14#3'Top'#2#24#5'Width'#2'/'#7'Captio'
|
||||
+'n'#6#9'Objective'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'H'#6
|
||||
+'Height'#2#14#3'Top'#2'='#5'Width'#2'8'#7'Caption'#6#11'Constraints'#11'Pare'
|
||||
+'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#7#6'Height'#2#14#3'Top'#2#30#5
|
||||
+'Width'#2'@'#7'Caption'#6#13'No. Variables'#11'ParentColor'#8#0#0#6'TLabel'#6
|
||||
+'Label5'#4'Left'#2#7#6'Height'#2#14#3'Top'#2'@'#5'Width'#2':'#7'Caption'#6#10
|
||||
+'No.Max.(<)'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2#6#6'Height'
|
||||
+#2#14#3'Top'#2'O'#5'Width'#2'6'#7'Caption'#6#11'constraints'#11'ParentColor'
|
||||
+#8#0#0#6'TLabel'#6'Label7'#4'Left'#2#7#6'Height'#2#14#3'Top'#3#183#0#5'Width'
|
||||
+#2'9'#7'Caption'#6#11'No. Min.(>)'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'
|
||||
+#4'Left'#2#5#6'Height'#2#14#3'Top'#3#201#0#5'Width'#2'6'#7'Caption'#6#11'con'
|
||||
+'straints'#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4'Left'#2#5#6'Height'#2
|
||||
+#14#3'Top'#3'%'#1#5'Width'#2'B'#7'Caption'#6#13'No. Equal (=)'#11'ParentColo'
|
||||
+'r'#8#0#0#6'TLabel'#7'Label10'#4'Left'#2#4#6'Height'#2#14#3'Top'#3'6'#1#5'Wi'
|
||||
+'dth'#2'6'#7'Caption'#6#11'constraints'#11'ParentColor'#8#0#0#6'TLabel'#7'La'
|
||||
+'bel11'#4'Left'#2'x'#6'Height'#2#14#3'Top'#3#153#1#5'Width'#2'P'#7'Caption'#6
|
||||
+#16'General Results:'#11'ParentColor'#8#0#0#5'TEdit'#12'FileNameEdit'#4'Left'
|
||||
+#2'%'#6'Height'#2#15#3'Top'#2#1#5'Width'#3#163#2#8'TabOrder'#2#0#4'Text'#6#12
|
||||
+'FileNameEdit'#0#0#11'TStringGrid'#13'ObjectiveGrid'#4'Left'#3#143#0#6'Heigh'
|
||||
+'t'#2#30#3'Top'#2'*'#5'Width'#3':'#2#8'ColCount'#2#1#8'RowCount'#2#1#8'TabOr'
|
||||
+'der'#2#1#0#0#11'TStringGrid'#7'MaxGrid'#4'Left'#3#143#0#6'Height'#2'b'#3'To'
|
||||
+'p'#2'P'#5'Width'#3';'#2#8'ColCount'#2#1#8'RowCount'#2#1#8'TabOrder'#2#2#0#0
|
||||
+#11'TStringGrid'#7'MinGrid'#4'Left'#3#143#0#6'Height'#2'd'#3'Top'#3#186#0#5
|
||||
+'Width'#3':'#2#8'ColCount'#2#1#8'RowCount'#2#1#8'TabOrder'#2#3#0#0#11'TStrin'
|
||||
+'gGrid'#9'EqualGrid'#4'Left'#3#143#0#6'Height'#2'c'#3'Top'#3''''#1#5'Width'#3
|
||||
+'9'#2#8'ColCount'#2#1#8'RowCount'#2#1#8'TabOrder'#2#4#0#0#11'TStringGrid'#18
|
||||
+'MaxConstraintsGrid'#4'Left'#2'H'#6'Height'#2'^'#3'Top'#2'R'#5'Width'#2'A'#8
|
||||
+'ColCount'#2#1#8'RowCount'#2#1#10'ScrollBars'#7#6'ssNone'#8'TabOrder'#2#5#0#0
|
||||
+#11'TStringGrid'#18'MinConstraintsGrid'#4'Left'#2'G'#6'Height'#2'b'#3'Top'#3
|
||||
+#185#0#5'Width'#2'B'#8'ColCount'#2#1#8'RowCount'#2#1#10'ScrollBars'#7#6'ssNo'
|
||||
+'ne'#8'TabOrder'#2#6#0#0#11'TStringGrid'#20'EqualConstraintsGrid'#4'Left'#2
|
||||
+'H'#6'Height'#2'b'#3'Top'#3'&'#1#5'Width'#2'@'#8'ColCount'#2#1#8'RowCount'#2
|
||||
+#1#10'ScrollBars'#7#6'ssNone'#8'TabOrder'#2#7#0#0#5'TEdit'#10'NoVarsEdit'#4
|
||||
+'Left'#2'G'#6'Height'#2#22#3'Top'#2#21#5'Width'#2'>'#6'OnExit'#7#14'NoVarsEd'
|
||||
+'itExit'#10'OnKeyPress'#7#18'NoVarsEditKeyPress'#8'TabOrder'#2#8#4'Text'#6#10
|
||||
+'NoVarsEdit'#0#0#5'TEdit'#9'NoMaxEdit'#4'Left'#2#4#6'Height'#2#18#3'Top'#2'a'
|
||||
+#5'Width'#2';'#6'OnExit'#7#13'NoMaxEditExit'#10'OnKeyPress'#7#17'NoMaxEditKe'
|
||||
+'yPress'#8'TabOrder'#2#9#4'Text'#6#9'NoMaxEdit'#0#0#5'TEdit'#9'NoMinEdit'#4
|
||||
+'Left'#2#5#6'Height'#2#19#3'Top'#3#216#0#5'Width'#2';'#6'OnExit'#7#13'NoMinE'
|
||||
+'ditExit'#10'OnKeyPress'#7#17'NoMinEditKeyPress'#8'TabOrder'#2#10#4'Text'#6#9
|
||||
+'NoMinEdit'#0#0#5'TEdit'#11'NoEqualEdit'#4'Left'#2#4#6'Height'#2#16#3'Top'#3
|
||||
+'G'#1#5'Width'#2';'#6'OnExit'#7#15'NoEqualEditExit'#10'OnKeyPress'#7#19'NoEq'
|
||||
+'ualEditKeyPress'#8'TabOrder'#2#11#4'Text'#6#11'NoEqualEdit'#0#0#11'TRadioGr'
|
||||
+'oup'#9'MinMaxGrp'#4'Left'#2#5#6'Height'#2'A'#3'Top'#3#151#1#5'Width'#2'_'#8
|
||||
+'AutoFill'#9#7'Caption'#6#7'Min/Max'#28'ChildSizing.LeftRightSpacing'#2#6#28
|
||||
+'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'cr'
|
||||
+'sHomogenousChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousC'
|
||||
+'hildResize'#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildS'
|
||||
+'izing.ShrinkVertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclL'
|
||||
+'eftToRightThenTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#12'ClientHei'
|
||||
+'ght'#2'/'#11'ClientWidth'#2'['#13'Items.Strings'#1#6#8'Maximize'#6#8'Minimi'
|
||||
+'ze'#0#8'TabOrder'#2#12#0#0#5'TEdit'#11'ResultsEdit'#4'Left'#3#202#0#6'Heigh'
|
||||
+'t'#2#18#3'Top'#3#149#1#5'Width'#3#252#1#8'TabOrder'#2#13#4'Text'#6#11'Resul'
|
||||
+'tsEdit'#0#0#7'TButton'#7'LoadBtn'#4'Left'#3#184#0#6'Height'#2#26#3'Top'#3
|
||||
+#183#1#5'Width'#2'O'#7'Caption'#6#9'Load File'#7'OnClick'#7#12'LoadBtnClick'
|
||||
+#8'TabOrder'#2#14#0#0#7'TButton'#7'SaveBtn'#4'Left'#3#16#1#6'Height'#2#26#3
|
||||
+'Top'#3#184#1#5'Width'#2'O'#7'Caption'#6#9'Save File'#7'OnClick'#7#12'SaveBt'
|
||||
+'nClick'#8'TabOrder'#2#15#0#0#7'TButton'#8'ResetBtn'#4'Left'#3'p'#1#6'Height'
|
||||
+#2#27#3'Top'#3#184#1#5'Width'#2'L'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'Res'
|
||||
,'etBtnClick'#8'TabOrder'#2#16#0#0#7'TButton'#9'CancelBtn'#4'Left'#3#200#1#6
|
||||
+'Height'#2#27#3'Top'#3#184#1#5'Width'#2'L'#7'Caption'#6#6'Cancel'#11'ModalRe'
|
||||
+'sult'#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#17#0#0#7'TButton'#10
|
||||
+'ComputeBtn'#4'Left'#3' '#2#6'Height'#2#27#3'Top'#3#184#1#5'Width'#2'L'#7'Ca'
|
||||
+'ption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#18#0#0#7
|
||||
+'TButton'#7'ExitBtn'#4'Left'#3'x'#2#6'Height'#2#27#3'Top'#3#183#1#5'Width'#2
|
||||
+'L'#7'Caption'#6#4'EXIT'#11'ModalResult'#2#1#7'OnClick'#7#12'ExitBtnClick'#8
|
||||
+'TabOrder'#2#19#0#0#11'TOpenDialog'#11'OpenDialog1'#4'left'#2'p'#3'top'#3#180
|
||||
+#1#0#0#11'TSaveDialog'#11'SaveDialog1'#4'left'#3#144#0#3'top'#3#179#1#0#0#0
|
||||
]);
|
||||
699
applications/lazstats/source_orig/linprounit.pas
Normal file
699
applications/lazstats/source_orig/linprounit.pas
Normal file
@ -0,0 +1,699 @@
|
||||
unit LinProUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Grids, ExtCtrls, OutPutUnit, Globals;
|
||||
|
||||
type
|
||||
|
||||
{ TLinProFrm }
|
||||
|
||||
TLinProFrm = class(TForm)
|
||||
ExitBtn: TButton;
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
LoadBtn: TButton;
|
||||
SaveBtn: TButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
ResultsEdit: TEdit;
|
||||
Label11: TLabel;
|
||||
NoEqualEdit: TEdit;
|
||||
Label10: TLabel;
|
||||
Label9: TLabel;
|
||||
NoMinEdit: TEdit;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
NoMaxEdit: TEdit;
|
||||
Label5: TLabel;
|
||||
Label6: TLabel;
|
||||
NoVarsEdit: TEdit;
|
||||
FileNameEdit: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
ObjectiveGrid: TStringGrid;
|
||||
MaxGrid: TStringGrid;
|
||||
MinGrid: TStringGrid;
|
||||
EqualGrid: TStringGrid;
|
||||
MaxConstraintsGrid: TStringGrid;
|
||||
MinConstraintsGrid: TStringGrid;
|
||||
EqualConstraintsGrid: TStringGrid;
|
||||
MinMaxGrp: TRadioGroup;
|
||||
SaveDialog1: TSaveDialog;
|
||||
procedure CancelBtnClick(Sender: TObject);
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure ExitBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure LoadBtnClick(Sender: TObject);
|
||||
procedure NoEqualEditExit(Sender: TObject);
|
||||
procedure NoEqualEditKeyPress(Sender: TObject; var Key: char);
|
||||
procedure NoMaxEditExit(Sender: TObject);
|
||||
procedure NoMaxEditKeyPress(Sender: TObject; var Key: char);
|
||||
procedure NoMinEditExit(Sender: TObject);
|
||||
procedure NoMinEditKeyPress(Sender: TObject; var Key: char);
|
||||
procedure NoVarsEditExit(Sender: TObject);
|
||||
procedure NoVarsEditKeyPress(Sender: TObject; var Key: char);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure SaveBtnClick(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
NoVars, NoMax, NoMin, NoEql, MinMax, NoCoefs : integer;
|
||||
Objective : DblDyneVec;
|
||||
MaxConstraints : DblDyneVec;
|
||||
MinConstraints : DblDyneVec;
|
||||
EqlConstraints : DblDyneVec;
|
||||
Coefficients : DblDyneMat;
|
||||
|
||||
PROCEDURE simplx(VAR a: DblDyneMat; m,n,mp,np,m1,m2,m3: integer;
|
||||
VAR icase: integer; VAR izrov: IntDyneVec;
|
||||
VAR iposv: IntDyneVec);
|
||||
PROCEDURE simp1(VAR a: DblDyneMat; mp,np,mm: integer;
|
||||
ll: IntDyneVec; nll,iabf: integer;
|
||||
VAR kp: integer; VAR bmax: double);
|
||||
PROCEDURE simp2(VAR a: DblDyneMat; m,n,mp,np: integer;
|
||||
l2: IntDyneVec; nl2: integer; VAR ip: integer;
|
||||
kp: integer; VAR q1: double);
|
||||
PROCEDURE simp3(VAR a: DblDyneMat; mp,np,i1,k1,ip,kp: integer);
|
||||
procedure LoadArrayData(Sender: TObject);
|
||||
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LinProFrm: TLinProFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TLinProFrm }
|
||||
|
||||
procedure TLinProFrm.ResetBtnClick(Sender: TObject);
|
||||
begin
|
||||
NoVarsEdit.Text := '0';
|
||||
NoMaxEdit.Text := '';
|
||||
NoMinEdit.Text := '';
|
||||
NoEqualEdit.Text := '';
|
||||
MinMaxGrp.ItemIndex := 0;
|
||||
FileNameEdit.Text := '';
|
||||
MaxConstraintsGrid.RowCount := 1;
|
||||
MaxConstraintsGrid.ColCount := 1;
|
||||
MaxConstraintsGrid.Cells[0,0] := '';
|
||||
MinConstraintsGrid.RowCount := 1;
|
||||
MinConstraintsGrid.ColCount := 1;
|
||||
MinConstraintsGrid.Cells[0,0] := '';
|
||||
EqualConstraintsGrid.RowCount := 1;
|
||||
EqualConstraintsGrid.ColCount := 1;
|
||||
EqualConstraintsGrid.Cells[0,0] := '';
|
||||
ObjectiveGrid.RowCount := 1;
|
||||
ObjectiveGrid.ColCount := 1;
|
||||
ObjectiveGrid.Cells[0,0] := '';
|
||||
MaxGrid.RowCount := 1;
|
||||
MaxGrid.ColCount := 1;
|
||||
MaxGrid.Cells[0,0] := '';
|
||||
MinGrid.RowCount := 1;
|
||||
MinGrid.ColCount := 1;
|
||||
MinGrid.Cells[0,0] := '';
|
||||
EqualGrid.RowCount := 1;
|
||||
EqualGrid.ColCount := 1;
|
||||
EqualGrid.Cells[0,0] := '';
|
||||
ResultsEdit.Text := '';
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.SaveBtnClick(Sender: TObject);
|
||||
var
|
||||
F : TextFile;
|
||||
i, j : integer;
|
||||
FName : string;
|
||||
begin
|
||||
LoadArrayData(Self);
|
||||
SaveDialog1.DefaultExt := 'LPR';
|
||||
SaveDialog1.Filter := 'Linear Programming File (*.LPR)|*.LPR|All Files (*.*)|*.*';
|
||||
SaveDialog1.FilterIndex := 1;
|
||||
if SaveDialog1.Execute then
|
||||
begin
|
||||
FName := SaveDialog1.FileName;
|
||||
AssignFile(F,FName);
|
||||
Rewrite(F);
|
||||
writeln(F,NoVars);
|
||||
writeln(F,NoMax);
|
||||
writeln(F,NoMin);
|
||||
writeln(F,NoEql);
|
||||
writeln(F,MinMax);
|
||||
NoCoefs := NoMax + NoMin + NoEql;
|
||||
for i := 1 to NoVars do writeln(F,Objective[i]);
|
||||
for i := 1 to NoMax do writeln(F,MaxConstraints[i]);
|
||||
for i := 1 to NoMin do writeln(F,MinConstraints[i]);
|
||||
for i := 1 to NoEql do writeln(F,EqlConstraints[i]);
|
||||
for i := 1 to NoCoefs do
|
||||
for j := 1 to NoVars do writeln(F,Coefficients[i,j]);
|
||||
CloseFile(F);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(Self);
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.LoadBtnClick(Sender: TObject);
|
||||
var
|
||||
i, j : integer;
|
||||
FName : string;
|
||||
F : TextFile;
|
||||
begin
|
||||
// load values
|
||||
OpenDialog1.DefaultExt := 'LPR';
|
||||
OpenDialog1.Filter := 'Linear Programming File (*.LPR)|*.LPR|All Files (*.*)|*.*';
|
||||
OpenDialog1.FilterIndex := 1;
|
||||
if OpenDialog1.Execute then
|
||||
begin
|
||||
FName := OpenDialog1.FileName;
|
||||
AssignFile(F,FName);
|
||||
FileMode := 0; {Set file access to read only }
|
||||
Reset(F);
|
||||
readln(F,NoVars);
|
||||
readln(F,NoMax);
|
||||
readln(F,NoMin);
|
||||
readln(F,NoEql);
|
||||
readln(F,MinMax);
|
||||
NoCoefs := NoMax + NoMin + NoEql;
|
||||
|
||||
// allocate space
|
||||
SetLength(Objective,NoVars + 1);
|
||||
SetLength(MaxConstraints,NoMax + 1);
|
||||
SetLength(MinConstraints,NoMin + 1);
|
||||
SetLength(EqlConstraints,NoEql+1);
|
||||
SetLength(Coefficients,NoCoefs+1,NoVars+1);
|
||||
|
||||
for i := 1 to NoVars do readln(F,Objective[i]);
|
||||
for i := 1 to NoMax do readln(F,MaxConstraints[i]);
|
||||
for i := 1 to NoMin do readln(F,MinConstraints[i]);
|
||||
for i := 1 to NoEql do readln(F,EqlConstraints[i]);
|
||||
for i := 1 to NoCoefs do
|
||||
for j := 1 to NoVars do readln(F,Coefficients[i,j]);
|
||||
CloseFile(F);
|
||||
end;
|
||||
// GetFileData(FName);
|
||||
FileNameEdit.Text := FName;
|
||||
NoVarsEdit.Text := IntToStr(NoVars);
|
||||
NoMaxEdit.Text := IntToStr(NoMax);
|
||||
NoMinEdit.Text := IntToStr(NoMin);
|
||||
NoEqualEdit.Text := IntToStr(NoEql);
|
||||
MinMaxGrp.ItemIndex := MinMax;
|
||||
MaxConstraintsGrid.RowCount := NoMax;
|
||||
MinConstraintsGrid.RowCount := NoMin;
|
||||
EqualConstraintsGrid.RowCount := NoEql;
|
||||
ObjectiveGrid.ColCount := NoVars;
|
||||
MaxGrid.RowCount := NoMax;
|
||||
MaxGrid.ColCount := NoVars;
|
||||
MinGrid.RowCount := NoMin;
|
||||
MinGrid.ColCount := NoVars;
|
||||
EqualGrid.RowCount := NoEql;
|
||||
EqualGrid.ColCount := NoVars;
|
||||
|
||||
// Place objectives in grid
|
||||
for i := 1 to NoVars do
|
||||
ObjectiveGrid.Cells[i-1,0] := FloatToStr(Objective[i]);
|
||||
|
||||
// Place Maximum constraints in grid
|
||||
for i := 1 to NoMax do
|
||||
begin
|
||||
MaxConstraintsGrid.Cells[0,i-1] := FloatToStr(MaxConstraints[i]);
|
||||
for j := 1 to NoVars do MaxGrid.Cells[j-1,i-1] := FloatToStr(Coefficients[i,j]);
|
||||
end;
|
||||
|
||||
// Place Minimum constraints in grid
|
||||
for i := 1 to NoMin do
|
||||
begin
|
||||
MinConstraintsGrid.Cells[0,i-1] := FloatToStr(MinConstraints[i]);
|
||||
for j := 1 to NoVars do
|
||||
MinGrid.Cells[j-1,i-1] := FloatToStr(Coefficients[NoMax+i,j]);
|
||||
END;
|
||||
|
||||
// Place Equal constraints in grid
|
||||
for i := 1 to NoEql do
|
||||
begin
|
||||
EqualConstraintsGrid.Cells[0,i-1] := FloatToStr(EqlConstraints[i]);
|
||||
for j := 1 to NoVars do
|
||||
EqualGrid.Cells[j-1,i-1] := FloatToStr(Coefficients[NoMax+NoMin+i,j]);
|
||||
end;
|
||||
ComputeBtn.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.CancelBtnClick(Sender: TObject);
|
||||
begin
|
||||
LinProFrm.Coefficients := nil;
|
||||
LinProFrm.EqlConstraints := nil;
|
||||
LinProFrm.MinConstraints := nil;
|
||||
LinProFrm.MaxConstraints := nil;
|
||||
LinProFrm.Objective := nil;
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.ComputeBtnClick(Sender: TObject);
|
||||
var
|
||||
m1, m2, m3, m, mp, n, np, nm1m2 : integer;
|
||||
i,icase,j : integer;
|
||||
izrov : IntDyneVec;
|
||||
iposv : IntDyneVec;
|
||||
a : DblDyneMat;
|
||||
txt : StrDyneVec;
|
||||
outline : string;
|
||||
|
||||
begin
|
||||
n := NoVars;
|
||||
m1 := NoMax;
|
||||
m2 := NoMin;
|
||||
m3 := NoEql;
|
||||
m := m1 + m2 + m3;
|
||||
np := n+1; (* np >= n+1 *)
|
||||
mp := m + 2; (* mp >= m+2 *)
|
||||
nm1m2 := n + m1 + m2; (* nm1m2=n+m1+m2 *)
|
||||
SetLength(izrov,n+1);
|
||||
SetLength(iposv,m+1);
|
||||
SetLength(a,mp+1,np+1);
|
||||
SetLength(txt,nm1m2+1);
|
||||
|
||||
// Initialize labels
|
||||
for i := 1 to NoVars do txt[i] := 'X' + IntToStr(i);
|
||||
for i := NoVars + 1 to nm1m2 do txt[i] := 'Y' + IntToStr(i-NoVars);
|
||||
|
||||
// Fill array data from grid
|
||||
LoadArrayData(Self);
|
||||
for i := 1 to NoVars do a[1,i+1] := Objective[i];
|
||||
a[1,1] := 0.0;
|
||||
for i := 1 to NoMax do
|
||||
begin
|
||||
a[i+1,1] := MaxConstraints[i];
|
||||
for j := 1 to NoVars do a[i+1,j+1] := coefficients[i,j];
|
||||
end;
|
||||
for i := 1 to NoMin do
|
||||
begin
|
||||
a[i+1+NoMax,1] := MinConstraints[i];
|
||||
for j := 1 to NoVars do a[i+1+NoMax,j+1] := Coefficients[i+NoMax,j];
|
||||
end;
|
||||
for i := 1 to NoEql do
|
||||
begin
|
||||
a[i+1+NoMax+NoMin,1] := EqlConstraints[i];
|
||||
for j := 1 to NoVars do
|
||||
a[i+1+NoMax+NoMin,j+1] := coefficients[i+NoMax+NoMin,j];
|
||||
end;
|
||||
if MinMaxGrp.ItemIndex = 1 then
|
||||
begin
|
||||
MinMax := 1;
|
||||
for i := 1 to NoVars do a[1,i+1] := -1.0 * a[1,i+1];
|
||||
end;
|
||||
|
||||
// Do analysis
|
||||
simplx(a,m,n,mp,np,m1,m2,m3,icase,izrov,iposv);
|
||||
if MinMax = 1 then a[1,1] := -a[1,1];
|
||||
|
||||
// Report results
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
OutPutFrm.RichEdit.Lines.Add('Linear Programming Results');
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
|
||||
|
||||
outline := '';
|
||||
IF (icase = 1) THEN
|
||||
BEGIN
|
||||
ResultsEdit.Text := 'Unbounded objective function.';
|
||||
OutPutFrm.RichEdit.Lines.Add('Unbounded object function.')
|
||||
END
|
||||
ELSE IF (icase = -1) THEN
|
||||
BEGIN
|
||||
ResultsEdit.Text := 'No solutions satisfy constraints given.';
|
||||
OutPutFrm.RichEdit.Lines.Add('No solutions satisfy constraints given')
|
||||
END ELSE
|
||||
BEGIN
|
||||
ResultsEdit.Text := 'Solution found.';
|
||||
outline := ' ';
|
||||
FOR i := 1 to n DO
|
||||
BEGIN
|
||||
IF (izrov[i] <= nm1m2) THEN
|
||||
BEGIN
|
||||
outline := outline + format('%10s',[txt[izrov[i]]]);
|
||||
END;
|
||||
END;
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
outline := '';
|
||||
FOR i := 1 to m+1 DO
|
||||
BEGIN
|
||||
IF (i > 1) THEN
|
||||
BEGIN
|
||||
outline := outline + format('%3s',[txt[iposv[i-1]]]);
|
||||
END
|
||||
ELSE BEGIN
|
||||
outline := outline + ' z';
|
||||
END;
|
||||
FOR j := 1 to (n+1) DO
|
||||
BEGIN
|
||||
IF (j=1) THEN
|
||||
outline := outline + format('%10.4f',[a[i,j]]);
|
||||
IF (j>1) THEN
|
||||
BEGIN
|
||||
IF (izrov[j-1] <= nm1m2) THEN
|
||||
outline := outline + format('%10.4f',[a[i,j]]);
|
||||
END;
|
||||
END;
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
outline := '';
|
||||
END;
|
||||
END;
|
||||
OutPutFrm.ShowModal;
|
||||
|
||||
// ShowOutPut(m1, m2, m3, m, n, icase, a, iposv, izrov, Self);
|
||||
|
||||
// cleanup
|
||||
txt := nil;
|
||||
a := nil;
|
||||
iposv := nil;
|
||||
izrov := nil;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.ExitBtnClick(Sender: TObject);
|
||||
begin
|
||||
LinProFrm.Coefficients := nil;
|
||||
LinProFrm.EqlConstraints := nil;
|
||||
LinProFrm.MinConstraints := nil;
|
||||
LinProFrm.MaxConstraints := nil;
|
||||
LinProFrm.Objective := nil;
|
||||
LinProFrm.Hide;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoEqualEditExit(Sender: TObject);
|
||||
VAR value : integer;
|
||||
begin
|
||||
value := StrToInt(NoEqualEdit.Text);
|
||||
if value = 0 then exit;
|
||||
EqualConstraintsGrid.RowCount := value;
|
||||
EqualGrid.RowCount := value;
|
||||
NoEql := value;
|
||||
SetLength(EqlConstraints,value + 1);
|
||||
NoCoefs := NoMax + NoMin + NoEql;
|
||||
SetLength(Coefficients,NoCoefs+1,NoVars+1);
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoEqualEditKeyPress(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if ord(Key) = 13 then ObjectiveGrid.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoMaxEditExit(Sender: TObject);
|
||||
VAR value : integer;
|
||||
begin
|
||||
value := StrToInt(NoMaxEdit.Text);
|
||||
if value = 0 then exit;
|
||||
MaxConstraintsGrid.RowCount := value;
|
||||
MaxGrid.RowCount := value;
|
||||
NoMax := value;
|
||||
SetLength(MaxConstraints,NoMax + 1);
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoMaxEditKeyPress(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if ord(Key) = 13 then NoMinEdit.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoMinEditExit(Sender: TObject);
|
||||
VAR value : integer;
|
||||
begin
|
||||
value := StrToInt(NoMinEdit.Text);
|
||||
if value = 0 then exit;
|
||||
MinConstraintsGrid.RowCount := value;
|
||||
MinGrid.RowCount := value;
|
||||
NoMin := value;
|
||||
SetLength(MinConstraints,NoMin + 1);
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoMinEditKeyPress(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if ord(Key) = 13 then NoEqualEdit.SetFocus;
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoVarsEditExit(Sender: TObject);
|
||||
var value : integer;
|
||||
begin
|
||||
value := StrToInt(NoVarsEdit.Text);
|
||||
if value = 0 then exit;
|
||||
ObjectiveGrid.ColCount := value;
|
||||
MaxGrid.ColCount := value;
|
||||
MinGrid.ColCount := value;
|
||||
EqualGrid.ColCount := value;
|
||||
NoVars := value;
|
||||
SetLength(Objective,NoVars + 1);
|
||||
end;
|
||||
|
||||
procedure TLinProFrm.NoVarsEditKeyPress(Sender: TObject; var Key: char);
|
||||
begin
|
||||
if ord(Key) = 13 then NoMaxEdit.SetFocus;
|
||||
end;
|
||||
|
||||
PROCEDURE TLinProFrm.simplx(VAR a: DblDyneMat; m,n,mp,np,m1,m2,m3: integer;
|
||||
VAR icase: integer; VAR izrov: IntDyneVec;
|
||||
VAR iposv: IntDyneVec);
|
||||
LABEL 1,2,10,20,30,99;
|
||||
CONST eps=1.0e-6;
|
||||
VAR
|
||||
nl2,nl1,m12,kp,kh,k,is1,ir,ip,i: integer;
|
||||
q1,bmax: double;
|
||||
l1: IntDyneVec;
|
||||
l2,l3: IntDyneVec;
|
||||
BEGIN
|
||||
setlength(l1,np+1);
|
||||
setlength(l2,mp + 1);
|
||||
setlength(l3,mp + 1);
|
||||
IF (m <> (m1+m2+m3)) THEN BEGIN
|
||||
writeln('pause in routine SIMPLX');
|
||||
writeln('bad input constraint counts'); readln
|
||||
END;
|
||||
nl1 := n;
|
||||
FOR k := 1 TO n DO BEGIN
|
||||
l1[k] := k;
|
||||
izrov[k] := k
|
||||
END;
|
||||
nl2 := m;
|
||||
FOR i := 1 TO m DO BEGIN
|
||||
IF (a[i+1,1] < 0.0) THEN BEGIN
|
||||
writeln('pause in routine SIMPLX');
|
||||
writeln('bad input tableau'); readln
|
||||
END;
|
||||
l2[i] := i;
|
||||
iposv[i] := n+i
|
||||
END;
|
||||
FOR i := 1 TO m2 DO BEGIN
|
||||
l3[i] := 1
|
||||
END;
|
||||
ir := 0;
|
||||
IF ((m2+m3) = 0) THEN GOTO 30;
|
||||
ir := 1;
|
||||
FOR k := 1 TO n+1 DO BEGIN
|
||||
q1 := 0.0;
|
||||
FOR i := m1+1 TO m DO BEGIN
|
||||
q1 := q1+a[i+1,k]
|
||||
END;
|
||||
a[m+2,k] := -q1
|
||||
END;
|
||||
10: simp1(a,mp,np,m+1,l1,nl1,0,kp,bmax);
|
||||
IF ((bmax <= eps) AND (a[m+2,1] < -eps)) THEN BEGIN
|
||||
icase := -1; GOTO 99 END
|
||||
ELSE IF ((bmax <= eps) AND (a[m+2,1] <= eps)) THEN BEGIN
|
||||
m12 := m1+m2+1;
|
||||
IF (m12 <= m) THEN BEGIN
|
||||
FOR ip := m12 TO m DO BEGIN
|
||||
IF (iposv[ip] = (ip+n)) THEN BEGIN
|
||||
simp1(a,mp,np,ip,l1,nl1,1,kp,bmax);
|
||||
IF (bmax > 0.0) THEN GOTO 1
|
||||
END
|
||||
END
|
||||
END;
|
||||
ir := 0;
|
||||
m12 := m12-1;
|
||||
IF ((m1+1) > m12) THEN GOTO 30;
|
||||
FOR i := m1+1 TO m12 DO BEGIN
|
||||
IF (l3[i-m1] = 1) THEN BEGIN
|
||||
FOR k := 1 TO n+1 DO BEGIN
|
||||
a[i+1,k] := -a[i+1,k]
|
||||
END
|
||||
END
|
||||
END;
|
||||
GOTO 30
|
||||
END;
|
||||
simp2(a,m,n,mp,np,l2,nl2,ip,kp,q1);
|
||||
IF (ip = 0) THEN BEGIN
|
||||
icase := -1; GOTO 99
|
||||
END;
|
||||
1: simp3(a,mp,np,m+1,n,ip,kp);
|
||||
IF (iposv[ip] >= (n+m1+m2+1)) THEN BEGIN
|
||||
FOR k := 1 TO nl1 DO BEGIN
|
||||
IF (l1[k] = kp) THEN GOTO 2
|
||||
END;
|
||||
2: nl1 := nl1-1;
|
||||
FOR is1 := k TO nl1 DO BEGIN
|
||||
l1[is1] := l1[is1+1]
|
||||
END
|
||||
END ELSE BEGIN
|
||||
IF (iposv[ip] < (n+m1+1)) THEN GOTO 20;
|
||||
kh := iposv[ip]-m1-n;
|
||||
IF (l3[kh] = 0) THEN GOTO 20;
|
||||
l3[kh] := 0
|
||||
END;
|
||||
a[m+2,kp+1] := a[m+2,kp+1]+1.0;
|
||||
FOR i := 1 TO m+2 DO BEGIN
|
||||
a[i,kp+1] := -a[i,kp+1]
|
||||
END;
|
||||
20: is1 := izrov[kp];
|
||||
izrov[kp] := iposv[ip];
|
||||
iposv[ip] := is1;
|
||||
IF (ir <> 0) THEN GOTO 10;
|
||||
30: simp1(a,mp,np,0,l1,nl1,0,kp,bmax);
|
||||
IF (bmax <= 0.0) THEN BEGIN
|
||||
icase := 0; GOTO 99
|
||||
END;
|
||||
simp2(a,m,n,mp,np,l2,nl2,ip,kp,q1);
|
||||
IF (ip = 0) THEN BEGIN
|
||||
icase := 1; GOTO 99
|
||||
END;
|
||||
simp3(a,mp,np,m,n,ip,kp);
|
||||
GOTO 20;
|
||||
99:
|
||||
l1 := nil;
|
||||
l2 := nil;
|
||||
l3 := nil;
|
||||
END;
|
||||
|
||||
|
||||
PROCEDURE TLinProFrm.simp1(VAR a: DblDyneMat; mp,np,mm: integer;
|
||||
ll: IntDyneVec; nll,iabf: integer;
|
||||
VAR kp: integer; VAR bmax: double);
|
||||
LABEL 99;
|
||||
VAR
|
||||
k: integer;
|
||||
test: real;
|
||||
BEGIN
|
||||
kp := ll[1];
|
||||
bmax := a[mm+1,kp+1];
|
||||
IF (nll < 2) THEN GOTO 99;
|
||||
FOR k := 2 TO nll DO BEGIN
|
||||
IF (iabf = 0) THEN BEGIN
|
||||
test := a[mm+1,ll[k]+1]-bmax
|
||||
END ELSE BEGIN
|
||||
test := abs(a[mm+1,ll[k]+1])-abs(bmax)
|
||||
END;
|
||||
IF (test > 0.0) THEN BEGIN
|
||||
bmax := a[mm+1,ll[k]+1];
|
||||
kp := ll[k]
|
||||
END
|
||||
END;
|
||||
99: END;
|
||||
|
||||
|
||||
PROCEDURE TLinProFrm.simp2(VAR a: DblDyneMat; m,n,mp,np: integer;
|
||||
l2: IntDyneVec; nl2: integer; VAR ip: integer;
|
||||
kp: integer; VAR q1: double);
|
||||
LABEL 2,6,99;
|
||||
VAR
|
||||
k,ii,i: integer;
|
||||
qp,q0,q: double;
|
||||
BEGIN
|
||||
ip := 0;
|
||||
IF (nl2 < 1) THEN GOTO 99;
|
||||
FOR i := 1 TO nl2 DO BEGIN
|
||||
IF (a[l2[i]+1,kp+1] < 0.0) THEN GOTO 2
|
||||
END;
|
||||
GOTO 99;
|
||||
2: q1 := -a[l2[i]+1,1]/a[l2[i]+1,kp+1];
|
||||
ip := l2[i];
|
||||
IF ((i+1) > nl2) THEN GOTO 99;
|
||||
FOR i := i+1 TO nl2 DO BEGIN
|
||||
ii := l2[i];
|
||||
IF (a[ii+1,kp+1] < 0.0) THEN BEGIN
|
||||
q := -a[ii+1,1]/a[ii+1,kp+1];
|
||||
IF (q < q1) THEN BEGIN
|
||||
ip := ii;
|
||||
q1 := q
|
||||
END ELSE IF (q = q1) THEN BEGIN
|
||||
FOR k := 1 TO n DO BEGIN
|
||||
qp := -a[ip+1,k+1]/a[ip+1,kp+1];
|
||||
q0 := -a[ii+1,k+1]/a[ii+1,kp+1];
|
||||
IF (q0 <> qp) THEN GOTO 6
|
||||
END;
|
||||
6: IF (q0 < qp) THEN ip := ii
|
||||
END
|
||||
END
|
||||
END;
|
||||
99:
|
||||
end;
|
||||
|
||||
|
||||
PROCEDURE TLinProFrm.simp3(VAR a: DblDyneMat; mp,np,i1,k1,ip,kp: integer);
|
||||
(* Programs using routine SIMP3 must define the type
|
||||
TYPE
|
||||
glmpbynp = ARRAY [1..mp,1..np] OF real;
|
||||
in the main routine. *)
|
||||
VAR
|
||||
kk,ii: integer;
|
||||
piv: double;
|
||||
BEGIN
|
||||
piv := 1.0/a[ip+1,kp+1];
|
||||
IF (i1 >= 0) THEN BEGIN
|
||||
FOR ii := 1 TO (i1+1) DO BEGIN
|
||||
IF ((ii-1) <> ip) THEN BEGIN
|
||||
a[ii,kp+1] := a[ii,kp+1]*piv;
|
||||
FOR kk := 1 TO k1+1 DO BEGIN
|
||||
IF ((kk-1) <> kp) THEN BEGIN
|
||||
a[ii,kk] := a[ii,kk]
|
||||
-a[ip+1,kk]*a[ii,kp+1]
|
||||
END
|
||||
END
|
||||
END
|
||||
END
|
||||
END;
|
||||
FOR kk := 1 TO k1+1 DO BEGIN
|
||||
IF ((kk-1) <> kp) THEN a[ip+1,kk] := -a[ip+1,kk]*piv
|
||||
END;
|
||||
a[ip+1,kp+1] := piv
|
||||
END;
|
||||
|
||||
|
||||
procedure TLinProFrm.LoadArrayData(Sender: TObject);
|
||||
var
|
||||
i, j : integer;
|
||||
begin
|
||||
// load objectives
|
||||
for i := 1 to NoVars do Objective[i] := StrToFloat(ObjectiveGrid.Cells[i-1,0]);
|
||||
|
||||
// load constraints
|
||||
for i := 1 to NoMax do
|
||||
begin
|
||||
MaxConstraints[i] := StrToFloat(MaxConstraintsGrid.Cells[0,i-1]);
|
||||
for j := 1 to NoVars do coefficients[i,j] := StrToFloat(MaxGrid.Cells[j-1,i-1]);
|
||||
end;
|
||||
for i := 1 to NoMin do
|
||||
begin
|
||||
MinConstraints[i] := StrToFloat(MinConstraintsGrid.Cells[0,i-1]);
|
||||
for j := 1 to NoVars do coefficients[i+NoMax,j] := StrToFloat(MinGrid.Cells[j-1,i-1]);
|
||||
end;
|
||||
for i := 1 to NoEql do
|
||||
begin
|
||||
EqlConstraints[i] := StrToFloat(EqualConstraintsGrid.Cells[0,i-1]);
|
||||
for j := 1 to NoVars do coefficients[i+NoMax+NoMin,j] := StrToFloat(EqualGrid.Cells[j-1,i-1]);
|
||||
end;
|
||||
|
||||
// Set for minimization if requested
|
||||
if MinMaxGrp.ItemIndex = 1 then MinMax := 1;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
{$I linprounit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
190
applications/lazstats/source_orig/loanitunit.lfm
Normal file
190
applications/lazstats/source_orig/loanitunit.lfm
Normal file
@ -0,0 +1,190 @@
|
||||
object LoanItFrm: TLoanItFrm
|
||||
Left = 169
|
||||
Height = 247
|
||||
Top = 100
|
||||
Width = 400
|
||||
Caption = 'Loan Calculation and Amortization'
|
||||
ClientHeight = 247
|
||||
ClientWidth = 400
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Label1: TLabel
|
||||
Left = 14
|
||||
Height = 14
|
||||
Top = 88
|
||||
Width = 80
|
||||
Caption = 'Principal Amount'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 162
|
||||
Height = 14
|
||||
Top = 87
|
||||
Width = 163
|
||||
Caption = 'Annual Percentage Rate (APR %)'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 14
|
||||
Height = 14
|
||||
Top = 128
|
||||
Width = 81
|
||||
Caption = 'Number of years'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 162
|
||||
Height = 14
|
||||
Top = 128
|
||||
Width = 145
|
||||
Caption = 'Number of Payments Per Year'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 14
|
||||
Height = 14
|
||||
Top = 160
|
||||
Width = 61
|
||||
Caption = 'PAYMENT = '
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 9
|
||||
Width = 60
|
||||
Caption = 'Your Name: '
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 40
|
||||
Width = 91
|
||||
Caption = 'Current Month No.'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 144
|
||||
Height = 14
|
||||
Top = 40
|
||||
Width = 70
|
||||
Caption = 'Day of Month:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 256
|
||||
Height = 14
|
||||
Top = 40
|
||||
Width = 63
|
||||
Caption = 'Current Year'
|
||||
ParentColor = False
|
||||
end
|
||||
object AmountEdit: TEdit
|
||||
Left = 105
|
||||
Height = 21
|
||||
Top = 80
|
||||
Width = 43
|
||||
TabOrder = 0
|
||||
Text = 'AmountEdit'
|
||||
end
|
||||
object InterestEdit: TEdit
|
||||
Left = 329
|
||||
Height = 21
|
||||
Top = 80
|
||||
Width = 50
|
||||
TabOrder = 1
|
||||
Text = 'InterestEdit'
|
||||
end
|
||||
object YearsEdit: TEdit
|
||||
Left = 105
|
||||
Height = 21
|
||||
Top = 120
|
||||
Width = 44
|
||||
TabOrder = 2
|
||||
Text = 'YearsEdit'
|
||||
end
|
||||
object PayPerYrEdit: TEdit
|
||||
Left = 329
|
||||
Height = 21
|
||||
Top = 121
|
||||
Width = 51
|
||||
TabOrder = 3
|
||||
Text = 'PayPerYrEdit'
|
||||
end
|
||||
object RePayEdit: TEdit
|
||||
Left = 96
|
||||
Height = 21
|
||||
Top = 153
|
||||
Width = 95
|
||||
TabOrder = 4
|
||||
Text = 'RePayEdit'
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 14
|
||||
Height = 27
|
||||
Top = 200
|
||||
Width = 71
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object AmortizeBtn: TButton
|
||||
Left = 144
|
||||
Height = 27
|
||||
Top = 200
|
||||
Width = 80
|
||||
Caption = 'Compute'
|
||||
OnClick = AmortizeBtnClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 287
|
||||
Height = 27
|
||||
Top = 200
|
||||
Width = 90
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 7
|
||||
end
|
||||
object NameEdit: TEdit
|
||||
Left = 74
|
||||
Height = 21
|
||||
Top = 2
|
||||
Width = 137
|
||||
TabOrder = 8
|
||||
Text = 'NameEdit'
|
||||
end
|
||||
object MonthEdit: TEdit
|
||||
Left = 102
|
||||
Height = 21
|
||||
Top = 32
|
||||
Width = 31
|
||||
TabOrder = 9
|
||||
Text = 'MonthEdit'
|
||||
end
|
||||
object DayEdit: TEdit
|
||||
Left = 218
|
||||
Height = 21
|
||||
Top = 32
|
||||
Width = 29
|
||||
TabOrder = 10
|
||||
Text = 'DayEdit'
|
||||
end
|
||||
object YearEdit: TEdit
|
||||
Left = 326
|
||||
Height = 21
|
||||
Top = 30
|
||||
Width = 52
|
||||
TabOrder = 11
|
||||
Text = 'YearEdit'
|
||||
end
|
||||
object PrintChk: TCheckBox
|
||||
Left = 211
|
||||
Height = 17
|
||||
Top = 158
|
||||
Width = 170
|
||||
Caption = 'Print the Amortization Schedule'
|
||||
TabOrder = 12
|
||||
end
|
||||
end
|
||||
46
applications/lazstats/source_orig/loanitunit.lrs
Normal file
46
applications/lazstats/source_orig/loanitunit.lrs
Normal file
@ -0,0 +1,46 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLoanItFrm','FORMDATA',[
|
||||
'TPF0'#10'TLoanItFrm'#9'LoanItFrm'#4'Left'#3#169#0#6'Height'#3#247#0#3'Top'#2
|
||||
+'d'#5'Width'#3#144#1#7'Caption'#6'!Loan Calculation and Amortization'#12'Cli'
|
||||
+'entHeight'#3#247#0#11'ClientWidth'#3#144#1#6'OnShow'#7#8'FormShow'#10'LCLVe'
|
||||
+'rsion'#6#8'0.9.28.2'#0#6'TLabel'#6'Label1'#4'Left'#2#14#6'Height'#2#14#3'To'
|
||||
+'p'#2'X'#5'Width'#2'P'#7'Caption'#6#16'Principal Amount'#11'ParentColor'#8#0
|
||||
+#0#6'TLabel'#6'Label2'#4'Left'#3#162#0#6'Height'#2#14#3'Top'#2'W'#5'Width'#3
|
||||
+#163#0#7'Caption'#6#30'Annual Percentage Rate (APR %)'#11'ParentColor'#8#0#0
|
||||
+#6'TLabel'#6'Label3'#4'Left'#2#14#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2'Q'
|
||||
+#7'Caption'#6#15'Number of years'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4
|
||||
+'Left'#3#162#0#6'Height'#2#14#3'Top'#3#128#0#5'Width'#3#145#0#7'Caption'#6#27
|
||||
+'Number of Payments Per Year'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Le'
|
||||
+'ft'#2#14#6'Height'#2#14#3'Top'#3#160#0#5'Width'#2'='#7'Caption'#6#10'PAYMEN'
|
||||
+'T = '#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2#8#6'Height'#2#14#3
|
||||
+'Top'#2#9#5'Width'#2'<'#7'Caption'#6#11'Your Name: '#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#6'Label7'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'('#5'Width'#2'['#7'Ca'
|
||||
+'ption'#6#17'Current Month No.'#11'ParentColor'#8#0#0#6'TLabel'#6'Label8'#4
|
||||
+'Left'#3#144#0#6'Height'#2#14#3'Top'#2'('#5'Width'#2'F'#7'Caption'#6#13'Day '
|
||||
+'of Month:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label9'#4'Left'#3#0#1#6'Height'
|
||||
+#2#14#3'Top'#2'('#5'Width'#2'?'#7'Caption'#6#12'Current Year'#11'ParentColor'
|
||||
+#8#0#0#5'TEdit'#10'AmountEdit'#4'Left'#2'i'#6'Height'#2#21#3'Top'#2'P'#5'Wid'
|
||||
+'th'#2'+'#8'TabOrder'#2#0#4'Text'#6#10'AmountEdit'#0#0#5'TEdit'#12'InterestE'
|
||||
+'dit'#4'Left'#3'I'#1#6'Height'#2#21#3'Top'#2'P'#5'Width'#2'2'#8'TabOrder'#2#1
|
||||
+#4'Text'#6#12'InterestEdit'#0#0#5'TEdit'#9'YearsEdit'#4'Left'#2'i'#6'Height'
|
||||
+#2#21#3'Top'#2'x'#5'Width'#2','#8'TabOrder'#2#2#4'Text'#6#9'YearsEdit'#0#0#5
|
||||
+'TEdit'#12'PayPerYrEdit'#4'Left'#3'I'#1#6'Height'#2#21#3'Top'#2'y'#5'Width'#2
|
||||
+'3'#8'TabOrder'#2#3#4'Text'#6#12'PayPerYrEdit'#0#0#5'TEdit'#9'RePayEdit'#4'L'
|
||||
+'eft'#2'`'#6'Height'#2#21#3'Top'#3#153#0#5'Width'#2'_'#8'TabOrder'#2#4#4'Tex'
|
||||
+'t'#6#9'RePayEdit'#0#0#7'TButton'#8'ResetBtn'#4'Left'#2#14#6'Height'#2#27#3
|
||||
+'Top'#3#200#0#5'Width'#2'G'#7'Caption'#6#5'Reset'#7'OnClick'#7#13'ResetBtnCl'
|
||||
+'ick'#8'TabOrder'#2#5#0#0#7'TButton'#11'AmortizeBtn'#4'Left'#3#144#0#6'Heigh'
|
||||
+'t'#2#27#3'Top'#3#200#0#5'Width'#2'P'#7'Caption'#6#7'Compute'#7'OnClick'#7#16
|
||||
+'AmortizeBtnClick'#8'TabOrder'#2#6#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#31#1
|
||||
+#6'Height'#2#27#3'Top'#3#200#0#5'Width'#2'Z'#7'Caption'#6#6'Return'#11'Modal'
|
||||
+'Result'#2#1#8'TabOrder'#2#7#0#0#5'TEdit'#8'NameEdit'#4'Left'#2'J'#6'Height'
|
||||
+#2#21#3'Top'#2#2#5'Width'#3#137#0#8'TabOrder'#2#8#4'Text'#6#8'NameEdit'#0#0#5
|
||||
+'TEdit'#9'MonthEdit'#4'Left'#2'f'#6'Height'#2#21#3'Top'#2' '#5'Width'#2#31#8
|
||||
+'TabOrder'#2#9#4'Text'#6#9'MonthEdit'#0#0#5'TEdit'#7'DayEdit'#4'Left'#3#218#0
|
||||
+#6'Height'#2#21#3'Top'#2' '#5'Width'#2#29#8'TabOrder'#2#10#4'Text'#6#7'DayEd'
|
||||
+'it'#0#0#5'TEdit'#8'YearEdit'#4'Left'#3'F'#1#6'Height'#2#21#3'Top'#2#30#5'Wi'
|
||||
+'dth'#2'4'#8'TabOrder'#2#11#4'Text'#6#8'YearEdit'#0#0#9'TCheckBox'#8'PrintCh'
|
||||
+'k'#4'Left'#3#211#0#6'Height'#2#17#3'Top'#3#158#0#5'Width'#3#170#0#7'Caption'
|
||||
+#6#31'Print the Amortization Schedule'#8'TabOrder'#2#12#0#0#0
|
||||
]);
|
||||
154
applications/lazstats/source_orig/loanitunit.pas
Normal file
154
applications/lazstats/source_orig/loanitunit.pas
Normal file
@ -0,0 +1,154 @@
|
||||
unit LoanItUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, OutPutUnit, math;
|
||||
|
||||
type
|
||||
|
||||
{ TLoanItFrm }
|
||||
|
||||
TLoanItFrm = class(TForm)
|
||||
PrintChk: TCheckBox;
|
||||
DayEdit: TEdit;
|
||||
YearEdit: TEdit;
|
||||
MonthEdit: TEdit;
|
||||
Label7: TLabel;
|
||||
Label8: TLabel;
|
||||
Label9: TLabel;
|
||||
NameEdit: TEdit;
|
||||
Label6: TLabel;
|
||||
ResetBtn: TButton;
|
||||
AmortizeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
AmountEdit: TEdit;
|
||||
InterestEdit: TEdit;
|
||||
YearsEdit: TEdit;
|
||||
PayPerYrEdit: TEdit;
|
||||
RePayEdit: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
procedure AmortizeBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure Heading(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LoanItFrm: TLoanItFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TLoanItFrm }
|
||||
|
||||
procedure TLoanItFrm.ResetBtnClick(Sender: TObject);
|
||||
begin
|
||||
NameEdit.Text := '';
|
||||
MonthEdit.Text := '';
|
||||
DayEdit.Text := '';
|
||||
YearEdit.Text := '';
|
||||
YearsEdit.Text := '30';
|
||||
AmountEdit.Text := '10000';
|
||||
InterestEdit.Text := '6.5';
|
||||
PayPerYrEdit.Text := '12';
|
||||
RepayEdit.Text := '';
|
||||
end;
|
||||
|
||||
procedure TLoanItFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TLoanItFrm.AmortizeBtnClick(Sender: TObject);
|
||||
VAR
|
||||
no_per_year, year_payed, month_payed, day, month, j, k : integer;
|
||||
fraction, interest, numerator, denominator, payment, total_interest : double;
|
||||
amount, interest_payment, total_payed, pcnt_interest, years, no_years : double;
|
||||
aname, astring : string;
|
||||
outline : string;
|
||||
begin
|
||||
aname := NameEdit.Text;
|
||||
no_per_year := StrToInt(PayPerYrEdit.Text);
|
||||
day := StrToInt(DayEdit.Text);
|
||||
month := StrToInt(MonthEdit.Text);
|
||||
years := StrToFloat(YearEdit.Text);
|
||||
amount := StrToFloat(AmountEdit.Text);
|
||||
no_years := StrToFloat(YearsEdit.Text);
|
||||
pcnt_interest := StrToFloat(InterestEdit.Text);
|
||||
|
||||
interest := pcnt_interest / 100.0;
|
||||
numerator := interest * amount / no_per_year ;
|
||||
denominator := 1.0 - (1.0 / power((interest / no_per_year + 1.0),
|
||||
(no_per_year * no_years) ) );
|
||||
payment := numerator / denominator;
|
||||
outline := format('%10.2f',[payment]);
|
||||
repayEdit.Text := outline;
|
||||
|
||||
if PrintChk.Checked = false then exit;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
// OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
if (no_per_year < 12) then
|
||||
fraction := 12.0 / no_per_year else fraction := 1.0;
|
||||
OutPutFrm.RichEdit.Lines.Add('Payment Schedule Program by W. G. Miller');
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('----------------------------------------------------------------------------');
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
astring := 'Name of Borrower : ';
|
||||
astring := astring + aname;
|
||||
OutPutFrm.RichEdit.Lines.Add(astring);
|
||||
outline := format('Amount borrowed := $%12.2f at %5.2f percent over %2.1f years.',
|
||||
[amount,pcnt_interest,no_years]);
|
||||
total_interest := 0.0;
|
||||
total_payed := 0.0;
|
||||
for j := 1 to round(no_years) do
|
||||
begin
|
||||
Heading(self);
|
||||
for k := 1 to no_per_year do
|
||||
begin
|
||||
year_payed := round(years) + j - 1 ;
|
||||
month_payed := round(k * fraction + (month - fraction));
|
||||
if (month_payed > 12) then
|
||||
begin
|
||||
year_payed := year_payed + 1;
|
||||
month_payed := month_payed - 12;
|
||||
end;
|
||||
interest_payment := amount * interest / no_per_year;
|
||||
amount := amount - payment + interest_payment;
|
||||
total_interest := total_interest + interest_payment;
|
||||
total_payed := total_payed + payment;
|
||||
outline := format(' %2d/%2d/%2d %12.2f %12.2f %12.2f %12.2f %12.2f',
|
||||
[month_payed,day,year_payed,payment,interest_payment,
|
||||
amount,total_interest,total_payed]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end; // next k
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('----------------------------------------------------------------------------');
|
||||
end; // next j
|
||||
OutPutFrm.ShowModal;
|
||||
end;
|
||||
|
||||
procedure TLoanItFrm.Heading(Sender: TObject);
|
||||
begin
|
||||
OutPutFrm.RichEdit.Lines.Add('----------------------------------------------------------------------------');
|
||||
OutPutFrm.RichEdit.Lines.Add('PAYMENT PAYMENT INTEREST BALANCE TOTAL TOTAL');
|
||||
OutPutFrm.RichEdit.Lines.Add('NUMBER AMOUNT PAYED REMAINING INTEREST PAID');
|
||||
OutPutFrm.RichEdit.Lines.Add('----------------------------------------------------------------------------');
|
||||
end;
|
||||
|
||||
initialization
|
||||
|
||||
{$I loanitunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
335
applications/lazstats/source_orig/loglinscreenunit.lfm
Normal file
335
applications/lazstats/source_orig/loglinscreenunit.lfm
Normal file
@ -0,0 +1,335 @@
|
||||
object LogLinScreenFrm: TLogLinScreenFrm
|
||||
Left = 144
|
||||
Height = 393
|
||||
Top = 105
|
||||
Width = 546
|
||||
Caption = 'Cross-Classification Log Linear Screen'
|
||||
ClientHeight = 393
|
||||
ClientWidth = 546
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Label1: TLabel
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 40
|
||||
Width = 314
|
||||
Caption = '1, Select the variables of the Grid that define your classifications'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 72
|
||||
Width = 90
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 192
|
||||
Height = 14
|
||||
Top = 72
|
||||
Width = 42
|
||||
Caption = 'Selected'
|
||||
ParentColor = False
|
||||
end
|
||||
object CountVarChk: TCheckBox
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 8
|
||||
Width = 230
|
||||
Caption = 'Last Variable Selected is a Frequency Count'
|
||||
TabOrder = 0
|
||||
end
|
||||
object Step2Btn: TButton
|
||||
Left = 304
|
||||
Height = 22
|
||||
Top = 8
|
||||
Width = 228
|
||||
Caption = '2. Click here when variables are selected'
|
||||
OnClick = Step2BtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 7
|
||||
Height = 220
|
||||
Top = 88
|
||||
Width = 140
|
||||
ItemHeight = 0
|
||||
MultiSelect = True
|
||||
TabOrder = 2
|
||||
end
|
||||
object InBtn: TBitBtn
|
||||
Left = 152
|
||||
Height = 28
|
||||
Top = 96
|
||||
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 = InBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object OutBtn: TBitBtn
|
||||
Left = 152
|
||||
Height = 28
|
||||
Top = 128
|
||||
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 = OutBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object AllBtn: TBitBtn
|
||||
Left = 152
|
||||
Height = 28
|
||||
Top = 192
|
||||
Width = 31
|
||||
Caption = 'ALL'
|
||||
NumGlyphs = 0
|
||||
OnClick = AllBtnClick
|
||||
TabOrder = 5
|
||||
end
|
||||
object SelectList: TListBox
|
||||
Left = 192
|
||||
Height = 219
|
||||
Top = 89
|
||||
Width = 142
|
||||
ItemHeight = 0
|
||||
TabOrder = 6
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 344
|
||||
Height = 152
|
||||
Top = 72
|
||||
Width = 184
|
||||
ClientHeight = 152
|
||||
ClientWidth = 184
|
||||
TabOrder = 7
|
||||
object Label4: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 10
|
||||
Width = 165
|
||||
Caption = '3. For each variable complete the'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 27
|
||||
Width = 151
|
||||
Caption = 'specifications below. Press the'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 45
|
||||
Width = 151
|
||||
Caption = 'enter key following each entry.'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 93
|
||||
Height = 14
|
||||
Top = 70
|
||||
Width = 43
|
||||
Caption = 'Variable:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 8
|
||||
Height = 14
|
||||
Top = 98
|
||||
Width = 74
|
||||
Caption = 'Minimum Value:'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label9: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 128
|
||||
Width = 78
|
||||
Caption = 'Maximum Value:'
|
||||
ParentColor = False
|
||||
end
|
||||
object ScrollBar1: TScrollBar
|
||||
Left = 7
|
||||
Height = 17
|
||||
Top = 66
|
||||
Width = 76
|
||||
PageSize = 0
|
||||
TabOrder = 0
|
||||
OnChange = ScrollBar1Change
|
||||
end
|
||||
object VarNoEdit: TEdit
|
||||
Left = 139
|
||||
Height = 21
|
||||
Top = 66
|
||||
Width = 36
|
||||
TabOrder = 1
|
||||
Text = 'VarNoEdit'
|
||||
end
|
||||
object MinEdit: TEdit
|
||||
Left = 139
|
||||
Height = 21
|
||||
Top = 95
|
||||
Width = 33
|
||||
OnKeyPress = MinEditKeyPress
|
||||
TabOrder = 2
|
||||
Text = 'MinEdit'
|
||||
end
|
||||
object MaxEdit: TEdit
|
||||
Left = 138
|
||||
Height = 21
|
||||
Top = 123
|
||||
Width = 35
|
||||
OnKeyPress = MaxEditKeyPress
|
||||
TabOrder = 3
|
||||
Text = 'MaxEdit'
|
||||
end
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 6
|
||||
Height = 64
|
||||
Top = 320
|
||||
Width = 328
|
||||
Caption = 'Options'
|
||||
ClientHeight = 46
|
||||
ClientWidth = 324
|
||||
TabOrder = 8
|
||||
object MarginsChk: TCheckBox
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 2
|
||||
Width = 117
|
||||
Caption = 'Print Marginal Totals'
|
||||
TabOrder = 0
|
||||
end
|
||||
object GenlModelChk: TCheckBox
|
||||
Left = 6
|
||||
Height = 17
|
||||
Top = 23
|
||||
Width = 194
|
||||
Caption = 'Print General Linear Modle Estimates'
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 456
|
||||
Height = 28
|
||||
Top = 240
|
||||
Width = 72
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 9
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 344
|
||||
Height = 28
|
||||
Top = 280
|
||||
Width = 81
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 10
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 456
|
||||
Height = 28
|
||||
Top = 280
|
||||
Width = 72
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 408
|
||||
Height = 28
|
||||
Top = 320
|
||||
Width = 72
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
OnClick = ReturnBtnClick
|
||||
TabOrder = 12
|
||||
end
|
||||
object HelpBtn: TButton
|
||||
Tag = 131
|
||||
Left = 344
|
||||
Height = 28
|
||||
Top = 240
|
||||
Width = 81
|
||||
Caption = 'Help'
|
||||
OnClick = HelpBtnClick
|
||||
TabOrder = 13
|
||||
end
|
||||
end
|
||||
165
applications/lazstats/source_orig/loglinscreenunit.lrs
Normal file
165
applications/lazstats/source_orig/loglinscreenunit.lrs
Normal file
@ -0,0 +1,165 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLogLinScreenFrm','FORMDATA',[
|
||||
'TPF0'#16'TLogLinScreenFrm'#15'LogLinScreenFrm'#4'Left'#3#144#0#6'Height'#3
|
||||
+#137#1#3'Top'#2'i'#5'Width'#3'"'#2#7'Caption'#6'&Cross-Classification Log Li'
|
||||
+'near Screen'#12'ClientHeight'#3#137#1#11'ClientWidth'#3'"'#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'('#5'Width'#3':'#1#7'Caption'#6'E1, Select the varia'
|
||||
+'bles of the Grid that define your classifications'#11'ParentColor'#8#0#0#6
|
||||
+'TLabel'#6'Label2'#4'Left'#2#9#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'Z'#7'Ca'
|
||||
+'ption'#6#19'Available Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4
|
||||
+'Left'#3#192#0#6'Height'#2#14#3'Top'#2'H'#5'Width'#2'*'#7'Caption'#6#8'Selec'
|
||||
+'ted'#11'ParentColor'#8#0#0#9'TCheckBox'#11'CountVarChk'#4'Left'#2#6#6'Heigh'
|
||||
+'t'#2#17#3'Top'#2#8#5'Width'#3#230#0#7'Caption'#6'+Last Variable Selected is'
|
||||
+' a Frequency Count'#8'TabOrder'#2#0#0#0#7'TButton'#8'Step2Btn'#4'Left'#3'0'
|
||||
+#1#6'Height'#2#22#3'Top'#2#8#5'Width'#3#228#0#7'Caption'#6')2. Click here wh'
|
||||
+'en variables are selected'#7'OnClick'#7#13'Step2BtnClick'#8'TabOrder'#2#1#0
|
||||
+#0#8'TListBox'#7'VarList'#4'Left'#2#7#6'Height'#3#220#0#3'Top'#2'X'#5'Width'
|
||||
+#3#140#0#10'ItemHeight'#2#0#11'MultiSelect'#9#8'TabOrder'#2#2#0#0#7'TBitBtn'
|
||||
+#5'InBtn'#4'Left'#3#152#0#6'Height'#2#28#3'Top'#2'`'#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'InBtnClick'#8
|
||||
+'TabOrder'#2#3#0#0#7'TBitBtn'#6'OutBtn'#4'Left'#3#152#0#6'Height'#2#28#3'Top'
|
||||
+#3#128#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#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#11'OutBtnClick'#8'TabOrder'#2#4#0#0#7'TBitBtn'#6'A'
|
||||
+'llBtn'#4'Left'#3#152#0#6'Height'#2#28#3'Top'#3#192#0#5'Width'#2#31#7'Captio'
|
||||
+'n'#6#3'ALL'#9'NumGlyphs'#2#0#7'OnClick'#7#11'AllBtnClick'#8'TabOrder'#2#5#0
|
||||
+#0#8'TListBox'#10'SelectList'#4'Left'#3#192#0#6'Height'#3#219#0#3'Top'#2'Y'#5
|
||||
+'Width'#3#142#0#10'ItemHeight'#2#0#8'TabOrder'#2#6#0#0#6'TPanel'#6'Panel1'#4
|
||||
+'Left'#3'X'#1#6'Height'#3#152#0#3'Top'#2'H'#5'Width'#3#184#0#12'ClientHeight'
|
||||
+#3#152#0#11'ClientWidth'#3#184#0#8'TabOrder'#2#7#0#6'TLabel'#6'Label4'#4'Lef'
|
||||
+'t'#2#7#6'Height'#2#14#3'Top'#2#10#5'Width'#3#165#0#7'Caption'#6'"3. For ea'
|
||||
+'ch variable complete the'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'
|
||||
+#2#7#6'Height'#2#14#3'Top'#2#27#5'Width'#3#151#0#7'Caption'#6' specification'
|
||||
,'s below. Press the'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2#7#6
|
||||
+'Height'#2#14#3'Top'#2'-'#5'Width'#3#151#0#7'Caption'#6#31'enter key followi'
|
||||
+'ng each entry.'#11'ParentColor'#8#0#0#6'TLabel'#6'Label7'#4'Left'#2']'#6'He'
|
||||
+'ight'#2#14#3'Top'#2'F'#5'Width'#2'+'#7'Caption'#6#9'Variable:'#11'ParentCol'
|
||||
+'or'#8#0#0#6'TLabel'#6'Label8'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'b'#5'Widt'
|
||||
+'h'#2'J'#7'Caption'#6#14'Minimum Value:'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
|
||||
+'abel9'#4'Left'#2#7#6'Height'#2#14#3'Top'#3#128#0#5'Width'#2'N'#7'Caption'#6
|
||||
+#14'Maximum Value:'#11'ParentColor'#8#0#0#10'TScrollBar'#10'ScrollBar1'#4'Le'
|
||||
+'ft'#2#7#6'Height'#2#17#3'Top'#2'B'#5'Width'#2'L'#8'PageSize'#2#0#8'TabOrder'
|
||||
+#2#0#8'OnChange'#7#16'ScrollBar1Change'#0#0#5'TEdit'#9'VarNoEdit'#4'Left'#3
|
||||
+#139#0#6'Height'#2#21#3'Top'#2'B'#5'Width'#2'$'#8'TabOrder'#2#1#4'Text'#6#9
|
||||
+'VarNoEdit'#0#0#5'TEdit'#7'MinEdit'#4'Left'#3#139#0#6'Height'#2#21#3'Top'#2
|
||||
+'_'#5'Width'#2'!'#10'OnKeyPress'#7#15'MinEditKeyPress'#8'TabOrder'#2#2#4'Tex'
|
||||
+'t'#6#7'MinEdit'#0#0#5'TEdit'#7'MaxEdit'#4'Left'#3#138#0#6'Height'#2#21#3'To'
|
||||
+'p'#2'{'#5'Width'#2'#'#10'OnKeyPress'#7#15'MaxEditKeyPress'#8'TabOrder'#2#3#4
|
||||
+'Text'#6#7'MaxEdit'#0#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#6#6'Height'#2
|
||||
+'@'#3'Top'#3'@'#1#5'Width'#3'H'#1#7'Caption'#6#7'Options'#12'ClientHeight'#2
|
||||
+'.'#11'ClientWidth'#3'D'#1#8'TabOrder'#2#8#0#9'TCheckBox'#10'MarginsChk'#4'L'
|
||||
+'eft'#2#6#6'Height'#2#17#3'Top'#2#2#5'Width'#2'u'#7'Caption'#6#21'Print Marg'
|
||||
+'inal Totals'#8'TabOrder'#2#0#0#0#9'TCheckBox'#12'GenlModelChk'#4'Left'#2#6#6
|
||||
+'Height'#2#17#3'Top'#2#23#5'Width'#3#194#0#7'Caption'#6'$Print General Linea'
|
||||
+'r Modle Estimates'#8'TabOrder'#2#1#0#0#0#7'TButton'#8'ResetBtn'#4'Left'#3
|
||||
+#200#1#6'Height'#2#28#3'Top'#3#240#0#5'Width'#2'H'#7'Caption'#6#5'Reset'#7'O'
|
||||
+'nClick'#7#13'ResetBtnClick'#8'TabOrder'#2#9#0#0#7'TButton'#9'CancelBtn'#4'L'
|
||||
+'eft'#3'X'#1#6'Height'#2#28#3'Top'#3#24#1#5'Width'#2'Q'#7'Caption'#6#6'Cance'
|
||||
+'l'#11'ModalResult'#2#2#7'OnClick'#7#14'CancelBtnClick'#8'TabOrder'#2#10#0#0
|
||||
+#7'TButton'#10'ComputeBtn'#4'Left'#3#200#1#6'Height'#2#28#3'Top'#3#24#1#5'Wi'
|
||||
+'dth'#2'H'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrd'
|
||||
+'er'#2#11#0#0#7'TButton'#9'ReturnBtn'#4'Left'#3#152#1#6'Height'#2#28#3'Top'#3
|
||||
+'@'#1#5'Width'#2'H'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#7'OnClick'#7
|
||||
+#14'ReturnBtnClick'#8'TabOrder'#2#12#0#0#7'TButton'#7'HelpBtn'#3'Tag'#3#131#0
|
||||
+#4'Left'#3'X'#1#6'Height'#2#28#3'Top'#3#240#0#5'Width'#2'Q'#7'Caption'#6#4'H'
|
||||
+'elp'#7'OnClick'#7#12'HelpBtnClick'#8'TabOrder'#2#13#0#0#0
|
||||
]);
|
||||
1140
applications/lazstats/source_orig/loglinscreenunit.pas
Normal file
1140
applications/lazstats/source_orig/loglinscreenunit.pas
Normal file
File diff suppressed because it is too large
Load Diff
326
applications/lazstats/source_orig/logregunit.lfm
Normal file
326
applications/lazstats/source_orig/logregunit.lfm
Normal file
@ -0,0 +1,326 @@
|
||||
object LogRegFrm: TLogRegFrm
|
||||
Left = 179
|
||||
Height = 352
|
||||
Top = 102
|
||||
Width = 536
|
||||
Caption = 'Binary Logistic Regression'
|
||||
ClientHeight = 352
|
||||
ClientWidth = 536
|
||||
OnShow = FormShow
|
||||
LCLVersion = '0.9.28.2'
|
||||
object Label1: TLabel
|
||||
Left = 7
|
||||
Height = 14
|
||||
Top = 0
|
||||
Width = 90
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 225
|
||||
Height = 14
|
||||
Top = 15
|
||||
Width = 95
|
||||
Caption = 'Dependent Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 224
|
||||
Height = 14
|
||||
Top = 97
|
||||
Width = 109
|
||||
Caption = 'Independent Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 378
|
||||
Height = 14
|
||||
Top = 129
|
||||
Width = 95
|
||||
Caption = 'Maximum Iterations'
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 7
|
||||
Height = 316
|
||||
Top = 16
|
||||
Width = 169
|
||||
ItemHeight = 0
|
||||
MultiSelect = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object DepInBtn: TBitBtn
|
||||
Left = 184
|
||||
Height = 28
|
||||
Top = 23
|
||||
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 = DepInBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object DepOutBtn: TBitBtn
|
||||
Left = 184
|
||||
Height = 28
|
||||
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 = DepOutBtnClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object InBtn: TBitBtn
|
||||
Left = 184
|
||||
Height = 28
|
||||
Top = 112
|
||||
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 = InBtnClick
|
||||
TabOrder = 3
|
||||
end
|
||||
object OutBtn: TBitBtn
|
||||
Left = 184
|
||||
Height = 28
|
||||
Top = 144
|
||||
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 = OutBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object DepVar: TEdit
|
||||
Left = 224
|
||||
Height = 21
|
||||
Top = 32
|
||||
Width = 142
|
||||
TabOrder = 5
|
||||
Text = 'DepVar'
|
||||
end
|
||||
object BlockList: TListBox
|
||||
Left = 224
|
||||
Height = 217
|
||||
Top = 115
|
||||
Width = 144
|
||||
ItemHeight = 0
|
||||
TabOrder = 6
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 378
|
||||
Height = 107
|
||||
Top = 7
|
||||
Width = 145
|
||||
Caption = 'Options'
|
||||
ClientHeight = 89
|
||||
ClientWidth = 141
|
||||
TabOrder = 7
|
||||
object DescChk: TCheckBox
|
||||
Left = 8
|
||||
Height = 17
|
||||
Top = 5
|
||||
Width = 119
|
||||
Caption = 'Descriptive Statistics'
|
||||
TabOrder = 0
|
||||
end
|
||||
object ProbsChk: TCheckBox
|
||||
Left = 8
|
||||
Height = 17
|
||||
Top = 31
|
||||
Width = 86
|
||||
Caption = 'Y Probabilities'
|
||||
TabOrder = 1
|
||||
end
|
||||
object ItersChk: TCheckBox
|
||||
Left = 8
|
||||
Height = 17
|
||||
Top = 57
|
||||
Width = 96
|
||||
Caption = 'Show Iterations'
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object MaxItsEdit: TEdit
|
||||
Left = 485
|
||||
Height = 21
|
||||
Top = 121
|
||||
Width = 38
|
||||
TabOrder = 8
|
||||
Text = 'MaxItsEdit'
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 417
|
||||
Height = 29
|
||||
Top = 152
|
||||
Width = 68
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 9
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 417
|
||||
Height = 29
|
||||
Top = 200
|
||||
Width = 68
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 10
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 417
|
||||
Height = 29
|
||||
Top = 248
|
||||
Width = 68
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 417
|
||||
Height = 29
|
||||
Top = 296
|
||||
Width = 68
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
TabOrder = 12
|
||||
end
|
||||
end
|
||||
241
applications/lazstats/source_orig/logregunit.lrs
Normal file
241
applications/lazstats/source_orig/logregunit.lrs
Normal file
@ -0,0 +1,241 @@
|
||||
LazarusResources.Add('TLogRegFrm','FORMDATA',[
|
||||
'TPF0'#10'TLogRegFrm'#9'LogRegFrm'#4'Left'#3#179#0#6'Height'#3'`'#1#3'Top'#2
|
||||
+'f'#5'Width'#3#24#2#7'Caption'#6#26'Binary Logistic Regression'#12'ClientHei'
|
||||
+'ght'#3'`'#1#11'ClientWidth'#3#24#2#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#0#5'W'
|
||||
+'idth'#2'Z'#7'Caption'#6#19'Available Variables'#11'ParentColor'#8#0#0#6'TLa'
|
||||
+'bel'#6'Label2'#4'Left'#3#225#0#6'Height'#2#14#3'Top'#2#15#5'Width'#2'_'#7'C'
|
||||
+'aption'#6#18'Dependent Variable'#11'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4
|
||||
+'Left'#3#224#0#6'Height'#2#14#3'Top'#2'a'#5'Width'#2'm'#7'Caption'#6#21'Inde'
|
||||
+'pendent Variables'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3'z'#1
|
||||
+#6'Height'#2#14#3'Top'#3#129#0#5'Width'#2'_'#7'Caption'#6#18'Maximum Iterati'
|
||||
+'ons'#11'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#7#6'Height'#3'<'
|
||||
+#1#3'Top'#2#16#5'Width'#3#169#0#10'ItemHeight'#2#0#11'MultiSelect'#9#8'TabOr'
|
||||
+'der'#2#0#0#0#7'TBitBtn'#8'DepInBtn'#4'Left'#3#184#0#6'Height'#2#28#3'Top'#2
|
||||
+#23#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#184#0#6'Height'#2#28#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'NumGlyphs'#2#0#7'OnClick'#7#14'DepOutBtnClick'
|
||||
+#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'InBtn'#4'Left'#3#184#0#6'Height'#2#28#3'To'
|
||||
+'p'#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#255#255#255#0
|
||||
+#255#255#255#0#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#10'InBtnClick'#8'TabOrder'#2#3#0#0#7'TBitBtn'#6'OutBtn'
|
||||
+#4'Left'#3#184#0#6'Height'#2#28#3'Top'#3#144#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#11'OutBtnClick'#8
|
||||
+'TabOrder'#2#4#0#0#5'TEdit'#6'DepVar'#4'Left'#3#224#0#6'Height'#2#21#3'Top'#2
|
||||
+' '#5'Width'#3#142#0#8'TabOrder'#2#5#4'Text'#6#6'DepVar'#0#0#8'TListBox'#9'B'
|
||||
+'lockList'#4'Left'#3#224#0#6'Height'#3#217#0#3'Top'#2's'#5'Width'#3#144#0#10
|
||||
+'ItemHeight'#2#0#8'TabOrder'#2#6#0#0#9'TGroupBox'#9'GroupBox1'#4'Left'#3'z'#1
|
||||
+#6'Height'#2'k'#3'Top'#2#7#5'Width'#3#145#0#7'Caption'#6#7'Options'#12'Clien'
|
||||
+'tHeight'#2'Y'#11'ClientWidth'#3#141#0#8'TabOrder'#2#7#0#9'TCheckBox'#7'Desc'
|
||||
+'Chk'#4'Left'#2#8#6'Height'#2#17#3'Top'#2#5#5'Width'#2'w'#7'Caption'#6#22'De'
|
||||
+'scriptive Statistics'#8'TabOrder'#2#0#0#0#9'TCheckBox'#8'ProbsChk'#4'Left'#2
|
||||
+#8#6'Height'#2#17#3'Top'#2#31#5'Width'#2'V'#7'Caption'#6#15'Y Probabilities'
|
||||
+#8'TabOrder'#2#1#0#0#9'TCheckBox'#8'ItersChk'#4'Left'#2#8#6'Height'#2#17#3'T'
|
||||
+'op'#2'9'#5'Width'#2'`'#7'Caption'#6#15'Show Iterations'#8'TabOrder'#2#2#0#0
|
||||
+#0#5'TEdit'#10'MaxItsEdit'#4'Left'#3#229#1#6'Height'#2#21#3'Top'#2'y'#5'Widt'
|
||||
+'h'#2'&'#8'TabOrder'#2#8#4'Text'#6#10'MaxItsEdit'#0#0#7'TButton'#8'ResetBtn'
|
||||
+#4'Left'#3#161#1#6'Height'#2#29#3'Top'#3#152#0#5'Width'#2'D'#7'Caption'#6#5
|
||||
+'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#9#0#0#7'TButton'#9'Canc'
|
||||
+'elBtn'#4'Left'#3#161#1#6'Height'#2#29#3'Top'#3#200#0#5'Width'#2'D'#7'Captio'
|
||||
+'n'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#10#0#0#7'TButton'#10'Compu'
|
||||
+'teBtn'#4'Left'#3#161#1#6'Height'#2#29#3'Top'#3#248#0#5'Width'#2'D'#7'Captio'
|
||||
+'n'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabOrder'#2#11#0#0#7'TBu'
|
||||
+'tton'#9'ReturnBtn'#4'Left'#3#161#1#6'Height'#2#29#3'Top'#3'('#1#5'Width'#2
|
||||
+'D'#7'Caption'#6#6'Return'#11'ModalResult'#2#1#8'TabOrder'#2#12#0#0#0
|
||||
]);
|
||||
534
applications/lazstats/source_orig/logregunit.pas
Normal file
534
applications/lazstats/source_orig/logregunit.pas
Normal file
@ -0,0 +1,534 @@
|
||||
unit LogRegUnit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, Globals, MainUnit, MatrixLib, OutPutUnit, FunctionsLib;
|
||||
|
||||
type
|
||||
|
||||
{ TLogRegFrm }
|
||||
|
||||
TLogRegFrm = class(TForm)
|
||||
ResetBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
DepInBtn: TBitBtn;
|
||||
DepOutBtn: TBitBtn;
|
||||
MaxItsEdit: TEdit;
|
||||
InBtn: TBitBtn;
|
||||
Label4: TLabel;
|
||||
OutBtn: TBitBtn;
|
||||
DescChk: TCheckBox;
|
||||
ProbsChk: TCheckBox;
|
||||
ItersChk: TCheckBox;
|
||||
DepVar: TEdit;
|
||||
GroupBox1: TGroupBox;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
BlockList: TListBox;
|
||||
VarList: TListBox;
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure DepInBtnClick(Sender: TObject);
|
||||
procedure DepOutBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure InBtnClick(Sender: TObject);
|
||||
procedure OutBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
function ChiSq(x : double; n : integer) : double;
|
||||
function Norm(z : double): double;
|
||||
function ix(j, k, nCols : integer): integer;
|
||||
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LogRegFrm: TLogRegFrm;
|
||||
|
||||
implementation
|
||||
|
||||
{ TLogRegFrm }
|
||||
|
||||
procedure TLogRegFrm.ResetBtnClick(Sender: TObject);
|
||||
VAR i : integer;
|
||||
begin
|
||||
BlockList.Clear;
|
||||
VarList.Clear;
|
||||
for i := 1 to NoVariables do
|
||||
begin
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
InBtn.Enabled := true;
|
||||
OutBtn.Enabled := false;
|
||||
DepInBtn.Enabled := true;
|
||||
DepOutBtn.Enabled := false;
|
||||
ProbsChk.Checked := true;
|
||||
DescChk.Checked := true;
|
||||
DepVar.Text := '';
|
||||
MaxItsEdit.Text := '20';
|
||||
end;
|
||||
|
||||
procedure TLogRegFrm.InBtnClick(Sender: TObject);
|
||||
VAR i, index : integer;
|
||||
begin
|
||||
index := VarList.Items.Count;
|
||||
i := 0;
|
||||
while i < index do
|
||||
begin
|
||||
if (VarList.Selected[i]) then
|
||||
begin
|
||||
BlockList.Items.Add(VarList.Items.Strings[i]);
|
||||
VarList.Items.Delete(i);
|
||||
index := index - 1;
|
||||
i := 0;
|
||||
end
|
||||
else i := i + 1;
|
||||
end;
|
||||
OutBtn.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure TLogRegFrm.DepInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
DepVar.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
DepOutBtn.Enabled := true;
|
||||
DepInBtn.Enabled := false;
|
||||
end;
|
||||
|
||||
procedure TLogRegFrm.ComputeBtnClick(Sender: TObject);
|
||||
Label CleanUp;
|
||||
var
|
||||
i, j, k, l : integer;
|
||||
title : string;
|
||||
cellstring : string;
|
||||
outline : string;
|
||||
nR : integer; // no. independent variables
|
||||
ColNoSelected : IntDyneVec;
|
||||
nC : integer; // no. cases
|
||||
nP : integer; // total no. variables
|
||||
RowLabels, ColLabels : StrDyneVec;
|
||||
nP1 : integer; // total no. variables plus 1
|
||||
sY0, sY1 : integer; // sum of cases with dependent of 0 or 1
|
||||
sC : integer; // total count of cases with 0 or 1
|
||||
X : DblDyneVec; // data matrix for independent variables
|
||||
Y0, Y1 : DblDyneVec; // data array for dependent data
|
||||
xM : DblDyneVec; // variable means
|
||||
xSD : DblDyneVec; // variable standard deviations
|
||||
Par : DblDyneVec; // work array
|
||||
SEP : DblDyneVec; // work array;
|
||||
Arr : DblDyneVec; // work array;
|
||||
indx, indx2, indx3 : integer; // indexes for arrays
|
||||
value : double;
|
||||
LLp, LL, LLn : double; // log likelihood
|
||||
v, q : double; // work values
|
||||
xij, s : double; // work value
|
||||
CSq : double; // chi square statistic
|
||||
prob : double; // probability of chi square
|
||||
ORc, OR1, ORh : double; // Odds ratio values
|
||||
iters : integer;
|
||||
Table : array[1..3,1..3] of integer;
|
||||
row, col : integer;
|
||||
begin
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
// OutPutFrm.RichEdit.ParaGraph.Alignment := taLeftJustify;
|
||||
OutPutFrm.RichEdit.Lines.Add('Logistic Regression Adapted from John C. Pezzullo');
|
||||
OutPutFrm.RichEdit.Lines.Add('Java program at http://members.aol.com/johnp71/logistic.html');
|
||||
|
||||
{ get independent item columns }
|
||||
nR := BlockList.Items.Count;
|
||||
nC := NoCases;
|
||||
SetLength(ColNoSelected,nR + 2);
|
||||
SetLength(RowLabels,nR + 2);
|
||||
SetLength(ColLabels,nR + 2);
|
||||
if nR < 1 then
|
||||
begin
|
||||
ShowMessage('ERROR! No independent variables selected.');
|
||||
goto CleanUp;
|
||||
end;
|
||||
|
||||
for i := 1 to nR do
|
||||
begin
|
||||
cellstring := BlockList.Items.Strings[i-1];
|
||||
for j := 1 to NoVariables do
|
||||
begin
|
||||
if cellstring = OS3MainFrm.DataGrid.Cells[j,0] then
|
||||
begin
|
||||
ColNoSelected[i] := j;
|
||||
RowLabels[i] := cellstring;
|
||||
ColLabels[i] := cellstring;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ get dependendent variable column }
|
||||
if DepVar.Text = '' then
|
||||
begin
|
||||
ShowMessage('ERROR! No Dependent variable selected.');
|
||||
goto CleanUp;
|
||||
end;
|
||||
nP := nR + 1;
|
||||
nP1 := nP + 1;
|
||||
for j := 1 to NoVariables do
|
||||
begin
|
||||
if DepVar.Text = OS3MainFrm.DataGrid.Cells[j,0] then
|
||||
begin
|
||||
ColNoSelected[nP] := j;
|
||||
RowLabels[nP] := OS3MainFrm.DataGrid.Cells[j,0];
|
||||
ColLabels[nP] := RowLabels[nP];
|
||||
end;
|
||||
end;
|
||||
|
||||
sY0 := 0;
|
||||
sY1 := 0;
|
||||
sC := 0;
|
||||
SetLength(X,(nC + 1) * (nR + 1));
|
||||
SetLength(Y0,nC + 1);
|
||||
SetLength(Y1,nC + 1);
|
||||
SetLength(xM,nR + 2);
|
||||
SetLength(xSD,nR + 2);
|
||||
SetLength(Par,nP + 1);
|
||||
SetLength(SEP,nP + 1);
|
||||
SetLength(Arr,(nP + 1) * (nP1 + 1));
|
||||
|
||||
// get data
|
||||
for i := 0 to nC - 1 do
|
||||
begin
|
||||
indx := ix(i,0,nR+1);
|
||||
X[indx] := 1;
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
indx := ColNoSelected[j];
|
||||
value := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[indx,i+1]));
|
||||
indx := ix(i,j,nR + 1);
|
||||
X[indx] := value;
|
||||
end;
|
||||
indx := ColNoSelected[nP];
|
||||
value := StrToFloat(Trim(OS3MainFrm.DataGrid.Cells[indx,i+1]));
|
||||
if value = 0 then
|
||||
begin
|
||||
Y0[i] := 1;
|
||||
sY0 := sY0 + 1;
|
||||
end
|
||||
else begin
|
||||
Y1[i] := 1;
|
||||
sY1 := sY1 + 1;
|
||||
end;
|
||||
sC := sC + round(Y0[i] + Y1[i]);
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
indx := ix(i,j,nR + 1);
|
||||
value := X[indx];
|
||||
xM[j] := xM[j] + (Y0[i] + Y1[i]) * value;
|
||||
xSD[j] := xSD[j] + (Y0[i] + Y1[i]) * value * value;
|
||||
end;
|
||||
end; // next case i
|
||||
|
||||
// print descriptive statistics
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
if DescChk.Checked then
|
||||
OutPutFrm.RichEdit.Lines.Add('Descriptive Statistics');
|
||||
outline := format('%d cases have Y=0; %d cases have Y=1.',[sY0,sY1]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('Variable Label Average Std.Dev.');
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
xM[j] := xM[j] / sC;
|
||||
xSD[j] :=xSD[j] / sC;
|
||||
xSD[j] := sqrt( abs(xSD[j] - xM[j] * xM[j]));
|
||||
if DescChk.Checked then
|
||||
begin
|
||||
outline := format(' %3d %15s %10.4f %10.4f',[j,RowLabels[j],xM[j],xSD[j]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
end;
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
xM[0] := 0.0;
|
||||
xSD[0] := 1.0;
|
||||
OutPutFrm.ShowModal;
|
||||
|
||||
// convert independent variable values to z scores
|
||||
for i := 0 to nC - 1 do
|
||||
begin
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
indx := ix(i,j,nR + 1);
|
||||
X[indx] := (X[indx] - xM[j]) / xSD[j];
|
||||
end;
|
||||
end;
|
||||
|
||||
// begin iterations
|
||||
iters := 0;
|
||||
if ItersChk.Checked then
|
||||
OutPutFrm.RichEdit.Lines.Add('Iteration History');
|
||||
Par[0] := ln(sY1 / sY0);
|
||||
for j := 1 to nR do Par[j] := 0.0;
|
||||
LLp := 2e10;
|
||||
LL := 1e10;
|
||||
while abs(LLp-LL) > 0.00001 do
|
||||
begin
|
||||
iters := iters + 1;
|
||||
if iters > StrToInt(MaxItsEdit.Text) then break;
|
||||
LLp := LL;
|
||||
LL := 0.0;
|
||||
for j := 0 to nR do
|
||||
begin
|
||||
for k := j to nR + 1 do
|
||||
begin
|
||||
indx := ix(j,k,nR+2);
|
||||
Arr[indx] := 0.0;
|
||||
end;
|
||||
end;
|
||||
for i := 0 to nC - 1 do
|
||||
begin
|
||||
value := Par[0];
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
indx := ix(i,j,nR + 1);
|
||||
value := value + Par[j] * X[indx];
|
||||
end;
|
||||
value := 1.0 / (1.0 + exp(-value));
|
||||
q := value * (1.0 - value);
|
||||
LL := LL - 2.0 * Y1[i] * ln(value) - 2.0 * Y0[i] * ln(1.0 - value);
|
||||
for j := 0 to nR do
|
||||
begin
|
||||
indx := ix(i,j,nR + 1);
|
||||
xij := X[indx];
|
||||
indx := ix(j,nR + 1, nR + 2);
|
||||
Arr[indx] := Arr[indx] + xij * ( Y1[i] * (1.0 - value) + Y0[i] * (-value));
|
||||
for k := j to nR do
|
||||
begin
|
||||
indx := ix(j,k,nR + 2);
|
||||
indx2 := ix(i,k,nR + 1);
|
||||
Arr[indx] := Arr[indx] + xij * X[indx2] * q * (Y0[i] + Y1[i]);
|
||||
end;
|
||||
end; // next j
|
||||
end; // next i
|
||||
outline := format('-2 Log Likelihood = %10.4f ',[LL]);
|
||||
if LLp = 1.0e10 then
|
||||
begin
|
||||
LLn := LL;
|
||||
outline := outline + ' (Null Model)';
|
||||
end;
|
||||
if ItersChk.Checked then OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
for k := 0 to j-1 do
|
||||
begin
|
||||
indx := ix(j,k,nR + 2);
|
||||
indx2 := ix(k,j,nR + 2);
|
||||
Arr[indx] := Arr[indx2];
|
||||
end;
|
||||
end;
|
||||
for i := 0 to nR do
|
||||
begin
|
||||
indx := ix(i,i,nR + 2);
|
||||
s := Arr[indx];
|
||||
Arr[indx] := 1.0;
|
||||
for k := 0 to nR + 1 do
|
||||
begin
|
||||
indx := ix(i,k,nR + 2);
|
||||
Arr[indx] := Arr[indx] / s;
|
||||
end;
|
||||
for j := 0 to nR do
|
||||
begin
|
||||
if i <> j then
|
||||
begin
|
||||
indx := ix(j,i,nR + 2);
|
||||
s := Arr[indx];
|
||||
Arr[indx] := 0.0;
|
||||
for k := 0 to nR + 1 do
|
||||
begin
|
||||
indx2 := ix(j,k,nR + 2);
|
||||
indx3 := ix(i,k,nR + 2);
|
||||
Arr[indx2] := Arr[indx2] - s * Arr[indx3];
|
||||
end; // next k
|
||||
end; // if i not equal j
|
||||
end; // next j
|
||||
end; // next i
|
||||
for j := 0 to nR do
|
||||
begin
|
||||
indx := ix(j,nR + 1,nR + 2);
|
||||
Par[j] := Par[j] + Arr[indx];
|
||||
end;
|
||||
end; // iteration
|
||||
OutPutFrm.RichEdit.Lines.Add('Converged');
|
||||
OutPutFrm.ShowModal;
|
||||
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
CSq := LLn - LL;
|
||||
prob := ChiSq(CSq,nR);
|
||||
outline := format('Overall Model Fit... Chi Square = %8.4f with df = %3d and prob. = %8.4f',
|
||||
[Csq, nR, prob]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('Coefficients and Standard Errors...');
|
||||
OutPutFrm.RichEdit.Lines.Add('Variable Label Coeff. StdErr p');
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
Par[j] := Par[j] / xSD[j];
|
||||
indx := ix(j,j,nP + 1);
|
||||
SEP[j] := sqrt(Arr[indx]) / xSD[j];
|
||||
Par[0] := Par[0] - Par[j] * xM[j];
|
||||
prob := Norm(abs(Par[j] / SEP[j]));
|
||||
outline := format(' %3d %15s %10.4f %10.4f %10.4f',[j,RowLabels[j],Par[j],SEP[j],prob]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
OutPutFrm.ShowModal;
|
||||
|
||||
outline := format('Intercept %10.4f',[Par[0]]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('Odds Ratios and 95% Confidence Intervals...');
|
||||
OutPutFrm.RichEdit.Lines.Add('Variable O.R. Low -- High');
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
ORc := exp(Par[j]);
|
||||
OR1 := exp(Par[j] - 1.96 * SEP[j]);
|
||||
ORh := exp(Par[j] + 1.96 * SEP[j]);
|
||||
outline := format('%15s %10.4f %10.4f %10.4f',[RowLabels[j],ORc,OR1,ORh]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
for i := 1 to 3 do
|
||||
for j := 1 to 3 do Table[i,j] := 0;
|
||||
outline := '';
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
if ProbsChk.Checked then
|
||||
begin
|
||||
for j := 1 to nR do outline := outline + ' X ';
|
||||
outline := outline + ' Y Prob';
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
for i := 0 to nC - 1 do
|
||||
begin
|
||||
value := Par[0];
|
||||
outline := '';
|
||||
for j := 1 to nR do
|
||||
begin
|
||||
indx := ix(i,j,nR + 1);
|
||||
xij := xM[j] + xSD[j] * X[indx];
|
||||
value := value + Par[j] * xij;
|
||||
outline := outline + format(' %10.4f ',[xij]);
|
||||
end;
|
||||
value := 1.0 / (1.0 + exp( -value));
|
||||
outline := outline + format('%4.0f %10.4f',[Y1[i],value]);
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
if round(Y1[i]) = 0 then row := 1 else row := 2;
|
||||
if round(value) = 0 then col := 1 else col := 2;
|
||||
Table[row,col] := Table[row,col] + 1;
|
||||
end; // next i
|
||||
end;
|
||||
for i := 1 to 2 do
|
||||
begin
|
||||
for j := 1 to 2 do
|
||||
begin
|
||||
Table[i,3] := Table[i,3] + Table[i,j];
|
||||
Table[3,j] := Table[3,j] + Table[i,j];
|
||||
end;
|
||||
end;
|
||||
for i := 1 to 2 do Table[3,3] := Table[3,3] + Table[i,3];
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
OutPutFrm.RichEdit.Lines.Add('Classification Table');
|
||||
OutPutFrm.RichEdit.Lines.Add(' Predicted');
|
||||
OutPutFrm.RichEdit.Lines.Add(' --------------- ');
|
||||
OutPutFrm.RichEdit.Lines.Add('Observed 0 1 Total');
|
||||
OutPutFrm.RichEdit.Lines.Add(' --------------- ');
|
||||
for i := 1 to 2 do
|
||||
begin
|
||||
outline := format(' %d ',[i-1]);
|
||||
for j := 1 to 3 do outline := outline + format('| %3d ',[Table[i,j]]);
|
||||
outline := outline + '|';
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
OutPutFrm.RichEdit.Lines.Add(' --------------- ');
|
||||
Outline := 'Total ';
|
||||
for j := 1 to 3 do outline := outline + format('| %3d ',[Table[3,j]]);
|
||||
outline := outline + '';
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
OutPutFrm.RichEdit.Lines.Add(' --------------- ');
|
||||
OutPutFrm.ShowModal;
|
||||
|
||||
cleanup:
|
||||
Arr := nil;
|
||||
SEP := nil;
|
||||
Par := nil;
|
||||
xSD := nil;
|
||||
xM := nil;
|
||||
Y1 := nil;
|
||||
Y0 := nil;
|
||||
X := nil;
|
||||
RowLabels := nil;
|
||||
ColLabels := nil;
|
||||
ColNoSelected := nil;
|
||||
end;
|
||||
|
||||
procedure TLogRegFrm.DepOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(DepVar.Text);
|
||||
DepVar.Text := '';
|
||||
DepInBtn.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure TLogRegFrm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(Self);
|
||||
end;
|
||||
|
||||
procedure TLogRegFrm.OutBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := BlockList.ItemIndex;
|
||||
VarList.Items.Add(BlockList.Items.Strings[index]);
|
||||
BlockList.Items.Delete(index);
|
||||
InBtn.Enabled := true;
|
||||
if BlockList.Items.Count = 0 then OutBtn.Enabled := false;
|
||||
end;
|
||||
|
||||
function TLogRegFrm.ChiSq(x : double; n : integer) : double;
|
||||
var
|
||||
p, t, a : double;
|
||||
k : integer;
|
||||
|
||||
begin
|
||||
p := exp(-0.5 * x);
|
||||
if n mod 2 = 1 then p := p * sqrt(2 * x / Pi);
|
||||
k := n;
|
||||
while K >= 2 do
|
||||
begin
|
||||
p := p * x / k;
|
||||
k := k - 2;
|
||||
end;
|
||||
t := p;
|
||||
a := n;
|
||||
while t > 0.000001 * p do
|
||||
begin
|
||||
a := a + 2;
|
||||
t := t * x / a;
|
||||
p := p + t;
|
||||
end;
|
||||
ChiSq := (1 - p);
|
||||
end;
|
||||
|
||||
function TLogRegFrm.Norm(z : double): double;
|
||||
begin
|
||||
Norm := ChiSq(z * z, 1);
|
||||
end;
|
||||
|
||||
function TLogRegFrm.ix(j, k, nCols : integer): integer;
|
||||
begin
|
||||
ix := j * nCols + k;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I logregunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
377
applications/lazstats/source_orig/lsmrunit.lfm
Normal file
377
applications/lazstats/source_orig/lsmrunit.lfm
Normal file
@ -0,0 +1,377 @@
|
||||
object LSMregForm: TLSMregForm
|
||||
Left = 358
|
||||
Height = 376
|
||||
Top = 150
|
||||
Width = 668
|
||||
Caption = 'Standard Least-Squares Multiple Regression'
|
||||
ClientHeight = 376
|
||||
ClientWidth = 668
|
||||
OnShow = ResetBtnClick
|
||||
LCLVersion = '0.9.30.4'
|
||||
object Label1: TLabel
|
||||
Left = 6
|
||||
Height = 16
|
||||
Top = 8
|
||||
Width = 99
|
||||
Caption = 'Available Variables'
|
||||
ParentColor = False
|
||||
end
|
||||
object VarList: TListBox
|
||||
Left = 6
|
||||
Height = 297
|
||||
Top = 23
|
||||
Width = 161
|
||||
ItemHeight = 0
|
||||
MultiSelect = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object DepInBtn: TBitBtn
|
||||
Left = 176
|
||||
Height = 29
|
||||
Top = 40
|
||||
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 = DepInBtnClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 217
|
||||
Height = 16
|
||||
Top = 40
|
||||
Width = 104
|
||||
Caption = 'Dependent Variable'
|
||||
ParentColor = False
|
||||
end
|
||||
object DepVar: TEdit
|
||||
Left = 216
|
||||
Height = 23
|
||||
Top = 56
|
||||
Width = 146
|
||||
TabOrder = 2
|
||||
Text = 'DepVar'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 214
|
||||
Height = 16
|
||||
Top = 112
|
||||
Width = 168
|
||||
Caption = 'Independent Var.s for this block'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 383
|
||||
Height = 16
|
||||
Top = 11
|
||||
Width = 164
|
||||
Caption = 'Minimum Prob. to enter block:'
|
||||
ParentColor = False
|
||||
end
|
||||
object GroupBox1: TGroupBox
|
||||
Left = 400
|
||||
Height = 225
|
||||
Top = 32
|
||||
Width = 226
|
||||
Caption = 'Options'
|
||||
ClientHeight = 207
|
||||
ClientWidth = 222
|
||||
TabOrder = 3
|
||||
object CPChkBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 1
|
||||
Width = 169
|
||||
Caption = 'Show Cross-Products Matrix'
|
||||
TabOrder = 0
|
||||
end
|
||||
object CovChkBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 22
|
||||
Width = 197
|
||||
Caption = 'Show Variance-Covariance Matrix'
|
||||
TabOrder = 1
|
||||
end
|
||||
object CorrsChkBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 43
|
||||
Width = 169
|
||||
Caption = 'Show Intercorrelation Matrix'
|
||||
TabOrder = 2
|
||||
end
|
||||
object MeansChkBox: TCheckBox
|
||||
Left = 7
|
||||
Height = 19
|
||||
Top = 64
|
||||
Width = 87
|
||||
Caption = 'Show Means'
|
||||
TabOrder = 3
|
||||
end
|
||||
object VarChkBox: TCheckBox
|
||||
Left = 7
|
||||
Height = 19
|
||||
Top = 85
|
||||
Width = 102
|
||||
Caption = 'Show Variances'
|
||||
TabOrder = 4
|
||||
end
|
||||
object SDChkBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 109
|
||||
Width = 157
|
||||
Caption = 'Show Standard Deviations'
|
||||
TabOrder = 5
|
||||
end
|
||||
object MatSaveChkBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 132
|
||||
Width = 142
|
||||
Caption = 'Save Correlation Matrix'
|
||||
TabOrder = 6
|
||||
end
|
||||
object PredictChkBox: TCheckBox
|
||||
Left = 7
|
||||
Height = 19
|
||||
Top = 154
|
||||
Width = 195
|
||||
Caption = 'Predictions,residuals,C.I.''s to Grid'
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
object ResetBtn: TButton
|
||||
Left = 400
|
||||
Height = 26
|
||||
Top = 272
|
||||
Width = 66
|
||||
Caption = 'Reset'
|
||||
OnClick = ResetBtnClick
|
||||
TabOrder = 4
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 544
|
||||
Height = 26
|
||||
Top = 272
|
||||
Width = 66
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 5
|
||||
end
|
||||
object ReturnBtn: TButton
|
||||
Left = 544
|
||||
Height = 26
|
||||
Top = 312
|
||||
Width = 66
|
||||
Caption = 'Return'
|
||||
ModalResult = 1
|
||||
OnClick = ReturnBtnClick
|
||||
TabOrder = 6
|
||||
end
|
||||
object ComputeBtn: TButton
|
||||
Left = 400
|
||||
Height = 26
|
||||
Top = 312
|
||||
Width = 66
|
||||
Caption = 'Compute'
|
||||
OnClick = ComputeBtnClick
|
||||
TabOrder = 7
|
||||
end
|
||||
object IndepVars: TListBox
|
||||
Left = 214
|
||||
Height = 192
|
||||
Top = 128
|
||||
Width = 150
|
||||
ItemHeight = 0
|
||||
TabOrder = 8
|
||||
end
|
||||
object DepOutBtn: TBitBtn
|
||||
Left = 176
|
||||
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 = DepOutBtnClick
|
||||
TabOrder = 9
|
||||
end
|
||||
object InBtn: TBitBtn
|
||||
Left = 176
|
||||
Height = 29
|
||||
Top = 144
|
||||
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 = InBtnClick
|
||||
TabOrder = 10
|
||||
end
|
||||
object OutBtn: TBitBtn
|
||||
Left = 176
|
||||
Height = 29
|
||||
Top = 176
|
||||
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 = OutBtnClick
|
||||
TabOrder = 11
|
||||
end
|
||||
object AllBtn: TBitBtn
|
||||
Left = 176
|
||||
Height = 29
|
||||
Top = 216
|
||||
Width = 32
|
||||
Caption = 'ALL'
|
||||
NumGlyphs = 0
|
||||
OnClick = AllBtnClick
|
||||
TabOrder = 12
|
||||
end
|
||||
object InProb: TEdit
|
||||
Left = 552
|
||||
Height = 23
|
||||
Top = 4
|
||||
Width = 44
|
||||
TabOrder = 13
|
||||
Text = 'InProb'
|
||||
end
|
||||
end
|
||||
257
applications/lazstats/source_orig/lsmrunit.lrs
Normal file
257
applications/lazstats/source_orig/lsmrunit.lrs
Normal file
@ -0,0 +1,257 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TLSMregForm','FORMDATA',[
|
||||
'TPF0'#11'TLSMregForm'#10'LSMregForm'#4'Left'#3'f'#1#6'Height'#3'x'#1#3'Top'#3
|
||||
+#150#0#5'Width'#3#156#2#7'Caption'#6'*Standard Least-Squares Multiple Regres'
|
||||
+'sion'#12'ClientHeight'#3'x'#1#11'ClientWidth'#3#156#2#6'OnShow'#7#13'ResetB'
|
||||
+'tnClick'#10'LCLVersion'#6#8'0.9.30.4'#0#6'TLabel'#6'Label1'#4'Left'#2#6#6'H'
|
||||
+'eight'#2#16#3'Top'#2#8#5'Width'#2'c'#7'Caption'#6#19'Available Variables'#11
|
||||
+'ParentColor'#8#0#0#8'TListBox'#7'VarList'#4'Left'#2#6#6'Height'#3')'#1#3'To'
|
||||
+'p'#2#23#5'Width'#3#161#0#10'ItemHeight'#2#0#11'MultiSelect'#9#8'TabOrder'#2
|
||||
+#0#0#0#7'TBitBtn'#8'DepInBtn'#4'Left'#3#176#0#6'Height'#2#29#3'Top'#2'('#5'W'
|
||||
+'idth'#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#13'DepInBtnClick'#8'TabOrder'#2#1#0#0#6'TLabel'#6'Label2'#4'Left'#3
|
||||
+#217#0#6'Height'#2#16#3'Top'#2'('#5'Width'#2'h'#7'Caption'#6#18'Dependent Va'
|
||||
+'riable'#11'ParentColor'#8#0#0#5'TEdit'#6'DepVar'#4'Left'#3#216#0#6'Height'#2
|
||||
+#23#3'Top'#2'8'#5'Width'#3#146#0#8'TabOrder'#2#2#4'Text'#6#6'DepVar'#0#0#6'T'
|
||||
+'Label'#6'Label3'#4'Left'#3#214#0#6'Height'#2#16#3'Top'#2'p'#5'Width'#3#168#0
|
||||
+#7'Caption'#6' Independent Var.s for this block'#11'ParentColor'#8#0#0#6'TLa'
|
||||
,'bel'#6'Label5'#4'Left'#3#127#1#6'Height'#2#16#3'Top'#2#11#5'Width'#3#164#0#7
|
||||
+'Caption'#6#29'Minimum Prob. to enter block:'#11'ParentColor'#8#0#0#9'TGroup'
|
||||
+'Box'#9'GroupBox1'#4'Left'#3#144#1#6'Height'#3#225#0#3'Top'#2' '#5'Width'#3
|
||||
+#226#0#7'Caption'#6#7'Options'#12'ClientHeight'#3#207#0#11'ClientWidth'#3#222
|
||||
+#0#8'TabOrder'#2#3#0#9'TCheckBox'#8'CPChkBox'#4'Left'#2#6#6'Height'#2#19#3'T'
|
||||
+'op'#2#1#5'Width'#3#169#0#7'Caption'#6#26'Show Cross-Products Matrix'#8'TabO'
|
||||
+'rder'#2#0#0#0#9'TCheckBox'#9'CovChkBox'#4'Left'#2#6#6'Height'#2#19#3'Top'#2
|
||||
+#22#5'Width'#3#197#0#7'Caption'#6#31'Show Variance-Covariance Matrix'#8'TabO'
|
||||
+'rder'#2#1#0#0#9'TCheckBox'#11'CorrsChkBox'#4'Left'#2#6#6'Height'#2#19#3'Top'
|
||||
+#2'+'#5'Width'#3#169#0#7'Caption'#6#28'Show Intercorrelation Matrix'#8'TabOr'
|
||||
+'der'#2#2#0#0#9'TCheckBox'#11'MeansChkBox'#4'Left'#2#7#6'Height'#2#19#3'Top'
|
||||
+#2'@'#5'Width'#2'W'#7'Caption'#6#10'Show Means'#8'TabOrder'#2#3#0#0#9'TCheck'
|
||||
+'Box'#9'VarChkBox'#4'Left'#2#7#6'Height'#2#19#3'Top'#2'U'#5'Width'#2'f'#7'Ca'
|
||||
+'ption'#6#14'Show Variances'#8'TabOrder'#2#4#0#0#9'TCheckBox'#8'SDChkBox'#4
|
||||
+'Left'#2#6#6'Height'#2#19#3'Top'#2'm'#5'Width'#3#157#0#7'Caption'#6#24'Show '
|
||||
+'Standard Deviations'#8'TabOrder'#2#5#0#0#9'TCheckBox'#13'MatSaveChkBox'#4'L'
|
||||
+'eft'#2#6#6'Height'#2#19#3'Top'#3#132#0#5'Width'#3#142#0#7'Caption'#6#23'Sav'
|
||||
+'e Correlation Matrix'#8'TabOrder'#2#6#0#0#9'TCheckBox'#13'PredictChkBox'#4
|
||||
+'Left'#2#7#6'Height'#2#19#3'Top'#3#154#0#5'Width'#3#195#0#7'Caption'#6'$Pred'
|
||||
+'ictions,residuals,C.I.''s to Grid'#8'TabOrder'#2#7#0#0#0#7'TButton'#8'Reset'
|
||||
+'Btn'#4'Left'#3#144#1#6'Height'#2#26#3'Top'#3#16#1#5'Width'#2'B'#7'Caption'#6
|
||||
+#5'Reset'#7'OnClick'#7#13'ResetBtnClick'#8'TabOrder'#2#4#0#0#7'TButton'#9'Ca'
|
||||
+'ncelBtn'#4'Left'#3' '#2#6'Height'#2#26#3'Top'#3#16#1#5'Width'#2'B'#7'Captio'
|
||||
+'n'#6#6'Cancel'#11'ModalResult'#2#2#8'TabOrder'#2#5#0#0#7'TButton'#9'ReturnB'
|
||||
+'tn'#4'Left'#3' '#2#6'Height'#2#26#3'Top'#3'8'#1#5'Width'#2'B'#7'Caption'#6#6
|
||||
+'Return'#11'ModalResult'#2#1#7'OnClick'#7#14'ReturnBtnClick'#8'TabOrder'#2#6
|
||||
+#0#0#7'TButton'#10'ComputeBtn'#4'Left'#3#144#1#6'Height'#2#26#3'Top'#3'8'#1#5
|
||||
+'Width'#2'B'#7'Caption'#6#7'Compute'#7'OnClick'#7#15'ComputeBtnClick'#8'TabO'
|
||||
+'rder'#2#7#0#0#8'TListBox'#9'IndepVars'#4'Left'#3#214#0#6'Height'#3#192#0#3
|
||||
+'Top'#3#128#0#5'Width'#3#150#0#10'ItemHeight'#2#0#8'TabOrder'#2#8#0#0#7'TBit'
|
||||
+'Btn'#9'DepOutBtn'#4'Left'#3#176#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#14
|
||||
+'DepOutBtnClick'#8'TabOrder'#2#9#0#0#7'TBitBtn'#5'InBtn'#4'Left'#3#176#0#6'H'
|
||||
+'eight'#2#29#3'Top'#3#144#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#10'InBtnClick'#8'TabOrder'#2#10
|
||||
+#0#0#7'TBitBtn'#6'OutBtn'#4'Left'#3#176#0#6'Height'#2#29#3'Top'#3#176#0#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#11'OutBtnClick'#8'TabOrder'#2#11#0#0#7'TBitBtn'#6'AllBtn'#4'Left'
|
||||
+#3#176#0#6'Height'#2#29#3'Top'#3#216#0#5'Width'#2' '#7'Caption'#6#3'ALL'#9'N'
|
||||
+'umGlyphs'#2#0#7'OnClick'#7#11'AllBtnClick'#8'TabOrder'#2#12#0#0#5'TEdit'#6
|
||||
+'InProb'#4'Left'#3'('#2#6'Height'#2#23#3'Top'#2#4#5'Width'#2','#8'TabOrder'#2
|
||||
+#13#4'Text'#6#6'InProb'#0#0#0
|
||||
]);
|
||||
358
applications/lazstats/source_orig/lsmrunit.pas
Normal file
358
applications/lazstats/source_orig/lsmrunit.pas
Normal file
@ -0,0 +1,358 @@
|
||||
unit LSMRunit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
||||
StdCtrls, Buttons, Globals, MainUnit, MatrixLib, OutPutUnit,
|
||||
FunctionsLib, DataProcs, DictionaryUnit;
|
||||
|
||||
type
|
||||
|
||||
{ TLSMregForm }
|
||||
|
||||
TLSMregForm = class(TForm)
|
||||
AllBtn: TBitBtn;
|
||||
IndepVars: TListBox;
|
||||
CancelBtn: TButton;
|
||||
ComputeBtn: TButton;
|
||||
CorrsChkBox: TCheckBox;
|
||||
CovChkBox: TCheckBox;
|
||||
CPChkBox: TCheckBox;
|
||||
DepInBtn: TBitBtn;
|
||||
DepOutBtn: TBitBtn;
|
||||
DepVar: TEdit;
|
||||
GroupBox1: TGroupBox;
|
||||
InBtn: TBitBtn;
|
||||
InProb: TEdit;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label5: TLabel;
|
||||
MatSaveChkBox: TCheckBox;
|
||||
MeansChkBox: TCheckBox;
|
||||
SaveDialog1: TSaveDialog;
|
||||
OutBtn: TBitBtn;
|
||||
PredictChkBox: TCheckBox;
|
||||
ResetBtn: TButton;
|
||||
ReturnBtn: TButton;
|
||||
SDChkBox: TCheckBox;
|
||||
VarChkBox: TCheckBox;
|
||||
VarList: TListBox;
|
||||
procedure AllBtnClick(Sender: TObject);
|
||||
procedure CancelBtnClick(Sender: TObject);
|
||||
procedure ComputeBtnClick(Sender: TObject);
|
||||
procedure DepInBtnClick(Sender: TObject);
|
||||
procedure DepOutBtnClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure InBtnClick(Sender: TObject);
|
||||
procedure OutBtnClick(Sender: TObject);
|
||||
procedure ResetBtnClick(Sender: TObject);
|
||||
procedure ReturnBtnClick(Sender: TObject);
|
||||
|
||||
private
|
||||
{ private declarations }
|
||||
IndepVarsCols : IntDyneVec;
|
||||
NoVars : integer;
|
||||
NoBlocks : integer;
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
LSMregForm: TLSMregForm;
|
||||
|
||||
implementation
|
||||
|
||||
procedure TLSMregForm.ResetBtnClick(Sender: TObject);
|
||||
VAR i : integer;
|
||||
begin
|
||||
IndepVars.Items.Clear;
|
||||
VarList.Items.Clear;
|
||||
NoBlocks := 1;
|
||||
for i := 1 to NoVariables do
|
||||
begin
|
||||
VarList.Items.Add(OS3MainFrm.DataGrid.Cells[i,0]);
|
||||
end;
|
||||
InBtn.Enabled := true;
|
||||
OutBtn.Enabled := false;
|
||||
DepInBtn.Enabled := true;
|
||||
DepOutBtn.Enabled := false;
|
||||
CPChkBox.Checked := false;
|
||||
CovChkBox.Checked := false;
|
||||
CorrsChkBox.Checked := true;
|
||||
MeansChkBox.Checked := true;
|
||||
VarChkBox.Checked := false;
|
||||
SDChkBox.Checked := true;
|
||||
MatSaveChkBox.Checked := false;
|
||||
PredictChkBox.Checked := false;
|
||||
// HeteroChk.Checked := false;
|
||||
NoVars := 0;
|
||||
DepVar.Text := '';
|
||||
InProb.Text := '0.05';
|
||||
SetLength(IndepVarsCols,NoVariables+1);
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.ReturnBtnClick(Sender: TObject);
|
||||
begin
|
||||
LSMregForm.Hide;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
ResetBtnClick(self);
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.AllBtnClick(Sender: TObject);
|
||||
VAR count, index : integer;
|
||||
begin
|
||||
count := VarList.Items.Count;
|
||||
for index := 0 to count-1 do
|
||||
begin
|
||||
IndepVars.Items.Add(VarList.Items.Strings[index]);
|
||||
end;
|
||||
VarList.Clear;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.CancelBtnClick(Sender: TObject);
|
||||
begin
|
||||
if IndepVarsCols <> nil then IndepVarsCols := nil;
|
||||
LSMregForm.Hide;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.ComputeBtnClick(Sender: TObject);
|
||||
Label CleanUp;
|
||||
var
|
||||
i, j, k, col, mattype, NCases, anerror : integer;
|
||||
NoIndepVars, DepVarCol, NEntered, StepNo : integer;
|
||||
R2, df1, df2, Y, z, BPG, chiprob : double;
|
||||
StdErrEst, F, FProbF, OldR2 : double;
|
||||
pdf1, pdf2, probin, prout : double;
|
||||
errorcode : boolean;
|
||||
BetaWeights : DblDyneVec;
|
||||
BWeights : DblDyneVec;
|
||||
BStdErrs : DblDyneVec;
|
||||
Bttests : DblDyneVec;
|
||||
tProbs : DblDyneVec;
|
||||
cellstring, outline : string;
|
||||
corrs : DblDyneMat;
|
||||
Means : DblDyneVec;
|
||||
Variances : DblDyneVec;
|
||||
StdDevs : DblDyneVec;
|
||||
title : string;
|
||||
IndRowLabels : StrDyneVec;
|
||||
IndColLabels : StrDyneVec;
|
||||
IndepInverse : DblDyneMat;
|
||||
XYCorrs : DblDyneVec;
|
||||
Partial : DblDyneVec;
|
||||
ColEntered : IntDyneVec;
|
||||
filename : string;
|
||||
constant : double;
|
||||
errcode : boolean;
|
||||
begin
|
||||
NCases := NoCases;
|
||||
SetLength(corrs,NoVariables+1,NoVariables+1);
|
||||
SetLength(IndepInverse,NoVariables,NoVariables+1);
|
||||
SetLength(IndepVarsCols,NoVariables+1);
|
||||
SetLength(BWeights,NoVariables+1);
|
||||
SetLength(BStdErrs,NoVariables+1);
|
||||
SetLength(Bttests,NoVariables+1);
|
||||
SetLength(tProbs,NoVariables+1);
|
||||
SetLength(Means,NoVariables+1);
|
||||
SetLength(Variances,NoVariables+1);
|
||||
SetLength(StdDevs,NoVariables+1);
|
||||
SetLength(IndepVarsCols,NoVariables+1);
|
||||
SetLength(IndColLabels,NoVariables+1);
|
||||
SetLength(IndRowLabels,NoVariables+1);
|
||||
SetLength(BetaWeights,NoVariables+1);
|
||||
SetLength(ColEntered,NoVariables+2);
|
||||
probin := StrToFloat(InProb.Text); // probability to include a block
|
||||
prout := 1.0;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
OutPutFrm.RichEdit.Lines.Add('Least Squares Multiple Regression by Bill Miller');
|
||||
errorcode := false;
|
||||
|
||||
{ get dependendent variable column }
|
||||
if DepVar.Text = '' then
|
||||
begin
|
||||
ShowMessage('ERROR! No Dependent variable selected.');
|
||||
goto CleanUp;
|
||||
end;
|
||||
DepVarCol := 0;
|
||||
NoVars := NoVars + 1;
|
||||
for j := 1 to NoVariables do
|
||||
if DepVar.Text = OS3MainFrm.DataGrid.Cells[j,0] then DepVarCol := j;
|
||||
R2 := 0.0;
|
||||
OldR2 := 0.0;
|
||||
pdf1 := 0.0;
|
||||
pdf2 := 0.0;
|
||||
NEntered := 0;
|
||||
for i := 0 to IndepVars.Count-1 do
|
||||
begin
|
||||
cellstring := OS3Mainfrm.DataGrid.Cells[i+1,0];
|
||||
for j := 1 to NoVariables do
|
||||
begin
|
||||
if cellstring = OS3MainFrm.DataGrid.Cells[j,0] then
|
||||
begin
|
||||
IndepVarsCols[i] := j;
|
||||
ColEntered[i] := j;
|
||||
NEntered := NEntered + 1;
|
||||
IndRowLabels[NEntered-1] := cellstring;
|
||||
IndColLabels[NEntered-1] := cellstring;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
NEntered := NEntered + 1; // dependent variable last
|
||||
ColEntered[NEntered-1] := DepVarCol;
|
||||
IndRowLabels[NEntered-1] := OS3MainFrm.DataGrid.Cells[DepVarCol,0];
|
||||
IndColLabels[NEntered-1] := OS3MainFrm.DataGrid.Cells[DepVarCol,0];
|
||||
OutPutFrm.RichEdit.Lines.Add('');
|
||||
if CPChkBox.Checked = true then
|
||||
begin
|
||||
title := 'Cross-Products Matrix';
|
||||
GridXProd(NEntered,ColEntered,Corrs,errcode,NCases);
|
||||
MAT_PRINT(Corrs,NEntered,NEntered,title,IndRowLabels,IndColLabels,NCases);
|
||||
end;
|
||||
if CovChkBox.Checked = true then
|
||||
begin
|
||||
title := 'Variance-Covariance Matrix';
|
||||
GridCovar(NEntered,ColEntered,Corrs,Means,Variances,
|
||||
StdDevs,errcode,NCases);
|
||||
MAT_PRINT(Corrs,NEntered,NEntered,title,IndRowLabels,IndColLabels,NCases);
|
||||
end;
|
||||
Correlations(NEntered,ColEntered,Corrs,Means,Variances, StdDevs,errcode,NCases);
|
||||
if CorrsChkBox.Checked = true then
|
||||
begin
|
||||
title := 'Product-Moment Correlations Matrix';
|
||||
MAT_PRINT(Corrs,NEntered,NEntered,title,IndRowLabels,IndColLabels,NCases);
|
||||
end;
|
||||
title := 'Means';
|
||||
if MeansChkBox.Checked = true then
|
||||
DynVectorPrint(Means,NEntered,title,IndColLabels,NCases);
|
||||
title := 'Variances';
|
||||
if VarChkBox.Checked = true then
|
||||
DynVectorPrint(Variances,NEntered,title,IndColLabels,NCases);
|
||||
title := 'Standard Deviations';
|
||||
if SDChkBox.Checked = true then
|
||||
DynVectorPrint(StdDevs,NEntered,title,IndColLabels,NCases);
|
||||
if errorcode = true then
|
||||
begin
|
||||
ShowMessage('ERROR! A selected variable has no variability-run aborted.');
|
||||
goto CleanUp;
|
||||
end;
|
||||
NoIndepVars := NEntered - 1;
|
||||
|
||||
MReg(NoIndepVars,ColEntered,DepVarCol,IndRowLabels,Means,Variances,
|
||||
StdDevs,BWeights,BetaWeights,BStdErrs,Bttests,tProbs,R2,StdErrEst,
|
||||
NCases,errorcode,true);
|
||||
df1 := NoIndepVars - pdf1;
|
||||
df2 := NCases - NoIndepVars - 1;
|
||||
F := ((R2 - OldR2) / (1.0 - R2)) * df2 / df1;
|
||||
FProbF := probf(F,df1,df2);
|
||||
if FProbF < probin then
|
||||
begin
|
||||
outline := 'Entry requirements met';
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end
|
||||
else
|
||||
begin
|
||||
outline := 'Entry requirements not met';
|
||||
OutPutFrm.RichEdit.Lines.Add(outline);
|
||||
end;
|
||||
OutPutFrm.ShowModal;
|
||||
OutPutFrm.RichEdit.Clear;
|
||||
|
||||
{ add [predicted scores, residual scores, etc. to grid if options elected }
|
||||
if PredictChkBox.Checked = true then
|
||||
begin
|
||||
prout := 1.0;
|
||||
Correlations(NEntered,ColEntered,Corrs,Means,Variances,
|
||||
StdDevs,errcode,NCases);
|
||||
|
||||
MReg2(NCases,NEntered,NoIndepVars,ColEntered,corrs,IndepInverse,
|
||||
IndRowLabels,R2,BetaWeights,
|
||||
Means,Variances,anerror,StdErrEst,constant,prout,true, false,false);
|
||||
|
||||
Predict(ColEntered, NEntered, IndepInverse, Means, StdDevs,
|
||||
BetaWeights, StdErrEst, IndepVarsCols, NoIndepVars);
|
||||
end;
|
||||
// OutPutFrm.ShowModal;
|
||||
// OutPutFrm.RichEdit.Clear;
|
||||
|
||||
if MatSaveChkBox.Checked = true then
|
||||
begin
|
||||
SaveDialog1.Filter := 'FreeStat matrix files (*.MAT)|*.MAT|All files (*.*)|*.*';
|
||||
SaveDialog1.FilterIndex := 1;
|
||||
if SaveDialog1.Execute then
|
||||
begin
|
||||
filename := SaveDialog1.FileName;
|
||||
MATSAVE(Corrs,NoVars,NoVars,Means,StdDevs,NCases,IndRowLabels,IndColLabels,filename);
|
||||
end;
|
||||
end;
|
||||
// OutPutFrm.ShowModal;
|
||||
CleanUp:
|
||||
ColEntered := nil;
|
||||
BetaWeights := nil;
|
||||
IndColLabels := nil;
|
||||
IndRowLabels := nil;
|
||||
StdDevs := nil;
|
||||
Variances := nil;
|
||||
Means := nil;
|
||||
IndepInverse := nil;
|
||||
corrs := nil;
|
||||
IndepVarsCols := nil;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.DepInBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := VarList.ItemIndex;
|
||||
DepVar.Text := VarList.Items.Strings[index];
|
||||
VarList.Items.Delete(index);
|
||||
DepOutBtn.Enabled := true;
|
||||
DepInBtn.Enabled := false;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.DepOutBtnClick(Sender: TObject);
|
||||
begin
|
||||
VarList.Items.Add(DepVar.Text);
|
||||
DepVar.Text := '';
|
||||
DepInBtn.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.InBtnClick(Sender: TObject);
|
||||
VAR i, index : integer;
|
||||
begin
|
||||
index := VarList.Items.Count;
|
||||
i := 0;
|
||||
while i < index do
|
||||
begin
|
||||
if (VarList.Selected[i]) then
|
||||
begin
|
||||
IndepVars.Items.Add(VarList.Items.Strings[i]);
|
||||
VarList.Items.Delete(i);
|
||||
index := index - 1;
|
||||
i := 0;
|
||||
end
|
||||
else i := i + 1;
|
||||
end;
|
||||
OutBtn.Enabled := true;
|
||||
end;
|
||||
|
||||
procedure TLSMregForm.OutBtnClick(Sender: TObject);
|
||||
VAR index : integer;
|
||||
begin
|
||||
index := IndepVars.ItemIndex;
|
||||
VarList.Items.Add(IndepVars.Items.Strings[index]);
|
||||
IndepVars.Items.Delete(index);
|
||||
InBtn.Enabled := true;
|
||||
if IndepVars.Items.Count = 0 then OutBtn.Enabled := false;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I lsmrunit.lrs}
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user