lbdp.cc

Go to the documentation of this file.

// LBDP: Linear birth-death-sampling model (C++)
#include "master.h"
#include "popul_proc.h"
#include "generics.h"
#include "internal.h"
 
static int deme = 0;

typedef struct {
  int n;
} lbdp_state_t;
typedef struct  {…};

typedef struct {
  double lambda;
  double mu;
  double psi;
  int n0;
} lbdp_parameters_t;
typedef struct  {…};
 
using lbdp_proc_t = popul_proc_t<lbdp_state_t,lbdp_parameters_t,3>;
using lbdp_genealogy_t = master_t<lbdp_proc_t,1>;
 
template<>
std::string lbdp_proc_t::yaml (std::string tab) const {
  std::string t = tab + "  ";
  std::string p = tab + "parameter:\n"
    + YAML_PARAM(lambda)
    + YAML_PARAM(mu)
    + YAML_PARAM(psi)
    + YAML_PARAM(n0);
  std::string s = tab + "state:\n"
    + YAML_STATE(n);
  return p+s;
}
std::string lbdp_proc_t::yaml (std::string tab) const  {…}
 
template<>
void lbdp_proc_t::update_params (double *p, int n) {
  int m = 0;
  PARAM_SET(lambda);
  PARAM_SET(mu);
  PARAM_SET(psi);
  if (m != n) err("wrong number of parameters!");
}
void lbdp_proc_t::update_params (double *p, int n) {…}
 
template<>
void lbdp_proc_t::update_IVPs (double *p, int n) {
  int m = 0;
  PARAM_SET(n0);
  if (m != n) err("wrong number of initial-value parameters!");
}
void lbdp_proc_t::update_IVPs (double *p, int n) {…}
 
template<>
double lbdp_proc_t::event_rates (double *rate, int n) const {
  int m = 0;
  double total = 0;
  RATE_CALC(params.lambda * state.n);
  RATE_CALC(params.mu * state.n);
  RATE_CALC(params.psi * state.n);
  if (m != n) err("wrong number of events!");
  return total;
}
double lbdp_proc_t::event_rates (double *rate, int n) const  {…}
 
template<>
void lbdp_genealogy_t::rinit (void) {
  state.n = params.n0;
  graft(deme,params.n0);
}
void lbdp_genealogy_t::rinit (void) {…}
 
template<>
void lbdp_genealogy_t::jump (int event) {
  switch (event) {
  case 0:
    state.n += 1; birth();
    break;
  case 1:
    state.n -= 1; death();
    break;
  case 2:
    sample();
    break;
  default:                      // #nocov
    assert(0);                  // #nocov
    break;                      // #nocov
  }
}
void lbdp_genealogy_t::jump (int event) {…}
 
GENERICS(LBDP,lbdp_genealogy_t)