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 29 entries in the algebraic variable array.
There are a total of 9 entries in each of the rate and state variable arrays.
There are a total of 46 entries in the constant variable array.
*/
/*
* VOI is t in component main (second).
* CONSTANTS[0] is RT in component main (J_per_mol).
* CONSTANTS[1] is F in component main (C_per_mol).
* STATES[0] is q_ac_W in component main (litre).
* STATES[1] is q_vc_W in component main (litre).
* STATES[2] is q_gi_W in component main (litre).
* STATES[3] is q_pt_W in component main (litre).
* CONSTANTS[2] is q_giEpi_W in component main (litre).
* CONSTANTS[3] is q_ptEpi_W in component main (litre).
* ALGEBRAIC[27] is q_tot_W in component main (litre).
* STATES[4] is q_vc_Na in component main (mole).
* STATES[5] is q_gi_Na in component main (mole).
* STATES[6] is q_pt_Na in component main (mole).
* STATES[7] is q_giEpi_Na in component main (mole).
* STATES[8] is q_ptEpi_Na in component main (mole).
* CONSTANTS[4] is q_vc_K in component main (mole).
* CONSTANTS[5] is q_giEpi_K in component main (mole).
* CONSTANTS[6] is q_ptEpi_K in component main (mole).
* ALGEBRAIC[28] is q_tot_Na in component main (mole).
* ALGEBRAIC[5] is c_vc_Na in component main (mol_per_L).
* ALGEBRAIC[6] is c_gi_Na in component main (mol_per_L).
* ALGEBRAIC[7] is c_pt_Na in component main (mol_per_L).
* ALGEBRAIC[8] is c_giEpi_Na in component main (mol_per_L).
* ALGEBRAIC[9] is c_ptEpi_Na in component main (mol_per_L).
* ALGEBRAIC[10] is C_vc_Na in component main (mM).
* ALGEBRAIC[11] is C_gi_Na in component main (mM).
* ALGEBRAIC[12] is C_pt_Na in component main (mM).
* ALGEBRAIC[13] is C_giEpi_Na in component main (mM).
* ALGEBRAIC[14] is C_ptEpi_Na in component main (mM).
* CONSTANTS[7] is v_lv_W in component main (L_per_s).
* CONSTANTS[8] is v_in_W_base in component main (L_per_s).
* ALGEBRAIC[0] is v_in_W in component main (L_per_s).
* CONSTANTS[42] is v_out1_W in component main (L_per_s).
* CONSTANTS[43] is v_out2_W in component main (L_per_s).
* ALGEBRAIC[20] is v_gl_W in component main (L_per_s).
* ALGEBRAIC[18] is v_gi_W in component main (L_per_s).
* ALGEBRAIC[19] is v_pt_W in component main (L_per_s).
* ALGEBRAIC[21] is v_cc_W in component main (L_per_s).
* CONSTANTS[9] is v_in_Na_base in component main (mol_per_s).
* ALGEBRAIC[1] is v_in_Na in component main (mol_per_s).
* CONSTANTS[44] is v_out1_Na in component main (mol_per_s).
* CONSTANTS[45] is v_out2_Na in component main (mol_per_s).
* ALGEBRAIC[22] is v_gl_Na in component main (mol_per_s).
* ALGEBRAIC[23] is v_gi_Na in component main (mol_per_s).
* ALGEBRAIC[24] is v_pt_Na in component main (mol_per_s).
* ALGEBRAIC[25] is v_giEpi_NKE in component main (mol_per_s).
* ALGEBRAIC[26] is v_ptEpi_NKE in component main (mol_per_s).
* ALGEBRAIC[2] is u_vc_W in component main (kPa).
* ALGEBRAIC[3] is u_ac_W in component main (kPa).
* ALGEBRAIC[4] is u_pt_W in component main (kPa).
* ALGEBRAIC[16] is u_vc_osmotic in component main (kPa).
* ALGEBRAIC[15] is u_gi_osmotic in component main (kPa).
* ALGEBRAIC[17] is u_pt_osmotic in component main (kPa).
* CONSTANTS[10] is u_giEpi_e in component main (J_per_C).
* CONSTANTS[11] is u_ptEpi_e in component main (J_per_C).
* CONSTANTS[12] is k_gi_W in component main (L_per_s_per_kPa).
* CONSTANTS[13] is k_pt_W in component main (L_per_s_per_kPa).
* CONSTANTS[14] is k_gl_W in component main (L_per_s_per_kPa).
* CONSTANTS[15] is k_cc_W in component main (L_per_s_per_kPa).
* CONSTANTS[16] is kK_gi_Na in component main (per_s).
* CONSTANTS[17] is kK_pt_Na in component main (per_s).
* CONSTANTS[18] is kK_gl_Na in component main (per_s).
* CONSTANTS[19] is k_giEpi_NKE in component main (mol_per_s).
* CONSTANTS[20] is k_ptEpi_NKE in component main (mol_per_s).
* CONSTANTS[21] is K_Na in component main (L_per_mol).
* CONSTANTS[22] is K_K in component main (L_per_mol).
* CONSTANTS[23] is E_vc in component main (joule).
* CONSTANTS[24] is E_ac in component main (joule).
* CONSTANTS[25] is E_pt in component main (joule).
* CONSTANTS[26] is U_ac_W in component main (litre).
* CONSTANTS[27] is U_vc_W in component main (litre).
* CONSTANTS[28] is U_pt_W in component main (litre).
* CONSTANTS[29] is L_ac_W in component main (litre).
* CONSTANTS[30] is L_vc_W in component main (litre).
* CONSTANTS[31] is L_pt_W in component main (litre).
* CONSTANTS[32] is water_intake in component main (L_per_s).
* CONSTANTS[33] is water_intake_start in component main (second).
* CONSTANTS[34] is water_intake_duration in component main (second).
* CONSTANTS[35] is water_kidney_excretion in component main (dimensionless).
* CONSTANTS[36] is water_gi_excretion in component main (dimensionless).
* CONSTANTS[37] is Na_intake in component main (mol_per_s).
* CONSTANTS[38] is Na_intake_start in component main (second).
* CONSTANTS[39] is Na_intake_duration in component main (second).
* CONSTANTS[40] is Na_gi_excretion in component main (dimensionless).
* CONSTANTS[41] is Na_kidney_excretion in component main (dimensionless).
* RATES[2] is d/dt q_gi_W in component main (litre).
* RATES[3] is d/dt q_pt_W in component main (litre).
* RATES[1] is d/dt q_vc_W in component main (litre).
* RATES[0] is d/dt q_ac_W in component main (litre).
* RATES[5] is d/dt q_gi_Na in component main (mole).
* RATES[7] is d/dt q_giEpi_Na in component main (mole).
* RATES[6] is d/dt q_pt_Na in component main (mole).
* RATES[8] is d/dt q_ptEpi_Na in component main (mole).
* RATES[4] is d/dt q_vc_Na in component main (mole).
* There are a total of 4 condition variables.
*/
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 2.5e3;
CONSTANTS[1] = 0.965e5;
STATES[0] = 1;
STATES[1] = 2;
STATES[2] = 1;
STATES[3] = 0.1;
CONSTANTS[2] = 0.5;
CONSTANTS[3] = 0.5;
STATES[4] = 0.84;
STATES[5] = 0.1;
STATES[6] = 0.01;
STATES[7] = 0.012;
STATES[8] = 0.012;
CONSTANTS[4] = 0.03;
CONSTANTS[5] = 0.012;
CONSTANTS[6] = 0.012;
CONSTANTS[7] = 0.1;
CONSTANTS[8] = 0;
CONSTANTS[9] = 1.16e-06;
CONSTANTS[10] = -0.040;
CONSTANTS[11] = -0.040;
CONSTANTS[12] = 1;
CONSTANTS[13] = 0;
CONSTANTS[14] = 1;
CONSTANTS[15] = 1;
CONSTANTS[16] = 1;
CONSTANTS[17] = 1;
CONSTANTS[18] = 1;
CONSTANTS[19] = 1e4;
CONSTANTS[20] = 1e5;
CONSTANTS[21] = 1;
CONSTANTS[22] = 1;
CONSTANTS[23] = 6e1;
CONSTANTS[24] = 6e1;
CONSTANTS[25] = 1;
CONSTANTS[26] = 0.5;
CONSTANTS[27] = 1.5;
CONSTANTS[28] = 0.1;
CONSTANTS[29] = 1.5;
CONSTANTS[30] = 2.5;
CONSTANTS[31] = 1;
CONSTANTS[32] = 0.01;
CONSTANTS[33] = 10;
CONSTANTS[34] = 5;
CONSTANTS[35] = 0.94;
CONSTANTS[36] = 0.06;
CONSTANTS[37] = 0.001;
CONSTANTS[38] = 10;
CONSTANTS[39] = 10;
CONSTANTS[40] = 0.07;
CONSTANTS[41] = 0.93;
CONSTANTS[42] = CONSTANTS[36]*CONSTANTS[8];
CONSTANTS[43] = CONSTANTS[35]*CONSTANTS[8];
CONSTANTS[44] = CONSTANTS[40]*CONSTANTS[9];
CONSTANTS[45] = CONSTANTS[41]*CONSTANTS[9];
RATES[2] = 0.1001;
RATES[3] = 0.1001;
RATES[1] = 0.1001;
RATES[0] = 0.1001;
RATES[5] = 0.1001;
RATES[7] = 0.1001;
RATES[6] = 0.1001;
RATES[8] = 0.1001;
RATES[4] = 0.1001;
}
void
computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
resid[0] = RATES[2] - (ALGEBRAIC[0] - CONSTANTS[0]*CONSTANTS[12]*(STATES[4]/STATES[1] - STATES[5]/STATES[2])) - CONSTANTS[42];
resid[1] = RATES[3] - ( CONSTANTS[14]*(( CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000) - ( CONSTANTS[25]*(STATES[3] - CONSTANTS[28]))/pow(CONSTANTS[31] - STATES[3], 2.00000)) - CONSTANTS[0]*CONSTANTS[13]*(STATES[4]/STATES[1] - STATES[6]/STATES[3])) - CONSTANTS[43];
resid[2] = RATES[1] - ( CONSTANTS[15]*(( CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000) - ( CONSTANTS[23]*(STATES[1] - CONSTANTS[27]))/pow(CONSTANTS[30] - STATES[1], 2.00000))+ CONSTANTS[0]*CONSTANTS[12]*(STATES[4]/STATES[1] - STATES[5]/STATES[2])+ CONSTANTS[0]*CONSTANTS[13]*(STATES[4]/STATES[1] - STATES[6]/STATES[3])) - CONSTANTS[7];
resid[3] = RATES[0] - ((CONSTANTS[7]+( CONSTANTS[15]*CONSTANTS[23]*(STATES[1] - CONSTANTS[27]))/pow(CONSTANTS[30] - STATES[1], 2.00000)) - ( (CONSTANTS[14]+CONSTANTS[15])*CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000))+( CONSTANTS[14]*CONSTANTS[25]*(STATES[3] - CONSTANTS[28]))/pow(CONSTANTS[31] - STATES[3], 2.00000);
resid[4] = RATES[5] - (ALGEBRAIC[1] - CONSTANTS[16]*(STATES[5] - STATES[7])) - CONSTANTS[44];
resid[5] = RATES[7] - CONSTANTS[16]*(STATES[5] - STATES[7]) - ( 3.00000*CONSTANTS[19]*( pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[10])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)));
resid[6] = RATES[6] - ( CONSTANTS[18]*(STATES[4] - STATES[6]) - CONSTANTS[17]*(STATES[6] - STATES[8])) - CONSTANTS[45];
resid[7] = RATES[8] - CONSTANTS[17]*(STATES[6] - STATES[8]) - ( 3.00000*CONSTANTS[20]*( pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[11])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)));
resid[8] = RATES[4] - (( 3.00000*CONSTANTS[19]*( pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[10])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)))+( 3.00000*CONSTANTS[20]*( pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[11])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)))) - CONSTANTS[18]*(STATES[4] - STATES[6]);
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[2] = ( CONSTANTS[23]*(STATES[1] - CONSTANTS[27]))/pow(CONSTANTS[30] - STATES[1], 2.00000);
ALGEBRAIC[3] = ( CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000);
ALGEBRAIC[4] = ( CONSTANTS[25]*(STATES[3] - CONSTANTS[28]))/pow(CONSTANTS[31] - STATES[3], 2.00000);
ALGEBRAIC[5] = STATES[4]/STATES[1];
ALGEBRAIC[6] = STATES[5]/STATES[2];
ALGEBRAIC[7] = STATES[6]/STATES[3];
ALGEBRAIC[8] = STATES[7]/CONSTANTS[2];
ALGEBRAIC[9] = STATES[8]/CONSTANTS[3];
ALGEBRAIC[10] = 1000.00*ALGEBRAIC[5];
ALGEBRAIC[11] = 1000.00*ALGEBRAIC[6];
ALGEBRAIC[12] = 1000.00*ALGEBRAIC[7];
ALGEBRAIC[13] = 1000.00*ALGEBRAIC[8];
ALGEBRAIC[14] = 1000.00*ALGEBRAIC[9];
ALGEBRAIC[15] = CONSTANTS[0]*ALGEBRAIC[6];
ALGEBRAIC[16] = CONSTANTS[0]*ALGEBRAIC[5];
ALGEBRAIC[17] = CONSTANTS[0]*ALGEBRAIC[7];
ALGEBRAIC[18] = CONSTANTS[12]*(ALGEBRAIC[16] - ALGEBRAIC[15]);
ALGEBRAIC[19] = CONSTANTS[13]*(ALGEBRAIC[16] - ALGEBRAIC[17]);
ALGEBRAIC[20] = CONSTANTS[14]*(ALGEBRAIC[3] - ALGEBRAIC[4]);
ALGEBRAIC[21] = CONSTANTS[15]*(ALGEBRAIC[3] - ALGEBRAIC[2]);
ALGEBRAIC[22] = CONSTANTS[18]*(STATES[4] - STATES[6]);
ALGEBRAIC[23] = CONSTANTS[16]*(STATES[5] - STATES[7]);
ALGEBRAIC[24] = CONSTANTS[17]*(STATES[6] - STATES[8]);
ALGEBRAIC[25] = ( 3.00000*CONSTANTS[19]*( pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[10])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)));
ALGEBRAIC[26] = ( 3.00000*CONSTANTS[20]*( pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[11])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)));
ALGEBRAIC[27] = STATES[0]+STATES[1]+STATES[2]+STATES[3]+CONSTANTS[2]+CONSTANTS[3];
ALGEBRAIC[28] = STATES[4]+STATES[5]+STATES[6]+STATES[7]+STATES[8];
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = (CONDVAR[0]>0.00000&&CONDVAR[1]<0.00000 ? CONSTANTS[32] : 0.00000);
ALGEBRAIC[1] = (CONDVAR[2]>0.00000&&CONDVAR[3]<0.00000 ? CONSTANTS[9]+CONSTANTS[37] : CONSTANTS[9]);
}
void
getStateInformation(double* SI)
{
SI[0] = 1.0;
SI[1] = 1.0;
SI[2] = 1.0;
SI[3] = 1.0;
SI[4] = 1.0;
SI[5] = 1.0;
SI[6] = 1.0;
SI[7] = 1.0;
SI[8] = 1.0;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
CONDVAR[0] = VOI - CONSTANTS[33];
CONDVAR[1] = VOI - (CONSTANTS[33]+CONSTANTS[34]);
CONDVAR[2] = VOI - CONSTANTS[38];
CONDVAR[3] = VOI - (CONSTANTS[38]+CONSTANTS[39]);
}