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 31 entries in the algebraic variable array.
There are a total of 14 entries in each of the rate and state variable arrays.
There are a total of 31 entries in the constant variable array.
*/
/*
* VOI is time in component environment (second).
* CONSTANTS[0] is vol_myo in component environment (pL).
* STATES[0] is q_DAG in component environment (fmol).
* STATES[1] is q_PC in component environment (fmol).
* STATES[2] is q_IP3 in component environment (fmol).
* STATES[3] is q_Ino in component environment (fmol).
* STATES[4] is q_PLC in component environment (fmol).
* STATES[5] is q_Gq in component environment (fmol).
* STATES[6] is q_Ca in component environment (fmol).
* STATES[7] is q_Gq_PLC in component environment (fmol).
* STATES[8] is q_Ca_PLC in component environment (fmol).
* STATES[9] is q_Ca_Gq_PLC in component environment (fmol).
* STATES[10] is q_G_GDP in component environment (fmol).
* STATES[11] is q_PIP2 in component environment (fmol).
* STATES[12] is q_CaPLC_PIP2 in component environment (fmol).
* STATES[13] is q_CaGqPLC_PIP2 in component environment (fmol).
* ALGEBRAIC[20] is v_R0_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[21] is v_R1_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[22] is v_R2a_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[23] is v_R2b_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[24] is v_R3a_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[25] is v_R3b_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[26] is v_R4_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[27] is v_R5_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[28] is v_R6_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[29] is v_R7_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[30] is v_R8_PLC in component PLC (fmol_per_sec).
* ALGEBRAIC[1] is Gq_stim in component environment (fmol_per_sec).
* CONSTANTS[1] is stimPeriod in component environment (second).
* CONSTANTS[2] is stimDuration in component environment (second).
* ALGEBRAIC[0] is tPeriod in component environment (second).
* ALGEBRAIC[2] is cGq in component environment (mM).
* ALGEBRAIC[3] is cCa in component environment (mM).
* ALGEBRAIC[4] is cDAG in component environment (mM).
* ALGEBRAIC[5] is cIP3 in component environment (mM).
* CONSTANTS[3] is kappa_R0_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[4] is kappa_R1_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[5] is kappa_R2a_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[6] is kappa_R2b_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[7] is kappa_R3a_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[8] is kappa_R3b_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[9] is kappa_R4_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[10] is kappa_R5_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[11] is kappa_R6_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[12] is kappa_R7_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[13] is kappa_R8_PLC in component PLC_parameters (fmol_per_sec).
* CONSTANTS[14] is K_DAG in component PLC_parameters (per_fmol).
* CONSTANTS[15] is K_PC in component PLC_parameters (per_fmol).
* CONSTANTS[16] is K_IP3 in component PLC_parameters (per_fmol).
* CONSTANTS[17] is K_Ino in component PLC_parameters (per_fmol).
* CONSTANTS[18] is K_PLC in component PLC_parameters (per_fmol).
* CONSTANTS[19] is K_Gq in component PLC_parameters (per_fmol).
* CONSTANTS[20] is K_Ca in component PLC_parameters (per_fmol).
* CONSTANTS[21] is K_Gq_PLC in component PLC_parameters (per_fmol).
* CONSTANTS[22] is K_Ca_PLC in component PLC_parameters (per_fmol).
* CONSTANTS[23] is K_Ca_Gq_PLC in component PLC_parameters (per_fmol).
* CONSTANTS[24] is K_G_GDP in component PLC_parameters (per_fmol).
* CONSTANTS[25] is K_PIP2 in component PLC_parameters (per_fmol).
* CONSTANTS[26] is K_CaPLC_PIP2 in component PLC_parameters (per_fmol).
* CONSTANTS[27] is K_CaGqPLC_PIP2 in component PLC_parameters (per_fmol).
* CONSTANTS[28] is R in component constants (J_per_K_per_mol).
* CONSTANTS[29] is T in component constants (kelvin).
* ALGEBRAIC[6] is mu_DAG in component PLC (J_per_mol).
* ALGEBRAIC[7] is mu_PC in component PLC (J_per_mol).
* ALGEBRAIC[8] is mu_IP3 in component PLC (J_per_mol).
* ALGEBRAIC[9] is mu_Ino in component PLC (J_per_mol).
* ALGEBRAIC[10] is mu_PLC in component PLC (J_per_mol).
* ALGEBRAIC[11] is mu_Gq in component PLC (J_per_mol).
* ALGEBRAIC[12] is mu_Ca in component PLC (J_per_mol).
* ALGEBRAIC[13] is mu_Gq_PLC in component PLC (J_per_mol).
* ALGEBRAIC[14] is mu_Ca_PLC in component PLC (J_per_mol).
* ALGEBRAIC[15] is mu_Ca_Gq_PLC in component PLC (J_per_mol).
* ALGEBRAIC[16] is mu_G_GDP in component PLC (J_per_mol).
* ALGEBRAIC[17] is mu_PIP2 in component PLC (J_per_mol).
* ALGEBRAIC[18] is mu_CaPLC_PIP2 in component PLC (J_per_mol).
* ALGEBRAIC[19] is mu_CaGqPLC_PIP2 in component PLC (J_per_mol).
* CONSTANTS[30] is F in component constants (C_per_mol).
* RATES[0] is d/dt q_DAG in component environment (fmol).
* RATES[1] is d/dt q_PC in component environment (fmol).
* RATES[2] is d/dt q_IP3 in component environment (fmol).
* RATES[3] is d/dt q_Ino in component environment (fmol).
* RATES[4] is d/dt q_PLC in component environment (fmol).
* RATES[5] is d/dt q_Gq in component environment (fmol).
* RATES[6] is d/dt q_Ca in component environment (fmol).
* RATES[7] is d/dt q_Gq_PLC in component environment (fmol).
* RATES[8] is d/dt q_Ca_PLC in component environment (fmol).
* RATES[9] is d/dt q_Ca_Gq_PLC in component environment (fmol).
* RATES[10] is d/dt q_G_GDP in component environment (fmol).
* RATES[11] is d/dt q_PIP2 in component environment (fmol).
* RATES[12] is d/dt q_CaPLC_PIP2 in component environment (fmol).
* RATES[13] is d/dt q_CaGqPLC_PIP2 in component environment (fmol).
* There are a total of 2 condition variables.
*/
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 38;
STATES[0] = 0;
STATES[1] = 0;
STATES[2] = 0;
STATES[3] = 0;
STATES[4] = 30.4;
STATES[5] = 38;
STATES[6] = 38;
STATES[7] = 0;
STATES[8] = 0;
STATES[9] = 38;
STATES[10] = 0;
STATES[11] = 380;
STATES[12] = 0;
STATES[13] = 0;
CONSTANTS[1] = 1;
CONSTANTS[2] = 0.01;
CONSTANTS[3] = 0.0700317;
CONSTANTS[4] = 0.178887;
CONSTANTS[5] = 71285.5;
CONSTANTS[6] = 2.73747;
CONSTANTS[7] = 5697.81;
CONSTANTS[8] = 0.00287164;
CONSTANTS[9] = 2.13383;
CONSTANTS[10] = 2.28508;
CONSTANTS[11] = 0.170556;
CONSTANTS[12] = 0.170556;
CONSTANTS[13] = 0.00226839;
CONSTANTS[14] = 0.577328;
CONSTANTS[15] = 0.00384885;
CONSTANTS[16] = 3.76694;
CONSTANTS[17] = 0.00150678;
CONSTANTS[18] = 0.000942826;
CONSTANTS[19] = 0.000141635;
CONSTANTS[20] = 0.000180564;
CONSTANTS[21] = 0.117957;
CONSTANTS[22] = 0.126318;
CONSTANTS[23] = 1.58037;
CONSTANTS[24] = 0.000141635;
CONSTANTS[25] = 8.06835;
CONSTANTS[26] = 18.9051;
CONSTANTS[27] = 938.634;
CONSTANTS[28] = 8.31;
CONSTANTS[29] = 310;
CONSTANTS[30] = 96485;
RATES[0] = 0.1001;
RATES[1] = 0.1001;
RATES[2] = 0.1001;
RATES[3] = 0.1001;
RATES[4] = 0.1001;
RATES[5] = 0.1001;
RATES[6] = 0.1001;
RATES[7] = 0.1001;
RATES[8] = 0.1001;
RATES[9] = 0.1001;
RATES[10] = 0.1001;
RATES[11] = 0.1001;
RATES[12] = 0.1001;
RATES[13] = 0.1001;
}
void
computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
resid[0] = RATES[0] - (ALGEBRAIC[23]+ALGEBRAIC[25]) - ALGEBRAIC[20];
resid[1] = RATES[1] - ALGEBRAIC[20];
resid[2] = RATES[2] - (ALGEBRAIC[23]+ALGEBRAIC[25]) - ALGEBRAIC[21];
resid[3] = RATES[3] - ALGEBRAIC[21];
resid[4] = RATES[4] - - ALGEBRAIC[26] - ALGEBRAIC[27];
resid[5] = RATES[5] - - ALGEBRAIC[27]+ALGEBRAIC[29]+ALGEBRAIC[1];
resid[6] = RATES[6] - - ALGEBRAIC[26] - ALGEBRAIC[28];
resid[7] = RATES[7] - ALGEBRAIC[27] - ALGEBRAIC[28];
resid[8] = RATES[8] - - ALGEBRAIC[22]+ALGEBRAIC[23]+ALGEBRAIC[26]+ALGEBRAIC[29]+ALGEBRAIC[30];
resid[9] = RATES[9] - ((- ALGEBRAIC[24]+ALGEBRAIC[25]+ALGEBRAIC[28]) - ALGEBRAIC[29]) - ALGEBRAIC[30];
resid[10] = RATES[10] - ALGEBRAIC[30];
resid[11] = RATES[11] - - ALGEBRAIC[22] - ALGEBRAIC[24];
resid[12] = RATES[12] - ALGEBRAIC[22] - ALGEBRAIC[23];
resid[13] = RATES[13] - ALGEBRAIC[24] - ALGEBRAIC[25];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[2] = STATES[5]/CONSTANTS[0];
ALGEBRAIC[3] = STATES[6]/CONSTANTS[0];
ALGEBRAIC[4] = STATES[0]/CONSTANTS[0];
ALGEBRAIC[5] = STATES[2]/CONSTANTS[0];
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = VOI - floor(VOI/CONSTANTS[1])*CONSTANTS[1];
ALGEBRAIC[1] = (CONDVAR[0]>=0.00000&&CONDVAR[1]<=0.00000 ? 0.00000*100.000 : 0.00000);
ALGEBRAIC[6] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[14]*STATES[0]);
ALGEBRAIC[7] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[15]*STATES[1]);
ALGEBRAIC[20] = CONSTANTS[3]*(exp(ALGEBRAIC[6]/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[7]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[8] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[16]*STATES[2]);
ALGEBRAIC[9] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[17]*STATES[3]);
ALGEBRAIC[21] = CONSTANTS[4]*(exp(ALGEBRAIC[8]/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[9]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[14] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[22]*STATES[8]);
ALGEBRAIC[17] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[25]*STATES[11]);
ALGEBRAIC[18] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[26]*STATES[12]);
ALGEBRAIC[22] = CONSTANTS[5]*(exp((ALGEBRAIC[17]+ALGEBRAIC[14])/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[18]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[23] = CONSTANTS[6]*(exp(ALGEBRAIC[18]/( CONSTANTS[28]*CONSTANTS[29])) - exp((ALGEBRAIC[6]+ALGEBRAIC[8]+ALGEBRAIC[14])/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[15] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[23]*STATES[9]);
ALGEBRAIC[19] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[27]*STATES[13]);
ALGEBRAIC[24] = CONSTANTS[7]*(exp((ALGEBRAIC[17]+ALGEBRAIC[15])/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[19]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[25] = CONSTANTS[8]*(exp(ALGEBRAIC[19]/( CONSTANTS[28]*CONSTANTS[29])) - exp((ALGEBRAIC[6]+ALGEBRAIC[8]+ALGEBRAIC[15])/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[10] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[18]*STATES[4]);
ALGEBRAIC[12] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[20]*STATES[6]);
ALGEBRAIC[26] = CONSTANTS[9]*(exp((ALGEBRAIC[10]+ALGEBRAIC[12])/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[14]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[11] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[19]*STATES[5]);
ALGEBRAIC[13] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[21]*STATES[7]);
ALGEBRAIC[27] = CONSTANTS[10]*(exp((ALGEBRAIC[10]+ALGEBRAIC[11])/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[13]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[28] = CONSTANTS[11]*(exp((ALGEBRAIC[13]+ALGEBRAIC[12])/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[15]/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[29] = CONSTANTS[12]*(exp(ALGEBRAIC[15]/( CONSTANTS[28]*CONSTANTS[29])) - exp((ALGEBRAIC[11]+ALGEBRAIC[14])/( CONSTANTS[28]*CONSTANTS[29])));
ALGEBRAIC[16] = CONSTANTS[28]*CONSTANTS[29]*log( CONSTANTS[24]*STATES[10]);
ALGEBRAIC[30] = CONSTANTS[13]*(exp(ALGEBRAIC[15]/( CONSTANTS[28]*CONSTANTS[29])) - exp((ALGEBRAIC[16]+ALGEBRAIC[14])/( CONSTANTS[28]*CONSTANTS[29])));
}
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;
SI[9] = 1.0;
SI[10] = 1.0;
SI[11] = 1.0;
SI[12] = 1.0;
SI[13] = 1.0;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
CONDVAR[0] = ALGEBRAIC[0] - 0.300000;
CONDVAR[1] = ALGEBRAIC[0] - (0.300000+CONSTANTS[2]);
}