pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazStats: Fix crash of MedianPolishUnit when plot appears.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7377 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-04-13 20:12:50 +00:00
parent d3734d69db
commit bc505b84f0
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
applications/lazstats/source/forms/analysis/multivariate/medianpolishunit.pas
View File

@ -2,6 +2,9 @@
// Tried to reproduce https://www.youtube.com/watch?v=RtC9ZMOYgk8 // Tried to reproduce https://www.youtube.com/watch?v=RtC9ZMOYgk8
// --> does not work... // --> does not work...
// wp: a file with reasonable output is LesMaySmoothin.laz with x -> dep,
// row --> Factor 1, col --> Factor2.
unit MedianPolishUnit; unit MedianPolishUnit;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@ -732,8 +735,8 @@ end;
procedure TMedianPolishForm.FormCreate(Sender: TObject); procedure TMedianPolishForm.FormCreate(Sender: TObject);
begin begin
Assert(OS3MainFrm <> nil); Assert(OS3MainFrm <> nil);
if OutputFrm = nil then if GraphFrm = nil then
Application.CreateForm(TOutputFrm, OutputFrm); Application.CreateForm(TGraphFrm, GraphFrm);
end; end;
function TMedianPolishForm.Median(const X: DblDyneVec; ASize: integer): double; function TMedianPolishForm.Median(const X: DblDyneVec; ASize: integer): double;