11 lines
115 B
C
11 lines
115 B
C
|
|
#include <math.h>
|
|
|
|
float beta(z,w)
|
|
float w,z;
|
|
{
|
|
float gammln();
|
|
|
|
return exp(gammln(z)+gammln(w)-gammln(z+w));
|
|
}
|