Generated Code
The following is c code generated by the CellML API from this CellML file. (Back to language selection)
The raw code is available.
/*
There are a total of 21 entries in the algebraic variable array.
There are a total of 6 entries in each of the rate and state variable arrays.
There are a total of 40 entries in the constant variable array.
*/
/*
* VOI is time in component environment (second).
* CONSTANTS[0] is R_mt in component heart_parameters (kPa_second_per_liter).
* CONSTANTS[1] is R_av in component heart_parameters (kPa_second_per_liter).
* CONSTANTS[2] is R_tc in component heart_parameters (kPa_second_per_liter).
* CONSTANTS[3] is R_pv in component heart_parameters (kPa_second_per_liter).
* CONSTANTS[4] is R_pul in component heart_parameters (kPa_second_per_liter).
* CONSTANTS[5] is R_sys in component heart_parameters (kPa_second_per_liter).
* CONSTANTS[6] is HR in component heart_parameters (dimensionless).
* CONSTANTS[7] is V_tot in component heart_parameters (liter).
* CONSTANTS[8] is P_pl in component heart_parameters (kPa).
* ALGEBRAIC[1] is e_t in component driver_function (dimensionless).
* CONSTANTS[9] is A in component driver_function (dimensionless).
* CONSTANTS[10] is B in component driver_function (dimensionless).
* CONSTANTS[11] is C in component driver_function (dimensionless).
* ALGEBRAIC[0] is tau in component driver_function (second).
* CONSTANTS[12] is period in component driver_function (dimensionless).
* ALGEBRAIC[2] is V_pcd in component pericardium (liter).
* ALGEBRAIC[3] is P_pcd in component pericardium (kPa).
* ALGEBRAIC[4] is P_peri in component pericardium (kPa).
* STATES[0] is V_lv in component left_ventricle (liter).
* STATES[1] is V_rv in component right_ventricle (liter).
* CONSTANTS[13] is P_0_pcd in component pericardium (kPa).
* CONSTANTS[14] is V_0_pcd in component pericardium (liter).
* CONSTANTS[15] is lambda_pcd in component pericardium (per_liter).
* ALGEBRAIC[9] is V_lvf in component left_ventricle (liter).
* ALGEBRAIC[10] is P_lvf in component left_ventricle (kPa).
* ALGEBRAIC[18] is P_lv in component left_ventricle (kPa).
* ALGEBRAIC[11] is V_spt in component septum (liter).
* ALGEBRAIC[12] is P_es_lvf in component lvf_calculator (kPa).
* ALGEBRAIC[13] is P_ed_lvf in component lvf_calculator (kPa).
* ALGEBRAIC[6] is P_pu in component pulmonary_vein (kPa).
* ALGEBRAIC[7] is P_ao in component aorta (kPa).
* CONSTANTS[16] is E_es_lvf in component lvf_calculator (kPa_per_liter).
* CONSTANTS[17] is V_d_lvf in component lvf_calculator (liter).
* CONSTANTS[18] is P_0_lvf in component lvf_calculator (kPa).
* CONSTANTS[19] is lambda_lvf in component lvf_calculator (per_liter).
* CONSTANTS[20] is V_0_lvf in component lvf_calculator (liter).
* ALGEBRAIC[14] is V_rvf in component right_ventricle (liter).
* ALGEBRAIC[15] is P_rvf in component right_ventricle (kPa).
* ALGEBRAIC[19] is P_rv in component right_ventricle (kPa).
* ALGEBRAIC[16] is P_es_rvf in component rvf_calculator (kPa).
* ALGEBRAIC[17] is P_ed_rvf in component rvf_calculator (kPa).
* ALGEBRAIC[5] is P_pa in component pulmonary_artery (kPa).
* ALGEBRAIC[8] is P_vc in component vena_cava (kPa).
* CONSTANTS[21] is E_es_rvf in component rvf_calculator (kPa_per_liter).
* CONSTANTS[22] is V_d_rvf in component rvf_calculator (liter).
* CONSTANTS[23] is P_0_rvf in component rvf_calculator (kPa).
* CONSTANTS[24] is lambda_rvf in component rvf_calculator (per_liter).
* CONSTANTS[25] is V_0_rvf in component rvf_calculator (liter).
* ALGEBRAIC[20] is P_sept in component septum (kPa).
* CONSTANTS[26] is E_es_spt in component septum (kPa_per_liter).
* CONSTANTS[27] is V_d_spt in component septum (liter).
* CONSTANTS[28] is P_0_spt in component septum (kPa).
* CONSTANTS[29] is lambda_spt in component septum (per_liter).
* CONSTANTS[30] is V_0_spt in component septum (liter).
* CONSTANTS[31] is one in component septum (dimensionless).
* CONSTANTS[32] is E_es_pa in component pulmonary_artery (kPa_per_liter).
* STATES[2] is V_pa in component pulmonary_artery (liter).
* CONSTANTS[33] is V_d_pa in component pulmonary_artery (liter).
* CONSTANTS[34] is E_es_pu in component pulmonary_vein (kPa_per_liter).
* STATES[3] is V_pu in component pulmonary_vein (liter).
* CONSTANTS[35] is V_d_pu in component pulmonary_vein (liter).
* CONSTANTS[36] is E_es_ao in component aorta (kPa_per_liter).
* STATES[4] is V_ao in component aorta (liter).
* CONSTANTS[37] is V_d_ao in component aorta (liter).
* CONSTANTS[38] is E_es_vc in component vena_cava (kPa_per_liter).
* STATES[5] is V_vc in component vena_cava (liter).
* CONSTANTS[39] is V_d_vc in component vena_cava (liter).
* RATES[0] is d/dt V_lv in component left_ventricle (liter).
* RATES[1] is d/dt V_rv in component right_ventricle (liter).
* RATES[2] is d/dt V_pa in component pulmonary_artery (liter).
* RATES[3] is d/dt V_pu in component pulmonary_vein (liter).
* RATES[4] is d/dt V_ao in component aorta (liter).
* RATES[5] is d/dt V_vc in component vena_cava (liter).
*/
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 0.06;
CONSTANTS[1] = 1.4;
CONSTANTS[2] = 0.18;
CONSTANTS[3] = 0.48;
CONSTANTS[4] = 19;
CONSTANTS[5] = 140;
CONSTANTS[6] = 80;
CONSTANTS[7] = 5.5;
CONSTANTS[8] = -0.533289474;
CONSTANTS[9] = 1;
CONSTANTS[10] = 80;
CONSTANTS[11] = 0.27;
CONSTANTS[12] = 0.405;
STATES[0] = 0.005;
STATES[1] = 0.005;
CONSTANTS[13] = 0.067;
CONSTANTS[14] = 0.2;
CONSTANTS[15] = 30;
CONSTANTS[16] = 454;
CONSTANTS[17] = 0.005;
CONSTANTS[18] = 0.17;
CONSTANTS[19] = 15;
CONSTANTS[20] = 0.005;
CONSTANTS[21] = 87;
CONSTANTS[22] = 0.005;
CONSTANTS[23] = 0.16;
CONSTANTS[24] = 15;
CONSTANTS[25] = 0.005;
CONSTANTS[26] = 6500;
CONSTANTS[27] = 0.002;
CONSTANTS[28] = 0.148;
CONSTANTS[29] = 435;
CONSTANTS[30] = 0.002;
CONSTANTS[31] = 1;
CONSTANTS[32] = 45;
STATES[2] = 0.16;
CONSTANTS[33] = 0.16;
CONSTANTS[34] = 0.8;
STATES[3] = 0.2;
CONSTANTS[35] = 0.2;
CONSTANTS[36] = 94;
STATES[4] = 0.8;
CONSTANTS[37] = 0.8;
CONSTANTS[38] = 1.5;
STATES[5] = 2.83;
CONSTANTS[39] = 2.83;
}
void
computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[2] = STATES[0]+STATES[1];
ALGEBRAIC[3] = CONSTANTS[13]*(exp( CONSTANTS[15]*(ALGEBRAIC[2] - CONSTANTS[14])) - 1.00000);
ALGEBRAIC[4] = ALGEBRAIC[3]+CONSTANTS[8];
ALGEBRAIC[0] = (int)(VOI) % (int)(CONSTANTS[12]);
ALGEBRAIC[1] = CONSTANTS[9]*exp( - CONSTANTS[10]*pow(( ALGEBRAIC[0]*CONSTANTS[6])/60.0000 - CONSTANTS[11], 2.00000));
rootfind_0(VOI, CONSTANTS, RATES, STATES, ALGEBRAIC, pret);
ALGEBRAIC[18] = ALGEBRAIC[10]+ALGEBRAIC[4];
ALGEBRAIC[6] = CONSTANTS[34]*(STATES[3] - CONSTANTS[35]);
ALGEBRAIC[7] = CONSTANTS[36]*(STATES[4] - CONSTANTS[37]);
RATES[0] = (ALGEBRAIC[6] - ALGEBRAIC[18]<0.00000&&ALGEBRAIC[18] - ALGEBRAIC[7]<0.00000 ? 0.00000 : ALGEBRAIC[6] - ALGEBRAIC[18]<0.00000 ? - (ALGEBRAIC[18] - ALGEBRAIC[7])/CONSTANTS[1] : ALGEBRAIC[18] - ALGEBRAIC[7]<0.00000 ? (ALGEBRAIC[6] - ALGEBRAIC[18])/CONSTANTS[0] : (ALGEBRAIC[6] - ALGEBRAIC[18])/CONSTANTS[0] - (ALGEBRAIC[18] - ALGEBRAIC[7])/CONSTANTS[1]);
ALGEBRAIC[5] = CONSTANTS[32]*(STATES[2] - CONSTANTS[33]);
RATES[3] = (ALGEBRAIC[5] - ALGEBRAIC[6]<0.00000&&ALGEBRAIC[6] - ALGEBRAIC[18]<0.00000 ? 0.00000 : ALGEBRAIC[5] - ALGEBRAIC[6]<0.00000 ? - (ALGEBRAIC[6] - ALGEBRAIC[18])/CONSTANTS[0] : ALGEBRAIC[6] - ALGEBRAIC[18]<0.00000 ? (ALGEBRAIC[5] - ALGEBRAIC[6])/CONSTANTS[4] : (ALGEBRAIC[5] - ALGEBRAIC[6])/CONSTANTS[4] - (ALGEBRAIC[6] - ALGEBRAIC[18])/CONSTANTS[0]);
ALGEBRAIC[8] = CONSTANTS[38]*(STATES[5] - CONSTANTS[39]);
RATES[4] = (ALGEBRAIC[18] - ALGEBRAIC[7]<0.00000&&ALGEBRAIC[7] - ALGEBRAIC[8]<0.00000 ? 0.00000 : ALGEBRAIC[18] - ALGEBRAIC[7]<0.00000 ? - (ALGEBRAIC[7] - ALGEBRAIC[8])/CONSTANTS[5] : ALGEBRAIC[7] - ALGEBRAIC[8]<0.00000 ? (ALGEBRAIC[18] - ALGEBRAIC[7])/CONSTANTS[1] : (ALGEBRAIC[18] - ALGEBRAIC[7])/CONSTANTS[1] - (ALGEBRAIC[7] - ALGEBRAIC[8])/CONSTANTS[5]);
ALGEBRAIC[19] = ALGEBRAIC[15]+ALGEBRAIC[4];
RATES[1] = (ALGEBRAIC[8] - ALGEBRAIC[19]<0.00000&&ALGEBRAIC[19] - ALGEBRAIC[5]<0.00000 ? 0.00000 : ALGEBRAIC[8] - ALGEBRAIC[19]<0.00000 ? - (ALGEBRAIC[19] - ALGEBRAIC[5])/CONSTANTS[3] : ALGEBRAIC[19] - ALGEBRAIC[5]<0.00000 ? (ALGEBRAIC[8] - ALGEBRAIC[19])/CONSTANTS[2] : (ALGEBRAIC[8] - ALGEBRAIC[19])/CONSTANTS[2] - (ALGEBRAIC[19] - ALGEBRAIC[5])/CONSTANTS[3]);
RATES[2] = (ALGEBRAIC[19] - ALGEBRAIC[5]<0.00000&&ALGEBRAIC[5] - ALGEBRAIC[6]<0.00000 ? 0.00000 : ALGEBRAIC[19] - ALGEBRAIC[5]<0.00000 ? - (ALGEBRAIC[5] - ALGEBRAIC[6])/CONSTANTS[4] : ALGEBRAIC[5] - ALGEBRAIC[6]<0.00000 ? (ALGEBRAIC[19] - ALGEBRAIC[5])/CONSTANTS[3] : (ALGEBRAIC[19] - ALGEBRAIC[5])/CONSTANTS[3] - (ALGEBRAIC[5] - ALGEBRAIC[6])/CONSTANTS[4]);
RATES[5] = (ALGEBRAIC[7] - ALGEBRAIC[8]<0.00000&&ALGEBRAIC[8] - ALGEBRAIC[19]<0.00000 ? 0.00000 : ALGEBRAIC[7] - ALGEBRAIC[8]<0.00000 ? - (ALGEBRAIC[8] - ALGEBRAIC[19])/CONSTANTS[2] : ALGEBRAIC[8] - ALGEBRAIC[19]<0.00000 ? (ALGEBRAIC[7] - ALGEBRAIC[8])/CONSTANTS[5] : (ALGEBRAIC[7] - ALGEBRAIC[8])/CONSTANTS[5] - (ALGEBRAIC[8] - ALGEBRAIC[19])/CONSTANTS[2]);
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[2] = STATES[0]+STATES[1];
ALGEBRAIC[3] = CONSTANTS[13]*(exp( CONSTANTS[15]*(ALGEBRAIC[2] - CONSTANTS[14])) - 1.00000);
ALGEBRAIC[4] = ALGEBRAIC[3]+CONSTANTS[8];
ALGEBRAIC[0] = (int)(VOI) % (int)(CONSTANTS[12]);
ALGEBRAIC[1] = CONSTANTS[9]*exp( - CONSTANTS[10]*pow(( ALGEBRAIC[0]*CONSTANTS[6])/60.0000 - CONSTANTS[11], 2.00000));
ALGEBRAIC[18] = ALGEBRAIC[10]+ALGEBRAIC[4];
ALGEBRAIC[6] = CONSTANTS[34]*(STATES[3] - CONSTANTS[35]);
ALGEBRAIC[7] = CONSTANTS[36]*(STATES[4] - CONSTANTS[37]);
ALGEBRAIC[5] = CONSTANTS[32]*(STATES[2] - CONSTANTS[33]);
ALGEBRAIC[8] = CONSTANTS[38]*(STATES[5] - CONSTANTS[39]);
ALGEBRAIC[19] = ALGEBRAIC[15]+ALGEBRAIC[4];
ALGEBRAIC[20] = ALGEBRAIC[18] - ALGEBRAIC[19];
}
void objfunc_0(double *p, double *hx, int m, int n, void *adata)
{
struct rootfind_info* rfi = (struct rootfind_info*)adata;
#define VOI rfi->aVOI
#define CONSTANTS rfi->aCONSTANTS
#define RATES rfi->aRATES
#define STATES rfi->aSTATES
#define ALGEBRAIC rfi->aALGEBRAIC
#define pret rfi->aPRET
ALGEBRAIC[9] = p[0];
ALGEBRAIC[10] = p[1];
ALGEBRAIC[11] = p[2];
ALGEBRAIC[12] = p[3];
ALGEBRAIC[13] = p[4];
ALGEBRAIC[14] = p[5];
ALGEBRAIC[15] = p[6];
ALGEBRAIC[16] = p[7];
ALGEBRAIC[17] = p[8];
hx[0] = ALGEBRAIC[9] - (STATES[0] - ALGEBRAIC[11]);
hx[1] = ALGEBRAIC[10] - ( ALGEBRAIC[1]*ALGEBRAIC[12]+ (1.00000 - ALGEBRAIC[1])*ALGEBRAIC[13]);
hx[2] = ALGEBRAIC[12] - CONSTANTS[16]*(ALGEBRAIC[9] - CONSTANTS[17]);
hx[3] = ALGEBRAIC[13] - CONSTANTS[18]*(exp( CONSTANTS[19]*(ALGEBRAIC[9] - CONSTANTS[20])) - 1.00000);
hx[4] = ALGEBRAIC[14] - (STATES[1]+ALGEBRAIC[11]);
hx[5] = ALGEBRAIC[15] - ( ALGEBRAIC[1]*ALGEBRAIC[16]+ (1.00000 - ALGEBRAIC[1])*ALGEBRAIC[17]);
hx[6] = ALGEBRAIC[16] - CONSTANTS[21]*(ALGEBRAIC[14] - CONSTANTS[22]);
hx[7] = ALGEBRAIC[17] - CONSTANTS[23]*(exp( CONSTANTS[24]*(ALGEBRAIC[14] - CONSTANTS[25])) - 1.00000);
hx[8] = ALGEBRAIC[10] - (( ALGEBRAIC[1]*CONSTANTS[26]*(ALGEBRAIC[11] - CONSTANTS[27])+ (CONSTANTS[31] - ALGEBRAIC[1])*CONSTANTS[28]*(exp( CONSTANTS[29]*(ALGEBRAIC[11] - CONSTANTS[30])) - CONSTANTS[31])) - ALGEBRAIC[15]);
#undef VOI
#undef CONSTANTS
#undef RATES
#undef STATES
#undef ALGEBRAIC
#undef pret
}
void rootfind_0(double VOI, double* CONSTANTS, double* RATES,
double* STATES, double* ALGEBRAIC, int* pret)
{
static double p[9] = {0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1,0.1};
double bp[9], work[LM_DIF_WORKSZ(9, 9)];
struct rootfind_info rfi;
rfi.aVOI = VOI;
rfi.aCONSTANTS = CONSTANTS;
rfi.aRATES = RATES;
rfi.aSTATES = STATES;
rfi.aALGEBRAIC = ALGEBRAIC;
rfi.aPRET = pret;
do_levmar(objfunc_0, p, bp, work, pret, 9, &rfi);
ALGEBRAIC[9] = p[0];
ALGEBRAIC[10] = p[1];
ALGEBRAIC[11] = p[2];
ALGEBRAIC[12] = p[3];
ALGEBRAIC[13] = p[4];
ALGEBRAIC[14] = p[5];
ALGEBRAIC[15] = p[6];
ALGEBRAIC[16] = p[7];
ALGEBRAIC[17] = p[8];
}