C++ (Cpp) rndgamma2 примеры использования

Пример #1

Файл: gamma.c Проект: simjoly/jml

double rndgamma (double s)
{
	double	r=0.0;
	
	if (s <= 0.0)      
		return 0;
	else if (s < 1.0)  
		r = rndgamma1 (s);
	else if (s > 1.0)  
		r = rndgamma2 (s);
	else           
		r =- log(rndu());
	return (r);
}

Пример #2

Файл: gamma.c Проект: cran/phyclust

//WCC double rndgamma (double s)
double seq_gen_rndgamma (double s)
{
	double	r=0.0;
	
	if (s <= 0.0)      
		return 0;
	else if (s < 1.0)  
		r = rndgamma1 (s);
	else if (s > 1.0)  
		r = rndgamma2 (s);
	else           
//WCC		r =- log(rndu());
		r =- log(seq_gen_rndu());
	return (r);
}