paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Rename TFitSeries.Statistics to .FitStatistics

Browse Source 
git-svn-id: trunk@58754 -
This commit is contained in:
wp 2018-08-22 07:51:31 +00:00
parent 13d5bd13c3
commit 20c1203380
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/demo/fit/Main.pas
View File

@ -464,10 +464,10 @@ begin
Add('ANALYSIS OF VARIANCE');
lbResults.Canvas.Font.Assign(lbResults.Font);
FReportDecimals := 5;
FitSeries.Statistics.Report_ANOVA(lbResults.Items, #9, '%.'+IntToStr(FReportDecimals)+'f');
FitSeries.FitStatistics.Report_ANOVA(lbResults.Items, #9, '%.'+IntToStr(FReportDecimals)+'f');
Add('');
Add('VARIANCE-COVARIANCE MATRIX');
FitSeries.Statistics.Report_VarCovar(lbResults.Items);
FitSeries.FitStatistics.Report_VarCovar(lbResults.Items);
{$IF FPC_FullVersion >= 30004}
UpperConfIntervalSeries.OnCalculate := @FitSeries.GetUpperConfidenceInterval;

8
components/tachart/tafuncseries.pas
View File

@ -356,7 +356,7 @@ type
property Param_pValue[AIndex: Integer]: Double read GetParam_pValue;
{$IFEND}
property Param_tValue[AIndex: Integer]: Double read GetParam_tValue;
property Statistics: TFitStatistics read FFitStatistics;
property FitStatistics: TFitStatistics read FFitStatistics;
property ConfidenceLevel: Double read FConfidenceLevel write FConfidenceLevel;
property ErrCode: TFitErrCode read FErrCode;
property State: TFitParamsState read FState;
@ -1737,8 +1737,8 @@ begin
val := GetParam_RawValue(AIndex);
sig := GetParam_RawError(AIndex);
alpha := 1.0 - FConfidenceLevel;
t := Statistics.tValue;
// t := invtdist(alpha, Statistics.DOF, 2);
t := FitStatistics.tValue;
// t := invtdist(alpha, FitStatistics.DOF, 2);
ALower := val - sig*t;
AUpper := val + sig*t;
if (FFitEquation in [feExp, fePower]) and (AIndex = 0) then begin
@ -1755,7 +1755,7 @@ var
Offs: Double;
begin
offs := IfThen(IsPrediction, 1, 0);
with Statistics do begin
with FitStatistics do begin
y := TransformY(Calculate(AX));
dy := tValue * ResidualStdError * sqrt(offs + 1/N + sqr(AX - xBar) / SSx);
if IsUpper then