/* There are a total of 73 entries in the algebraic variable array. There are a total of 31 entries in each of the rate and state variable arrays. There are a total of 93 entries in the constant variable array. */ /* * CONSTANTS[0] is Aca_IC50_IKr in component acacetin (uM). * CONSTANTS[1] is Aca_IC50_IKs in component acacetin (uM). * CONSTANTS[2] is Aca_IC50_Ito in component acacetin (uM). * CONSTANTS[3] is Aca_hill_IKr in component acacetin (dimensionless). * CONSTANTS[4] is Aca_hill_IKs in component acacetin (dimensionless). * CONSTANTS[5] is Aca_hill_Ito in component acacetin (dimensionless). * CONSTANTS[6] is conc in component acacetin (uM). * CONSTANTS[65] is fKr in component acacetin (dimensionless). * CONSTANTS[66] is fKs in component acacetin (dimensionless). * CONSTANTS[67] is fto in component acacetin (dimensionless). * CONSTANTS[7] is Aj_nj in component cell (um2). * CONSTANTS[8] is BCa in component calcium (mM). * CONSTANTS[9] is CSQN in component calcium (mM). * STATES[0] is Ca_SRi in component calcium (mM). * STATES[1] is Ca_SRss in component calcium (mM). * STATES[2] is Ca_i in component calcium (mM). * STATES[3] is Ca_ss in component calcium (mM). * CONSTANTS[10] is DCa in component calcium (m2_per_s_times_1e_minus_9). * CONSTANTS[11] is DCaSR in component calcium (m2_per_s_times_1e_minus_9). * CONSTANTS[12] is F in component phys (C_per_mmol). * ALGEBRAIC[7] is ICaL in component ical (pA). * ALGEBRAIC[14] is ICap in component icap (pA). * ALGEBRAIC[33] is INaCa in component inaca (pA). * ALGEBRAIC[68] is I_tot in component calcium (pA). * ALGEBRAIC[55] is IbCa in component ibca (pA). * ALGEBRAIC[69] is JCa in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[70] is JCass in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[71] is JSRCaSS in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[72] is JSRCai in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[0] is JSRCaleaki in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[1] is JSRCaleakss in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[50] is J_SERCASR in component serca (kat_times_1e_minus_15). * ALGEBRAIC[51] is J_SERCASRss in component serca (kat_times_1e_minus_15). * ALGEBRAIC[52] is J_bulkSERCA in component serca (kat_times_1e_minus_15). * ALGEBRAIC[53] is J_bulkSERCAss in component serca (kat_times_1e_minus_15). * ALGEBRAIC[2] is Jj_nj in component calcium (kat_times_1e_minus_15). * ALGEBRAIC[65] is Jreli in component ryr (kat_times_1e_minus_15). * ALGEBRAIC[66] is Jrelss in component ryr (kat_times_1e_minus_15). * CONSTANTS[13] is KdBCa in component calcium (mM). * CONSTANTS[14] is KdCSQN in component calcium (mM). * CONSTANTS[15] is KdSLhigh in component calcium (mM). * CONSTANTS[16] is KdSLlow in component calcium (mM). * CONSTANTS[17] is SLhigh in component calcium (mM). * CONSTANTS[18] is SLlow in component calcium (mM). * CONSTANTS[69] is VSRi in component cell (um3). * CONSTANTS[70] is VSRss in component cell (um3). * CONSTANTS[68] is Vnj in component cell (um3). * CONSTANTS[88] is Vss in component cell (um3). * ALGEBRAIC[3] is calcium_Ca_SRi_beta in component calcium (dimensionless). * ALGEBRAIC[4] is calcium_Ca_SRss_beta in component calcium (dimensionless). * ALGEBRAIC[5] is calcium_Ca_i_beta in component calcium (dimensionless). * ALGEBRAIC[6] is calcium_Ca_ss_beta in component calcium (dimensionless). * CONSTANTS[71] is dx2 in component cell (um2). * CONSTANTS[19] is kSRleak in component calcium (mS_per_uF). * VOI is time in component engine (ms). * CONSTANTS[20] is xj_nj in component cell (um). * CONSTANTS[21] is Cm in component cell (pF). * CONSTANTS[22] is Vi in component cell (um3). * CONSTANTS[23] is dx in component cell (um). * CONSTANTS[24] is pace in component engine (dimensionless). * ALGEBRAIC[39] is ECa in component nernst (mV). * STATES[4] is V in component membrane (mV). * CONSTANTS[72] is gbCa in component ibca (mS_per_uF). * ALGEBRAIC[41] is ENa in component nernst (mV). * ALGEBRAIC[56] is IbNa in component ibna (pA). * CONSTANTS[73] is gbNa in component ibna (mS_per_uF). * CONSTANTS[25] is ErL in component ical (mV). * STATES[5] is d in component ical (mS_per_uF). * STATES[6] is f in component ical (mS_per_uF). * STATES[7] is fca in component ical (mS_per_uF). * CONSTANTS[74] is gCaL in component ical (mS_per_uF). * ALGEBRAIC[8] is ical_d_a in component ical (ms). * ALGEBRAIC[9] is ical_d_inf in component ical (dimensionless). * ALGEBRAIC[10] is ical_d_tau in component ical (ms). * ALGEBRAIC[11] is ical_f_inf in component ical (dimensionless). * ALGEBRAIC[12] is ical_f_tau in component ical (ms). * ALGEBRAIC[13] is ical_fca_inf in component ical (dimensionless). * CONSTANTS[26] is ical_fca_tau in component ical (ms). * CONSTANTS[27] is icapbar in component icap (A_per_F). * CONSTANTS[28] is kmcap in component icap (mM). * ALGEBRAIC[40] is EK in component nernst (mV). * ALGEBRAIC[57] is IK1 in component ik1 (pA). * CONSTANTS[29] is gK1 in component ik1 (mS_per_uF). * ALGEBRAIC[58] is IKr in component ikr (pA). * CONSTANTS[75] is gKr in component ikr (mS_per_uF). * ALGEBRAIC[15] is ikr_xr_a in component ikr (mS_per_uF). * ALGEBRAIC[16] is ikr_xr_b in component ikr (mS_per_uF). * ALGEBRAIC[17] is ikr_xr_inf in component ikr (dimensionless). * ALGEBRAIC[18] is ikr_xr_tau in component ikr (ms). * STATES[8] is xr in component ikr (mS_per_uF). * ALGEBRAIC[59] is IKs in component iks (pA). * CONSTANTS[76] is gKs in component iks (mS_per_uF). * ALGEBRAIC[19] is iks_xs_a in component iks (mS_per_uF). * ALGEBRAIC[20] is iks_xs_b in component iks (mS_per_uF). * ALGEBRAIC[21] is iks_xs_inf in component iks (dimensionless). * ALGEBRAIC[22] is iks_xs_tau in component iks (ms). * STATES[9] is xs in component iks (mS_per_uF). * STATES[10] is BC in component ikur (mS_per_uF). * STATES[11] is BO in component ikur (mS_per_uF). * CONSTANTS[77] is FRT in component phys (per_mV). * ALGEBRAIC[60] is IKur in component ikur (pA). * CONSTANTS[30] is KC in component ikur (m3_per_s_per_mol_times_1e6). * CONSTANTS[31] is KO in component ikur (m3_per_s_per_mol_times_1e6). * CONSTANTS[32] is K_Q10 in component ikur (dimensionless). * CONSTANTS[33] is LC in component ikur (mS_per_uF). * CONSTANTS[34] is LO in component ikur (mS_per_uF). * CONSTANTS[78] is ZKC in component ikur (dimensionless). * CONSTANTS[79] is ZKO in component ikur (dimensionless). * CONSTANTS[35] is ZLC in component ikur (dimensionless). * CONSTANTS[80] is ZLO in component ikur (dimensionless). * STATES[12] is a in component ikur (mS_per_uF). * CONSTANTS[81] is gKur in component ikur (mS_per_uF). * STATES[13] is i in component ikur (mS_per_uF). * ALGEBRAIC[23] is ikur_a_inf in component ikur (dimensionless). * ALGEBRAIC[24] is ikur_a_tau in component ikur (ms). * ALGEBRAIC[25] is ikur_i_inf in component ikur (dimensionless). * ALGEBRAIC[26] is ikur_i_tau in component ikur (ms). * STATES[14] is BA in component ina (mS_per_uF). * STATES[15] is BI in component ina (mS_per_uF). * ALGEBRAIC[61] is INa in component ina (pA). * CONSTANTS[82] is drug_Ka in component ina (m3_per_s_per_mol_times_1e6). * CONSTANTS[83] is drug_Ki in component ina (m3_per_s_per_mol_times_1e6). * CONSTANTS[36] is drug_La in component ina (mS_per_uF). * CONSTANTS[37] is drug_Li in component ina (mS_per_uF). * CONSTANTS[38] is drug_concen in component ina (uM). * CONSTANTS[39] is gNa in component ina (mS_per_uF). * STATES[16] is h in component ina (mS_per_uF). * ALGEBRAIC[27] is ina_h_alpha in component ina (mS_per_uF). * ALGEBRAIC[28] is ina_h_beta in component ina (mS_per_uF). * ALGEBRAIC[29] is ina_j_alpha in component ina (mS_per_uF). * ALGEBRAIC[30] is ina_j_beta in component ina (mS_per_uF). * ALGEBRAIC[31] is ina_m_alpha in component ina (mS_per_uF). * ALGEBRAIC[32] is ina_m_beta in component ina (mS_per_uF). * STATES[17] is j in component ina (mS_per_uF). * STATES[18] is m in component ina (mS_per_uF). * CONSTANTS[40] is Ca_o in component ion (mM). * STATES[19] is Na_i in component sodium (mM). * CONSTANTS[41] is Na_o in component ion (mM). * CONSTANTS[42] is gammalr in component inaca (dimensionless). * CONSTANTS[43] is kmcalr in component inaca (mM). * CONSTANTS[44] is kmnalr in component inaca (mM). * CONSTANTS[45] is knacalr in component inaca (A_per_F). * CONSTANTS[46] is ksatlr in component inaca (dimensionless). * ALGEBRAIC[62] is INaK in component inak (pA). * CONSTANTS[84] is I_bar in component inak (A_per_F). * CONSTANTS[47] is K_o in component ion (mM). * ALGEBRAIC[34] is fnak in component inak (dimensionless). * CONSTANTS[48] is kmko in component inak (mM). * CONSTANTS[49] is kmnai in component inak (mM). * CONSTANTS[85] is sigma in component inak (dimensionless). * ALGEBRAIC[63] is Ito in component ito (pA). * CONSTANTS[86] is gto in component ito (mS_per_uF). * ALGEBRAIC[35] is ito_r_inf in component ito (dimensionless). * ALGEBRAIC[36] is ito_r_tau in component ito (ms). * ALGEBRAIC[37] is ito_s_inf in component ito (dimensionless). * ALGEBRAIC[38] is ito_s_tau in component ito (ms). * STATES[20] is r in component ito (mS_per_uF). * STATES[21] is s in component ito (mS_per_uF). * ALGEBRAIC[64] is i_ion in component membrane (pA). * ALGEBRAIC[67] is i_stim in component stimulus (pA). * STATES[22] is K_i in component potassium (mM). * CONSTANTS[50] is R in component phys (J_per_mol_per_K). * CONSTANTS[51] is T in component phys (kelvin). * ALGEBRAIC[42] is RyRSRCai in component ryr (dimensionless). * ALGEBRAIC[43] is RyRSRCass in component ryr (dimensionless). * STATES[23] is a_i in component ryr (mS_per_uF). * STATES[24] is a_ss in component ryr (mS_per_uF). * STATES[25] is c_i in component ryr (mS_per_uF). * STATES[26] is c_ss in component ryr (mS_per_uF). * CONSTANTS[89] is nui in component ryr (m3_per_s_times_1e_minus_15). * CONSTANTS[91] is nuss in component ryr (m3_per_s_times_1e_minus_15). * STATES[27] is o_i in component ryr (mS_per_uF). * STATES[28] is o_ss in component ryr (mS_per_uF). * ALGEBRAIC[44] is ryr_a_i_inf in component ryr (dimensionless). * CONSTANTS[52] is ryr_a_i_tau in component ryr (ms). * ALGEBRAIC[45] is ryr_a_ss_inf in component ryr (dimensionless). * CONSTANTS[53] is ryr_a_ss_tau in component ryr (ms). * ALGEBRAIC[46] is ryr_c_i_inf in component ryr (dimensionless). * CONSTANTS[87] is ryr_c_i_tau in component ryr (ms). * ALGEBRAIC[47] is ryr_c_ss_inf in component ryr (dimensionless). * CONSTANTS[54] is ryr_c_ss_tau in component ryr (ms). * ALGEBRAIC[48] is ryr_o_i_inf in component ryr (dimensionless). * CONSTANTS[55] is ryr_o_i_tau in component ryr (ms). * ALGEBRAIC[49] is ryr_o_ss_inf in component ryr (dimensionless). * CONSTANTS[56] is ryr_o_ss_tau in component ryr (ms). * STATES[29] is SERCACa in component serca (mM). * STATES[30] is SERCACass in component serca (mM). * CONSTANTS[57] is cpumps in component serca (mM). * CONSTANTS[58] is k1 in component serca (per_mM2_per_ms). * CONSTANTS[59] is k2 in component serca (mS_per_uF). * CONSTANTS[60] is k3 in component serca (per_mM2_per_ms). * CONSTANTS[61] is k4 in component serca (mS_per_uF). * CONSTANTS[90] is amplitude in component stimulus (pA). * CONSTANTS[62] is duration in component stimulus (ms). * CONSTANTS[63] is offset in component stimulus (ms). * ALGEBRAIC[54] is pace in component stimulus (dimensionless). * CONSTANTS[64] is period in component stimulus (ms). * RATES[0] is d/dt Ca_SRi in component calcium (mM). * RATES[1] is d/dt Ca_SRss in component calcium (mM). * RATES[2] is d/dt Ca_i in component calcium (mM). * RATES[3] is d/dt Ca_ss in component calcium (mM). * RATES[5] is d/dt d in component ical (mS_per_uF). * RATES[6] is d/dt f in component ical (mS_per_uF). * RATES[7] is d/dt fca in component ical (mS_per_uF). * RATES[8] is d/dt xr in component ikr (mS_per_uF). * RATES[9] is d/dt xs in component iks (mS_per_uF). * RATES[10] is d/dt BC in component ikur (mS_per_uF). * RATES[11] is d/dt BO in component ikur (mS_per_uF). * RATES[12] is d/dt a in component ikur (mS_per_uF). * RATES[13] is d/dt i in component ikur (mS_per_uF). * RATES[14] is d/dt BA in component ina (mS_per_uF). * RATES[15] is d/dt BI in component ina (mS_per_uF). * RATES[16] is d/dt h in component ina (mS_per_uF). * RATES[17] is d/dt j in component ina (mS_per_uF). * RATES[18] is d/dt m in component ina (mS_per_uF). * RATES[20] is d/dt r in component ito (mS_per_uF). * RATES[21] is d/dt s in component ito (mS_per_uF). * RATES[4] is d/dt V in component membrane (mV). * RATES[22] is d/dt K_i in component potassium (mM). * RATES[23] is d/dt a_i in component ryr (mS_per_uF). * RATES[24] is d/dt a_ss in component ryr (mS_per_uF). * RATES[25] is d/dt c_i in component ryr (mS_per_uF). * RATES[26] is d/dt c_ss in component ryr (mS_per_uF). * RATES[27] is d/dt o_i in component ryr (mS_per_uF). * RATES[28] is d/dt o_ss in component ryr (mS_per_uF). * RATES[29] is d/dt SERCACa in component serca (mM). * RATES[30] is d/dt SERCACass in component serca (mM). * RATES[19] is d/dt Na_i in component sodium (mM). * There are a total of 11 condition variables. */ void initConsts(double* CONSTANTS, double* RATES, double *STATES) { CONSTANTS[0] = 32.4; CONSTANTS[1] = 81.4; CONSTANTS[2] = 9.3; CONSTANTS[3] = 0.9; CONSTANTS[4] = 0.8; CONSTANTS[5] = 0.9; CONSTANTS[6] = 1e-14; CONSTANTS[7] = 2.49232441199999994e+03; CONSTANTS[8] = 0.024; CONSTANTS[9] = 6.7; STATES[0] = 9.89241162100000015e-01; STATES[1] = 9.77916803700000004e-01; STATES[2] = 1.40313306500000005e-04; STATES[3] = 1.31359510499999994e-04; CONSTANTS[10] = 0.78; CONSTANTS[11] = 0.044; CONSTANTS[12] = 96.4867; CONSTANTS[13] = 0.00238; CONSTANTS[14] = 0.8; CONSTANTS[15] = 0.013; CONSTANTS[16] = 1.1; CONSTANTS[17] = 13.0; CONSTANTS[18] = 165.0; CONSTANTS[19] = 6e-06; CONSTANTS[20] = 0.8225; CONSTANTS[21] = 100.0; CONSTANTS[22] = 13668.0; CONSTANTS[23] = 1.625; CONSTANTS[24] = 0.0; STATES[4] = -7.71325583600000044e+01; CONSTANTS[25] = 65.0; STATES[5] = 2.26716127700000005e-04; STATES[6] = 9.35421288100000026e-01; STATES[7] = 7.27082366600000030e-01; CONSTANTS[26] = 2.0; CONSTANTS[27] = 0.275; CONSTANTS[28] = 0.0005; CONSTANTS[29] = 0.09; STATES[8] = 1.57418133000000000e-03; STATES[9] = 2.22597964100000011e-02; STATES[10] = 3.06272282199999992e-15; STATES[11] = 2.35547751699999996e-16; CONSTANTS[30] = 2.47871658999999998e-03; CONSTANTS[31] = 1.94459589999999990e-04; CONSTANTS[32] = 3.0; CONSTANTS[33] = 2.86367149999999988e-04; CONSTANTS[34] = 2.90998690000000002e-04; CONSTANTS[35] = 8.37073022689999946e-01; STATES[12] = 2.41788180099999987e-04; STATES[13] = 9.51727886399999945e-01; STATES[14] = 0.0; STATES[15] = 0.0; CONSTANTS[36] = 0.1; CONSTANTS[37] = 0.01; CONSTANTS[38] = 0.0; CONSTANTS[39] = 7.8; STATES[16] = 9.16842028100000039e-01; STATES[17] = 9.38018356399999975e-01; STATES[18] = 5.63181991600000039e-03; CONSTANTS[40] = 1.8; STATES[19] = 1.03039701200000007e+01; CONSTANTS[41] = 140.0; CONSTANTS[42] = 0.35; CONSTANTS[43] = 1.38; CONSTANTS[44] = 87.5; CONSTANTS[45] = 1600.0; CONSTANTS[46] = 0.1; CONSTANTS[47] = 5.4; CONSTANTS[48] = 1.5; CONSTANTS[49] = 10.0; STATES[20] = 1.22370601099999997e-02; STATES[21] = 8.84913984200000003e-01; STATES[22] = 1.31867138000000011e+02; CONSTANTS[50] = 8.3143; CONSTANTS[51] = 310.0; STATES[23] = 2.97721944299999985e-01; STATES[24] = 1.41927157299999995e-01; STATES[25] = 9.79023869800000002e-01; STATES[26] = 9.57197650200000028e-01; STATES[27] = 3.66799927299999980e-04; STATES[28] = 4.56694440999999974e-04; CONSTANTS[52] = 250.0; CONSTANTS[53] = 250.0; CONSTANTS[54] = 15.0; CONSTANTS[55] = 5.0; CONSTANTS[56] = 5.0; STATES[29] = 9.58584701999999969e-03; STATES[30] = 9.38694111799999974e-03; CONSTANTS[57] = 0.04; CONSTANTS[58] = 7500.0; CONSTANTS[59] = 4.68749999999999983e-04; CONSTANTS[60] = 2.31481500000000001e-03; CONSTANTS[61] = 0.0075; CONSTANTS[62] = 0.5; CONSTANTS[63] = 10.0; CONSTANTS[64] = 1000.0; CONSTANTS[65] = 1.00000 - 1.00000/(1.00000+pow(CONSTANTS[0]/CONSTANTS[6], CONSTANTS[3])); CONSTANTS[66] = 1.00000 - 1.00000/(1.00000+pow(CONSTANTS[1]/CONSTANTS[6], CONSTANTS[4])); CONSTANTS[67] = 1.00000 - 1.00000/(1.00000+pow(CONSTANTS[2]/CONSTANTS[6], CONSTANTS[5])); CONSTANTS[68] = 6.00000*2531.00; CONSTANTS[69] = 2.00000*57.0000; CONSTANTS[70] = 2.00000*80.0000; CONSTANTS[71] = CONSTANTS[23]*CONSTANTS[23]; CONSTANTS[72] = 1.40000*0.00113100; CONSTANTS[73] = 0.800000*0.000674438; CONSTANTS[74] = 0.129400*0.750000; CONSTANTS[75] = 0.800000*0.0294118; CONSTANTS[76] = 0.800000*0.129412; CONSTANTS[77] = (CONSTANTS[12]/CONSTANTS[50])/CONSTANTS[51]; CONSTANTS[78] = - 0.327024; CONSTANTS[79] = - 0.257320; CONSTANTS[80] = - 0.0128016; CONSTANTS[81] = 0.00639800*0.900000; CONSTANTS[82] = 0.100000/1000.00; CONSTANTS[83] = 0.100000/1000.00; CONSTANTS[84] = 1.40000*0.599339; CONSTANTS[85] = (exp(CONSTANTS[41]/67.3000) - 1.00000)/7.00000; CONSTANTS[86] = 0.754710*0.196200; CONSTANTS[87] = 2.00000*15.0000; CONSTANTS[92] = 0.00000; CONSTANTS[88] = 2.00000*49.9232; CONSTANTS[89] = 0.00100000*CONSTANTS[68]; CONSTANTS[90] = - 8000.00; CONSTANTS[91] = 0.625000*CONSTANTS[88]; RATES[0] = 0.1001; RATES[1] = 0.1001; RATES[2] = 0.1001; RATES[3] = 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; RATES[14] = 0.1001; RATES[15] = 0.1001; RATES[16] = 0.1001; RATES[17] = 0.1001; RATES[18] = 0.1001; RATES[20] = 0.1001; RATES[21] = 0.1001; RATES[4] = 0.1001; RATES[23] = 0.1001; RATES[24] = 0.1001; RATES[25] = 0.1001; RATES[26] = 0.1001; RATES[27] = 0.1001; RATES[28] = 0.1001; RATES[29] = 0.1001; RATES[30] = 0.1001; RATES[19] = 0.1001; } void computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES, double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS) { resid[0] = RATES[0] - ( 1000.00*ALGEBRAIC[3])*( CONSTANTS[11]*(((STATES[1] - 2.00000*STATES[0])+STATES[0])/CONSTANTS[71]+(STATES[0] - STATES[1])/( ( 2.00000*3.00000)*CONSTANTS[71]))+ALGEBRAIC[72]/CONSTANTS[69]); resid[1] = RATES[1] - ( 1000.00*ALGEBRAIC[4])*( CONSTANTS[11]*(((STATES[1] - 2.00000*STATES[1])+STATES[0])/CONSTANTS[71]+(STATES[1] - STATES[0])/( ( 2.00000*4.00000)*CONSTANTS[71]))+ALGEBRAIC[71]/CONSTANTS[70]); resid[2] = RATES[2] - (ALGEBRAIC[69]/CONSTANTS[68])*ALGEBRAIC[5]; resid[3] = RATES[3] - ALGEBRAIC[6]*(ALGEBRAIC[70]/CONSTANTS[88]+ALGEBRAIC[68]/( ( 2.00000*CONSTANTS[88])*CONSTANTS[12])); resid[4] = RATES[5] - (ALGEBRAIC[9] - STATES[5])/ALGEBRAIC[10]; resid[5] = RATES[6] - (ALGEBRAIC[11] - STATES[6])/ALGEBRAIC[12]; resid[6] = RATES[7] - (ALGEBRAIC[13] - STATES[7])/CONSTANTS[26]; resid[7] = RATES[8] - (ALGEBRAIC[17] - STATES[8])/ALGEBRAIC[18]; resid[8] = RATES[9] - (ALGEBRAIC[21] - STATES[9])/ALGEBRAIC[22]; resid[9] = RATES[10] - ( ( ( ( CONSTANTS[30]*exp( ( - CONSTANTS[78]*STATES[4])*CONSTANTS[77]))*CONSTANTS[6])*STATES[13])*(1.00000 - STATES[12]))*((1.00000 - STATES[11]) - STATES[10]) - ( CONSTANTS[33]*STATES[10])*exp( ( - CONSTANTS[35]*STATES[4])*CONSTANTS[77]); resid[10] = RATES[11] - ( ( ( ( CONSTANTS[31]*exp( ( - CONSTANTS[79]*STATES[4])*CONSTANTS[77]))*CONSTANTS[6])*STATES[13])*STATES[12])*((1.00000 - STATES[11]) - STATES[10]) - ( CONSTANTS[34]*STATES[11])*exp( ( - CONSTANTS[80]*STATES[4])*CONSTANTS[77]); resid[11] = RATES[12] - (ALGEBRAIC[23] - STATES[12])/ALGEBRAIC[24]; resid[12] = RATES[13] - (ALGEBRAIC[25] - STATES[13])/ALGEBRAIC[26]; resid[13] = RATES[14] - ( ( ( ( CONSTANTS[82]*CONSTANTS[38])*pow(STATES[18], 3.00000))*STATES[16])*STATES[17])*((1.00000 - STATES[14]) - STATES[15]) - CONSTANTS[36]*STATES[14]; resid[14] = RATES[15] - ( ( CONSTANTS[83]*CONSTANTS[38])*(1.00000 - STATES[16]))*((1.00000 - STATES[14]) - STATES[15]) - CONSTANTS[37]*STATES[15]; resid[15] = RATES[16] - ALGEBRAIC[27]*(1.00000 - STATES[16]) - ALGEBRAIC[28]*STATES[16]; resid[16] = RATES[17] - ALGEBRAIC[29]*(1.00000 - STATES[17]) - ALGEBRAIC[30]*STATES[17]; resid[17] = RATES[18] - ALGEBRAIC[31]*(1.00000 - STATES[18]) - ALGEBRAIC[32]*STATES[18]; resid[18] = RATES[20] - (ALGEBRAIC[35] - STATES[20])/ALGEBRAIC[36]; resid[19] = RATES[21] - (ALGEBRAIC[37] - STATES[21])/ALGEBRAIC[38]; resid[20] = RATES[4] - - (ALGEBRAIC[64]+ALGEBRAIC[67])/CONSTANTS[21]; resid[21] = RATES[23] - (ALGEBRAIC[44] - STATES[23])/CONSTANTS[52]; resid[22] = RATES[24] - (ALGEBRAIC[45] - STATES[24])/CONSTANTS[53]; resid[23] = RATES[25] - (ALGEBRAIC[46] - STATES[25])/CONSTANTS[87]; resid[24] = RATES[26] - (ALGEBRAIC[47] - STATES[26])/CONSTANTS[54]; resid[25] = RATES[27] - (ALGEBRAIC[48] - STATES[27])/CONSTANTS[55]; resid[26] = RATES[28] - (ALGEBRAIC[49] - STATES[28])/CONSTANTS[56]; resid[27] = RATES[29] - (- ALGEBRAIC[50]+ALGEBRAIC[52])/CONSTANTS[68]; resid[28] = RATES[30] - (- ALGEBRAIC[51]+ALGEBRAIC[53])/CONSTANTS[88]; resid[29] = RATES[19] - ((( - 3.00000*ALGEBRAIC[62] - 3.00000*ALGEBRAIC[33]) - ALGEBRAIC[56]) - ALGEBRAIC[61])/( CONSTANTS[12]*CONSTANTS[22]); resid[30] = RATES[22] - CONSTANTS[92]; } void computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { } void computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { ALGEBRAIC[3] = 1.00000/(1.00000+( CONSTANTS[9]*CONSTANTS[14])/pow(STATES[0]+CONSTANTS[14], 2.00000)); ALGEBRAIC[4] = 1.00000/(1.00000+( CONSTANTS[9]*CONSTANTS[14])/pow(STATES[1]+CONSTANTS[14], 2.00000)); ALGEBRAIC[5] = 1.00000/(1.00000+( CONSTANTS[8]*CONSTANTS[13])/pow(STATES[2]+CONSTANTS[13], 2.00000)); ALGEBRAIC[6] = 1.00000/(((1.00000+( CONSTANTS[18]*CONSTANTS[16])/pow(STATES[3]+CONSTANTS[16], 2.00000))+( CONSTANTS[17]*CONSTANTS[15])/pow(STATES[3]+CONSTANTS[15], 2.00000))+( CONSTANTS[8]*CONSTANTS[13])/pow(STATES[3]+CONSTANTS[13], 2.00000)); ALGEBRAIC[9] = 1.00000/(1.00000+exp((STATES[4]+10.0000)/- 8.00000)); ALGEBRAIC[8] = 1.00000/(1.00000+exp((STATES[4]+10.0000)/- 6.24000)); ALGEBRAIC[10] = (CONDVAR[0]<0.00000 ? ALGEBRAIC[8]*4.57900 : ( ALGEBRAIC[8]*(1.00000 - exp((STATES[4]+10.0000)/- 6.24000)))/( 0.0350000*(STATES[4]+10.0000))); ALGEBRAIC[11] = exp(- (STATES[4]+28.0000)/6.90000)/(1.00000+exp(- (STATES[4]+28.0000)/6.90000)); ALGEBRAIC[12] = ( ( 1.50000*2.00000)*3.00000)/( 0.0197000*exp( - pow(0.0337000, 2.00000)*pow(STATES[4]+10.0000, 2.00000))+0.0200000); ALGEBRAIC[13] = 1.00000/(1.00000+STATES[3]/0.000350000); ALGEBRAIC[17] = 1.00000/(1.00000+exp((STATES[4]+14.1000)/- 6.50000)); ALGEBRAIC[15] = (CONDVAR[1]<0.00000 ? 0.00150000 : ( 0.000300000*(STATES[4]+14.1000))/(1.00000 - exp((STATES[4]+14.1000)/- 5.00000))); ALGEBRAIC[16] = (CONDVAR[2]<0.00000 ? 0.000378361 : ( 7.38980e-05*(STATES[4] - 3.33280))/(exp((STATES[4] - 3.33280)/5.12370) - 1.00000)); ALGEBRAIC[18] = 1.00000/(ALGEBRAIC[15]+ALGEBRAIC[16]); ALGEBRAIC[21] = pow((1.00000/(1.00000+exp((STATES[4] - 19.9000)/- 12.7000))), 1.0 / 2); ALGEBRAIC[19] = (CONDVAR[3]<0.00000 ? 0.000680000 : ( 4.00000e-05*(STATES[4] - 19.9000))/(1.00000 - exp((STATES[4] - 19.9000)/- 17.0000))); ALGEBRAIC[20] = (CONDVAR[4]<0.00000 ? 0.000315000 : ( 3.50000e-05*(STATES[4] - 19.9000))/(exp((STATES[4] - 19.9000)/9.00000) - 1.00000)); ALGEBRAIC[22] = 0.500000/(ALGEBRAIC[19]+ALGEBRAIC[20]); ALGEBRAIC[23] = 1.00000/(1.00000+exp(- (STATES[4]+5.52000)/8.60000)); ALGEBRAIC[24] = ( ( (45.6667/(1.00000+exp((STATES[4]+11.2306)/11.5255))+4.26754)*(0.262186/(1.00000+exp((STATES[4]+35.8658)/- 3.87511))+0.291755))*1.00000)/CONSTANTS[32]; ALGEBRAIC[25] = 0.524240/(1.00000+exp((STATES[4]+15.1142)/7.56702))+0.458078; ALGEBRAIC[26] = (2328.00/(1.00000+exp((STATES[4] - 9.43500)/3.58270))+1739.14)/CONSTANTS[32]; ALGEBRAIC[27] = (CONDVAR[5]>=0.00000 ? 0.00000 : 0.135000*exp((STATES[4]+80.0000)/- 6.80000)); ALGEBRAIC[28] = (CONDVAR[6]>=0.00000 ? 1.00000/( 0.130000*(1.00000+exp((STATES[4]+10.6600)/- 11.1000))) : 3.56000*exp( 0.0790000*STATES[4])+ 310000.*exp( 0.350000*STATES[4])); ALGEBRAIC[29] = (CONDVAR[7]>=0.00000 ? 0.00000 : ( ( - 127140.*exp( 0.244400*STATES[4]) - 3.47400e-05*exp( - 0.0439100*STATES[4]))*(STATES[4]+37.7800))/(1.00000+exp( 0.311000*(STATES[4]+79.2300)))); ALGEBRAIC[30] = (CONDVAR[8]>=0.00000 ? ( 0.300000*exp( - 2.53500e-07*STATES[4]))/(1.00000+exp( - 0.100000*(STATES[4]+32.0000))) : ( 0.121200*exp( - 0.0105200*STATES[4]))/(1.00000+exp( - 0.137800*(STATES[4]+40.1400)))); ALGEBRAIC[31] = (CONDVAR[9]<0.00000 ? 3.20000 : ( 0.320000*(STATES[4]+47.1300))/(1.00000 - exp( - 0.100000*(STATES[4]+47.1300)))); ALGEBRAIC[32] = 0.0800000*exp(- STATES[4]/11.0000); ALGEBRAIC[33] = (((( ( 1.40000*CONSTANTS[21])*CONSTANTS[45])/(pow(CONSTANTS[44], 3.00000)+pow(CONSTANTS[41], 3.00000)))/(CONSTANTS[43]+CONSTANTS[40]))/(1.00000+ CONSTANTS[46]*exp( ( (CONSTANTS[42] - 1.00000)*STATES[4])*CONSTANTS[77])))*( ( pow(STATES[19], 3.00000)*CONSTANTS[40])*exp( ( STATES[4]*CONSTANTS[42])*CONSTANTS[77]) - ( pow(CONSTANTS[41], 3.00000)*STATES[3])*exp( ( STATES[4]*(CONSTANTS[42] - 1.00000))*CONSTANTS[77])); ALGEBRAIC[35] = 1.00000/(1.00000+exp((STATES[4] - 1.00000)/- 11.0000)); ALGEBRAIC[36] = 3.50000*exp( - (STATES[4]/30.0000)*2.00000)+1.50000; ALGEBRAIC[37] = 1.00000/(1.00000+exp((STATES[4]+40.5000)/11.5000)); ALGEBRAIC[38] = 25.6350*exp( - ((STATES[4]+52.4500)/15.8827)*2.00000)+14.1400; ALGEBRAIC[44] = 0.505000 - 0.427000/(1.00000+exp(( 2000.00*STATES[2] - 0.290000)/0.0820000)); ALGEBRAIC[45] = 0.505000 - 0.427000/(1.00000+exp(( 1000.00*STATES[3] - 0.290000)/0.0820000)); ALGEBRAIC[46] = 1.00000/(1.00000+exp(( 2000.00*STATES[2] - (STATES[23]+0.0200000))/0.0100000)); ALGEBRAIC[47] = 1.00000/(1.00000+exp(( 1000.00*STATES[3] - (STATES[24]+0.0200000))/0.0100000)); ALGEBRAIC[48] = 1.00000 - 1.00000/(1.00000+exp(( 2000.00*STATES[2] - (STATES[23]+0.220000))/0.0300000)); ALGEBRAIC[49] = 1.00000 - 1.00000/(1.00000+exp(( 1000.00*STATES[3] - (STATES[24]+0.220000))/0.0300000)); ALGEBRAIC[50] = ( ( 0.750000*( ( - CONSTANTS[60]*pow(STATES[0], 2.00000))*(CONSTANTS[57] - STATES[29])+ CONSTANTS[61]*STATES[29]))*CONSTANTS[68])*2.00000; ALGEBRAIC[51] = ( ( 0.750000*( ( - CONSTANTS[60]*pow(STATES[1], 2.00000))*(CONSTANTS[57] - STATES[30])+ CONSTANTS[61]*STATES[30]))*CONSTANTS[88])*2.00000; ALGEBRAIC[52] = ( ( 0.750000*( ( CONSTANTS[58]*pow(STATES[2], 2.00000))*(CONSTANTS[57] - STATES[29]) - CONSTANTS[59]*STATES[29]))*CONSTANTS[68])*2.00000; ALGEBRAIC[53] = ( ( 0.750000*( ( CONSTANTS[58]*pow(STATES[3], 2.00000))*(CONSTANTS[57] - STATES[30]) - CONSTANTS[59]*STATES[30]))*CONSTANTS[88])*2.00000; ALGEBRAIC[41] = 26.7100*log(CONSTANTS[41]/STATES[19]); ALGEBRAIC[56] = ( ( 1.70000*CONSTANTS[21])*CONSTANTS[73])*(STATES[4] - ALGEBRAIC[41]); ALGEBRAIC[61] = ( ( ( ( ( CONSTANTS[39]*pow(STATES[18], 3.00000))*STATES[16])*STATES[17])*(STATES[4] - ALGEBRAIC[41]))*CONSTANTS[21])*((1.00000 - STATES[14]) - STATES[15]); ALGEBRAIC[34] = 1.00000/((1.00000+ 0.124500*exp( ( - 0.100000*STATES[4])*CONSTANTS[77]))+ ( 0.0365000*CONSTANTS[85])*exp( - STATES[4]*CONSTANTS[77])); ALGEBRAIC[62] = (( ( ( ( 1.28000*CONSTANTS[21])*CONSTANTS[84])*ALGEBRAIC[34])*CONSTANTS[47])/(CONSTANTS[47]+CONSTANTS[48]))/(1.00000+pow(CONSTANTS[49]/STATES[19], 4.00000)); ALGEBRAIC[7] = ( ( ( ( ( 1.33333*CONSTANTS[21])*CONSTANTS[74])*STATES[5])*STATES[6])*STATES[7])*(STATES[4] - CONSTANTS[25]); ALGEBRAIC[14] = ( ( ( 1.26000*CONSTANTS[21])*CONSTANTS[27])*STATES[3])/(STATES[3]+CONSTANTS[28]); ALGEBRAIC[39] = 13.3500*log(CONSTANTS[40]/STATES[2]); ALGEBRAIC[55] = ( ( 1.00000*CONSTANTS[21])*CONSTANTS[72])*(STATES[4] - ALGEBRAIC[39]); ALGEBRAIC[40] = 26.7100*log(CONSTANTS[47]/STATES[22]); ALGEBRAIC[57] = ( ( CONSTANTS[21]*CONSTANTS[29])*(STATES[4] - ALGEBRAIC[40]))/(1.00000+exp( 0.0700000*(STATES[4]+80.0000))); ALGEBRAIC[58] = ( ( ( ( CONSTANTS[21]*CONSTANTS[65])*CONSTANTS[75])*STATES[8])*(STATES[4] - ALGEBRAIC[40]))/(1.00000+exp((STATES[4]+15.0000)/22.4000)); ALGEBRAIC[59] = ( ( ( ( CONSTANTS[21]*CONSTANTS[66])*CONSTANTS[76])*STATES[9])*STATES[9])*(STATES[4] - ALGEBRAIC[40]); ALGEBRAIC[60] = ( ( ( ( ( CONSTANTS[21]*CONSTANTS[81])*(4.51280+1.89977/(1.00000+exp((STATES[4] - 20.5232)/- 8.26597))))*((1.00000 - STATES[11]) - STATES[10]))*STATES[12])*STATES[13])*(STATES[4] - ALGEBRAIC[40]); ALGEBRAIC[63] = ( ( ( ( ( 1.05000*CONSTANTS[67])*CONSTANTS[21])*CONSTANTS[86])*STATES[20])*STATES[21])*(STATES[4] - ALGEBRAIC[40]); ALGEBRAIC[64] = (((((((((((ALGEBRAIC[61])+ALGEBRAIC[63])+ALGEBRAIC[60])+ALGEBRAIC[58])+ALGEBRAIC[59])+ALGEBRAIC[7])+ALGEBRAIC[57])+ALGEBRAIC[56])+ALGEBRAIC[55])+ALGEBRAIC[33])+ALGEBRAIC[62])+ALGEBRAIC[14]; ALGEBRAIC[54] = (CONDVAR[10]<0.00000 ? 1.00000 : 0.00000); ALGEBRAIC[67] = CONSTANTS[90]*ALGEBRAIC[54]; ALGEBRAIC[68] = ((- ALGEBRAIC[7] - ALGEBRAIC[55]) - ALGEBRAIC[14])+ 2.00000*ALGEBRAIC[33]; ALGEBRAIC[0] = ( ( 0.500000*CONSTANTS[19])*(STATES[0] - STATES[2]))*CONSTANTS[68]; ALGEBRAIC[2] = (( ( 2.50000*CONSTANTS[10])*CONSTANTS[7])/CONSTANTS[20])*(STATES[3] - STATES[2]); ALGEBRAIC[42] = 1.00000 - 1.00000/(1.00000+exp((STATES[0] - 0.300000)/0.100000)); ALGEBRAIC[65] = ( ( ( CONSTANTS[89]*STATES[27])*STATES[25])*ALGEBRAIC[42])*(STATES[0] - STATES[2]); ALGEBRAIC[69] = ((- ALGEBRAIC[52]+ALGEBRAIC[0])+ALGEBRAIC[65])+ALGEBRAIC[2]; ALGEBRAIC[1] = ( ( 0.500000*CONSTANTS[19])*(STATES[1] - STATES[3]))*CONSTANTS[88]; ALGEBRAIC[43] = 1.00000 - 1.00000/(1.00000+exp((STATES[1] - 0.300000)/0.100000)); ALGEBRAIC[66] = ( ( ( CONSTANTS[91]*STATES[28])*STATES[26])*ALGEBRAIC[43])*(STATES[1] - STATES[3]); ALGEBRAIC[70] = ((- ALGEBRAIC[2]+ALGEBRAIC[1]) - ALGEBRAIC[53])+ALGEBRAIC[66]; ALGEBRAIC[71] = (ALGEBRAIC[51] - ALGEBRAIC[1]) - ALGEBRAIC[66]; ALGEBRAIC[72] = (ALGEBRAIC[50] - ALGEBRAIC[0]) - ALGEBRAIC[65]; } 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; SI[14] = 1.0; SI[15] = 1.0; SI[16] = 1.0; SI[17] = 1.0; SI[18] = 1.0; SI[19] = 1.0; SI[20] = 1.0; SI[21] = 1.0; SI[22] = 1.0; SI[23] = 1.0; SI[24] = 1.0; SI[25] = 1.0; SI[26] = 1.0; SI[27] = 1.0; SI[28] = 1.0; SI[29] = 1.0; SI[30] = 1.0; } void computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES, double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS) { CONDVAR[0] = fabs(STATES[4]+10.0000) - 1.00000e-10; CONDVAR[1] = fabs(STATES[4]+14.1000) - 1.00000e-10; CONDVAR[2] = fabs(STATES[4] - 3.33280) - 1.00000e-10; CONDVAR[3] = fabs(STATES[4] - 19.9000) - 1.00000e-10; CONDVAR[4] = fabs(STATES[4] - 19.9000) - 1.00000e-10; CONDVAR[5] = STATES[4] - - 40.0000; CONDVAR[6] = STATES[4] - - 40.0000; CONDVAR[7] = STATES[4] - - 40.0000; CONDVAR[8] = STATES[4] - - 40.0000; CONDVAR[9] = fabs(STATES[4]+47.1300) - 1.00000e-10; CONDVAR[10] = ((VOI - CONSTANTS[63]) - CONSTANTS[64]*floor((VOI - CONSTANTS[63])/CONSTANTS[64])) - CONSTANTS[62]; }