Generated Code
The following is c_ida code generated by the CellML API from this CellML file. (Back to language selection)
The raw code is available.
/*
There are a total of 11 entries in the algebraic variable array.
There are a total of 21 entries in each of the rate and state variable arrays.
There are a total of 43 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_mL).
* CONSTANTS[1] is R_av in component heart_parameters (kPa_second_per_mL).
* CONSTANTS[2] is R_tc in component heart_parameters (kPa_second_per_mL).
* CONSTANTS[3] is R_pv in component heart_parameters (kPa_second_per_mL).
* CONSTANTS[4] is R_pul in component heart_parameters (kPa_second_per_mL).
* CONSTANTS[5] is R_sys in component heart_parameters (kPa_second_per_mL).
* CONSTANTS[6] is L_tc in component heart_parameters (kPa_second2_per_mL).
* CONSTANTS[7] is L_pv in component heart_parameters (kPa_second2_per_mL).
* CONSTANTS[8] is L_mt in component heart_parameters (kPa_second2_per_mL).
* CONSTANTS[9] is L_av in component heart_parameters (kPa_second2_per_mL).
* CONSTANTS[10] is V_tot in component heart_parameters (mL).
* CONSTANTS[11] is P_th in component heart_parameters (kPa).
* ALGEBRAIC[1] is e_t in component driver_function (dimensionless).
* CONSTANTS[12] is A in component driver_function (dimensionless).
* CONSTANTS[13] is B in component driver_function (per_second2).
* CONSTANTS[14] is C in component driver_function (second).
* ALGEBRAIC[0] is tau in component driver_function (second).
* CONSTANTS[15] is period in component driver_function (second).
* ALGEBRAIC[2] is V_pcd in component pericardium (mL).
* 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 (mL).
* STATES[1] is V_rv in component right_ventricle (mL).
* CONSTANTS[16] is P_0_pcd in component pericardium (kPa).
* CONSTANTS[17] is V_0_pcd in component pericardium (mL).
* CONSTANTS[18] is lambda_pcd in component pericardium (per_mL).
* STATES[10] is V_lvf in component left_ventricle (mL).
* STATES[11] is P_lvf in component left_ventricle (kPa).
* STATES[12] is P_lv in component left_ventricle (kPa).
* STATES[13] is V_spt in component septum (mL).
* STATES[14] is P_es_lvf in component lvf_calculator (kPa).
* STATES[15] 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[19] is E_es_lvf in component lvf_calculator (kPa_per_mL).
* CONSTANTS[20] is lambda_lvf in component lvf_calculator (per_mL).
* CONSTANTS[21] is P_0_lvf in component lvf_calculator (kPa).
* STATES[2] is Q_mt in component flow (mL_per_second).
* STATES[3] is Q_av in component flow (mL_per_second).
* CONSTANTS[22] is V_d_lvf in component lvf_calculator (mL).
* CONSTANTS[23] is V_0_lvf in component lvf_calculator (mL).
* STATES[16] is V_rvf in component right_ventricle (mL).
* STATES[17] is P_rvf in component right_ventricle (kPa).
* STATES[18] is P_rv in component right_ventricle (kPa).
* STATES[19] is P_es_rvf in component rvf_calculator (kPa).
* STATES[20] 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[24] is E_es_rvf in component rvf_calculator (kPa_per_mL).
* CONSTANTS[25] is lambda_rvf in component rvf_calculator (per_mL).
* CONSTANTS[26] is P_0_rvf in component rvf_calculator (kPa).
* STATES[4] is Q_tc in component flow (mL_per_second).
* STATES[5] is Q_pv in component flow (mL_per_second).
* CONSTANTS[27] is V_d_rvf in component rvf_calculator (mL).
* CONSTANTS[28] is V_0_rvf in component rvf_calculator (mL).
* CONSTANTS[29] is E_es_spt in component septum (kPa_per_mL).
* CONSTANTS[30] is V_d_spt in component septum (mL).
* CONSTANTS[31] is P_0_spt in component septum (kPa).
* CONSTANTS[32] is lambda_spt in component septum (per_mL).
* CONSTANTS[33] is V_0_spt in component septum (mL).
* CONSTANTS[34] is one in component septum (dimensionless).
* CONSTANTS[35] is E_es_pa in component pulmonary_artery (kPa_per_mL).
* STATES[6] is V_pa in component pulmonary_artery (mL).
* CONSTANTS[36] is V_d_pa in component pulmonary_artery (mL).
* ALGEBRAIC[10] is Q_pul in component flow (mL_per_second).
* CONSTANTS[37] is E_es_pu in component pulmonary_vein (kPa_per_mL).
* STATES[7] is V_pu in component pulmonary_vein (mL).
* CONSTANTS[38] is V_d_pu in component pulmonary_vein (mL).
* CONSTANTS[39] is E_es_ao in component aorta (kPa_per_mL).
* STATES[8] is V_ao in component aorta (mL).
* CONSTANTS[40] is V_d_ao in component aorta (mL).
* ALGEBRAIC[9] is Q_sys in component flow (mL_per_second).
* CONSTANTS[41] is E_es_vc in component vena_cava (kPa_per_mL).
* STATES[9] is V_vc in component vena_cava (mL).
* CONSTANTS[42] is V_d_vc in component vena_cava (mL).
* RATES[0] is d/dt V_lv in component left_ventricle (mL).
* RATES[1] is d/dt V_rv in component right_ventricle (mL).
* RATES[6] is d/dt V_pa in component pulmonary_artery (mL).
* RATES[7] is d/dt V_pu in component pulmonary_vein (mL).
* RATES[8] is d/dt V_ao in component aorta (mL).
* RATES[9] is d/dt V_vc in component vena_cava (mL).
* RATES[2] is d/dt Q_mt in component flow (mL_per_second).
* RATES[3] is d/dt Q_av in component flow (mL_per_second).
* RATES[4] is d/dt Q_tc in component flow (mL_per_second).
* RATES[5] is d/dt Q_pv in component flow (mL_per_second).
* There are a total of 33 condition variables.
*/
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 0.0158;
CONSTANTS[1] = 0.0180;
CONSTANTS[2] = 0.0237;
CONSTANTS[3] = 0.0055;
CONSTANTS[4] = 0.1552;
CONSTANTS[5] = 1.0889;
CONSTANTS[6] = 8.0093e-5;
CONSTANTS[7] = 1.4868e-4;
CONSTANTS[8] = 7.6968e-5;
CONSTANTS[9] = 1.2189e-4;
CONSTANTS[10] = 5.5;
CONSTANTS[11] = -4;
CONSTANTS[12] = 1;
CONSTANTS[13] = 80;
CONSTANTS[14] = 0.375;
CONSTANTS[15] = 0.75;
STATES[0] = 94.6812;
STATES[1] = 90.7302;
CONSTANTS[16] = 0.5003;
CONSTANTS[17] = 200;
CONSTANTS[18] = 0.03;
CONSTANTS[19] = 2.8798;
CONSTANTS[20] = 0.033;
CONSTANTS[21] = 0.1203;
STATES[2] = 245.5813;
STATES[3] = 0;
CONSTANTS[22] = 0;
CONSTANTS[23] = 0;
CONSTANTS[24] = 0.585;
CONSTANTS[25] = 0.023;
CONSTANTS[26] = 0.2157;
STATES[4] = 190.0661;
STATES[5] = 0;
CONSTANTS[27] = 0;
CONSTANTS[28] = 0;
CONSTANTS[29] = 48.754;
CONSTANTS[30] = 2;
CONSTANTS[31] = 1.1101;
CONSTANTS[32] = 0.435;
CONSTANTS[33] = 2;
CONSTANTS[34] = 1;
CONSTANTS[35] = 0.369;
STATES[6] = 43.0123;
CONSTANTS[36] = 0;
CONSTANTS[37] = 0.0073;
STATES[7] = 808.4579;
CONSTANTS[38] = 0;
CONSTANTS[39] = 0.6913;
STATES[8] = 133.3381;
CONSTANTS[40] = 0;
CONSTANTS[41] = 0.0059;
STATES[9] = 329.7803;
CONSTANTS[42] = 0;
STATES[10] = 0.1001;
STATES[11] = 0.1001;
STATES[12] = 0.1001;
STATES[13] = 0.1001;
STATES[14] = 0.1001;
STATES[15] = 0.1001;
STATES[16] = 0.1001;
STATES[17] = 0.1001;
STATES[18] = 0.1001;
STATES[19] = 0.1001;
STATES[20] = 0.1001;
RATES[0] = 0.1001;
RATES[1] = 0.1001;
RATES[6] = 0.1001;
RATES[7] = 0.1001;
RATES[8] = 0.1001;
RATES[9] = 0.1001;
RATES[2] = 0.1001;
RATES[3] = 0.1001;
RATES[4] = 0.1001;
RATES[5] = 0.1001;
}
void
computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
resid[0] = STATES[10] - STATES[0] - STATES[13];
resid[1] = STATES[11] - ALGEBRAIC[1]*STATES[14]+ (1.00000 - ALGEBRAIC[1])*STATES[15];
resid[2] = STATES[12] - STATES[11]+ALGEBRAIC[4];
resid[3] = RATES[0] - (CONDVAR[13]<0.00000&&CONDVAR[14]<0.00000 ? 0.00000 : CONDVAR[15]<0.00000 ? - STATES[3] : CONDVAR[16]<0.00000 ? STATES[2] : STATES[2] - STATES[3]);
resid[4] = STATES[14] - CONSTANTS[19]*(STATES[10] - CONSTANTS[22]);
resid[5] = STATES[15] - CONSTANTS[21]*(exp( CONSTANTS[20]*(STATES[10] - CONSTANTS[23])) - 1.00000);
resid[6] = STATES[16] - STATES[1]+STATES[13];
resid[7] = STATES[17] - ALGEBRAIC[1]*STATES[19]+ (1.00000 - ALGEBRAIC[1])*STATES[20];
resid[8] = STATES[18] - STATES[17]+ALGEBRAIC[4];
resid[9] = RATES[1] - (CONDVAR[17]<0.00000&&CONDVAR[18]<0.00000 ? 0.00000 : CONDVAR[19]<0.00000 ? - STATES[5] : CONDVAR[20]<0.00000 ? STATES[4] : STATES[4] - STATES[5]);
resid[10] = STATES[19] - CONSTANTS[24]*(STATES[16] - CONSTANTS[27]);
resid[11] = STATES[20] - CONSTANTS[26]*(exp( CONSTANTS[25]*(STATES[16] - CONSTANTS[28])) - 1.00000);
resid[12] = 0.00000 - ((( ALGEBRAIC[1]*CONSTANTS[29]*(STATES[13] - CONSTANTS[30])+ (CONSTANTS[34] - ALGEBRAIC[1])*CONSTANTS[31]*(exp( CONSTANTS[32]*(STATES[13] - CONSTANTS[33])) - CONSTANTS[34])) - ALGEBRAIC[1]*CONSTANTS[19]*(STATES[0] - STATES[13])) - (1.00000 - ALGEBRAIC[1])*CONSTANTS[21]*(exp( CONSTANTS[20]*(STATES[0] - STATES[13])) - 1.00000))+ ALGEBRAIC[1]*CONSTANTS[24]*(STATES[1]+STATES[13])+ (1.00000 - ALGEBRAIC[1])*CONSTANTS[26]*(exp( CONSTANTS[25]*(STATES[1]+STATES[13])) - 1.00000);
resid[13] = RATES[6] - (CONDVAR[21]<0.00000 ? - ALGEBRAIC[10] : STATES[5] - ALGEBRAIC[10]);
resid[14] = RATES[7] - (CONDVAR[22]<0.00000 ? ALGEBRAIC[10] : ALGEBRAIC[10] - STATES[2]);
resid[15] = RATES[8] - (CONDVAR[23]<0.00000 ? - ALGEBRAIC[9] : STATES[3] - ALGEBRAIC[9]);
resid[16] = RATES[9] - (CONDVAR[24]<0.00000 ? ALGEBRAIC[9] : ALGEBRAIC[9] - STATES[4]);
resid[17] = RATES[2] - (CONDVAR[25]<0.00000&&CONDVAR[26]<0.00000 ? 0.00000 : ((ALGEBRAIC[6] - STATES[12]) - STATES[2]*CONSTANTS[0])/CONSTANTS[8]);
resid[18] = RATES[3] - (CONDVAR[27]<0.00000&&CONDVAR[28]<0.00000 ? 0.00000 : ((STATES[12] - ALGEBRAIC[7]) - STATES[3]*CONSTANTS[1])/CONSTANTS[9]);
resid[19] = RATES[4] - (CONDVAR[29]<0.00000&&CONDVAR[30]<0.00000 ? 0.00000 : ((ALGEBRAIC[8] - STATES[18]) - STATES[4]*CONSTANTS[2])/CONSTANTS[6]);
resid[20] = RATES[5] - (CONDVAR[31]<0.00000&&CONDVAR[32]<0.00000 ? 0.00000 : ((STATES[18] - ALGEBRAIC[5]) - STATES[5]*CONSTANTS[3])/CONSTANTS[7]);
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = (CONDVAR[0]<=0.00000 ? VOI : CONDVAR[1]<=0.00000 ? VOI - CONSTANTS[15] : CONDVAR[2]<=0.00000 ? VOI - CONSTANTS[15]*2.00000 : CONDVAR[3]<=0.00000 ? VOI - CONSTANTS[15]*3.00000 : CONDVAR[4]<=0.00000 ? VOI - CONSTANTS[15]*4.00000 : CONDVAR[5]<=0.00000 ? VOI - CONSTANTS[15]*5.00000 : CONDVAR[6]<=0.00000 ? VOI - CONSTANTS[15]*6.00000 : CONDVAR[7]<=0.00000 ? VOI - CONSTANTS[15]*7.00000 : CONDVAR[8]<=0.00000 ? VOI - CONSTANTS[15]*8.00000 : CONDVAR[9]<=0.00000 ? VOI - CONSTANTS[15]*9.00000 : CONDVAR[10]<=0.00000 ? VOI - CONSTANTS[15]*10.0000 : CONDVAR[11]<=0.00000 ? VOI - CONSTANTS[15]*11.0000 : CONDVAR[12]<=0.00000 ? VOI - CONSTANTS[15]*12.0000 : 0.0/0.0);
ALGEBRAIC[1] = CONSTANTS[12]*exp( - CONSTANTS[13]*pow(ALGEBRAIC[0] - CONSTANTS[14], 2.00000));
ALGEBRAIC[2] = STATES[0]+STATES[1];
ALGEBRAIC[3] = CONSTANTS[16]*(exp( CONSTANTS[18]*(ALGEBRAIC[2] - CONSTANTS[17])) - 1.00000);
ALGEBRAIC[4] = ALGEBRAIC[3]+CONSTANTS[11];
ALGEBRAIC[5] = CONSTANTS[35]*(STATES[6] - CONSTANTS[36])+CONSTANTS[11];
ALGEBRAIC[6] = CONSTANTS[37]*(STATES[7] - CONSTANTS[38])+CONSTANTS[11];
ALGEBRAIC[7] = CONSTANTS[39]*(STATES[8] - CONSTANTS[40]);
ALGEBRAIC[8] = CONSTANTS[41]*(STATES[9] - CONSTANTS[42]);
ALGEBRAIC[9] = (ALGEBRAIC[7] - ALGEBRAIC[8])/CONSTANTS[5];
ALGEBRAIC[10] = (ALGEBRAIC[5] - ALGEBRAIC[6])/CONSTANTS[4];
}
void
getStateInformation(double* SI)
{
SI[0] = 1.0;
SI[1] = 1.0;
SI[10] = 0.0;
SI[11] = 0.0;
SI[12] = 0.0;
SI[13] = 0.0;
SI[14] = 0.0;
SI[15] = 0.0;
SI[2] = 1.0;
SI[3] = 1.0;
SI[16] = 0.0;
SI[17] = 0.0;
SI[18] = 0.0;
SI[19] = 0.0;
SI[20] = 0.0;
SI[4] = 1.0;
SI[5] = 1.0;
SI[6] = 1.0;
SI[7] = 1.0;
SI[8] = 1.0;
SI[9] = 1.0;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
CONDVAR[0] = VOI - CONSTANTS[15];
CONDVAR[1] = VOI - CONSTANTS[15]*2.00000;
CONDVAR[2] = VOI - CONSTANTS[15]*3.00000;
CONDVAR[3] = VOI - CONSTANTS[15]*4.00000;
CONDVAR[4] = VOI - CONSTANTS[15]*5.00000;
CONDVAR[5] = VOI - CONSTANTS[15]*6.00000;
CONDVAR[6] = VOI - CONSTANTS[15]*7.00000;
CONDVAR[7] = VOI - CONSTANTS[15]*8.00000;
CONDVAR[8] = VOI - CONSTANTS[15]*9.00000;
CONDVAR[9] = VOI - CONSTANTS[15]*10.0000;
CONDVAR[10] = VOI - CONSTANTS[15]*11.0000;
CONDVAR[11] = VOI - CONSTANTS[15]*12.0000;
CONDVAR[12] = VOI - CONSTANTS[15]*13.0000;
CONDVAR[13] = STATES[2] - 0.00000;
CONDVAR[14] = STATES[3] - 0.00000;
CONDVAR[15] = STATES[2] - 0.00000;
CONDVAR[16] = STATES[3] - 0.00000;
CONDVAR[17] = STATES[4] - 0.00000;
CONDVAR[18] = STATES[5] - 0.00000;
CONDVAR[19] = STATES[4] - 0.00000;
CONDVAR[20] = STATES[5] - 0.00000;
CONDVAR[21] = STATES[5] - 0.00000;
CONDVAR[22] = STATES[2] - 0.00000;
CONDVAR[23] = STATES[3] - 0.00000;
CONDVAR[24] = STATES[4] - 0.00000;
CONDVAR[25] = (ALGEBRAIC[6] - STATES[12]) - 0.00000;
CONDVAR[26] = STATES[2] - 0.00000;
CONDVAR[27] = (STATES[12] - ALGEBRAIC[7]) - 0.00000;
CONDVAR[28] = STATES[3] - 0.00000;
CONDVAR[29] = (ALGEBRAIC[8] - STATES[18]) - 0.00000;
CONDVAR[30] = STATES[4] - 0.00000;
CONDVAR[31] = (STATES[18] - ALGEBRAIC[5]) - 0.00000;
CONDVAR[32] = STATES[5] - 0.00000;
}