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

TAChart: Fix x values for TFitSeries' confidence/prediction intervals in case of FitEquation = fePower

Browse Source 
git-svn-id: trunk@58755 -
This commit is contained in:
wp 2018-08-22 08:02:19 +00:00
parent 20c1203380
commit 3a70dfe1f1
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/tachart/tafuncseries.pas
View File

@ -1738,7 +1738,6 @@ begin
sig := GetParam_RawError(AIndex);
alpha := 1.0 - FConfidenceLevel;
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
@ -1750,14 +1749,16 @@ end;
procedure TFitSeries.GetInterval(const aX: Double; out AY: Double;
IsUpper, IsPrediction: Boolean);
var
y: Double;
x,y: Double;
dy: Double;
Offs: Double;
begin
offs := IfThen(IsPrediction, 1, 0);
with FitStatistics do begin
y := TransformY(Calculate(AX));
dy := tValue * ResidualStdError * sqrt(offs + 1/N + sqr(AX - xBar) / SSx);
x := TransformX(AX);
y := Calculate(AX);
y := TransformY(y);
dy := tValue * ResidualStdError * sqrt(offs + 1/N + sqr(x - xBar) / SSx);
if IsUpper then
AY := y + dy
else