/* 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[5] 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[1] is cGq in component environment (mM). * ALGEBRAIC[2] is cCa in component environment (mM). * ALGEBRAIC[3] is cDAG in component environment (mM). * ALGEBRAIC[4] 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). */ 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; } void computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { 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]))); RATES[1] = ALGEBRAIC[20]; 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]))); RATES[3] = ALGEBRAIC[21]; 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]))); RATES[12] = ALGEBRAIC[22] - ALGEBRAIC[23]; 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]))); RATES[11] = - ALGEBRAIC[22] - ALGEBRAIC[24]; ALGEBRAIC[25] = CONSTANTS[8]*(exp(ALGEBRAIC[19]/( CONSTANTS[28]*CONSTANTS[29])) - exp((ALGEBRAIC[6]+ALGEBRAIC[8]+ALGEBRAIC[15])/( CONSTANTS[28]*CONSTANTS[29]))); RATES[0] = (ALGEBRAIC[23]+ALGEBRAIC[25]) - ALGEBRAIC[20]; RATES[2] = (ALGEBRAIC[23]+ALGEBRAIC[25]) - ALGEBRAIC[21]; RATES[13] = ALGEBRAIC[24] - ALGEBRAIC[25]; 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]))); RATES[4] = - ALGEBRAIC[26] - ALGEBRAIC[27]; ALGEBRAIC[28] = CONSTANTS[11]*(exp((ALGEBRAIC[13]+ALGEBRAIC[12])/( CONSTANTS[28]*CONSTANTS[29])) - exp(ALGEBRAIC[15]/( CONSTANTS[28]*CONSTANTS[29]))); RATES[6] = - ALGEBRAIC[26] - ALGEBRAIC[28]; RATES[7] = ALGEBRAIC[27] - ALGEBRAIC[28]; ALGEBRAIC[29] = CONSTANTS[12]*(exp(ALGEBRAIC[15]/( CONSTANTS[28]*CONSTANTS[29])) - exp((ALGEBRAIC[11]+ALGEBRAIC[14])/( CONSTANTS[28]*CONSTANTS[29]))); ALGEBRAIC[0] = VOI - floor(VOI/CONSTANTS[1])*CONSTANTS[1]; ALGEBRAIC[5] = (ALGEBRAIC[0]>=0.300000&&ALGEBRAIC[0]<=0.300000+CONSTANTS[2] ? 0.00000*100.000 : 0.00000); RATES[5] = - ALGEBRAIC[27]+ALGEBRAIC[29]+ALGEBRAIC[5]; 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]))); RATES[8] = - ALGEBRAIC[22]+ALGEBRAIC[23]+ALGEBRAIC[26]+ALGEBRAIC[29]+ALGEBRAIC[30]; RATES[9] = ((- ALGEBRAIC[24]+ALGEBRAIC[25]+ALGEBRAIC[28]) - ALGEBRAIC[29]) - ALGEBRAIC[30]; RATES[10] = ALGEBRAIC[30]; } void computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { 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[0] = VOI - floor(VOI/CONSTANTS[1])*CONSTANTS[1]; ALGEBRAIC[5] = (ALGEBRAIC[0]>=0.300000&&ALGEBRAIC[0]<=0.300000+CONSTANTS[2] ? 0.00000*100.000 : 0.00000); 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]))); ALGEBRAIC[1] = STATES[5]/CONSTANTS[0]; ALGEBRAIC[2] = STATES[6]/CONSTANTS[0]; ALGEBRAIC[3] = STATES[0]/CONSTANTS[0]; ALGEBRAIC[4] = STATES[2]/CONSTANTS[0]; }