Revision 1935 trunk/src/linad99/vcumdbetainv.cpp

vcumdbetainv.cpp (revision 1935)
4 4
 * Author: Unknown
5 5
 */
6 6

  
7
#if defined(USE_LAPLACE)
8
#  include <df1b2fun.h>
9
#endif
10

  
11 7
#include <admodel.h>
12 8
#include "df12fun.h"
13 9

  
......
18 14
  return gammln(a)+gammln(b)-gammln(a+b);
19 15
}
20 16

  
21
/*
22
static int sgn(double z)
23
{
24
  if (z>=0)
25
    return 1;
26
  else
27
    return -1;
28
}
29
*/
30

  
31 17
df1_two_variable betai(const df1_two_variable& a,
32 18
  const df1_two_variable& b,double x,int maxit=100);
33 19

  
34

  
35 20
dvariable inv_cumd_beta_stable(const prevariable& _a,const prevariable& _b,
36 21
  const prevariable& _y,double eps)
37 22
{

Also available in: Unified diff