/* There are a total of 29 entries in the algebraic variable array. There are a total of 9 entries in each of the rate and state variable arrays. There are a total of 46 entries in the constant variable array. */ /* * VOI is t in component main (second). * CONSTANTS[0] is RT in component main (J_per_mol). * CONSTANTS[1] is F in component main (C_per_mol). * STATES[0] is q_ac_W in component main (litre). * STATES[1] is q_vc_W in component main (litre). * STATES[2] is q_gi_W in component main (litre). * STATES[3] is q_pt_W in component main (litre). * CONSTANTS[2] is q_giEpi_W in component main (litre). * CONSTANTS[3] is q_ptEpi_W in component main (litre). * ALGEBRAIC[0] is q_tot_W in component main (litre). * STATES[4] is q_vc_Na in component main (mole). * STATES[5] is q_gi_Na in component main (mole). * STATES[6] is q_pt_Na in component main (mole). * STATES[7] is q_giEpi_Na in component main (mole). * STATES[8] is q_ptEpi_Na in component main (mole). * CONSTANTS[4] is q_vc_K in component main (mole). * CONSTANTS[5] is q_giEpi_K in component main (mole). * CONSTANTS[6] is q_ptEpi_K in component main (mole). * ALGEBRAIC[1] is q_tot_Na in component main (mole). * ALGEBRAIC[2] is c_vc_Na in component main (mol_per_L). * ALGEBRAIC[13] is c_gi_Na in component main (mol_per_L). * ALGEBRAIC[18] is c_pt_Na in component main (mol_per_L). * ALGEBRAIC[3] is c_giEpi_Na in component main (mol_per_L). * ALGEBRAIC[4] is c_ptEpi_Na in component main (mol_per_L). * ALGEBRAIC[14] is C_vc_Na in component main (mM). * ALGEBRAIC[19] is C_gi_Na in component main (mM). * ALGEBRAIC[22] is C_pt_Na in component main (mM). * ALGEBRAIC[15] is C_giEpi_Na in component main (mM). * ALGEBRAIC[16] is C_ptEpi_Na in component main (mM). * CONSTANTS[7] is v_lv_W in component main (L_per_s). * CONSTANTS[8] is v_in_W_base in component main (L_per_s). * ALGEBRAIC[5] is v_in_W in component main (L_per_s). * CONSTANTS[42] is v_out1_W in component main (L_per_s). * CONSTANTS[43] is v_out2_W in component main (L_per_s). * ALGEBRAIC[23] is v_gl_W in component main (L_per_s). * ALGEBRAIC[26] is v_gi_W in component main (L_per_s). * ALGEBRAIC[28] is v_pt_W in component main (L_per_s). * ALGEBRAIC[20] is v_cc_W in component main (L_per_s). * CONSTANTS[9] is v_in_Na_base in component main (mol_per_s). * ALGEBRAIC[6] is v_in_Na in component main (mol_per_s). * CONSTANTS[44] is v_out1_Na in component main (mol_per_s). * CONSTANTS[45] is v_out2_Na in component main (mol_per_s). * ALGEBRAIC[7] is v_gl_Na in component main (mol_per_s). * ALGEBRAIC[8] is v_gi_Na in component main (mol_per_s). * ALGEBRAIC[9] is v_pt_Na in component main (mol_per_s). * ALGEBRAIC[10] is v_giEpi_NKE in component main (mol_per_s). * ALGEBRAIC[11] is v_ptEpi_NKE in component main (mol_per_s). * ALGEBRAIC[12] is u_vc_W in component main (kPa). * ALGEBRAIC[17] is u_ac_W in component main (kPa). * ALGEBRAIC[21] is u_pt_W in component main (kPa). * ALGEBRAIC[25] is u_vc_osmotic in component main (kPa). * ALGEBRAIC[24] is u_gi_osmotic in component main (kPa). * ALGEBRAIC[27] is u_pt_osmotic in component main (kPa). * CONSTANTS[10] is u_giEpi_e in component main (J_per_C). * CONSTANTS[11] is u_ptEpi_e in component main (J_per_C). * CONSTANTS[12] is k_gi_W in component main (L_per_s_per_kPa). * CONSTANTS[13] is k_pt_W in component main (L_per_s_per_kPa). * CONSTANTS[14] is k_gl_W in component main (L_per_s_per_kPa). * CONSTANTS[15] is k_cc_W in component main (L_per_s_per_kPa). * CONSTANTS[16] is kK_gi_Na in component main (per_s). * CONSTANTS[17] is kK_pt_Na in component main (per_s). * CONSTANTS[18] is kK_gl_Na in component main (per_s). * CONSTANTS[19] is k_giEpi_NKE in component main (mol_per_s). * CONSTANTS[20] is k_ptEpi_NKE in component main (mol_per_s). * CONSTANTS[21] is K_Na in component main (L_per_mol). * CONSTANTS[22] is K_K in component main (L_per_mol). * CONSTANTS[23] is E_vc in component main (joule). * CONSTANTS[24] is E_ac in component main (joule). * CONSTANTS[25] is E_pt in component main (joule). * CONSTANTS[26] is U_ac_W in component main (litre). * CONSTANTS[27] is U_vc_W in component main (litre). * CONSTANTS[28] is U_pt_W in component main (litre). * CONSTANTS[29] is L_ac_W in component main (litre). * CONSTANTS[30] is L_vc_W in component main (litre). * CONSTANTS[31] is L_pt_W in component main (litre). * CONSTANTS[32] is water_intake in component main (L_per_s). * CONSTANTS[33] is water_intake_start in component main (second). * CONSTANTS[34] is water_intake_duration in component main (second). * CONSTANTS[35] is water_kidney_excretion in component main (dimensionless). * CONSTANTS[36] is water_gi_excretion in component main (dimensionless). * CONSTANTS[37] is Na_intake in component main (mol_per_s). * CONSTANTS[38] is Na_intake_start in component main (second). * CONSTANTS[39] is Na_intake_duration in component main (second). * CONSTANTS[40] is Na_gi_excretion in component main (dimensionless). * CONSTANTS[41] is Na_kidney_excretion in component main (dimensionless). * RATES[2] is d/dt q_gi_W in component main (litre). * RATES[3] is d/dt q_pt_W in component main (litre). * RATES[1] is d/dt q_vc_W in component main (litre). * RATES[0] is d/dt q_ac_W in component main (litre). * RATES[5] is d/dt q_gi_Na in component main (mole). * RATES[7] is d/dt q_giEpi_Na in component main (mole). * RATES[6] is d/dt q_pt_Na in component main (mole). * RATES[8] is d/dt q_ptEpi_Na in component main (mole). * RATES[4] is d/dt q_vc_Na in component main (mole). */ void initConsts(double* CONSTANTS, double* RATES, double *STATES) { CONSTANTS[0] = 2.5e3; CONSTANTS[1] = 0.965e5; STATES[0] = 1; STATES[1] = 2; STATES[2] = 1; STATES[3] = 0.1; CONSTANTS[2] = 0.5; CONSTANTS[3] = 0.5; STATES[4] = 0.84; STATES[5] = 0.1; STATES[6] = 0.01; STATES[7] = 0.012; STATES[8] = 0.012; CONSTANTS[4] = 0.03; CONSTANTS[5] = 0.012; CONSTANTS[6] = 0.012; CONSTANTS[7] = 0.1; CONSTANTS[8] = 0; CONSTANTS[9] = 1.16e-06; CONSTANTS[10] = -0.040; CONSTANTS[11] = -0.040; CONSTANTS[12] = 1; CONSTANTS[13] = 0; CONSTANTS[14] = 1; CONSTANTS[15] = 1; CONSTANTS[16] = 1; CONSTANTS[17] = 1; CONSTANTS[18] = 1; CONSTANTS[19] = 1e4; CONSTANTS[20] = 1e5; CONSTANTS[21] = 1; CONSTANTS[22] = 1; CONSTANTS[23] = 6e1; CONSTANTS[24] = 6e1; CONSTANTS[25] = 1; CONSTANTS[26] = 0.5; CONSTANTS[27] = 1.5; CONSTANTS[28] = 0.1; CONSTANTS[29] = 1.5; CONSTANTS[30] = 2.5; CONSTANTS[31] = 1; CONSTANTS[32] = 0.01; CONSTANTS[33] = 10; CONSTANTS[34] = 5; CONSTANTS[35] = 0.94; CONSTANTS[36] = 0.06; CONSTANTS[37] = 0.001; CONSTANTS[38] = 10; CONSTANTS[39] = 10; CONSTANTS[40] = 0.07; CONSTANTS[41] = 0.93; CONSTANTS[42] = CONSTANTS[36]*CONSTANTS[8]; CONSTANTS[43] = CONSTANTS[35]*CONSTANTS[8]; CONSTANTS[44] = CONSTANTS[40]*CONSTANTS[9]; CONSTANTS[45] = CONSTANTS[41]*CONSTANTS[9]; } void computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { RATES[3] = ( CONSTANTS[14]*(( CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000) - ( CONSTANTS[25]*(STATES[3] - CONSTANTS[28]))/pow(CONSTANTS[31] - STATES[3], 2.00000)) - CONSTANTS[0]*CONSTANTS[13]*(STATES[4]/STATES[1] - STATES[6]/STATES[3])) - CONSTANTS[43]; RATES[1] = ( CONSTANTS[15]*(( CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000) - ( CONSTANTS[23]*(STATES[1] - CONSTANTS[27]))/pow(CONSTANTS[30] - STATES[1], 2.00000))+ CONSTANTS[0]*CONSTANTS[12]*(STATES[4]/STATES[1] - STATES[5]/STATES[2])+ CONSTANTS[0]*CONSTANTS[13]*(STATES[4]/STATES[1] - STATES[6]/STATES[3])) - CONSTANTS[7]; RATES[0] = ((CONSTANTS[7]+( CONSTANTS[15]*CONSTANTS[23]*(STATES[1] - CONSTANTS[27]))/pow(CONSTANTS[30] - STATES[1], 2.00000)) - ( (CONSTANTS[14]+CONSTANTS[15])*CONSTANTS[24]*(STATES[0] - CONSTANTS[26]))/pow(CONSTANTS[29] - STATES[0], 2.00000))+( CONSTANTS[14]*CONSTANTS[25]*(STATES[3] - CONSTANTS[28]))/pow(CONSTANTS[31] - STATES[3], 2.00000); RATES[7] = CONSTANTS[16]*(STATES[5] - STATES[7]) - ( 3.00000*CONSTANTS[19]*( pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[10])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000))); RATES[6] = ( CONSTANTS[18]*(STATES[4] - STATES[6]) - CONSTANTS[17]*(STATES[6] - STATES[8])) - CONSTANTS[45]; RATES[8] = CONSTANTS[17]*(STATES[6] - STATES[8]) - ( 3.00000*CONSTANTS[20]*( pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[11])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000))); RATES[4] = (( 3.00000*CONSTANTS[19]*( pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[10])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[7])/CONSTANTS[2], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[5])/CONSTANTS[2], 2.00000)))+( 3.00000*CONSTANTS[20]*( pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000) - pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000)*pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)*exp(( 2.00000*CONSTANTS[1]*CONSTANTS[11])/CONSTANTS[0])))/( (1.00000+pow(( CONSTANTS[21]*STATES[8])/CONSTANTS[3], 3.00000))*(1.00000+pow(( CONSTANTS[21]*STATES[4])/STATES[1], 3.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[4])/STATES[1], 2.00000))*(1.00000+pow(( CONSTANTS[22]*CONSTANTS[6])/CONSTANTS[3], 2.00000)))) - CONSTANTS[18]*(STATES[4] - STATES[6]); ALGEBRAIC[5] = (VOI>CONSTANTS[33]&&VOICONSTANTS[38]&&VOICONSTANTS[33]&&VOICONSTANTS[38]&&VOI