#include <vector>
#include <math.h>
#include "mrgsolv.h"

Macros
#define	pred_CL _pred_[0]

#define	pred_V _pred_[1]

#define	pred_VC _pred_[1]

#define	pred_V2 _pred_[1]

#define	pred_KA _pred_[2]

#define	pred_Q _pred_[3]

#define	pred_V3 _pred_[4]

#define	pred_VP _pred_[4]

#define	__ADVAN1_TRANS2__ pred_CL = CL; pred_V = V;

#define	__ADVAN2_TRANS2__ pred_CL = CL; pred_V = V; pred_KA = KA;

#define	__ADVAN3_TRANS4__ pred_CL = CL; pred_V2 = V1; pred_Q = Q; pred_V3 = V2;

#define	__ADVAN4_TRANS4__ pred_CL = CL; pred_V2 = V2; pred_Q = Q; pred_V3 = V3; pred_KA = KA;

#define	__ADVAN1_TRANS11__ pred_CL = CLi; pred_V = Vi;

#define	__ADVAN2_TRANS11__ pred_CL = CLi; pred_V = Vi; pred_KA = KAi;

#define	__ADVAN3_TRANS11__ pred_CL = CLi; pred_V2 = V1i; pred_Q = Qi; pred_V3 = V2i;

#define	__ADVAN4_TRANS11__ pred_CL = CLi; pred_V2 = V2i; pred_Q = Qi; pred_V3 = V3i; pred_KA = KAi;

#define	__BEGIN_pred__ extern "C" {void __ODEFUN___(MRGSOLVE_PRED_SIGNATURE) {

#define	__BEGIN_config__ extern "C" { void __CONFIGFUN___(MRGSOLVE_CONFIG_SIGNATURE) {

#define	__END_config__ __DONE__

#define	__BEGIN_ode__ extern "C" { void __ODEFUN___(MRGSOLVE_ODE_SIGNATURE) {

#define	__END_ode__ __DONE__

#define	__BEGIN_main__ extern "C" { void __INITFUN___(MRGSOLVE_INIT_SIGNATURE) {

#define	__END_main__ __DONE__

#define	__BEGIN_table__ extern "C" { void __TABLECODE___(MRGSOLVE_TABLE_SIGNATURE) {

#define	__END_table__ __DONE__

#define	__DONE__ }}

#define	NEWIND self.newind

#define	TIME self.time

#define	SOLVERTIME _ODETIME_[0]

#define	EVID self.evid

#define	ID self.id

#define	AMT self.amt

#define	CMT self.cmt

#define	SS_ADVANCE _ss_flag_

#define	_F(a) _F_[a-1]

#define	_R(a) _R_[a-1]

#define	_D(a) _D_[a-1]

#define	_ALAG(a) _ALAG_[a-1]

#define	ETA(a) self.ETA.at(a-1)

#define	EPS(a) self.EPS.at(a-1)

#define	_xETA(a) self.ETA[a-1]

#define	_xEPS(a) self.EPS[a-1]

#define	_NEQ (_A_0_.size())

#define	_MRGX_GET(a, b) b = mrgx::get<a>(self,#b);

#define	_MRGX_GET_LOCAL(a, b) a b = mrgx::get<a>(self,#b);

#define	_MRGX_MT_FUN(a) Rcpp::Function a = mrgx::mt_fun();

#define	SYSTEMSTOPADVANCING() (self.SYSTEMOFF=1);

#define	STOPADVANCING() SYSTEMSTOPADVANCING()

#define	CFONSTOP() (self.CFONSTOP = true);

#define	SYSTEMNOTADVANCING (self.SYSTEMOFF)

#define	SOLVINGPROBLEM (self.solving)

#define	_SETINIT if(self.newind <=1)

#define	_STOP_ID() (self.SYSTEMOFF=2);

#define	_STOP_ID_CF() (self.SYSTEMOFF=1);

#define	_STOP_ERROR() (self.SYSTEMOFF=9);

#define	DXDTZERO() for(int _i_ = 0; _i_ < _nEQ; ++_i_) _DADT_[_i_] = 0;

Typedefs
typedef double	local_double

typedef int	local_int

typedef bool	local_bool

typedef double	capture

Macro Definition Documentation

◆ __ADVAN1_TRANS11__

#define __ADVAN1_TRANS11__ pred_CL = CLi; pred_V = Vi;

◆ __ADVAN1_TRANS2__

#define __ADVAN1_TRANS2__ pred_CL = CL; pred_V = V;

◆ __ADVAN2_TRANS11__

#define __ADVAN2_TRANS11__ pred_CL = CLi; pred_V = Vi; pred_KA = KAi;

◆ __ADVAN2_TRANS2__

#define __ADVAN2_TRANS2__ pred_CL = CL; pred_V = V; pred_KA = KA;

◆ __ADVAN3_TRANS11__

#define __ADVAN3_TRANS11__ pred_CL = CLi; pred_V2 = V1i; pred_Q = Qi; pred_V3 = V2i;

◆ __ADVAN3_TRANS4__

#define __ADVAN3_TRANS4__ pred_CL = CL; pred_V2 = V1; pred_Q = Q; pred_V3 = V2;

◆ __ADVAN4_TRANS11__

#define __ADVAN4_TRANS11__ pred_CL = CLi; pred_V2 = V2i; pred_Q = Qi; pred_V3 = V3i; pred_KA = KAi;

◆ __ADVAN4_TRANS4__

#define __ADVAN4_TRANS4__ pred_CL = CL; pred_V2 = V2; pred_Q = Q; pred_V3 = V3; pred_KA = KA;

◆ __BEGIN_config__

#define __BEGIN_config__ extern "C" { void __CONFIGFUN___(MRGSOLVE_CONFIG_SIGNATURE) {

◆ __BEGIN_main__

#define __BEGIN_main__ extern "C" { void __INITFUN___(MRGSOLVE_INIT_SIGNATURE) {

◆ __BEGIN_ode__

#define __BEGIN_ode__ extern "C" { void __ODEFUN___(MRGSOLVE_ODE_SIGNATURE) {

◆ __BEGIN_pred__

#define __BEGIN_pred__ extern "C" {void __ODEFUN___(MRGSOLVE_PRED_SIGNATURE) {

◆ __BEGIN_table__

#define __BEGIN_table__ extern "C" { void __TABLECODE___(MRGSOLVE_TABLE_SIGNATURE) {

◆ DONE

#define __DONE__ }}

◆ __END_config__

#define __END_config__ __DONE__

◆ __END_main__

#define __END_main__ __DONE__

◆ __END_ode__

#define __END_ode__ __DONE__

◆ __END_table__

#define __END_table__ __DONE__

◆ _ALAG

#define _ALAG ( a ) _ALAG_[a-1]

◆ _D

#define _D ( a ) _D_[a-1]

◆ _F

#define _F ( a ) _F_[a-1]

◆ _MRGX_GET

#define _MRGX_GET	(	a,
		b
	)	b = mrgx::get<a>(self,#b);

◆ _MRGX_GET_LOCAL

#define _MRGX_GET_LOCAL	(	a,
		b
	)	a b = mrgx::get<a>(self,#b);

◆ _MRGX_MT_FUN

#define _MRGX_MT_FUN ( a ) Rcpp::Function a = mrgx::mt_fun();

◆ _NEQ

#define _NEQ (_A_0_.size())

◆ _R

#define _R ( a ) _R_[a-1]

◆ _SETINIT

#define _SETINIT if(self.newind <=1)

◆ _STOP_ERROR

#define _STOP_ERROR ( ) (self.SYSTEMOFF=9);

◆ _STOP_ID

#define _STOP_ID ( ) (self.SYSTEMOFF=2);

◆ _STOP_ID_CF

#define _STOP_ID_CF ( ) (self.SYSTEMOFF=1);

◆ _xEPS

#define _xEPS ( a ) self.EPS[a-1]

◆ _xETA

#define _xETA ( a ) self.ETA[a-1]

◆ AMT

#define AMT self.amt

◆ CFONSTOP

#define CFONSTOP ( ) (self.CFONSTOP = true);

◆ CMT

#define CMT self.cmt

◆ DXDTZERO

#define DXDTZERO ( ) for(int _i_ = 0; _i_ < _nEQ; ++_i_) _DADT_[_i_] = 0;

◆ EPS

#define EPS ( a ) self.EPS.at(a-1)

◆ ETA

#define ETA ( a ) self.ETA.at(a-1)

◆ EVID

#define EVID self.evid

◆ ID

#define ID self.id

◆ NEWIND

#define NEWIND self.newind

◆ pred_CL

#define pred_CL _pred_[0]

◆ pred_KA

#define pred_KA _pred_[2]

◆ pred_Q

#define pred_Q _pred_[3]

◆ pred_V

#define pred_V _pred_[1]

◆ pred_V2

#define pred_V2 _pred_[1]

◆ pred_V3

#define pred_V3 _pred_[4]

◆ pred_VC

#define pred_VC _pred_[1]

◆ pred_VP

#define pred_VP _pred_[4]

◆ SOLVERTIME

#define SOLVERTIME _ODETIME_[0]

◆ SOLVINGPROBLEM

#define SOLVINGPROBLEM (self.solving)

◆ SS_ADVANCE

#define SS_ADVANCE _ss_flag_

◆ STOPADVANCING

#define STOPADVANCING ( ) SYSTEMSTOPADVANCING()

◆ SYSTEMNOTADVANCING

#define SYSTEMNOTADVANCING (self.SYSTEMOFF)

◆ SYSTEMSTOPADVANCING

#define SYSTEMSTOPADVANCING ( ) (self.SYSTEMOFF=1);

◆ TIME

#define TIME self.time

Typedef Documentation

◆ capture

typedef double capture

◆ local_bool

typedef bool local_bool

◆ local_double

typedef double local_double

◆ local_int

typedef int local_int

Macros

Typedefs