/* There are a total of 31 entries in the algebraic variable array. There are a total of 16 entries in each of the rate and state variable arrays. There are a total of 72 entries in the constant variable array. */ /* * VOI is time in component environment (millisecond). * STATES[0] is V in component membrane (millivolt). * CONSTANTS[0] is C in component membrane (uF). * ALGEBRAIC[0] is i_Na in component sodium_current (nanoA). * ALGEBRAIC[15] is i_NaP in component persistent_sodium_current (nanoA). * ALGEBRAIC[22] is i_K in component delayed_rectifier_current (nanoA). * ALGEBRAIC[23] is i_leak in component leak_current (nanoA). * ALGEBRAIC[24] is i_T in component LVA_calcium_current (nanoA). * ALGEBRAIC[25] is i_N in component N_HVA_calcium_current (nanoA). * ALGEBRAIC[26] is i_P in component P_HVA_calcium_current (nanoA). * ALGEBRAIC[27] is i_SK in component calcium_dependent_potassium_current (nanoA). * ALGEBRAIC[28] is i_A in component fast_transient_potassium_current (nanoA). * ALGEBRAIC[29] is i_H in component hyperpolarization_activated_current (nanoA). * ALGEBRAIC[30] is i_app in component stimulus_protocol (nanoA). * CONSTANTS[1] is g_Na in component sodium_current (uS). * CONSTANTS[2] is E_Na in component sodium_current (millivolt). * STATES[1] is m in component sodium_current_m_gate (dimensionless). * STATES[2] is h in component sodium_current_h_gate (dimensionless). * CONSTANTS[3] is theta_h in component sodium_current_h_gate (millivolt). * CONSTANTS[4] is sigma_h in component sodium_current_h_gate (millivolt). * CONSTANTS[5] is theta_1 in component sodium_current_h_gate (millivolt). * CONSTANTS[6] is sigma_1 in component sodium_current_h_gate (millivolt). * CONSTANTS[7] is sigma_2 in component sodium_current_h_gate (millivolt). * ALGEBRAIC[1] is tau_h in component sodium_current_h_gate (millisecond). * ALGEBRAIC[16] is h_infinity in component sodium_current_h_gate (dimensionless). * CONSTANTS[8] is theta_m in component sodium_current_m_gate (millivolt). * CONSTANTS[9] is sigma_m in component sodium_current_m_gate (millivolt). * CONSTANTS[10] is tau_m in component sodium_current_m_gate (millisecond). * ALGEBRAIC[2] is m_infinity in component sodium_current_m_gate (dimensionless). * CONSTANTS[11] is g_NaP in component persistent_sodium_current (uS). * STATES[3] is m in component persistent_sodium_current_m_gate (dimensionless). * STATES[4] is h in component persistent_sodium_current_h_gate (dimensionless). * CONSTANTS[12] is theta_h in component persistent_sodium_current_h_gate (millivolt). * CONSTANTS[13] is sigma_h in component persistent_sodium_current_h_gate (millivolt). * CONSTANTS[14] is tau_h in component persistent_sodium_current_h_gate (millisecond). * ALGEBRAIC[3] is h_infinity in component persistent_sodium_current_h_gate (dimensionless). * CONSTANTS[15] is theta_m in component persistent_sodium_current_m_gate (millivolt). * CONSTANTS[16] is sigma_m in component persistent_sodium_current_m_gate (millivolt). * CONSTANTS[17] is tau_m in component persistent_sodium_current_m_gate (millisecond). * ALGEBRAIC[4] is m_infinity in component persistent_sodium_current_m_gate (dimensionless). * CONSTANTS[18] is g_K in component delayed_rectifier_current (uS). * CONSTANTS[19] is E_K in component delayed_rectifier_current (millivolt). * STATES[5] is n in component delayed_rectifier_current_n_gate (dimensionless). * CONSTANTS[20] is theta_n in component delayed_rectifier_current_n_gate (millivolt). * CONSTANTS[21] is sigma_n in component delayed_rectifier_current_n_gate (millivolt). * CONSTANTS[22] is theta_1 in component delayed_rectifier_current_n_gate (millivolt). * CONSTANTS[23] is sigma_1 in component delayed_rectifier_current_n_gate (millivolt). * CONSTANTS[24] is sigma_2 in component delayed_rectifier_current_n_gate (millivolt). * ALGEBRAIC[5] is tau_n in component delayed_rectifier_current_n_gate (millisecond). * ALGEBRAIC[17] is n_infinity in component delayed_rectifier_current_n_gate (dimensionless). * CONSTANTS[25] is g_leak in component leak_current (uS). * CONSTANTS[26] is E_leak in component leak_current (millivolt). * CONSTANTS[27] is g_T in component LVA_calcium_current (uS). * CONSTANTS[28] is E_Ca in component LVA_calcium_current (millivolt). * STATES[6] is m in component LVA_calcium_current_m_gate (dimensionless). * STATES[7] is h in component LVA_calcium_current_h_gate (dimensionless). * CONSTANTS[29] is theta_m in component LVA_calcium_current_m_gate (millivolt). * CONSTANTS[30] is sigma_m in component LVA_calcium_current_m_gate (millivolt). * CONSTANTS[31] is theta_1 in component LVA_calcium_current_m_gate (millivolt). * CONSTANTS[32] is sigma_1 in component LVA_calcium_current_m_gate (millivolt). * CONSTANTS[33] is sigma_2 in component LVA_calcium_current_m_gate (millivolt). * ALGEBRAIC[6] is tau_m in component LVA_calcium_current_m_gate (millisecond). * ALGEBRAIC[18] is m_infinity in component LVA_calcium_current_m_gate (dimensionless). * CONSTANTS[34] is theta_h in component LVA_calcium_current_h_gate (millivolt). * CONSTANTS[35] is sigma_h in component LVA_calcium_current_h_gate (millivolt). * CONSTANTS[36] is theta_1 in component LVA_calcium_current_h_gate (millivolt). * CONSTANTS[37] is sigma_1 in component LVA_calcium_current_h_gate (millivolt). * ALGEBRAIC[7] is tau_h in component LVA_calcium_current_h_gate (millisecond). * ALGEBRAIC[19] is h_infinity in component LVA_calcium_current_h_gate (dimensionless). * CONSTANTS[38] is g_N in component N_HVA_calcium_current (uS). * STATES[8] is m in component N_HVA_calcium_current_m_gate (dimensionless). * STATES[9] is h in component N_HVA_calcium_current_h_gate (dimensionless). * CONSTANTS[39] is theta_m in component N_HVA_calcium_current_m_gate (millivolt). * CONSTANTS[40] is sigma_m in component N_HVA_calcium_current_m_gate (millivolt). * CONSTANTS[41] is tau_m in component N_HVA_calcium_current_m_gate (millisecond). * ALGEBRAIC[8] is m_infinity in component N_HVA_calcium_current_m_gate (dimensionless). * CONSTANTS[42] is theta_h in component N_HVA_calcium_current_h_gate (millivolt). * CONSTANTS[43] is sigma_h in component N_HVA_calcium_current_h_gate (millivolt). * CONSTANTS[44] is tau_h in component N_HVA_calcium_current_h_gate (millisecond). * ALGEBRAIC[9] is h_infinity in component N_HVA_calcium_current_h_gate (dimensionless). * CONSTANTS[45] is g_P in component P_HVA_calcium_current (uS). * STATES[10] is m in component P_HVA_calcium_current_m_gate (dimensionless). * CONSTANTS[46] is theta_m in component P_HVA_calcium_current_m_gate (millivolt). * CONSTANTS[47] is sigma_m in component P_HVA_calcium_current_m_gate (millivolt). * CONSTANTS[48] is tau_m in component P_HVA_calcium_current_m_gate (millisecond). * ALGEBRAIC[10] is m_infinity in component P_HVA_calcium_current_m_gate (dimensionless). * CONSTANTS[49] is g_SK in component calcium_dependent_potassium_current (uS). * STATES[11] is z in component calcium_dependent_potassium_current_z_gate (dimensionless). * CONSTANTS[50] is K1 in component calcium_dependent_potassium_current_z_gate (uM_per_nanocoulomb). * CONSTANTS[51] is K2 in component calcium_dependent_potassium_current_z_gate (per_ms). * STATES[12] is Ca_conc in component calcium_dependent_potassium_current_z_gate (uM). * CONSTANTS[52] is tau_z in component calcium_dependent_potassium_current_z_gate (millisecond). * ALGEBRAIC[11] is z_infinity in component calcium_dependent_potassium_current_z_gate (dimensionless). * CONSTANTS[53] is g_A in component fast_transient_potassium_current (uS). * STATES[13] is m in component fast_transient_potassium_current_m_gate (dimensionless). * STATES[14] is h in component fast_transient_potassium_current_h_gate (dimensionless). * CONSTANTS[54] is theta_m in component fast_transient_potassium_current_m_gate (millivolt). * CONSTANTS[55] is sigma_m in component fast_transient_potassium_current_m_gate (millivolt). * CONSTANTS[56] is theta_1 in component fast_transient_potassium_current_m_gate (millivolt). * CONSTANTS[57] is theta_2 in component fast_transient_potassium_current_m_gate (millivolt). * CONSTANTS[58] is sigma_1 in component fast_transient_potassium_current_m_gate (millivolt). * CONSTANTS[59] is sigma_2 in component fast_transient_potassium_current_m_gate (millivolt). * ALGEBRAIC[12] is tau_m in component fast_transient_potassium_current_m_gate (millisecond). * ALGEBRAIC[20] is m_infinity in component fast_transient_potassium_current_m_gate (dimensionless). * CONSTANTS[60] is theta_h in component fast_transient_potassium_current_h_gate (millivolt). * CONSTANTS[61] is sigma_h in component fast_transient_potassium_current_h_gate (millivolt). * CONSTANTS[62] is tau_h in component fast_transient_potassium_current_h_gate (millisecond). * ALGEBRAIC[13] is h_infinity in component fast_transient_potassium_current_h_gate (dimensionless). * CONSTANTS[63] is g_H in component hyperpolarization_activated_current (uS). * CONSTANTS[64] is E_H in component hyperpolarization_activated_current (millivolt). * STATES[15] is m in component hyperpolarization_activated_current_m_gate (dimensionless). * CONSTANTS[65] is theta_m in component hyperpolarization_activated_current_m_gate (millivolt). * CONSTANTS[66] is sigma_m in component hyperpolarization_activated_current_m_gate (millivolt). * CONSTANTS[67] is theta_1 in component hyperpolarization_activated_current_m_gate (millivolt). * CONSTANTS[68] is sigma_1 in component hyperpolarization_activated_current_m_gate (millivolt). * ALGEBRAIC[14] is tau_m in component hyperpolarization_activated_current_m_gate (millisecond). * ALGEBRAIC[21] is m_infinity in component hyperpolarization_activated_current_m_gate (dimensionless). * CONSTANTS[69] is i_stimStart in component stimulus_protocol (millisecond). * CONSTANTS[70] is i_stimEnd in component stimulus_protocol (millisecond). * CONSTANTS[71] is i_stimAmplitude in component stimulus_protocol (nanoA). * RATES[0] is d/dt V in component membrane (millivolt). * RATES[2] is d/dt h in component sodium_current_h_gate (dimensionless). * RATES[1] is d/dt m in component sodium_current_m_gate (dimensionless). * RATES[4] is d/dt h in component persistent_sodium_current_h_gate (dimensionless). * RATES[3] is d/dt m in component persistent_sodium_current_m_gate (dimensionless). * RATES[5] is d/dt n in component delayed_rectifier_current_n_gate (dimensionless). * RATES[6] is d/dt m in component LVA_calcium_current_m_gate (dimensionless). * RATES[7] is d/dt h in component LVA_calcium_current_h_gate (dimensionless). * RATES[8] is d/dt m in component N_HVA_calcium_current_m_gate (dimensionless). * RATES[9] is d/dt h in component N_HVA_calcium_current_h_gate (dimensionless). * RATES[10] is d/dt m in component P_HVA_calcium_current_m_gate (dimensionless). * RATES[12] is d/dt Ca_conc in component calcium_dependent_potassium_current_z_gate (uM). * RATES[11] is d/dt z in component calcium_dependent_potassium_current_z_gate (dimensionless). * RATES[13] is d/dt m in component fast_transient_potassium_current_m_gate (dimensionless). * RATES[14] is d/dt h in component fast_transient_potassium_current_h_gate (dimensionless). * RATES[15] is d/dt m in component hyperpolarization_activated_current_m_gate (dimensionless). */ void initConsts(double* CONSTANTS, double* RATES, double *STATES) { STATES[0] = -71.847; CONSTANTS[0] = 0.04; CONSTANTS[1] = 0.7; CONSTANTS[2] = 60; STATES[1] = 0.015; STATES[2] = 0.981; CONSTANTS[3] = 44.1; CONSTANTS[4] = 7; CONSTANTS[5] = 35; CONSTANTS[6] = 4; CONSTANTS[7] = 25; CONSTANTS[8] = 36; CONSTANTS[9] = 8.5; CONSTANTS[10] = 0.1; CONSTANTS[11] = 0.05; STATES[3] = 0.002; STATES[4] = 0.797; CONSTANTS[12] = 65; CONSTANTS[13] = 5; CONSTANTS[14] = 150; CONSTANTS[15] = 47.1; CONSTANTS[16] = 4.1; CONSTANTS[17] = 0.1; CONSTANTS[18] = 1.3; CONSTANTS[19] = -80; STATES[5] = 0.158; CONSTANTS[20] = 30; CONSTANTS[21] = 25; CONSTANTS[22] = 30; CONSTANTS[23] = 40; CONSTANTS[24] = 50; CONSTANTS[25] = 0.005; CONSTANTS[26] = -50; CONSTANTS[27] = 0.1; CONSTANTS[28] = 40; STATES[6] = 0.001; STATES[7] = 0.562; CONSTANTS[29] = 38; CONSTANTS[30] = 5; CONSTANTS[31] = 28; CONSTANTS[32] = 25; CONSTANTS[33] = 70; CONSTANTS[34] = 70.1; CONSTANTS[35] = 7; CONSTANTS[36] = 70; CONSTANTS[37] = 65; CONSTANTS[38] = 0.05; STATES[8] = 0.001; STATES[9] = 0.649; CONSTANTS[39] = 30; CONSTANTS[40] = 6; CONSTANTS[41] = 5; CONSTANTS[42] = 70; CONSTANTS[43] = 3; CONSTANTS[44] = 25; CONSTANTS[45] = 0.05; STATES[10] = 0; CONSTANTS[46] = 17; CONSTANTS[47] = 3; CONSTANTS[48] = 10; CONSTANTS[49] = 0.3; STATES[11] = 0; CONSTANTS[50] = -500; CONSTANTS[51] = 0.04; STATES[12] = 0.0604; CONSTANTS[52] = 1; CONSTANTS[53] = 1; STATES[13] = 0.057; STATES[14] = 0.287; CONSTANTS[54] = 27; CONSTANTS[55] = 16; CONSTANTS[56] = 40; CONSTANTS[57] = 74; CONSTANTS[58] = 5; CONSTANTS[59] = 7.5; CONSTANTS[60] = 80; CONSTANTS[61] = 11; CONSTANTS[62] = 20; CONSTANTS[63] = 0.005; CONSTANTS[64] = -38.8; STATES[15] = 0.182; CONSTANTS[65] = 79.8; CONSTANTS[66] = 5.3; CONSTANTS[67] = 70; CONSTANTS[68] = 11; CONSTANTS[69] = 10; CONSTANTS[70] = 11; CONSTANTS[71] = 10; } void computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { ALGEBRAIC[2] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[8])/- CONSTANTS[9])); RATES[1] = (ALGEBRAIC[2] - STATES[1])/CONSTANTS[10]; ALGEBRAIC[3] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[12])/CONSTANTS[13])); RATES[4] = (ALGEBRAIC[3] - STATES[4])/CONSTANTS[14]; ALGEBRAIC[4] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[15])/CONSTANTS[16])); RATES[3] = (ALGEBRAIC[4] - STATES[3])/CONSTANTS[17]; ALGEBRAIC[8] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[39])/CONSTANTS[40])); RATES[8] = (ALGEBRAIC[8] - STATES[8])/CONSTANTS[41]; ALGEBRAIC[9] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[42])/CONSTANTS[43])); RATES[9] = (ALGEBRAIC[9] - STATES[9])/CONSTANTS[44]; ALGEBRAIC[10] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[46])/CONSTANTS[47])); RATES[10] = (ALGEBRAIC[10] - STATES[10])/CONSTANTS[48]; ALGEBRAIC[11] = 1.00000/(1.00000+pow(0.00300000/STATES[12], 2.00000)); RATES[11] = (ALGEBRAIC[11] - STATES[11])/CONSTANTS[52]; ALGEBRAIC[13] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[60])/CONSTANTS[61])); RATES[14] = (ALGEBRAIC[13] - STATES[14])/CONSTANTS[62]; ALGEBRAIC[1] = 3.50000/(exp((STATES[0]+CONSTANTS[5])/CONSTANTS[6])+exp(- (STATES[0]+CONSTANTS[5])/CONSTANTS[7]))+1.00000; ALGEBRAIC[16] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[3])/CONSTANTS[4])); RATES[2] = (ALGEBRAIC[16] - STATES[2])/ALGEBRAIC[1]; ALGEBRAIC[5] = 2.50000/(exp((STATES[0]+CONSTANTS[22])/CONSTANTS[23])+exp(- (STATES[0]+CONSTANTS[22])/CONSTANTS[24]))+0.0100000; ALGEBRAIC[17] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[20])/CONSTANTS[21])); RATES[5] = (ALGEBRAIC[17] - STATES[5])/ALGEBRAIC[5]; ALGEBRAIC[6] = 5.00000/(exp((STATES[0]+CONSTANTS[31])/CONSTANTS[32])+exp(- (STATES[0]+CONSTANTS[31])/CONSTANTS[33]))+2.00000; ALGEBRAIC[18] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[29])/CONSTANTS[30])); RATES[6] = (ALGEBRAIC[18] - STATES[6])/ALGEBRAIC[6]; ALGEBRAIC[7] = 20.0000/(exp((STATES[0]+CONSTANTS[36])/CONSTANTS[37])+exp(- (STATES[0]+CONSTANTS[36])/CONSTANTS[37]))+1.00000; ALGEBRAIC[19] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[34])/CONSTANTS[35])); RATES[7] = (ALGEBRAIC[19] - STATES[7])/ALGEBRAIC[7]; ALGEBRAIC[12] = 1.00000/(exp((STATES[0]+CONSTANTS[56])/CONSTANTS[58])+exp(- (STATES[0]+CONSTANTS[57])/CONSTANTS[59]))+0.370000; ALGEBRAIC[20] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[54])/CONSTANTS[55])); RATES[13] = (ALGEBRAIC[20] - STATES[13])/ALGEBRAIC[12]; ALGEBRAIC[14] = 1.00000/(exp((STATES[0]+CONSTANTS[67])/CONSTANTS[68])+exp(- (STATES[0]+CONSTANTS[67])/CONSTANTS[68]))+50.0000; ALGEBRAIC[21] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[65])/CONSTANTS[66])); RATES[15] = (ALGEBRAIC[21] - STATES[15])/ALGEBRAIC[14]; ALGEBRAIC[24] = CONSTANTS[27]*STATES[6]*STATES[7]*(STATES[0] - CONSTANTS[28]); ALGEBRAIC[25] = CONSTANTS[38]*STATES[8]*STATES[9]*(STATES[0] - CONSTANTS[28]); ALGEBRAIC[26] = CONSTANTS[45]*STATES[10]*(STATES[0] - CONSTANTS[28]); RATES[12] = (1.00000/1000.00)*CONSTANTS[50]*(ALGEBRAIC[24]+ALGEBRAIC[25]+ALGEBRAIC[26]) - CONSTANTS[51]*STATES[12]; ALGEBRAIC[0] = CONSTANTS[1]*pow(STATES[1], 3.00000)*STATES[2]*(STATES[0] - CONSTANTS[2]); ALGEBRAIC[15] = CONSTANTS[11]*STATES[3]*STATES[4]*(STATES[0] - CONSTANTS[2]); ALGEBRAIC[22] = CONSTANTS[18]*pow(STATES[5], 4.00000)*(STATES[0] - CONSTANTS[19]); ALGEBRAIC[23] = CONSTANTS[25]*(STATES[0] - CONSTANTS[26]); ALGEBRAIC[27] = CONSTANTS[49]*pow(STATES[11], 2.00000)*(STATES[0] - CONSTANTS[19]); ALGEBRAIC[28] = CONSTANTS[53]*STATES[13]*STATES[14]*(STATES[0] - CONSTANTS[19]); ALGEBRAIC[29] = CONSTANTS[63]*STATES[15]*(STATES[0] - CONSTANTS[64]); ALGEBRAIC[30] = (VOI>=CONSTANTS[69]&&VOI<=CONSTANTS[70] ? CONSTANTS[71] : 0.00000); RATES[0] = (- (ALGEBRAIC[0]+ALGEBRAIC[15]+ALGEBRAIC[22]+ALGEBRAIC[23]+ALGEBRAIC[24]+ALGEBRAIC[25]+ALGEBRAIC[26]+ALGEBRAIC[27]+ALGEBRAIC[28]+ALGEBRAIC[29])+ALGEBRAIC[30])/CONSTANTS[0]; } void computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { ALGEBRAIC[2] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[8])/- CONSTANTS[9])); ALGEBRAIC[3] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[12])/CONSTANTS[13])); ALGEBRAIC[4] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[15])/CONSTANTS[16])); ALGEBRAIC[8] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[39])/CONSTANTS[40])); ALGEBRAIC[9] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[42])/CONSTANTS[43])); ALGEBRAIC[10] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[46])/CONSTANTS[47])); ALGEBRAIC[11] = 1.00000/(1.00000+pow(0.00300000/STATES[12], 2.00000)); ALGEBRAIC[13] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[60])/CONSTANTS[61])); ALGEBRAIC[1] = 3.50000/(exp((STATES[0]+CONSTANTS[5])/CONSTANTS[6])+exp(- (STATES[0]+CONSTANTS[5])/CONSTANTS[7]))+1.00000; ALGEBRAIC[16] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[3])/CONSTANTS[4])); ALGEBRAIC[5] = 2.50000/(exp((STATES[0]+CONSTANTS[22])/CONSTANTS[23])+exp(- (STATES[0]+CONSTANTS[22])/CONSTANTS[24]))+0.0100000; ALGEBRAIC[17] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[20])/CONSTANTS[21])); ALGEBRAIC[6] = 5.00000/(exp((STATES[0]+CONSTANTS[31])/CONSTANTS[32])+exp(- (STATES[0]+CONSTANTS[31])/CONSTANTS[33]))+2.00000; ALGEBRAIC[18] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[29])/CONSTANTS[30])); ALGEBRAIC[7] = 20.0000/(exp((STATES[0]+CONSTANTS[36])/CONSTANTS[37])+exp(- (STATES[0]+CONSTANTS[36])/CONSTANTS[37]))+1.00000; ALGEBRAIC[19] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[34])/CONSTANTS[35])); ALGEBRAIC[12] = 1.00000/(exp((STATES[0]+CONSTANTS[56])/CONSTANTS[58])+exp(- (STATES[0]+CONSTANTS[57])/CONSTANTS[59]))+0.370000; ALGEBRAIC[20] = 1.00000/(1.00000+exp(- (STATES[0]+CONSTANTS[54])/CONSTANTS[55])); ALGEBRAIC[14] = 1.00000/(exp((STATES[0]+CONSTANTS[67])/CONSTANTS[68])+exp(- (STATES[0]+CONSTANTS[67])/CONSTANTS[68]))+50.0000; ALGEBRAIC[21] = 1.00000/(1.00000+exp((STATES[0]+CONSTANTS[65])/CONSTANTS[66])); ALGEBRAIC[24] = CONSTANTS[27]*STATES[6]*STATES[7]*(STATES[0] - CONSTANTS[28]); ALGEBRAIC[25] = CONSTANTS[38]*STATES[8]*STATES[9]*(STATES[0] - CONSTANTS[28]); ALGEBRAIC[26] = CONSTANTS[45]*STATES[10]*(STATES[0] - CONSTANTS[28]); ALGEBRAIC[0] = CONSTANTS[1]*pow(STATES[1], 3.00000)*STATES[2]*(STATES[0] - CONSTANTS[2]); ALGEBRAIC[15] = CONSTANTS[11]*STATES[3]*STATES[4]*(STATES[0] - CONSTANTS[2]); ALGEBRAIC[22] = CONSTANTS[18]*pow(STATES[5], 4.00000)*(STATES[0] - CONSTANTS[19]); ALGEBRAIC[23] = CONSTANTS[25]*(STATES[0] - CONSTANTS[26]); ALGEBRAIC[27] = CONSTANTS[49]*pow(STATES[11], 2.00000)*(STATES[0] - CONSTANTS[19]); ALGEBRAIC[28] = CONSTANTS[53]*STATES[13]*STATES[14]*(STATES[0] - CONSTANTS[19]); ALGEBRAIC[29] = CONSTANTS[63]*STATES[15]*(STATES[0] - CONSTANTS[64]); ALGEBRAIC[30] = (VOI>=CONSTANTS[69]&&VOI<=CONSTANTS[70] ? CONSTANTS[71] : 0.00000); }