/* 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 102 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[62] is fKr in component acacetin (dimensionless). * CONSTANTS[63] is fKs in component acacetin (dimensionless). * CONSTANTS[64] is fto in component acacetin (dimensionless). * CONSTANTS[7] is af in component af (dimensionless). * CONSTANTS[8] is Aj_nj in component cell (um2). * CONSTANTS[9] is BCa in component calcium (mM). * CONSTANTS[10] 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[11] is DCa in component calcium (m2_per_s_times_1e_minus_9). * CONSTANTS[12] is DCaSR in component calcium (m2_per_s_times_1e_minus_9). * CONSTANTS[13] is F in component phys (C_per_mmol). * ALGEBRAIC[8] is ICaL in component ical (pA). * ALGEBRAIC[15] is ICap in component icap (pA). * ALGEBRAIC[34] is INaCa in component inaca (pA). * ALGEBRAIC[68] is I_tot in component calcium (pA). * ALGEBRAIC[56] 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[51] is J_SERCASR in component serca (kat_times_1e_minus_15). * ALGEBRAIC[52] is J_SERCASRss in component serca (kat_times_1e_minus_15). * ALGEBRAIC[53] is J_bulkSERCA in component serca (kat_times_1e_minus_15). * ALGEBRAIC[54] 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[66] is Jreli in component ryr (kat_times_1e_minus_15). * ALGEBRAIC[67] is Jrelss in component ryr (kat_times_1e_minus_15). * CONSTANTS[14] is KdBCa in component calcium (mM). * CONSTANTS[15] is KdCSQN in component calcium (mM). * CONSTANTS[16] is KdSLhigh in component calcium (mM). * CONSTANTS[17] is KdSLlow in component calcium (mM). * CONSTANTS[18] is SLhigh in component calcium (mM). * CONSTANTS[19] is SLlow in component calcium (mM). * CONSTANTS[66] is VSRi in component cell (um3). * CONSTANTS[67] is VSRss in component cell (um3). * CONSTANTS[65] is Vnj in component cell (um3). * CONSTANTS[93] 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[68] is dx2 in component cell (um2). * CONSTANTS[20] is kSRleak in component calcium (mS_per_uF). * CONSTANTS[69] is scaling in component calcium (dimensionless). * VOI is time in component engine (ms). * CONSTANTS[21] is xj_nj in component cell (um). * CONSTANTS[22] is Cm in component cell (pF). * CONSTANTS[23] is Vi in component cell (um3). * CONSTANTS[24] is dx in component cell (um). * CONSTANTS[25] is duration in component engine (ms). * CONSTANTS[26] is offset in component engine (ms). * ALGEBRAIC[7] is pace in component engine (dimensionless). * CONSTANTS[27] is period in component engine (ms). * ALGEBRAIC[40] is ECa in component nernst (mV). * STATES[4] is V in component membrane (mV). * CONSTANTS[70] is gbCa in component ibca (mS_per_uF). * ALGEBRAIC[42] is ENa in component nernst (mV). * ALGEBRAIC[57] is IbNa in component ibna (pA). * CONSTANTS[71] is gbNa in component ibna (mS_per_uF). * CONSTANTS[28] is ErL in component ical (mV). * STATES[5] is d in component ical (dimensionless). * STATES[6] is f in component ical (dimensionless). * STATES[7] is fca in component ical (dimensionless). * CONSTANTS[72] is gCaL in component ical (mS_per_uF). * ALGEBRAIC[9] is ical_d_a in component ical (ms). * ALGEBRAIC[10] is ical_d_inf in component ical (dimensionless). * ALGEBRAIC[11] is ical_d_tau in component ical (ms). * ALGEBRAIC[12] is ical_f_inf in component ical (dimensionless). * ALGEBRAIC[13] is ical_f_tau in component ical (ms). * ALGEBRAIC[14] is ical_fca_inf in component ical (dimensionless). * CONSTANTS[29] is ical_fca_tau in component ical (ms). * CONSTANTS[30] is icapbar in component icap (A_per_F). * CONSTANTS[31] is kmcap in component icap (mM). * ALGEBRAIC[41] is EK in component nernst (mV). * ALGEBRAIC[58] is IK1 in component ik1 (pA). * CONSTANTS[73] is gK1 in component ik1 (mS_per_uF). * ALGEBRAIC[59] is IKr in component ikr (pA). * CONSTANTS[74] is gKr in component ikr (mS_per_uF). * ALGEBRAIC[16] is ikr_xr_a in component ikr (mS_per_uF). * ALGEBRAIC[17] is ikr_xr_b in component ikr (mS_per_uF). * ALGEBRAIC[18] is ikr_xr_inf in component ikr (dimensionless). * ALGEBRAIC[19] is ikr_xr_tau in component ikr (ms). * STATES[8] is xr in component ikr (dimensionless). * ALGEBRAIC[60] is IKs in component iks (pA). * CONSTANTS[75] is gKs in component iks (mS_per_uF). * ALGEBRAIC[20] is iks_xs_a in component iks (mS_per_uF). * ALGEBRAIC[21] is iks_xs_b in component iks (mS_per_uF). * ALGEBRAIC[22] is iks_xs_inf in component iks (dimensionless). * ALGEBRAIC[23] is iks_xs_tau in component iks (ms). * STATES[9] is xs in component iks (dimensionless). * STATES[10] is BC in component ikur (dimensionless). * STATES[11] is BO in component ikur (dimensionless). * CONSTANTS[76] is FRT in component phys (per_mV). * ALGEBRAIC[61] is IKur in component ikur (pA). * CONSTANTS[32] is KC in component ikur (m3_per_s_per_mol_times_1e6). * CONSTANTS[33] is KO in component ikur (m3_per_s_per_mol_times_1e6). * CONSTANTS[34] is K_Q10 in component ikur (dimensionless). * CONSTANTS[35] is LC in component ikur (mS_per_uF). * CONSTANTS[36] is LO in component ikur (mS_per_uF). * CONSTANTS[77] is ZKC in component ikur (dimensionless). * CONSTANTS[78] is ZKO in component ikur (dimensionless). * CONSTANTS[37] is ZLC in component ikur (dimensionless). * CONSTANTS[79] is ZLO in component ikur (dimensionless). * STATES[12] is a in component ikur (dimensionless). * CONSTANTS[80] is gKur in component ikur (mS_per_uF). * STATES[13] is i in component ikur (dimensionless). * ALGEBRAIC[24] is ikur_a_inf in component ikur (dimensionless). * ALGEBRAIC[25] is ikur_a_tau in component ikur (ms). * ALGEBRAIC[26] is ikur_i_inf in component ikur (dimensionless). * ALGEBRAIC[27] is ikur_i_tau in component ikur (ms). * STATES[14] is BA in component ina (dimensionless). * STATES[15] is BI in component ina (dimensionless). * ALGEBRAIC[62] is INa in component ina (pA). * CONSTANTS[81] is drug_Ka in component ina (m3_per_s_per_mol_times_1e6). * CONSTANTS[82] is drug_Ki in component ina (m3_per_s_per_mol_times_1e6). * CONSTANTS[38] is drug_La in component ina (mS_per_uF). * CONSTANTS[39] is drug_Li in component ina (mS_per_uF). * CONSTANTS[40] is drug_concen in component ina (uM). * CONSTANTS[41] is gNa in component ina (mS_per_uF). * STATES[16] is h in component ina (dimensionless). * ALGEBRAIC[28] is ina_h_alpha in component ina (mS_per_uF). * ALGEBRAIC[29] is ina_h_beta in component ina (mS_per_uF). * ALGEBRAIC[30] is ina_j_alpha in component ina (mS_per_uF). * ALGEBRAIC[31] is ina_j_beta in component ina (mS_per_uF). * ALGEBRAIC[32] is ina_m_alpha in component ina (mS_per_uF). * ALGEBRAIC[33] is ina_m_beta in component ina (mS_per_uF). * CONSTANTS[83] is ina_m_shift in component ina (mV). * STATES[17] is j in component ina (dimensionless). * STATES[18] is m in component ina (dimensionless). * CONSTANTS[42] is Ca_o in component ion (mM). * STATES[19] is Na_i in component sodium (mM). * CONSTANTS[43] is Na_o in component ion (mM). * CONSTANTS[44] is gammalr in component inaca (dimensionless). * CONSTANTS[45] is kmcalr in component inaca (mM). * CONSTANTS[46] is kmnalr in component inaca (mM). * CONSTANTS[47] is knacalr in component inaca (A_per_F). * CONSTANTS[48] is ksatlr in component inaca (dimensionless). * CONSTANTS[84] is scaling in component inaca (dimensionless). * ALGEBRAIC[63] is INaK in component inak (pA). * CONSTANTS[85] is I_bar in component inak (A_per_F). * CONSTANTS[49] is K_o in component ion (mM). * ALGEBRAIC[35] is fnak in component inak (dimensionless). * CONSTANTS[50] is kmko in component inak (mM). * CONSTANTS[51] is kmnai in component inak (mM). * CONSTANTS[86] is sigma in component inak (dimensionless). * ALGEBRAIC[64] is Ito in component ito (pA). * CONSTANTS[87] is gto in component ito (mS_per_uF). * ALGEBRAIC[36] is ito_r_inf in component ito (dimensionless). * CONSTANTS[88] is ito_r_shift in component ito (mV). * ALGEBRAIC[37] is ito_r_tau in component ito (ms). * ALGEBRAIC[38] is ito_s_inf in component ito (dimensionless). * ALGEBRAIC[39] is ito_s_tau in component ito (ms). * STATES[20] is r in component ito (dimensionless). * STATES[21] is s in component ito (dimensionless). * CONSTANTS[52] is i_diff in component membrane (pA). * ALGEBRAIC[65] is i_ion in component membrane (pA). * ALGEBRAIC[55] is i_stim in component stimulus (pA). * STATES[22] is K_i in component potassium (mM). * CONSTANTS[53] is R in component phys (J_per_mol_per_K). * CONSTANTS[54] is T in component phys (kelvin). * ALGEBRAIC[43] is RyRSRCai in component ryr (dimensionless). * ALGEBRAIC[44] is RyRSRCass in component ryr (dimensionless). * STATES[23] is a_i in component ryr (dimensionless). * STATES[24] is a_ss in component ryr (dimensionless). * STATES[25] is c_i in component ryr (dimensionless). * STATES[26] is c_ss in component ryr (dimensionless). * CONSTANTS[89] is fRyr in component ryr (dimensionless). * CONSTANTS[94] is nui in component ryr (m3_per_s_times_1e_minus_15). * CONSTANTS[100] is nuss in component ryr (m3_per_s_times_1e_minus_15). * STATES[27] is o_i in component ryr (dimensionless). * STATES[28] is o_ss in component ryr (dimensionless). * ALGEBRAIC[45] is ryr_a_i_inf in component ryr (dimensionless). * CONSTANTS[95] is ryr_a_i_tau in component ryr (ms). * ALGEBRAIC[46] is ryr_a_ss_inf in component ryr (dimensionless). * CONSTANTS[96] is ryr_a_ss_tau in component ryr (ms). * ALGEBRAIC[47] is ryr_c_i_inf in component ryr (dimensionless). * CONSTANTS[97] is ryr_c_i_tau in component ryr (ms). * ALGEBRAIC[48] is ryr_c_ss_inf in component ryr (dimensionless). * CONSTANTS[98] is ryr_c_ss_tau in component ryr (ms). * ALGEBRAIC[49] is ryr_o_i_inf in component ryr (dimensionless). * CONSTANTS[55] is ryr_o_i_tau in component ryr (ms). * ALGEBRAIC[50] is ryr_o_ss_inf in component ryr (dimensionless). * CONSTANTS[56] is ryr_o_ss_tau in component ryr (ms). * CONSTANTS[90] is scaling in component ryr (dimensionless). * CONSTANTS[91] is tau_scaling in component ryr (dimensionless). * 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[92] is scaling in component serca (dimensionless). * CONSTANTS[99] is amplitude in component stimulus (A_per_F). * 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 (dimensionless). * RATES[6] is d/dt f in component ical (dimensionless). * RATES[7] is d/dt fca in component ical (dimensionless). * RATES[8] is d/dt xr in component ikr (dimensionless). * RATES[9] is d/dt xs in component iks (dimensionless). * RATES[10] is d/dt BC in component ikur (dimensionless). * RATES[11] is d/dt BO in component ikur (dimensionless). * RATES[12] is d/dt a in component ikur (dimensionless). * RATES[13] is d/dt i in component ikur (dimensionless). * RATES[14] is d/dt BA in component ina (dimensionless). * RATES[15] is d/dt BI in component ina (dimensionless). * RATES[16] is d/dt h in component ina (dimensionless). * RATES[17] is d/dt j in component ina (dimensionless). * RATES[18] is d/dt m in component ina (dimensionless). * RATES[20] is d/dt r in component ito (dimensionless). * RATES[21] is d/dt s in component ito (dimensionless). * 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 (dimensionless). * RATES[24] is d/dt a_ss in component ryr (dimensionless). * RATES[25] is d/dt c_i in component ryr (dimensionless). * RATES[26] is d/dt c_ss in component ryr (dimensionless). * RATES[27] is d/dt o_i in component ryr (dimensionless). * RATES[28] is d/dt o_ss in component ryr (dimensionless). * 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] = 0.0; CONSTANTS[8] = 2.49232441199999994e+03; CONSTANTS[9] = 0.024; CONSTANTS[10] = 6.7; STATES[0] = 9.89241162100000015e-01; STATES[1] = 9.77916803700000004e-01; STATES[2] = 1.40313306500000005e-04; STATES[3] = 1.31359510499999994e-04; CONSTANTS[11] = 0.78; CONSTANTS[12] = 0.044; CONSTANTS[13] = 96.4867; CONSTANTS[14] = 0.00238; CONSTANTS[15] = 0.8; CONSTANTS[16] = 0.013; CONSTANTS[17] = 1.1; CONSTANTS[18] = 13.0; CONSTANTS[19] = 165.0; CONSTANTS[20] = 6e-06; CONSTANTS[21] = 0.8225; CONSTANTS[22] = 100.0; CONSTANTS[23] = 13668.0; CONSTANTS[24] = 1.625; CONSTANTS[25] = 0.5; CONSTANTS[26] = 100.0; CONSTANTS[27] = 1000.0; STATES[4] = -7.71325583600000044e+01; CONSTANTS[28] = 65.0; STATES[5] = 2.26716127700000005e-04; STATES[6] = 9.35421288100000026e-01; STATES[7] = 7.27082366600000030e-01; CONSTANTS[29] = 2.0; CONSTANTS[30] = 0.275; CONSTANTS[31] = 0.0005; STATES[8] = 1.57418133000000000e-03; STATES[9] = 2.22597964100000011e-02; STATES[10] = 3.06272282199999992e-15; STATES[11] = 2.35547751699999996e-16; CONSTANTS[32] = 2.47871658999999998e-03; CONSTANTS[33] = 1.94459589999999990e-04; CONSTANTS[34] = 3.0; CONSTANTS[35] = 2.86367149999999988e-04; CONSTANTS[36] = 2.90998690000000002e-04; CONSTANTS[37] = 8.37073022689999946e-01; STATES[12] = 2.41788180099999987e-04; STATES[13] = 9.51727886399999945e-01; STATES[14] = 0.0; STATES[15] = 0.0; CONSTANTS[38] = 0.1; CONSTANTS[39] = 0.01; CONSTANTS[40] = 0.0; CONSTANTS[41] = 7.8; STATES[16] = 9.16842028100000039e-01; STATES[17] = 9.38018356399999975e-01; STATES[18] = 5.63181991600000039e-03; CONSTANTS[42] = 1.8; STATES[19] = 1.03039701200000007e+01; CONSTANTS[43] = 140.0; CONSTANTS[44] = 0.35; CONSTANTS[45] = 1.38; CONSTANTS[46] = 87.5; CONSTANTS[47] = 1600.0; CONSTANTS[48] = 0.1; CONSTANTS[49] = 5.4; CONSTANTS[50] = 1.5; CONSTANTS[51] = 10.0; STATES[20] = 1.22370601099999997e-02; STATES[21] = 8.84913984200000003e-01; CONSTANTS[52] = 0.0; STATES[22] = 1.31867138000000011e+02; CONSTANTS[53] = 8.3143; CONSTANTS[54] = 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[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] = 1.00000 - 1.00000/(1.00000+pow(CONSTANTS[0]/CONSTANTS[6], CONSTANTS[3])); CONSTANTS[63] = 1.00000 - 1.00000/(1.00000+pow(CONSTANTS[1]/CONSTANTS[6], CONSTANTS[4])); CONSTANTS[64] = 1.00000 - 1.00000/(1.00000+pow(CONSTANTS[2]/CONSTANTS[6], CONSTANTS[5])); CONSTANTS[65] = 6.00000*2531.00; CONSTANTS[66] = 2.00000*57.0000; CONSTANTS[67] = 2.00000*80.0000; CONSTANTS[68] = CONSTANTS[24]*CONSTANTS[24]; CONSTANTS[69] = (CONSTANTS[7]==1.00000 ? 1.50000 : 1.00000); CONSTANTS[70] = 1.40000*0.00113100; CONSTANTS[71] = 0.800000*0.000674438; CONSTANTS[72] = ( 0.129400*0.750000)*(CONSTANTS[7]==1.00000 ? 0.350000 : 1.00000); CONSTANTS[73] = 0.0900000*(CONSTANTS[7]==1.00000 ? 2.10000 : 1.00000); CONSTANTS[74] = 0.800000*0.0294118; CONSTANTS[75] = ( 0.800000*0.129412)*(CONSTANTS[7]==1.00000 ? 2.00000 : 1.00000); CONSTANTS[76] = (CONSTANTS[13]/CONSTANTS[53])/CONSTANTS[54]; CONSTANTS[77] = - 0.327024; CONSTANTS[78] = - 0.257320; CONSTANTS[79] = - 0.0128016; CONSTANTS[80] = ( 0.00639800*0.900000)*(CONSTANTS[7]==1.00000 ? 0.500000 : 1.00000); CONSTANTS[81] = 0.100000/1000.00; CONSTANTS[82] = 0.100000/1000.00; CONSTANTS[83] = (CONSTANTS[7]==1.00000 ? 1.60000 : 0.00000); CONSTANTS[84] = (CONSTANTS[7]==1.00000 ? 1.40000 : 1.00000); CONSTANTS[85] = 1.40000*0.599339; CONSTANTS[86] = (exp(CONSTANTS[43]/67.3000) - 1.00000)/7.00000; CONSTANTS[87] = ( 0.754710*0.196200)*(CONSTANTS[7]==1.00000 ? 0.350000 : 1.00000); CONSTANTS[88] = (CONSTANTS[7]==1.00000 ? 16.0000 : 0.00000); CONSTANTS[89] = (CONSTANTS[7]==1.00000 ? 2.50000 : 0.00000); CONSTANTS[90] = (CONSTANTS[7]==1.00000 ? 3.00000 : 1.00000); CONSTANTS[91] = (CONSTANTS[7]==1.00000 ? 2.70000 : 1.00000); CONSTANTS[92] = (CONSTANTS[7]==1.00000 ? 0.600000 : 1.00000); CONSTANTS[101] = 0.00000; CONSTANTS[93] = 2.00000*49.9232; CONSTANTS[94] = 0.00100000*CONSTANTS[65]; CONSTANTS[95] = 250.000*CONSTANTS[91]; CONSTANTS[96] = 250.000*CONSTANTS[91]; CONSTANTS[97] = ( 2.00000*15.0000)*CONSTANTS[91]; CONSTANTS[98] = 15.0000*CONSTANTS[91]; CONSTANTS[99] = - 80.0000; CONSTANTS[100] = 0.625000*CONSTANTS[93]; 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[12]*(((STATES[1] - 2.00000*STATES[0])+STATES[0])/CONSTANTS[68]+(STATES[0] - STATES[1])/( ( 2.00000*3.00000)*CONSTANTS[68]))+ALGEBRAIC[72]/CONSTANTS[66]); resid[1] = RATES[1] - ( 1000.00*ALGEBRAIC[4])*( CONSTANTS[12]*(((STATES[1] - 2.00000*STATES[1])+STATES[0])/CONSTANTS[68]+(STATES[1] - STATES[0])/( ( 2.00000*4.00000)*CONSTANTS[68]))+ALGEBRAIC[71]/CONSTANTS[67]); resid[2] = RATES[2] - (ALGEBRAIC[69]/CONSTANTS[65])*ALGEBRAIC[5]; resid[3] = RATES[3] - ALGEBRAIC[6]*(ALGEBRAIC[70]/CONSTANTS[93]+ALGEBRAIC[68]/( ( 2.00000*CONSTANTS[93])*CONSTANTS[13])); resid[4] = RATES[5] - (ALGEBRAIC[10] - STATES[5])/ALGEBRAIC[11]; resid[5] = RATES[6] - (ALGEBRAIC[12] - STATES[6])/ALGEBRAIC[13]; resid[6] = RATES[7] - (ALGEBRAIC[14] - STATES[7])/CONSTANTS[29]; resid[7] = RATES[8] - (ALGEBRAIC[18] - STATES[8])/ALGEBRAIC[19]; resid[8] = RATES[9] - (ALGEBRAIC[22] - STATES[9])/ALGEBRAIC[23]; resid[9] = RATES[10] - ( ( ( ( CONSTANTS[32]*exp( ( - CONSTANTS[77]*STATES[4])*CONSTANTS[76]))*CONSTANTS[6])*STATES[13])*(1.00000 - STATES[12]))*((1.00000 - STATES[11]) - STATES[10]) - ( CONSTANTS[35]*STATES[10])*exp( ( - CONSTANTS[37]*STATES[4])*CONSTANTS[76]); resid[10] = RATES[11] - ( ( ( ( CONSTANTS[33]*exp( ( - CONSTANTS[78]*STATES[4])*CONSTANTS[76]))*CONSTANTS[6])*STATES[13])*STATES[12])*((1.00000 - STATES[11]) - STATES[10]) - ( CONSTANTS[36]*STATES[11])*exp( ( - CONSTANTS[79]*STATES[4])*CONSTANTS[76]); resid[11] = RATES[12] - (ALGEBRAIC[24] - STATES[12])/ALGEBRAIC[25]; resid[12] = RATES[13] - (ALGEBRAIC[26] - STATES[13])/ALGEBRAIC[27]; resid[13] = RATES[14] - ( ( ( ( CONSTANTS[81]*CONSTANTS[40])*pow(STATES[18], 3.00000))*STATES[16])*STATES[17])*((1.00000 - STATES[14]) - STATES[15]) - CONSTANTS[38]*STATES[14]; resid[14] = RATES[15] - ( ( CONSTANTS[82]*CONSTANTS[40])*(1.00000 - STATES[16]))*((1.00000 - STATES[14]) - STATES[15]) - CONSTANTS[39]*STATES[15]; resid[15] = RATES[16] - ALGEBRAIC[28]*(1.00000 - STATES[16]) - ALGEBRAIC[29]*STATES[16]; resid[16] = RATES[17] - ALGEBRAIC[30]*(1.00000 - STATES[17]) - ALGEBRAIC[31]*STATES[17]; resid[17] = RATES[18] - ALGEBRAIC[32]*(1.00000 - STATES[18]) - ALGEBRAIC[33]*STATES[18]; resid[18] = RATES[20] - (ALGEBRAIC[36] - STATES[20])/ALGEBRAIC[37]; resid[19] = RATES[21] - (ALGEBRAIC[38] - STATES[21])/ALGEBRAIC[39]; resid[20] = RATES[4] - - ((ALGEBRAIC[65]+ALGEBRAIC[55])+CONSTANTS[52])/CONSTANTS[22]; resid[21] = RATES[23] - (ALGEBRAIC[45] - STATES[23])/CONSTANTS[95]; resid[22] = RATES[24] - (ALGEBRAIC[46] - STATES[24])/CONSTANTS[96]; resid[23] = RATES[25] - (ALGEBRAIC[47] - STATES[25])/CONSTANTS[97]; resid[24] = RATES[26] - (ALGEBRAIC[48] - STATES[26])/CONSTANTS[98]; resid[25] = RATES[27] - (ALGEBRAIC[49] - STATES[27])/CONSTANTS[55]; resid[26] = RATES[28] - (ALGEBRAIC[50] - STATES[28])/CONSTANTS[56]; resid[27] = RATES[29] - (- ALGEBRAIC[51]+ALGEBRAIC[53])/CONSTANTS[65]; resid[28] = RATES[30] - (- ALGEBRAIC[52]+ALGEBRAIC[54])/CONSTANTS[93]; resid[29] = RATES[19] - ((( - 3.00000*ALGEBRAIC[63] - 3.00000*ALGEBRAIC[34]) - ALGEBRAIC[57]) - ALGEBRAIC[62])/( CONSTANTS[13]*CONSTANTS[23]); resid[30] = RATES[22] - CONSTANTS[101]; } 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[10]*CONSTANTS[15])/pow(STATES[0]+CONSTANTS[15], 2.00000)); ALGEBRAIC[4] = 1.00000/(1.00000+( CONSTANTS[10]*CONSTANTS[15])/pow(STATES[1]+CONSTANTS[15], 2.00000)); ALGEBRAIC[5] = 1.00000/(1.00000+( CONSTANTS[9]*CONSTANTS[14])/pow(STATES[2]+CONSTANTS[14], 2.00000)); ALGEBRAIC[6] = 1.00000/(((1.00000+( CONSTANTS[19]*CONSTANTS[17])/pow(STATES[3]+CONSTANTS[17], 2.00000))+( CONSTANTS[18]*CONSTANTS[16])/pow(STATES[3]+CONSTANTS[16], 2.00000))+( CONSTANTS[9]*CONSTANTS[14])/pow(STATES[3]+CONSTANTS[14], 2.00000)); ALGEBRAIC[10] = 1.00000/(1.00000+exp((STATES[4]+10.0000)/- 8.00000)); ALGEBRAIC[9] = 1.00000/(1.00000+exp((STATES[4]+10.0000)/- 6.24000)); ALGEBRAIC[11] = (CONDVAR[1]<0.00000 ? ALGEBRAIC[9]*4.57900 : ( ALGEBRAIC[9]*(1.00000 - exp((STATES[4]+10.0000)/- 6.24000)))/( 0.0350000*(STATES[4]+10.0000))); ALGEBRAIC[12] = exp(- (STATES[4]+28.0000)/6.90000)/(1.00000+exp(- (STATES[4]+28.0000)/6.90000)); ALGEBRAIC[13] = ( ( 1.50000*2.00000)*3.00000)/( 0.0197000*exp( - pow(0.0337000, 2.00000)*pow(STATES[4]+10.0000, 2.00000))+0.0200000); ALGEBRAIC[14] = 1.00000/(1.00000+STATES[3]/0.000350000); ALGEBRAIC[18] = 1.00000/(1.00000+exp((STATES[4]+14.1000)/- 6.50000)); ALGEBRAIC[16] = (CONDVAR[2]<0.00000 ? 0.00150000 : ( 0.000300000*(STATES[4]+14.1000))/(1.00000 - exp((STATES[4]+14.1000)/- 5.00000))); ALGEBRAIC[17] = (CONDVAR[3]<0.00000 ? 0.000378361 : ( 7.38980e-05*(STATES[4] - 3.33280))/(exp((STATES[4] - 3.33280)/5.12370) - 1.00000)); ALGEBRAIC[19] = 1.00000/(ALGEBRAIC[16]+ALGEBRAIC[17]); ALGEBRAIC[22] = pow((1.00000/(1.00000+exp((STATES[4] - 19.9000)/- 12.7000))), 1.0 / 2); ALGEBRAIC[20] = (CONDVAR[4]<0.00000 ? 0.000680000 : ( 4.00000e-05*(STATES[4] - 19.9000))/(1.00000 - exp((STATES[4] - 19.9000)/- 17.0000))); ALGEBRAIC[21] = (CONDVAR[5]<0.00000 ? 0.000315000 : ( 3.50000e-05*(STATES[4] - 19.9000))/(exp((STATES[4] - 19.9000)/9.00000) - 1.00000)); ALGEBRAIC[23] = 0.500000/(ALGEBRAIC[20]+ALGEBRAIC[21]); ALGEBRAIC[24] = 1.00000/(1.00000+exp(- (STATES[4]+5.52000)/8.60000)); ALGEBRAIC[25] = ( ( (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[34]; ALGEBRAIC[26] = 0.524240/(1.00000+exp((STATES[4]+15.1142)/7.56702))+0.458078; ALGEBRAIC[27] = (2328.00/(1.00000+exp((STATES[4] - 9.43500)/3.58270))+1739.14)/CONSTANTS[34]; ALGEBRAIC[28] = (CONDVAR[6]>=0.00000 ? 0.00000 : 0.135000*exp((STATES[4]+80.0000)/- 6.80000)); ALGEBRAIC[29] = (CONDVAR[7]>=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[30] = (CONDVAR[8]>=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[31] = (CONDVAR[9]>=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[32] = (CONDVAR[10]<0.00000 ? 3.20000 : ( 0.320000*((STATES[4] - CONSTANTS[83])+47.1300))/(1.00000 - exp( - 0.100000*((STATES[4] - CONSTANTS[83])+47.1300)))); ALGEBRAIC[33] = 0.0800000*exp(- (STATES[4] - CONSTANTS[83])/11.0000); ALGEBRAIC[34] = (((( ( ( 1.40000*CONSTANTS[84])*CONSTANTS[22])*CONSTANTS[47])/(pow(CONSTANTS[46], 3.00000)+pow(CONSTANTS[43], 3.00000)))/(CONSTANTS[45]+CONSTANTS[42]))/(1.00000+ CONSTANTS[48]*exp( ( (CONSTANTS[44] - 1.00000)*STATES[4])*CONSTANTS[76])))*( ( pow(STATES[19], 3.00000)*CONSTANTS[42])*exp( ( STATES[4]*CONSTANTS[44])*CONSTANTS[76]) - ( pow(CONSTANTS[43], 3.00000)*STATES[3])*exp( ( STATES[4]*(CONSTANTS[44] - 1.00000))*CONSTANTS[76])); ALGEBRAIC[36] = 1.00000/(1.00000+exp(((STATES[4] - CONSTANTS[88]) - 1.00000)/- 11.0000)); ALGEBRAIC[37] = 3.50000*exp( - ((STATES[4] - CONSTANTS[88])/30.0000)*2.00000)+1.50000; ALGEBRAIC[38] = 1.00000/(1.00000+exp((STATES[4]+40.5000)/11.5000)); ALGEBRAIC[39] = 25.6350*exp( - ((STATES[4]+52.4500)/15.8827)*2.00000)+14.1400; ALGEBRAIC[45] = 0.505000 - 0.427000/(1.00000+exp(( ( 2000.00*STATES[2])*(1.00000+CONSTANTS[89]) - 0.290000)/0.0820000)); ALGEBRAIC[46] = 0.505000 - 0.427000/(1.00000+exp(( ( 1000.00*STATES[3])*(1.00000+CONSTANTS[89]) - 0.290000)/0.0820000)); ALGEBRAIC[47] = 1.00000/(1.00000+exp(( ( 2000.00*STATES[2])*(1.00000+CONSTANTS[89]) - (STATES[23]+0.0200000))/0.0100000)); ALGEBRAIC[48] = 1.00000/(1.00000+exp(( ( 1000.00*STATES[3])*(1.00000+CONSTANTS[89]) - (STATES[24]+0.0200000))/0.0100000)); ALGEBRAIC[49] = 1.00000 - 1.00000/(1.00000+exp(( ( 2000.00*STATES[2])*(1.00000+CONSTANTS[89]) - (STATES[23]+0.220000))/0.0300000)); ALGEBRAIC[50] = 1.00000 - 1.00000/(1.00000+exp(( ( 1000.00*STATES[3])*(1.00000+CONSTANTS[89]) - (STATES[24]+0.220000))/0.0300000)); ALGEBRAIC[51] = ( ( ( CONSTANTS[92]*0.750000)*( ( - CONSTANTS[60]*pow(STATES[0], 2.00000))*(CONSTANTS[57] - STATES[29])+ CONSTANTS[61]*STATES[29]))*CONSTANTS[65])*2.00000; ALGEBRAIC[52] = ( ( ( CONSTANTS[92]*0.750000)*( ( - CONSTANTS[60]*pow(STATES[1], 2.00000))*(CONSTANTS[57] - STATES[30])+ CONSTANTS[61]*STATES[30]))*CONSTANTS[93])*2.00000; ALGEBRAIC[53] = ( ( ( CONSTANTS[92]*0.750000)*( ( CONSTANTS[58]*pow(STATES[2], 2.00000))*(CONSTANTS[57] - STATES[29]) - CONSTANTS[59]*STATES[29]))*CONSTANTS[65])*2.00000; ALGEBRAIC[54] = ( ( ( CONSTANTS[92]*0.750000)*( ( CONSTANTS[58]*pow(STATES[3], 2.00000))*(CONSTANTS[57] - STATES[30]) - CONSTANTS[59]*STATES[30]))*CONSTANTS[93])*2.00000; ALGEBRAIC[7] = (CONDVAR[0]<0.00000 ? 1.00000 : 0.00000); ALGEBRAIC[55] = ( CONSTANTS[22]*ALGEBRAIC[7])*CONSTANTS[99]; ALGEBRAIC[42] = 26.7100*log(CONSTANTS[43]/STATES[19]); ALGEBRAIC[57] = ( ( 1.70000*CONSTANTS[22])*CONSTANTS[71])*(STATES[4] - ALGEBRAIC[42]); ALGEBRAIC[62] = ( ( ( ( ( CONSTANTS[41]*pow(STATES[18], 3.00000))*STATES[16])*STATES[17])*(STATES[4] - ALGEBRAIC[42]))*CONSTANTS[22])*((1.00000 - STATES[14]) - STATES[15]); ALGEBRAIC[35] = 1.00000/((1.00000+ 0.124500*exp( ( - 0.100000*STATES[4])*CONSTANTS[76]))+ ( 0.0365000*CONSTANTS[86])*exp( - STATES[4]*CONSTANTS[76])); ALGEBRAIC[63] = (( ( ( ( 1.28000*CONSTANTS[22])*CONSTANTS[85])*ALGEBRAIC[35])*CONSTANTS[49])/(CONSTANTS[49]+CONSTANTS[50]))/(1.00000+pow(CONSTANTS[51]/STATES[19], 4.00000)); ALGEBRAIC[8] = ( ( ( ( ( 1.33333*CONSTANTS[22])*CONSTANTS[72])*STATES[5])*STATES[6])*STATES[7])*(STATES[4] - CONSTANTS[28]); ALGEBRAIC[15] = ( ( ( 1.26000*CONSTANTS[22])*CONSTANTS[30])*STATES[3])/(STATES[3]+CONSTANTS[31]); ALGEBRAIC[40] = 13.3500*log(CONSTANTS[42]/STATES[2]); ALGEBRAIC[56] = ( ( 1.00000*CONSTANTS[22])*CONSTANTS[70])*(STATES[4] - ALGEBRAIC[40]); ALGEBRAIC[41] = 26.7100*log(CONSTANTS[49]/STATES[22]); ALGEBRAIC[58] = ( ( CONSTANTS[22]*CONSTANTS[73])*(STATES[4] - ALGEBRAIC[41]))/(1.00000+exp( 0.0700000*(STATES[4]+80.0000))); ALGEBRAIC[59] = ( ( ( ( CONSTANTS[22]*CONSTANTS[62])*CONSTANTS[74])*STATES[8])*(STATES[4] - ALGEBRAIC[41]))/(1.00000+exp((STATES[4]+15.0000)/22.4000)); ALGEBRAIC[60] = ( ( ( ( CONSTANTS[22]*CONSTANTS[63])*CONSTANTS[75])*STATES[9])*STATES[9])*(STATES[4] - ALGEBRAIC[41]); ALGEBRAIC[61] = ( ( ( ( ( CONSTANTS[22]*CONSTANTS[80])*(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[41]); ALGEBRAIC[64] = ( ( ( ( ( 1.05000*CONSTANTS[64])*CONSTANTS[22])*CONSTANTS[87])*STATES[20])*STATES[21])*(STATES[4] - ALGEBRAIC[41]); ALGEBRAIC[65] = (((((((((((ALGEBRAIC[62])+ALGEBRAIC[64])+ALGEBRAIC[61])+ALGEBRAIC[59])+ALGEBRAIC[60])+ALGEBRAIC[8])+ALGEBRAIC[58])+ALGEBRAIC[57])+ALGEBRAIC[56])+ALGEBRAIC[34])+ALGEBRAIC[63])+ALGEBRAIC[15]; ALGEBRAIC[68] = ((- ALGEBRAIC[8] - ALGEBRAIC[56]) - ALGEBRAIC[15])+ 2.00000*ALGEBRAIC[34]; ALGEBRAIC[0] = ( ( ( 0.500000*CONSTANTS[69])*CONSTANTS[20])*(STATES[0] - STATES[2]))*CONSTANTS[65]; ALGEBRAIC[2] = (( ( 2.50000*CONSTANTS[11])*CONSTANTS[8])/CONSTANTS[21])*(STATES[3] - STATES[2]); ALGEBRAIC[43] = 1.00000 - 1.00000/(1.00000+exp((STATES[0] - 0.300000)/0.100000)); ALGEBRAIC[66] = ( ( ( ( CONSTANTS[90]*CONSTANTS[94])*STATES[27])*STATES[25])*ALGEBRAIC[43])*(STATES[0] - STATES[2]); ALGEBRAIC[69] = ((- ALGEBRAIC[53]+ALGEBRAIC[0])+ALGEBRAIC[66])+ALGEBRAIC[2]; ALGEBRAIC[1] = ( ( ( 0.500000*CONSTANTS[69])*CONSTANTS[20])*(STATES[1] - STATES[3]))*CONSTANTS[93]; ALGEBRAIC[44] = 1.00000 - 1.00000/(1.00000+exp((STATES[1] - 0.300000)/0.100000)); ALGEBRAIC[67] = ( ( ( ( CONSTANTS[90]*CONSTANTS[100])*STATES[28])*STATES[26])*ALGEBRAIC[44])*(STATES[1] - STATES[3]); ALGEBRAIC[70] = ((- ALGEBRAIC[2]+ALGEBRAIC[1]) - ALGEBRAIC[54])+ALGEBRAIC[67]; ALGEBRAIC[71] = (ALGEBRAIC[52] - ALGEBRAIC[1]) - ALGEBRAIC[67]; ALGEBRAIC[72] = (ALGEBRAIC[51] - ALGEBRAIC[0]) - ALGEBRAIC[66]; } 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] = ((VOI - CONSTANTS[26]) - CONSTANTS[27]*floor((VOI - CONSTANTS[26])/CONSTANTS[27])) - CONSTANTS[25]; CONDVAR[1] = fabs(STATES[4]+10.0000) - 1.00000e-10; CONDVAR[2] = fabs(STATES[4]+14.1000) - 1.00000e-10; CONDVAR[3] = fabs(STATES[4] - 3.33280) - 1.00000e-10; CONDVAR[4] = fabs(STATES[4] - 19.9000) - 1.00000e-10; CONDVAR[5] = fabs(STATES[4] - 19.9000) - 1.00000e-10; CONDVAR[6] = STATES[4] - - 40.0000; CONDVAR[7] = STATES[4] - - 40.0000; CONDVAR[8] = STATES[4] - - 40.0000; CONDVAR[9] = STATES[4] - - 40.0000; CONDVAR[10] = fabs((STATES[4] - CONSTANTS[83])+47.1300) - 1.00000e-10; }