paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix FitSeries crashing when y error bars are all zero.

Browse Source
This commit is contained in:
wp_xyz 2024-01-17 00:20:32 +01:00
parent 34c8c64d30
commit 0a726f4b75
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/tachart/tafitlib.pas
View File

@ -79,6 +79,17 @@ uses
spe, // Incomplete gamma function
inv; // Inverse matrix
function AllZero(x: TArbFloatArray): Boolean;
var
i: Integer;
begin
Result := false;
for i := 0 to High(x) do
if x[i] <> 0.0 then
exit;
Result := true;
end;
function FitBaseFunc_Const(x: ArbFloat; Param: Integer): ArbFloat;
begin
Result := 1.0;
@ -150,7 +161,7 @@ var
i, n: Integer;
begin
n := Length(y);
hasSig := (dy <> nil) and (Length(dy) > 0);
hasSig := (dy <> nil) and (Length(dy) > 0) and not AllZero(dy);
Assert(n = Length(yhat));
if hasSig then
Assert(n = Length(dy));
@ -226,7 +237,7 @@ begin
Result.ErrCode := fitDimError;
exit;
end;
hasSig := (dy <> nil) and (Length(dy) > 0);
hasSig := (dy <> nil) and (Length(dy) > 0) and not AllZero(dy);
if hasSig and (n <> Length(dy)) then begin
Result.ErrCode := fitDimError;
exit;