#include
#include
#include "gammaDF.h"
ENTRY double
chi2DF(double f, double x)
/*
* ‚лзЁб«пҐвбп ўҐа®пв®бвм в®Ј®, зв® б«гз © п ўҐ«ЁзЁ ,
* Ї®¤зЁпой пбп а бЇаҐ¤Ґ«ҐЁо еЁ-Єў ¤а в б f б⥯Ґп¬Ё бў®Ў®¤л,
* Ґ ЇаҐў®б室Ёв § ¤ ®Ј® § 票п x.
*/
{
assert(f > 0);
return GammaDF(f/2.0).value(x/2.0);
}/*chi2DF*/
ENTRY double
inv_chi2DF(double f, double q)
/* ‚лзЁб«пҐвбп § 票Ґ е ¤«п Є®в®а®Ј® chi2DF(f, x) ўҐаҐв q.
*/
{
assert(f > 0);
return GammaDF(f/2.0).quantile(q);
}/*inv_chi2DF*/