LazStats: Show cumulative probabilities in DistribUnit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7639 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-08-28 21:58:45 +00:00
parent 74d1082ccb
commit e65cc723d5
5 changed files with 340 additions and 129 deletions

View File

@ -980,16 +980,15 @@ begin
end;
//-------------------------------------------------------------------
function probt(t,df1 : double) : double;
// Returns the probability corresponding to a two-tailed t test.
function ProbT(t, df1: double): double;
var
F, prob : double;
F, prob: double;
begin
// Returns the probability corresponding to a two-tailed t test.
F := t * t;
prob := probf(F,1.0,df1);
Result := prob;
F := t * t;
prob := ProbF(F, 1.0, df1);
Result := prob;
end;
//------------------------------------------------------------------------
function inverset(Probt, DF : double) : double;
var