/* There are a total of 37 entries in the algebraic variable array. There are a total of 19 entries in each of the rate and state variable arrays. There are a total of 39 entries in the constant variable array. */ /* * VOI is time in component environment (second). * STATES[0] is q_RM2_inactive in component environment (fmol). * STATES[1] is q_L_RM2_inactive in component environment (fmol). * ALGEBRAIC[4] is q_LM2 in component environment (fmol). * ALGEBRAIC[0] is q_LM2_stim in component environment (fmol). * STATES[2] is q_LM2_ode in component environment (fmol). * STATES[3] is q_RM2 in component environment (fmol). * STATES[4] is q_Gi in component environment (fmol). * STATES[5] is q_RM2_Gi in component environment (fmol). * STATES[6] is q_L_RM2 in component environment (fmol). * STATES[7] is q_L_RM2_Gi in component environment (fmol). * STATES[8] is q_Gia_GTP in component environment (fmol). * STATES[9] is q_Gibetagamma in component environment (fmol). * STATES[10] is q_Gia_GDP in component environment (fmol). * STATES[11] is q_GTP in component environment (fmol). * STATES[12] is q_GDP in component environment (fmol). * STATES[13] is q_Pi in component environment (fmol). * STATES[14] is q_RM2_tag in component environment (fmol). * STATES[15] is q_L_RM2_tag in component environment (fmol). * STATES[16] is q_RM2_GRKArr in component environment (fmol). * STATES[17] is q_L_RM2_GRKArr in component environment (fmol). * STATES[18] is q_GRKArr in component environment (fmol). * CONSTANTS[0] is stimSt in component environment (second). * CONSTANTS[1] is stimDur in component environment (second). * CONSTANTS[2] is tR in component environment (second). * CONSTANTS[3] is stimMag in component environment (fmol). * CONSTANTS[4] is stimHolding in component environment (fmol). * CONSTANTS[38] is m in component environment (fmol_per_sec). * ALGEBRAIC[1] is conserv_R_T in component environment (fmol). * ALGEBRAIC[35] is conserv_L_T in component environment (fmol). * ALGEBRAIC[3] is conserv_G_T in component environment (fmol). * ALGEBRAIC[2] is total_R in component environment (fmol). * ALGEBRAIC[24] is v_Rswitch_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[25] is v_LRswitch_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[26] is v_C_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[27] is v_R_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[28] is v_L_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[29] is v_Act1_Gi in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[30] is v_Act2_Gi in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[31] is v_Hyd_Gi in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[32] is v_Reassoc_Gi in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[33] is v_InternR_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[34] is v_InternLR_M2 in component GPCR_M2_reduced (fmol_per_sec). * ALGEBRAIC[36] is v_Rsynthesis in component environment (fmol_per_sec). * CONSTANTS[5] is kappa_Rswitch_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[6] is kappa_LRswitch_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[7] is kappa_C_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[8] is kappa_R_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[9] is kappa_L_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[10] is kappa_Act1_Gi in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[11] is kappa_Act2_Gi in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[12] is kappa_Hyd_Gi in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[13] is kappa_Reassoc_Gi in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[14] is kappa_InternR_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[15] is kappa_InternLR_M2 in component GPCR_M2_reduced_parameters (fmol_per_sec). * CONSTANTS[16] is K_RM2_inactive in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[17] is K_L_RM2_inactive in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[18] is K_LM2 in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[19] is K_RM2 in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[20] is K_Gi in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[21] is K_RM2_Gi in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[22] is K_L_RM2 in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[23] is K_L_RM2_Gi in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[24] is K_Gia_GTP in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[25] is K_Gibetagamma in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[26] is K_Gia_GDP in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[27] is K_GTP in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[28] is K_GDP in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[29] is K_Pi in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[30] is K_RM2_tag in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[31] is K_L_RM2_tag in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[32] is K_RM2_GRKArr in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[33] is K_L_RM2_GRKArr in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[34] is K_GRKArr in component GPCR_M2_reduced_parameters (per_fmol). * CONSTANTS[35] is R in component constants (J_per_K_per_mol). * CONSTANTS[36] is T in component constants (kelvin). * ALGEBRAIC[5] is mu_RM2_inactive in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[6] is mu_L_RM2_inactive in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[7] is mu_LM2 in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[8] is mu_RM2 in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[9] is mu_Gi in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[10] is mu_RM2_Gi in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[11] is mu_L_RM2 in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[12] is mu_L_RM2_Gi in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[13] is mu_Gia_GTP in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[14] is mu_Gibetagamma in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[15] is mu_Gia_GDP in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[16] is mu_GTP in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[17] is mu_GDP in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[18] is mu_Pi in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[19] is mu_RM2_tag in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[20] is mu_L_RM2_tag in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[21] is mu_RM2_GRKArr in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[22] is mu_L_RM2_GRKArr in component GPCR_M2_reduced (J_per_mol). * ALGEBRAIC[23] is mu_GRKArr in component GPCR_M2_reduced (J_per_mol). * CONSTANTS[37] is F in component constants (C_per_mol). * RATES[0] is d/dt q_RM2_inactive in component environment (fmol). * RATES[1] is d/dt q_L_RM2_inactive in component environment (fmol). * RATES[2] is d/dt q_LM2_ode in component environment (fmol). * RATES[3] is d/dt q_RM2 in component environment (fmol). * RATES[4] is d/dt q_Gi in component environment (fmol). * RATES[5] is d/dt q_RM2_Gi in component environment (fmol). * RATES[6] is d/dt q_L_RM2 in component environment (fmol). * RATES[7] is d/dt q_L_RM2_Gi in component environment (fmol). * RATES[8] is d/dt q_Gia_GTP in component environment (fmol). * RATES[9] is d/dt q_Gibetagamma in component environment (fmol). * RATES[10] is d/dt q_Gia_GDP in component environment (fmol). * RATES[11] is d/dt q_GTP in component environment (fmol). * RATES[12] is d/dt q_GDP in component environment (fmol). * RATES[13] is d/dt q_Pi in component environment (fmol). * RATES[14] is d/dt q_RM2_tag in component environment (fmol). * RATES[15] is d/dt q_L_RM2_tag in component environment (fmol). * RATES[16] is d/dt q_RM2_GRKArr in component environment (fmol). * RATES[17] is d/dt q_L_RM2_GRKArr in component environment (fmol). * RATES[18] is d/dt q_GRKArr in component environment (fmol). * There are a total of 6 condition variables. */ void initConsts(double* CONSTANTS, double* RATES, double *STATES) { STATES[0] = 0.00072162; STATES[1] = 1e-18; STATES[2] = 0; STATES[3] = 1e-2; STATES[4] = 0.00836; STATES[5] = 1e-18; STATES[6] = 1e-18; STATES[7] = 1e-18; STATES[8] = 1e-18; STATES[9] = 1e-18; STATES[10] = 1e-18; STATES[11] = 2.2; STATES[12] = 1.1; STATES[13] = 570; STATES[14] = 1e-18; STATES[15] = 1e-18; STATES[16] = 1e-18; STATES[17] = 1e-18; STATES[18] = 1e-18; CONSTANTS[0] = 2e1; CONSTANTS[1] = 2e1; CONSTANTS[2] = 1e1; CONSTANTS[3] = 1e2; CONSTANTS[4] = 1e-8; CONSTANTS[5] = 3.25763; CONSTANTS[6] = 0.00165864; CONSTANTS[7] = 14461.5; CONSTANTS[8] = 736.312; CONSTANTS[9] = 5769.58; CONSTANTS[10] = 0.0114404; CONSTANTS[11] = 0.381268; CONSTANTS[12] = 0.585749; CONSTANTS[13] = 0.0140382; CONSTANTS[14] = 0.0665538; CONSTANTS[15] = 2.218; CONSTANTS[16] = 0.892359; CONSTANTS[17] = 1752.63; CONSTANTS[18] = 0.0519039; CONSTANTS[19] = 0.00892359; CONSTANTS[20] = 0.0207076; CONSTANTS[21] = 0.1907; CONSTANTS[22] = 0.175263; CONSTANTS[23] = 0.286109; CONSTANTS[24] = 0.0397027; CONSTANTS[25] = 0.412109; CONSTANTS[26] = 0.176744; CONSTANTS[27] = 0.019367; CONSTANTS[28] = 0.000190324; CONSTANTS[29] = 8.16257e-05; CONSTANTS[30] = 0.200446; CONSTANTS[31] = 0.00601463; CONSTANTS[32] = 0.00436786; CONSTANTS[33] = 0.000131063; CONSTANTS[34] = 6.3345; CONSTANTS[35] = 8.31; CONSTANTS[36] = 310; CONSTANTS[37] = 96485; CONSTANTS[38] = CONSTANTS[3]/CONSTANTS[2]; RATES[0] = 0.1001; RATES[1] = 0.1001; RATES[2] = 0.1001; RATES[3] = 0.1001; RATES[4] = 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; } void computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES, double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS) { resid[0] = RATES[0] - - ALGEBRAIC[24] - ALGEBRAIC[28]; resid[1] = RATES[1] - - ALGEBRAIC[25]; resid[2] = RATES[2] - - ALGEBRAIC[28]; resid[3] = RATES[3] - (- ALGEBRAIC[26] - ALGEBRAIC[28])+ 1.00000*ALGEBRAIC[36]+ALGEBRAIC[24]; resid[4] = RATES[4] - (- ALGEBRAIC[26] - ALGEBRAIC[27])+ALGEBRAIC[32]; resid[5] = RATES[5] - ALGEBRAIC[26] - ALGEBRAIC[29]; resid[6] = RATES[6] - - ALGEBRAIC[27]+ALGEBRAIC[28]+ALGEBRAIC[25]; resid[7] = RATES[7] - ALGEBRAIC[27] - ALGEBRAIC[30]; resid[8] = RATES[8] - (ALGEBRAIC[29]+ALGEBRAIC[30]) - ALGEBRAIC[31]; resid[9] = RATES[9] - (ALGEBRAIC[29]+ALGEBRAIC[30]) - ALGEBRAIC[32]; resid[10] = RATES[10] - ALGEBRAIC[31] - ALGEBRAIC[32]; resid[11] = RATES[11] - - ALGEBRAIC[29] - ALGEBRAIC[30]; resid[12] = RATES[12] - ALGEBRAIC[29]+ALGEBRAIC[30]; resid[13] = RATES[13] - ALGEBRAIC[31]; resid[14] = RATES[14] - ALGEBRAIC[29] - ALGEBRAIC[33]; resid[15] = RATES[15] - ALGEBRAIC[30] - ALGEBRAIC[34]; resid[16] = RATES[16] - ALGEBRAIC[33]; resid[17] = RATES[17] - ALGEBRAIC[34]; resid[18] = RATES[18] - - ALGEBRAIC[33] - ALGEBRAIC[34]; } void computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { ALGEBRAIC[1] = STATES[3]+STATES[5]+STATES[6]+STATES[7]+STATES[14]+STATES[15]+STATES[16]+STATES[17]+STATES[0]+STATES[1]; ALGEBRAIC[2] = STATES[3]+STATES[5]+STATES[6]+STATES[7]+STATES[0]+STATES[1]; ALGEBRAIC[3] = STATES[4]+STATES[5]+STATES[7]+STATES[8]+STATES[10]; ALGEBRAIC[35] = ALGEBRAIC[4]+STATES[6]+STATES[7]+STATES[15]+STATES[17]+STATES[1]; } void computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { ALGEBRAIC[5] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[16]*STATES[0]); ALGEBRAIC[8] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[19]*STATES[3]); ALGEBRAIC[24] = CONSTANTS[5]*(exp(ALGEBRAIC[5]/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[8]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[6] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[17]*STATES[1]); ALGEBRAIC[11] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[22]*STATES[6]); ALGEBRAIC[25] = CONSTANTS[6]*(exp(ALGEBRAIC[6]/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[11]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[9] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[20]*STATES[4]); ALGEBRAIC[10] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[21]*STATES[5]); ALGEBRAIC[26] = CONSTANTS[7]*(exp((ALGEBRAIC[8]+ALGEBRAIC[9])/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[10]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[12] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[23]*STATES[7]); ALGEBRAIC[27] = CONSTANTS[8]*(exp((ALGEBRAIC[11]+ALGEBRAIC[9])/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[12]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[0] = (CONDVAR[0]<0.00000&&CONDVAR[1]>0.00000 ? CONSTANTS[4]+ CONSTANTS[38]*((VOI - CONSTANTS[0])+CONSTANTS[2]) : CONDVAR[2]>=0.00000&&CONDVAR[3]<0.00000 ? CONSTANTS[3]+CONSTANTS[4] : CONDVAR[4]<0.00000&&CONDVAR[5]>=0.00000 ? CONSTANTS[4]+ - CONSTANTS[38]*(((VOI - CONSTANTS[0]) - CONSTANTS[2]) - CONSTANTS[1]) : CONSTANTS[4]); ALGEBRAIC[4] = ALGEBRAIC[0]+STATES[2]; ALGEBRAIC[7] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[18]*ALGEBRAIC[4]); ALGEBRAIC[28] = CONSTANTS[9]*(exp((ALGEBRAIC[8]+ALGEBRAIC[7])/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[11]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[13] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[24]*STATES[8]); ALGEBRAIC[14] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[25]*STATES[9]); ALGEBRAIC[16] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[27]*STATES[11]); ALGEBRAIC[17] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[28]*STATES[12]); ALGEBRAIC[19] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[30]*STATES[14]); ALGEBRAIC[29] = CONSTANTS[10]*(exp((ALGEBRAIC[10]+ALGEBRAIC[16])/( CONSTANTS[35]*CONSTANTS[36])) - exp((ALGEBRAIC[13]+ALGEBRAIC[14]+ALGEBRAIC[19]+ALGEBRAIC[17])/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[20] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[31]*STATES[15]); ALGEBRAIC[30] = CONSTANTS[11]*(exp((ALGEBRAIC[12]+ALGEBRAIC[16])/( CONSTANTS[35]*CONSTANTS[36])) - exp((ALGEBRAIC[13]+ALGEBRAIC[14]+ALGEBRAIC[20]+ALGEBRAIC[17])/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[15] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[26]*STATES[10]); ALGEBRAIC[18] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[29]*STATES[13]); ALGEBRAIC[31] = CONSTANTS[12]*(exp(ALGEBRAIC[13]/( CONSTANTS[35]*CONSTANTS[36])) - exp((ALGEBRAIC[15]+ALGEBRAIC[18])/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[32] = CONSTANTS[13]*(exp((ALGEBRAIC[15]+ALGEBRAIC[14])/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[9]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[21] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[32]*STATES[16]); ALGEBRAIC[23] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[34]*STATES[18]); ALGEBRAIC[33] = CONSTANTS[14]*(exp((ALGEBRAIC[19]+ALGEBRAIC[23])/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[21]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[22] = CONSTANTS[35]*CONSTANTS[36]*log( CONSTANTS[33]*STATES[17]); ALGEBRAIC[34] = CONSTANTS[15]*(exp((ALGEBRAIC[20]+ALGEBRAIC[23])/( CONSTANTS[35]*CONSTANTS[36])) - exp(ALGEBRAIC[22]/( CONSTANTS[35]*CONSTANTS[36]))); ALGEBRAIC[36] = (ALGEBRAIC[26])+ALGEBRAIC[28]; } 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; } void computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES, double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS) { CONDVAR[0] = VOI - CONSTANTS[0]; CONDVAR[1] = VOI - (CONSTANTS[0] - CONSTANTS[2]); CONDVAR[2] = VOI - CONSTANTS[0]; CONDVAR[3] = VOI - (CONSTANTS[0]+CONSTANTS[1]); CONDVAR[4] = VOI - (CONSTANTS[0]+CONSTANTS[2]+CONSTANTS[1]); CONDVAR[5] = VOI - (CONSTANTS[0]+CONSTANTS[1]); }