igngeom.c File Reference

#include "stack-c.h"
#include <math.h>

Include dependency graph for igngeom.c:

Go to the source code of this file.

Functions
double F2C()	logp1 (double *x)
double C2F()	ranf ()
double	igngeom (double p)

---

Function Documentation

double igngeom

(

double

p

)

Definition at line 55 of file igngeom.c.

References C2F, F2C(), logp1(), and ranf().

Referenced by RandI().

{
  static double p_save = 1.0, ln_1_m_p = 0.0;
  double u;

  if ( p == 1 ) 
    return ( 1.0 );
  else if ( p != p_save )   /* => recompute log(1-p) */
    {
      p_save = p; u = -p; ln_1_m_p = F2C(logp1)(&u);
    };
  
  u = -C2F(ranf)();
  return ( floor( 1.0 + F2C(logp1)(&u)/ln_1_m_p) );
}      

Here is the call graph for this function:

Here is the caller graph for this function:

double F2C() logp1

(

double *

x

)

Referenced by igngeom().

Here is the caller graph for this function:

double C2F() ranf

(

)

Definition at line 65 of file sci_grand.c.

References current_gen, and gen.

Referenced by igngeom(), and RandI().

{
  /* random deviate from U[0,1) */
  return ( (double) gen[current_gen]() * factor[current_gen] );
}

Here is the caller graph for this function:

---