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 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 45 entries in the constant variable array.
*/
/*
* VOI is time in component environment (millisecond).
* CONSTANTS[0] is RT in component parameters (joule_per_mole).
* STATES[0] is V_m in component membrane (millivolt).
* CONSTANTS[1] is C_m in component membrane (picofarad).
* ALGEBRAIC[16] is I_Na in component I_Na (picoampere).
* ALGEBRAIC[18] is I_T in component I_T (picoampere).
* ALGEBRAIC[20] is I_KCa in component I_KCa (picoampere).
* ALGEBRAIC[25] is I_Ca in component I_Ca (picoampere).
* ALGEBRAIC[26] is I_L in component I_L (picoampere).
* ALGEBRAIC[28] is I_K in component I_K (picoampere).
* ALGEBRAIC[13] is I_stim in component I_stim (picoampere).
* CONSTANTS[2] is I_mag in component I_stim (picoampere).
* CONSTANTS[3] is t_0 in component I_stim (millisecond).
* CONSTANTS[4] is t_1 in component I_stim (millisecond).
* ALGEBRAIC[3] is H_0 in component I_stim (dimensionless).
* ALGEBRAIC[9] is H_1 in component I_stim (dimensionless).
* CONSTANTS[5] is g_Na in component I_Na (nanosiemens).
* CONSTANTS[6] is E_Na in component I_Na (millivolt).
* STATES[1] is m in component m (dimensionless).
* STATES[2] is h in component h (dimensionless).
* CONSTANTS[7] is E_m in component m (millivolt).
* CONSTANTS[8] is V_alpha_m in component m (millivolt).
* CONSTANTS[9] is V_beta_m in component m (millivolt).
* ALGEBRAIC[0] is alpha_m in component m (per_millisecond).
* ALGEBRAIC[6] is beta_m in component m (per_millisecond).
* CONSTANTS[10] is alpha_m_max in component m (per_millivolt_per_millisecond).
* CONSTANTS[11] is beta_m_max in component m (per_millisecond).
* CONSTANTS[12] is E_h in component h (millivolt).
* CONSTANTS[13] is V_alpha_h in component h (millivolt).
* CONSTANTS[14] is V_beta_h in component h (millivolt).
* ALGEBRAIC[1] is alpha_h in component h (per_millisecond).
* ALGEBRAIC[7] is beta_h in component h (per_millisecond).
* CONSTANTS[15] is alpha_h_max in component h (per_millisecond).
* CONSTANTS[16] is beta_h_max in component h (per_millisecond).
* CONSTANTS[17] is R_s in component I_T (per_nanosiemens).
* CONSTANTS[18] is C_t in component I_T (picofarad).
* STATES[3] is V_T in component V_T (millivolt).
* CONSTANTS[19] is g_KCa in component I_KCa (nanosiemens).
* CONSTANTS[20] is E_K in component I_K (millivolt).
* STATES[4] is o in component o (dimensionless).
* ALGEBRAIC[19] is w in component w (dimensionless).
* STATES[5] is c in component calcium_handling (dimensionless).
* ALGEBRAIC[15] is o_oinf in component o (dimensionless).
* ALGEBRAIC[2] is alpha_Vm in component o (per_millisecond).
* ALGEBRAIC[8] is beta_Vm in component o (per_millisecond).
* ALGEBRAIC[12] is tau_Vm in component o (millisecond).
* CONSTANTS[21] is d_1 in component o (dimensionless).
* CONSTANTS[22] is d_2 in component o (dimensionless).
* CONSTANTS[23] is k_1 in component o (dimensionless).
* CONSTANTS[24] is k_2 in component o (dimensionless).
* CONSTANTS[25] is a_bar in component o (per_millisecond).
* CONSTANTS[26] is b_bar in component o (per_millisecond).
* CONSTANTS[27] is kd in component w (dimensionless).
* STATES[6] is cer in component calcium_handling (dimensionless).
* ALGEBRAIC[27] is j_mem in component calcium_handling (picoampere).
* ALGEBRAIC[21] is j_leak in component calcium_handling (picoampere).
* ALGEBRAIC[22] is j_serca in component calcium_handling (picoampere).
* ALGEBRAIC[23] is j_er in component calcium_handling (picoampere).
* CONSTANTS[28] is alpha in component calcium_handling (dimensionless).
* CONSTANTS[29] is k_pmca in component calcium_handling (dimensionless).
* CONSTANTS[30] is k_serca in component calcium_handling (picoampere).
* CONSTANTS[31] is p_leak in component calcium_handling (picoampere).
* CONSTANTS[32] is f_er in component calcium_handling (per_picoampere_per_millisecond).
* CONSTANTS[33] is f_cyt in component calcium_handling (per_picoampere_per_millisecond).
* CONSTANTS[34] is v_cytver in component calcium_handling (dimensionless).
* STATES[7] is d in component d (dimensionless).
* ALGEBRAIC[24] is g_Ca in component I_Ca (nanosiemens).
* CONSTANTS[35] is g_Ca0 in component I_Ca (nanosiemens_per_millivolt).
* CONSTANTS[36] is E_Ca in component I_Ca (millivolt).
* ALGEBRAIC[14] is alpha_d in component d (per_millisecond).
* ALGEBRAIC[17] is beta_d in component d (per_millisecond).
* ALGEBRAIC[10] is tau_d in component d (millisecond).
* ALGEBRAIC[4] is d_infinity in component d (dimensionless).
* CONSTANTS[37] is E_L in component I_L (millivolt).
* CONSTANTS[38] is g_Lmax in component I_L (nanosiemens).
* STATES[8] is n in component n (dimensionless).
* CONSTANTS[39] is g_K in component I_K (nanosiemens).
* CONSTANTS[40] is E_n in component n (millivolt).
* CONSTANTS[41] is V_alpha_n in component n (millivolt).
* CONSTANTS[42] is V_beta_n in component n (millivolt).
* ALGEBRAIC[5] is alpha_n in component n (per_millisecond).
* ALGEBRAIC[11] is beta_n in component n (per_millisecond).
* CONSTANTS[43] is alpha_n_max in component n (per_millivolt_per_millisecond).
* CONSTANTS[44] is beta_n_max in component n (per_millisecond).
* RATES[0] is d/dt V_m in component membrane (millivolt).
* RATES[1] is d/dt m in component m (dimensionless).
* RATES[2] is d/dt h in component h (dimensionless).
* RATES[3] is d/dt V_T in component V_T (millivolt).
* RATES[4] is d/dt o in component o (dimensionless).
* RATES[5] is d/dt c in component calcium_handling (dimensionless).
* RATES[6] is d/dt cer in component calcium_handling (dimensionless).
* RATES[7] is d/dt d in component d (dimensionless).
* RATES[8] is d/dt n in component n (dimensionless).
*/
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 2577;
STATES[0] = -75;
CONSTANTS[1] = 0.009;
CONSTANTS[2] = 2;
CONSTANTS[3] = 5;
CONSTANTS[4] = 6;
CONSTANTS[5] = 0.45;
CONSTANTS[6] = 50;
STATES[1] = 0;
STATES[2] = 1;
CONSTANTS[7] = -42;
CONSTANTS[8] = 10;
CONSTANTS[9] = 18;
CONSTANTS[10] = 0.208;
CONSTANTS[11] = 2.081;
CONSTANTS[12] = -41;
CONSTANTS[13] = 14.7;
CONSTANTS[14] = 7.6;
CONSTANTS[15] = 0.0156;
CONSTANTS[16] = 3.382;
CONSTANTS[17] = 15;
CONSTANTS[18] = 0.04;
STATES[3] = -70;
CONSTANTS[19] = 0.5;
CONSTANTS[20] = -70;
STATES[4] = 0.15;
STATES[5] = 0.15;
CONSTANTS[21] = 0.84;
CONSTANTS[22] = 1;
CONSTANTS[23] = 0.18;
CONSTANTS[24] = 0.011;
CONSTANTS[25] = 0.48;
CONSTANTS[26] = 0.28;
CONSTANTS[27] = 0.18;
STATES[6] = 200;
CONSTANTS[28] = 4.5e-6;
CONSTANTS[29] = 0.2;
CONSTANTS[30] = 0.4;
CONSTANTS[31] = 0.0005;
CONSTANTS[32] = 0.01;
CONSTANTS[33] = 0.01;
CONSTANTS[34] = 5;
STATES[7] = 0;
CONSTANTS[35] = 0.05;
CONSTANTS[36] = 50;
CONSTANTS[37] = -75;
CONSTANTS[38] = 0.0024;
STATES[8] = 0;
CONSTANTS[39] = 0.415;
CONSTANTS[40] = -40;
CONSTANTS[41] = 7;
CONSTANTS[42] = 40;
CONSTANTS[43] = 0.0229;
CONSTANTS[44] = 0.09616;
}
void
computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
RATES[3] = (STATES[0] - STATES[3])/( CONSTANTS[17]*CONSTANTS[18]);
ALGEBRAIC[0] = ( CONSTANTS[10]*(STATES[0] - CONSTANTS[7]))/(1.00000 - exp((CONSTANTS[7] - STATES[0])/CONSTANTS[8]));
ALGEBRAIC[6] = CONSTANTS[11]*exp((CONSTANTS[7] - STATES[0])/CONSTANTS[9]);
RATES[1] = ALGEBRAIC[0]*(1.00000 - STATES[1]) - ALGEBRAIC[6]*STATES[1];
ALGEBRAIC[1] = CONSTANTS[15]*exp((STATES[0] - CONSTANTS[12])/CONSTANTS[13]);
ALGEBRAIC[7] = CONSTANTS[16]/(1.00000+exp((CONSTANTS[12] - STATES[0])/CONSTANTS[14]));
RATES[2] = ALGEBRAIC[1]*(1.00000 - STATES[2]) - ALGEBRAIC[7]*STATES[2];
ALGEBRAIC[5] = ( CONSTANTS[43]*(STATES[0] - CONSTANTS[40]))/(1.00000 - exp((CONSTANTS[40] - STATES[0])/CONSTANTS[41]));
ALGEBRAIC[11] = CONSTANTS[44]*exp((CONSTANTS[40] - STATES[0])/CONSTANTS[42]);
RATES[8] = ALGEBRAIC[5]*(1.00000 - STATES[8]) - ALGEBRAIC[11]*STATES[8];
ALGEBRAIC[2] = CONSTANTS[25]/(1.00000+ CONSTANTS[23]*exp(( - 2.00000*CONSTANTS[21]*96.4850*STATES[0])/( CONSTANTS[0]*STATES[5])));
ALGEBRAIC[8] = CONSTANTS[26]/(1.00000+STATES[5]/( CONSTANTS[24]*exp(( - 2.00000*CONSTANTS[22]*96.4850*STATES[0])/CONSTANTS[0])));
ALGEBRAIC[12] = 1.00000/(ALGEBRAIC[2]+ALGEBRAIC[8]);
ALGEBRAIC[15] = ALGEBRAIC[2]*ALGEBRAIC[12];
RATES[4] = (ALGEBRAIC[15] - STATES[4])/ALGEBRAIC[12];
ALGEBRAIC[10] = ( 80.0000*1.00000)/cosh( - 0.0310000*(STATES[0]+37.1000));
ALGEBRAIC[4] = 1.00000/(1.00000+exp((- 24.6000 - STATES[0])/11.3000));
ALGEBRAIC[14] = ALGEBRAIC[4]/ALGEBRAIC[10];
ALGEBRAIC[17] = (1.00000 - ALGEBRAIC[4])/ALGEBRAIC[10];
RATES[7] = ALGEBRAIC[14]*(1.00000 - STATES[7]) - ALGEBRAIC[17]*STATES[7];
ALGEBRAIC[21] = CONSTANTS[31]*(STATES[6] - STATES[5]);
ALGEBRAIC[22] = CONSTANTS[30]*STATES[5];
ALGEBRAIC[23] = ALGEBRAIC[21] - ALGEBRAIC[22];
RATES[6] = - CONSTANTS[32]*CONSTANTS[34]*ALGEBRAIC[23];
ALGEBRAIC[24] = ( - CONSTANTS[35]*STATES[0])/(exp( 0.117000*STATES[0]) - 1.00000);
ALGEBRAIC[25] = ALGEBRAIC[24]*pow(STATES[7], 2.00000)*(STATES[0] - CONSTANTS[36]);
ALGEBRAIC[27] = - CONSTANTS[28]*ALGEBRAIC[25]*CONSTANTS[29]*STATES[5];
RATES[5] = CONSTANTS[33]*(ALGEBRAIC[27]+ALGEBRAIC[23]);
ALGEBRAIC[16] = CONSTANTS[5]*pow(STATES[1], 3.00000)*STATES[2]*(STATES[0] - CONSTANTS[6]);
ALGEBRAIC[18] = (STATES[0] - STATES[3])/CONSTANTS[17];
ALGEBRAIC[19] = pow(STATES[5], 5.00000)/(pow(STATES[5], 5.00000)+pow(CONSTANTS[27], 5.00000));
ALGEBRAIC[20] = CONSTANTS[19]*STATES[4]*ALGEBRAIC[19]*(STATES[0] - CONSTANTS[20]);
ALGEBRAIC[26] = CONSTANTS[38]*(STATES[0] - CONSTANTS[37]);
ALGEBRAIC[28] = CONSTANTS[39]*pow(STATES[8], 4.00000)*(STATES[0] - CONSTANTS[20]);
ALGEBRAIC[3] = (VOI<CONSTANTS[3] ? 0.00000 : 1.00000);
ALGEBRAIC[9] = (VOI<CONSTANTS[4] ? 0.00000 : 1.00000);
ALGEBRAIC[13] = CONSTANTS[2]*(ALGEBRAIC[3] - ALGEBRAIC[9]);
RATES[0] = (ALGEBRAIC[13] - (ALGEBRAIC[16]+ALGEBRAIC[25]+ALGEBRAIC[28]+ALGEBRAIC[26]+ALGEBRAIC[18]+ALGEBRAIC[20]))/CONSTANTS[1];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = ( CONSTANTS[10]*(STATES[0] - CONSTANTS[7]))/(1.00000 - exp((CONSTANTS[7] - STATES[0])/CONSTANTS[8]));
ALGEBRAIC[6] = CONSTANTS[11]*exp((CONSTANTS[7] - STATES[0])/CONSTANTS[9]);
ALGEBRAIC[1] = CONSTANTS[15]*exp((STATES[0] - CONSTANTS[12])/CONSTANTS[13]);
ALGEBRAIC[7] = CONSTANTS[16]/(1.00000+exp((CONSTANTS[12] - STATES[0])/CONSTANTS[14]));
ALGEBRAIC[5] = ( CONSTANTS[43]*(STATES[0] - CONSTANTS[40]))/(1.00000 - exp((CONSTANTS[40] - STATES[0])/CONSTANTS[41]));
ALGEBRAIC[11] = CONSTANTS[44]*exp((CONSTANTS[40] - STATES[0])/CONSTANTS[42]);
ALGEBRAIC[2] = CONSTANTS[25]/(1.00000+ CONSTANTS[23]*exp(( - 2.00000*CONSTANTS[21]*96.4850*STATES[0])/( CONSTANTS[0]*STATES[5])));
ALGEBRAIC[8] = CONSTANTS[26]/(1.00000+STATES[5]/( CONSTANTS[24]*exp(( - 2.00000*CONSTANTS[22]*96.4850*STATES[0])/CONSTANTS[0])));
ALGEBRAIC[12] = 1.00000/(ALGEBRAIC[2]+ALGEBRAIC[8]);
ALGEBRAIC[15] = ALGEBRAIC[2]*ALGEBRAIC[12];
ALGEBRAIC[10] = ( 80.0000*1.00000)/cosh( - 0.0310000*(STATES[0]+37.1000));
ALGEBRAIC[4] = 1.00000/(1.00000+exp((- 24.6000 - STATES[0])/11.3000));
ALGEBRAIC[14] = ALGEBRAIC[4]/ALGEBRAIC[10];
ALGEBRAIC[17] = (1.00000 - ALGEBRAIC[4])/ALGEBRAIC[10];
ALGEBRAIC[21] = CONSTANTS[31]*(STATES[6] - STATES[5]);
ALGEBRAIC[22] = CONSTANTS[30]*STATES[5];
ALGEBRAIC[23] = ALGEBRAIC[21] - ALGEBRAIC[22];
ALGEBRAIC[24] = ( - CONSTANTS[35]*STATES[0])/(exp( 0.117000*STATES[0]) - 1.00000);
ALGEBRAIC[25] = ALGEBRAIC[24]*pow(STATES[7], 2.00000)*(STATES[0] - CONSTANTS[36]);
ALGEBRAIC[27] = - CONSTANTS[28]*ALGEBRAIC[25]*CONSTANTS[29]*STATES[5];
ALGEBRAIC[16] = CONSTANTS[5]*pow(STATES[1], 3.00000)*STATES[2]*(STATES[0] - CONSTANTS[6]);
ALGEBRAIC[18] = (STATES[0] - STATES[3])/CONSTANTS[17];
ALGEBRAIC[19] = pow(STATES[5], 5.00000)/(pow(STATES[5], 5.00000)+pow(CONSTANTS[27], 5.00000));
ALGEBRAIC[20] = CONSTANTS[19]*STATES[4]*ALGEBRAIC[19]*(STATES[0] - CONSTANTS[20]);
ALGEBRAIC[26] = CONSTANTS[38]*(STATES[0] - CONSTANTS[37]);
ALGEBRAIC[28] = CONSTANTS[39]*pow(STATES[8], 4.00000)*(STATES[0] - CONSTANTS[20]);
ALGEBRAIC[3] = (VOI<CONSTANTS[3] ? 0.00000 : 1.00000);
ALGEBRAIC[9] = (VOI<CONSTANTS[4] ? 0.00000 : 1.00000);
ALGEBRAIC[13] = CONSTANTS[2]*(ALGEBRAIC[3] - ALGEBRAIC[9]);
}