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 32 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 42 entries in the constant variable array.
 */
/*
 * VOI is t in component main (second).
 * CONSTANTS[0] is pulse_time in component main (second).
 * CONSTANTS[1] is RT in component main (J_per_mol).
 * CONSTANTS[2] is F in component main (C_per_mol).
 * CONSTANTS[3] is q_w_gut in component main (litre).
 * CONSTANTS[4] is q_w_epi in component main (litre).
 * CONSTANTS[5] is q_w_cap in component main (litre).
 * CONSTANTS[36] is q_w_tot in component main (litre).
 * STATES[0] is q_Na_gut in component main (mole).
 * STATES[1] is q_Na_epi in component main (mole).
 * ALGEBRAIC[0] is q_Na_cap in component main (mole).
 * CONSTANTS[6] is q_Na_cap_init in component main (mole).
 * CONSTANTS[7] is q_Na_cap_scale in component main (dimensionless).
 * ALGEBRAIC[2] is c_Na_gut in component main (mM).
 * ALGEBRAIC[4] is c_Na_epi in component main (mM).
 * ALGEBRAIC[5] is c_Na_cap in component main (mM).
 * CONSTANTS[8] is K_mm in component main (millimols_per_mol).
 * ALGEBRAIC[3] is q_Na_tot in component main (mole).
 * STATES[2] is q_K_epi in component main (mole).
 * CONSTANTS[9] is q_K_cap in component main (mole).
 * ALGEBRAIC[7] is c_K_epi in component main (mM).
 * CONSTANTS[37] is c_K_cap in component main (mM).
 * STATES[3] is q_Cl_epi in component main (mole).
 * CONSTANTS[10] is q_Cl_cap in component main (mole).
 * ALGEBRAIC[10] is c_Cl_epi in component main (mM).
 * CONSTANTS[38] is c_Cl_cap in component main (mM).
 * STATES[4] is q_e in component main (coulomb).
 * CONSTANTS[11] is u_ee in component main (J_per_C).
 * ALGEBRAIC[13] is u_e in component main (J_per_C).
 * CONSTANTS[12] is C_m in component main (C2_per_J).
 * ALGEBRAIC[14] is q_Glc_gut in component main (mole).
 * STATES[5] is q_Glc_epi in component main (mole).
 * CONSTANTS[13] is q_Glc_cap in component main (mole).
 * CONSTANTS[14] is q_Glc_gut_init in component main (mole).
 * CONSTANTS[15] is q_Glc_gut_scale in component main (dimensionless).
 * ALGEBRAIC[15] is c_Glc_gut in component main (mM).
 * ALGEBRAIC[16] is c_Glc_epi in component main (mM).
 * CONSTANTS[39] is c_Glc_cap in component main (mM).
 * CONSTANTS[16] is u_w_gut in component main (kPa).
 * CONSTANTS[40] is u_w_epi in component main (kPa).
 * CONSTANTS[17] is u_w_cap in component main (kPa).
 * CONSTANTS[18] is E_w_epi in component main (joule).
 * CONSTANTS[19] is U_w_epi in component main (litre).
 * CONSTANTS[20] is L_w_epi in component main (litre).
 * ALGEBRAIC[6] is v_w_epiApex in component main (L_per_s).
 * ALGEBRAIC[8] is v_w_epiBase in component main (L_per_s).
 * CONSTANTS[21] is k_w_m in component main (L_per_s_per_kPa).
 * CONSTANTS[22] is c_O2 in component main (mM).
 * CONSTANTS[23] is c_CO2 in component main (mM).
 * CONSTANTS[24] is c_HCO3 in component main (mM).
 * STATES[6] is q_ATP in component main (mole).
 * STATES[7] is q_ADP in component main (mole).
 * STATES[8] is q_Pi in component main (mole).
 * CONSTANTS[25] is q_H in component main (mole).
 * ALGEBRAIC[1] is q_adenosine in component main (mole).
 * ALGEBRAIC[17] is c_ATP in component main (mM).
 * ALGEBRAIC[20] is c_ADP in component main (mM).
 * ALGEBRAIC[21] is c_Pi in component main (mM).
 * CONSTANTS[41] is c_H in component main (mM).
 * CONSTANTS[26] is kappa_SGLT1 in component main (mol_per_s).
 * ALGEBRAIC[22] is v_SGLT1 in component main (mol_per_s).
 * CONSTANTS[27] is kappa_GLUT2 in component main (mol_per_s).
 * ALGEBRAIC[24] is v_GLUT2 in component main (mol_per_s).
 * CONSTANTS[28] is k_ATP_eq in component main (mM2).
 * CONSTANTS[29] is kappa_NKE in component main (mol_per_s).
 * ALGEBRAIC[25] is v_NKE in component main (mol_per_s).
 * CONSTANTS[30] is kappa_NKCC1 in component main (mol_per_s).
 * ALGEBRAIC[26] is v_NKCC1 in component main (mol_per_s).
 * CONSTANTS[31] is kappa_KCC1 in component main (mol_per_s).
 * ALGEBRAIC[28] is v_KCC1 in component main (mol_per_s).
 * CONSTANTS[32] is kappa_K in component main (C_per_J_per_s).
 * ALGEBRAIC[30] is v_K in component main (mol_per_s).
 * ALGEBRAIC[29] is GHKterm in component main (J_per_C).
 * CONSTANTS[33] is kappa_Na in component main (per_s_per_V).
 * ALGEBRAIC[31] is v_Na in component main (mol_per_s).
 * CONSTANTS[34] is k_AM_eq in component main (per_mM).
 * CONSTANTS[35] is kappa_AM in component main (mol_per_s).
 * ALGEBRAIC[27] is v_AM in component main (mol_per_s).
 * ALGEBRAIC[18] is u_SGLT1_reversal in component main (J_per_C).
 * ALGEBRAIC[11] is u_K_reversal in component main (J_per_C).
 * ALGEBRAIC[9] is u_Na_reversal in component main (J_per_C).
 * ALGEBRAIC[19] is c_Na_gutThreshold in component main (mM).
 * ALGEBRAIC[23] is c_Na_epiEquilibrium in component main (mM).
 * ALGEBRAIC[12] is c_Cl_epiEquilibrium in component main (mM).
 * RATES[0] is d/dt q_Na_gut in component main (mole).
 * RATES[1] is d/dt q_Na_epi in component main (mole).
 * RATES[2] is d/dt q_K_epi in component main (mole).
 * RATES[3] is d/dt q_Cl_epi in component main (mole).
 * RATES[4] is d/dt q_e in component main (coulomb).
 * RATES[5] is d/dt q_Glc_epi in component main (mole).
 * RATES[6] is d/dt q_ATP in component main (mole).
 * RATES[7] is d/dt q_ADP in component main (mole).
 * RATES[8] is d/dt q_Pi in component main (mole).
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 0.1;
CONSTANTS[1] = 2.5e3;
CONSTANTS[2] = 0.965e5;
CONSTANTS[3] = 1;
CONSTANTS[4] = 1;
CONSTANTS[5] = 1;
STATES[0] = 0.1;
STATES[1] = 0.001;
CONSTANTS[6] = 0.140;
CONSTANTS[7] = 1.0;
CONSTANTS[8] = 1.e3;
STATES[2] = 0.130;
CONSTANTS[9] = 0.004;
STATES[3] = 0.001;
CONSTANTS[10] = 0.100;
STATES[4] = 1e-5;
CONSTANTS[11] = -0.08;
CONSTANTS[12] = 5e4;
STATES[5] = 0.001;
CONSTANTS[13] = 0.01;
CONSTANTS[14] = 0.01;
CONSTANTS[15] = 1.0;
CONSTANTS[16] = 1;
CONSTANTS[17] = 1;
CONSTANTS[18] = 1;
CONSTANTS[19] = 0.5;
CONSTANTS[20] = 5;
CONSTANTS[21] = 1e-4;
CONSTANTS[22] = 9.25;
CONSTANTS[23] = 1.20;
CONSTANTS[24] = 25.0;
STATES[6] = 0.003;
STATES[7] = 0.0025;
STATES[8] = 0.003;
CONSTANTS[25] = 1e-7;
CONSTANTS[26] = 1e-2;
CONSTANTS[27] = 1e1;
CONSTANTS[28] = 2e4;
CONSTANTS[29] = 1e2;
CONSTANTS[30] = 1e-1;
CONSTANTS[31] = 1e-1;
CONSTANTS[32] = 2e3;
CONSTANTS[33] = 0;
CONSTANTS[34] = 1e0;
CONSTANTS[35] = 1e1;
CONSTANTS[36] = CONSTANTS[3]+CONSTANTS[4]+CONSTANTS[5];
CONSTANTS[37] = ( CONSTANTS[9]*CONSTANTS[8])/CONSTANTS[5];
CONSTANTS[38] = ( CONSTANTS[10]*CONSTANTS[8])/CONSTANTS[5];
CONSTANTS[39] = ( CONSTANTS[13]*CONSTANTS[8])/CONSTANTS[5];
CONSTANTS[40] = ( CONSTANTS[18]*(CONSTANTS[4] - CONSTANTS[19]))/pow(CONSTANTS[20] - CONSTANTS[4], 2.00000);
CONSTANTS[41] = ( CONSTANTS[25]*CONSTANTS[8])/CONSTANTS[4];
}
void
computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[2] = ( STATES[0]*CONSTANTS[8])/CONSTANTS[3];
ALGEBRAIC[4] = ( STATES[1]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[13] = STATES[4]/CONSTANTS[12];
ALGEBRAIC[14] = (VOI>CONSTANTS[0] ?  CONSTANTS[14]*CONSTANTS[15] : CONSTANTS[14]);
ALGEBRAIC[15] = ( ALGEBRAIC[14]*CONSTANTS[8])/CONSTANTS[3];
ALGEBRAIC[16] = ( STATES[5]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[22] = ( CONSTANTS[26]*(( pow(ALGEBRAIC[2]/ALGEBRAIC[4], 2.00000)*ALGEBRAIC[15])/ALGEBRAIC[16] - exp(( 2.00000*CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1])))/( (1.00000+pow(ALGEBRAIC[2]/20.0000, 2.00000))*(1.00000+pow(ALGEBRAIC[4]/100.000, 2.00000)));
RATES[0] =  - 2.00000*ALGEBRAIC[22];
ALGEBRAIC[24] = ( CONSTANTS[27]*(ALGEBRAIC[16]/CONSTANTS[39] - 1.00000))/(1.00000+ALGEBRAIC[16]/5.00000+CONSTANTS[39]/10.0000+( ALGEBRAIC[16]*CONSTANTS[39])/100.000);
ALGEBRAIC[17] = ( STATES[6]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[20] = ( STATES[7]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[27] =  CONSTANTS[35]*(( CONSTANTS[34]*ALGEBRAIC[16]*ALGEBRAIC[20])/ALGEBRAIC[17] - 1.00000);
RATES[5] = (ALGEBRAIC[22] - ALGEBRAIC[24]) - ALGEBRAIC[27];
ALGEBRAIC[0] = (VOI>CONSTANTS[0] ?  CONSTANTS[6]*CONSTANTS[7] : CONSTANTS[6]);
ALGEBRAIC[5] = ( ALGEBRAIC[0]*CONSTANTS[8])/CONSTANTS[5];
ALGEBRAIC[7] = ( STATES[2]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[21] = ( STATES[8]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[25] = ( CONSTANTS[29]*(( pow(ALGEBRAIC[4]/ALGEBRAIC[5], 3.00000)*ALGEBRAIC[17]*CONSTANTS[28])/( ALGEBRAIC[20]*ALGEBRAIC[21]*CONSTANTS[41]) -  pow(ALGEBRAIC[7]/CONSTANTS[37], 2.00000)*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1])))/( (1.00000+pow(ALGEBRAIC[4]/1.00000, 3.00000))*(1.00000+pow(ALGEBRAIC[5]/100.000, 3.00000)));
RATES[6] = - ALGEBRAIC[25]+ 32.0000*ALGEBRAIC[27];
RATES[7] = ALGEBRAIC[25] -  32.0000*ALGEBRAIC[27];
RATES[8] = ALGEBRAIC[25] -  32.0000*ALGEBRAIC[27];
ALGEBRAIC[10] = ( STATES[3]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[26] = ( CONSTANTS[30]*( (( (ALGEBRAIC[5]/ALGEBRAIC[4])*CONSTANTS[37])/ALGEBRAIC[7])*pow(CONSTANTS[38]/ALGEBRAIC[10], 2.00000) - 1.00000))/( (1.00000+ALGEBRAIC[5]/70.0000)*(1.00000+ALGEBRAIC[4]/5.00000)*(1.00000+CONSTANTS[37]/2.00000)*(1.00000+ALGEBRAIC[7]/60.0000)*(1.00000+pow(CONSTANTS[38]/50.0000, 2.00000))*(1.00000+pow(ALGEBRAIC[10]/10.0000, 2.00000)));
ALGEBRAIC[28] = ( CONSTANTS[31]*(( (ALGEBRAIC[7]/CONSTANTS[37])*ALGEBRAIC[10])/CONSTANTS[38] - 1.00000))/( (1.00000+CONSTANTS[38]/50.0000)*(1.00000+CONSTANTS[37]/2.00000)*(1.00000+ALGEBRAIC[10]/10.0000)*(1.00000+ALGEBRAIC[7]/60.0000));
RATES[3] =  2.00000*ALGEBRAIC[26] - ALGEBRAIC[28];
ALGEBRAIC[29] = ALGEBRAIC[13]/(exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]) - 1.00000);
ALGEBRAIC[30] =  CONSTANTS[32]*( STATES[2]*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]) - CONSTANTS[9])*ALGEBRAIC[29];
RATES[2] = (( 2.00000*ALGEBRAIC[25] - ALGEBRAIC[30])+ALGEBRAIC[26]) - ALGEBRAIC[28];
ALGEBRAIC[31] =  CONSTANTS[33]*(ALGEBRAIC[0] -  STATES[1]*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]))*ALGEBRAIC[29];
RATES[1] = ( 2.00000*ALGEBRAIC[22] -  3.00000*ALGEBRAIC[25])+ALGEBRAIC[26]+ALGEBRAIC[31];
RATES[4] =  CONSTANTS[2]*((( 2.00000*ALGEBRAIC[22] - ALGEBRAIC[25]) - ALGEBRAIC[30])+ALGEBRAIC[31]);
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[2] = ( STATES[0]*CONSTANTS[8])/CONSTANTS[3];
ALGEBRAIC[4] = ( STATES[1]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[13] = STATES[4]/CONSTANTS[12];
ALGEBRAIC[14] = (VOI>CONSTANTS[0] ?  CONSTANTS[14]*CONSTANTS[15] : CONSTANTS[14]);
ALGEBRAIC[15] = ( ALGEBRAIC[14]*CONSTANTS[8])/CONSTANTS[3];
ALGEBRAIC[16] = ( STATES[5]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[22] = ( CONSTANTS[26]*(( pow(ALGEBRAIC[2]/ALGEBRAIC[4], 2.00000)*ALGEBRAIC[15])/ALGEBRAIC[16] - exp(( 2.00000*CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1])))/( (1.00000+pow(ALGEBRAIC[2]/20.0000, 2.00000))*(1.00000+pow(ALGEBRAIC[4]/100.000, 2.00000)));
ALGEBRAIC[24] = ( CONSTANTS[27]*(ALGEBRAIC[16]/CONSTANTS[39] - 1.00000))/(1.00000+ALGEBRAIC[16]/5.00000+CONSTANTS[39]/10.0000+( ALGEBRAIC[16]*CONSTANTS[39])/100.000);
ALGEBRAIC[17] = ( STATES[6]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[20] = ( STATES[7]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[27] =  CONSTANTS[35]*(( CONSTANTS[34]*ALGEBRAIC[16]*ALGEBRAIC[20])/ALGEBRAIC[17] - 1.00000);
ALGEBRAIC[0] = (VOI>CONSTANTS[0] ?  CONSTANTS[6]*CONSTANTS[7] : CONSTANTS[6]);
ALGEBRAIC[5] = ( ALGEBRAIC[0]*CONSTANTS[8])/CONSTANTS[5];
ALGEBRAIC[7] = ( STATES[2]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[21] = ( STATES[8]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[25] = ( CONSTANTS[29]*(( pow(ALGEBRAIC[4]/ALGEBRAIC[5], 3.00000)*ALGEBRAIC[17]*CONSTANTS[28])/( ALGEBRAIC[20]*ALGEBRAIC[21]*CONSTANTS[41]) -  pow(ALGEBRAIC[7]/CONSTANTS[37], 2.00000)*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1])))/( (1.00000+pow(ALGEBRAIC[4]/1.00000, 3.00000))*(1.00000+pow(ALGEBRAIC[5]/100.000, 3.00000)));
ALGEBRAIC[10] = ( STATES[3]*CONSTANTS[8])/CONSTANTS[4];
ALGEBRAIC[26] = ( CONSTANTS[30]*( (( (ALGEBRAIC[5]/ALGEBRAIC[4])*CONSTANTS[37])/ALGEBRAIC[7])*pow(CONSTANTS[38]/ALGEBRAIC[10], 2.00000) - 1.00000))/( (1.00000+ALGEBRAIC[5]/70.0000)*(1.00000+ALGEBRAIC[4]/5.00000)*(1.00000+CONSTANTS[37]/2.00000)*(1.00000+ALGEBRAIC[7]/60.0000)*(1.00000+pow(CONSTANTS[38]/50.0000, 2.00000))*(1.00000+pow(ALGEBRAIC[10]/10.0000, 2.00000)));
ALGEBRAIC[28] = ( CONSTANTS[31]*(( (ALGEBRAIC[7]/CONSTANTS[37])*ALGEBRAIC[10])/CONSTANTS[38] - 1.00000))/( (1.00000+CONSTANTS[38]/50.0000)*(1.00000+CONSTANTS[37]/2.00000)*(1.00000+ALGEBRAIC[10]/10.0000)*(1.00000+ALGEBRAIC[7]/60.0000));
ALGEBRAIC[29] = ALGEBRAIC[13]/(exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]) - 1.00000);
ALGEBRAIC[30] =  CONSTANTS[32]*( STATES[2]*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]) - CONSTANTS[9])*ALGEBRAIC[29];
ALGEBRAIC[31] =  CONSTANTS[33]*(ALGEBRAIC[0] -  STATES[1]*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]))*ALGEBRAIC[29];
ALGEBRAIC[1] = STATES[6]+STATES[7];
ALGEBRAIC[3] = STATES[0]+STATES[1]+ALGEBRAIC[0];
ALGEBRAIC[6] =  CONSTANTS[21]*((CONSTANTS[16] - CONSTANTS[40]) -  (CONSTANTS[1]/CONSTANTS[8])*(ALGEBRAIC[2] - ALGEBRAIC[4]));
ALGEBRAIC[8] =  CONSTANTS[21]*((CONSTANTS[40] - CONSTANTS[17]) -  (CONSTANTS[1]/CONSTANTS[8])*(ALGEBRAIC[4] - ALGEBRAIC[5]));
ALGEBRAIC[9] =  (CONSTANTS[1]/CONSTANTS[2])*log(ALGEBRAIC[5]/ALGEBRAIC[4]);
ALGEBRAIC[11] =  (CONSTANTS[1]/CONSTANTS[2])*log(CONSTANTS[37]/ALGEBRAIC[7]);
ALGEBRAIC[12] =  CONSTANTS[38]* pow((( (ALGEBRAIC[5]/ALGEBRAIC[4])*CONSTANTS[37])/ALGEBRAIC[7]), 1.0 / 2);
ALGEBRAIC[18] =  (CONSTANTS[1]/( 2.00000*CONSTANTS[2]))*log(( pow(ALGEBRAIC[2]/ALGEBRAIC[4], 2.00000)*ALGEBRAIC[15])/ALGEBRAIC[16]);
ALGEBRAIC[19] =  ALGEBRAIC[4]* pow((ALGEBRAIC[16]/ALGEBRAIC[15]), 1.0 / 2)*exp(( CONSTANTS[2]*ALGEBRAIC[13])/CONSTANTS[1]);
ALGEBRAIC[23] =  ALGEBRAIC[5]*pow(( (ALGEBRAIC[20]/ALGEBRAIC[17])*ALGEBRAIC[21]*CONSTANTS[41])/CONSTANTS[28], 0.333340)*pow(ALGEBRAIC[7]/CONSTANTS[37], 0.666670)*exp(( CONSTANTS[2]*ALGEBRAIC[13])/( 3.00000*CONSTANTS[1]));
}