/* There are a total of 36 entries in the algebraic variable array. There are a total of 14 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). * CONSTANTS[0] is q_cAMP_init in component environment (fmol). * CONSTANTS[1] is q_PKI_init in component environment (fmol). * CONSTANTS[2] is q_PKACI_init in component environment (fmol). * CONSTANTS[3] is q_ARCI_init in component environment (fmol). * CONSTANTS[4] is q_A2RCI_init in component environment (fmol). * CONSTANTS[5] is q_CI_init in component environment (fmol). * CONSTANTS[6] is q_A2RI_init in component environment (fmol). * CONSTANTS[7] is q_PKACI_PKI_init in component environment (fmol). * CONSTANTS[8] is q_PKACII_init in component environment (fmol). * CONSTANTS[9] is q_ARCII_init in component environment (fmol). * CONSTANTS[10] is q_A2RCII_init in component environment (fmol). * CONSTANTS[11] is q_CII_init in component environment (fmol). * CONSTANTS[12] is q_A2RII_init in component environment (fmol). * CONSTANTS[13] is q_PKACII_PKI_init in component environment (fmol). * ALGEBRAIC[0] is q_cAMP in component environment (fmol). * ALGEBRAIC[1] is q_PKI in component environment (fmol). * ALGEBRAIC[2] is q_PKACI in component environment (fmol). * ALGEBRAIC[3] is q_ARCI in component environment (fmol). * ALGEBRAIC[4] is q_A2RCI in component environment (fmol). * ALGEBRAIC[5] is q_CI in component environment (fmol). * ALGEBRAIC[6] is q_A2RI in component environment (fmol). * ALGEBRAIC[7] is q_PKACI_PKI in component environment (fmol). * ALGEBRAIC[8] is q_PKACII in component environment (fmol). * ALGEBRAIC[9] is q_ARCII in component environment (fmol). * ALGEBRAIC[10] is q_A2RCII in component environment (fmol). * ALGEBRAIC[11] is q_CII in component environment (fmol). * ALGEBRAIC[12] is q_A2RII in component environment (fmol). * ALGEBRAIC[13] is q_PKACII_PKI in component environment (fmol). * STATES[0] is q_cAMP in component PKA (fmol). * STATES[1] is q_PKI in component PKA (fmol). * STATES[2] is q_PKACI in component PKA (fmol). * STATES[3] is q_ARCI in component PKA (fmol). * STATES[4] is q_A2RCI in component PKA (fmol). * STATES[5] is q_CI in component PKA (fmol). * STATES[6] is q_A2RI in component PKA (fmol). * STATES[7] is q_PKACI_PKI in component PKA (fmol). * STATES[8] is q_PKACII in component PKA (fmol). * STATES[9] is q_ARCII in component PKA (fmol). * STATES[10] is q_A2RCII in component PKA (fmol). * STATES[11] is q_CII in component PKA (fmol). * STATES[12] is q_A2RII in component PKA (fmol). * STATES[13] is q_PKACII_PKI in component PKA (fmol). * CONSTANTS[14] is kappa_aI in component PKA_parameters (fmol_per_sec). * CONSTANTS[15] is kappa_bI in component PKA_parameters (fmol_per_sec). * CONSTANTS[16] is kappa_dI in component PKA_parameters (fmol_per_sec). * CONSTANTS[17] is kappa_iI in component PKA_parameters (fmol_per_sec). * CONSTANTS[18] is kappa_aII in component PKA_parameters (fmol_per_sec). * CONSTANTS[19] is kappa_bII in component PKA_parameters (fmol_per_sec). * CONSTANTS[20] is kappa_dII in component PKA_parameters (fmol_per_sec). * CONSTANTS[21] is kappa_iII in component PKA_parameters (fmol_per_sec). * CONSTANTS[22] is K_cAMP in component PKA_parameters (per_fmol). * CONSTANTS[23] is K_PKI in component PKA_parameters (per_fmol). * CONSTANTS[24] is K_PKACI in component PKA_parameters (per_fmol). * CONSTANTS[25] is K_ARCI in component PKA_parameters (per_fmol). * CONSTANTS[26] is K_A2RCI in component PKA_parameters (per_fmol). * CONSTANTS[27] is K_CI in component PKA_parameters (per_fmol). * CONSTANTS[28] is K_A2RI in component PKA_parameters (per_fmol). * CONSTANTS[29] is K_PKACI_PKI in component PKA_parameters (per_fmol). * CONSTANTS[30] is K_PKACII in component PKA_parameters (per_fmol). * CONSTANTS[31] is K_ARCII in component PKA_parameters (per_fmol). * CONSTANTS[32] is K_A2RCII in component PKA_parameters (per_fmol). * CONSTANTS[33] is K_CII in component PKA_parameters (per_fmol). * CONSTANTS[34] is K_A2RII in component PKA_parameters (per_fmol). * CONSTANTS[35] is K_PKACII_PKI in component PKA_parameters (per_fmol). * CONSTANTS[36] is R in component constants (J_per_K_per_mol). * CONSTANTS[37] is T in component constants (kelvin). * ALGEBRAIC[28] is vaI in component PKA (fmol_per_sec). * ALGEBRAIC[29] is vbI in component PKA (fmol_per_sec). * ALGEBRAIC[30] is vdI in component PKA (fmol_per_sec). * ALGEBRAIC[31] is viI in component PKA (fmol_per_sec). * ALGEBRAIC[32] is vaII in component PKA (fmol_per_sec). * ALGEBRAIC[33] is vbII in component PKA (fmol_per_sec). * ALGEBRAIC[34] is vdII in component PKA (fmol_per_sec). * ALGEBRAIC[35] is viII in component PKA (fmol_per_sec). * ALGEBRAIC[14] is mu_cAMP in component PKA (J_per_mol). * ALGEBRAIC[15] is mu_PKI in component PKA (J_per_mol). * ALGEBRAIC[16] is mu_PKACI in component PKA (J_per_mol). * ALGEBRAIC[17] is mu_ARCI in component PKA (J_per_mol). * ALGEBRAIC[18] is mu_A2RCI in component PKA (J_per_mol). * ALGEBRAIC[19] is mu_CI in component PKA (J_per_mol). * ALGEBRAIC[20] is mu_A2RI in component PKA (J_per_mol). * ALGEBRAIC[21] is mu_PKACI_PKI in component PKA (J_per_mol). * ALGEBRAIC[22] is mu_PKACII in component PKA (J_per_mol). * ALGEBRAIC[23] is mu_ARCII in component PKA (J_per_mol). * ALGEBRAIC[24] is mu_A2RCII in component PKA (J_per_mol). * ALGEBRAIC[25] is mu_CII in component PKA (J_per_mol). * ALGEBRAIC[26] is mu_A2RII in component PKA (J_per_mol). * ALGEBRAIC[27] is mu_PKACII_PKI in component PKA (J_per_mol). * CONSTANTS[38] is F in component constants (C_per_mol). * RATES[0] is d/dt q_cAMP in component PKA (fmol). * RATES[1] is d/dt q_PKI in component PKA (fmol). * RATES[2] is d/dt q_PKACI in component PKA (fmol). * RATES[3] is d/dt q_ARCI in component PKA (fmol). * RATES[4] is d/dt q_A2RCI in component PKA (fmol). * RATES[5] is d/dt q_CI in component PKA (fmol). * RATES[6] is d/dt q_A2RI in component PKA (fmol). * RATES[7] is d/dt q_PKACI_PKI in component PKA (fmol). * RATES[8] is d/dt q_PKACII in component PKA (fmol). * RATES[9] is d/dt q_ARCII in component PKA (fmol). * RATES[10] is d/dt q_A2RCII in component PKA (fmol). * RATES[11] is d/dt q_CII in component PKA (fmol). * RATES[12] is d/dt q_A2RII in component PKA (fmol). * RATES[13] is d/dt q_PKACII_PKI in component PKA (fmol). * There are a total of 0 condition variables. */ void initConsts(double* CONSTANTS, double* RATES, double *STATES) { CONSTANTS[0] = 3.212E-02; CONSTANTS[1] = 6.840E-03; CONSTANTS[2] = 2.242E-02; CONSTANTS[3] = 3.800E-15; CONSTANTS[4] = 3.800E-15; CONSTANTS[5] = 3.800E-15; CONSTANTS[6] = 3.800E-15; CONSTANTS[7] = 3.800E-15; CONSTANTS[8] = 9.500E-04; CONSTANTS[9] = 3.800E-15; CONSTANTS[10] = 3.800E-15; CONSTANTS[11] = 3.800E-15; CONSTANTS[12] = 3.800E-15; CONSTANTS[13] = 3.800E-15; STATES[0] = 1e-16; STATES[1] = 1e-16; STATES[2] = 1e-16; STATES[3] = 1e-16; STATES[4] = 1e-16; STATES[5] = 1e-16; STATES[6] = 1e-16; STATES[7] = 1e-16; STATES[8] = 1e-16; STATES[9] = 1e-16; STATES[10] = 1e-16; STATES[11] = 1e-16; STATES[12] = 1e-16; STATES[13] = 1e-16; CONSTANTS[14] = 48.0417; CONSTANTS[15] = 21.1895; CONSTANTS[16] = 4.84331; CONSTANTS[17] = 149.139; CONSTANTS[18] = 48.0417; CONSTANTS[19] = 21.1895; CONSTANTS[20] = 4.84331; CONSTANTS[21] = 149.139; CONSTANTS[22] = 0.0401879; CONSTANTS[23] = 14.3814; CONSTANTS[24] = 0.0478876; CONSTANTS[25] = 0.605095; CONSTANTS[26] = 1.3719; CONSTANTS[27] = 1.96997; CONSTANTS[28] = 0.0885687; CONSTANTS[29] = 0.194918; CONSTANTS[30] = 0.0478876; CONSTANTS[31] = 0.605095; CONSTANTS[32] = 1.3719; CONSTANTS[33] = 1.96997; CONSTANTS[34] = 0.0885687; CONSTANTS[35] = 0.194918; CONSTANTS[36] = 8.31; CONSTANTS[37] = 310; CONSTANTS[38] = 96485; 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; } void computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES, double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS) { resid[0] = RATES[0] - ((- ALGEBRAIC[28] - ALGEBRAIC[29]) - ALGEBRAIC[32]) - ALGEBRAIC[33]; resid[1] = RATES[1] - - ALGEBRAIC[31] - ALGEBRAIC[35]; resid[2] = RATES[2] - - ALGEBRAIC[28]; resid[3] = RATES[3] - ALGEBRAIC[28] - ALGEBRAIC[29]; resid[4] = RATES[4] - ALGEBRAIC[29] - ALGEBRAIC[30]; resid[5] = RATES[5] - ALGEBRAIC[30] - ALGEBRAIC[31]; resid[6] = RATES[6] - ALGEBRAIC[30]; resid[7] = RATES[7] - ALGEBRAIC[31]; resid[8] = RATES[8] - - ALGEBRAIC[32]; resid[9] = RATES[9] - ALGEBRAIC[32] - ALGEBRAIC[33]; resid[10] = RATES[10] - ALGEBRAIC[33] - ALGEBRAIC[34]; resid[11] = RATES[11] - ALGEBRAIC[34] - ALGEBRAIC[35]; resid[12] = RATES[12] - ALGEBRAIC[34]; resid[13] = RATES[13] - ALGEBRAIC[35]; } 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[0] = STATES[0]+CONSTANTS[0]; ALGEBRAIC[14] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[22]*ALGEBRAIC[0]); ALGEBRAIC[2] = STATES[2]+CONSTANTS[2]; ALGEBRAIC[16] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[24]*ALGEBRAIC[2]); ALGEBRAIC[3] = STATES[3]+CONSTANTS[3]; ALGEBRAIC[17] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[25]*ALGEBRAIC[3]); ALGEBRAIC[28] = CONSTANTS[14]*(exp((ALGEBRAIC[16]+ALGEBRAIC[14])/( CONSTANTS[36]*CONSTANTS[37])) - exp(ALGEBRAIC[17]/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[4] = STATES[4]+CONSTANTS[4]; ALGEBRAIC[18] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[26]*ALGEBRAIC[4]); ALGEBRAIC[29] = CONSTANTS[15]*(exp((ALGEBRAIC[17]+ALGEBRAIC[14])/( CONSTANTS[36]*CONSTANTS[37])) - exp(ALGEBRAIC[18]/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[5] = STATES[5]+CONSTANTS[5]; ALGEBRAIC[19] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[27]*ALGEBRAIC[5]); ALGEBRAIC[6] = STATES[6]+CONSTANTS[6]; ALGEBRAIC[20] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[28]*ALGEBRAIC[6]); ALGEBRAIC[30] = CONSTANTS[16]*(exp(ALGEBRAIC[18]/( CONSTANTS[36]*CONSTANTS[37])) - exp((ALGEBRAIC[20]+ALGEBRAIC[19])/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[1] = STATES[1]+CONSTANTS[1]; ALGEBRAIC[15] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[23]*ALGEBRAIC[1]); ALGEBRAIC[7] = STATES[7]+CONSTANTS[7]; ALGEBRAIC[21] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[29]*ALGEBRAIC[7]); ALGEBRAIC[31] = CONSTANTS[17]*(exp((ALGEBRAIC[19]+ALGEBRAIC[15])/( CONSTANTS[36]*CONSTANTS[37])) - exp(ALGEBRAIC[21]/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[8] = STATES[8]+CONSTANTS[8]; ALGEBRAIC[22] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[30]*ALGEBRAIC[8]); ALGEBRAIC[9] = STATES[9]+CONSTANTS[9]; ALGEBRAIC[23] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[31]*ALGEBRAIC[9]); ALGEBRAIC[32] = CONSTANTS[18]*(exp((ALGEBRAIC[22]+ALGEBRAIC[14])/( CONSTANTS[36]*CONSTANTS[37])) - exp(ALGEBRAIC[23]/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[10] = STATES[10]+CONSTANTS[10]; ALGEBRAIC[24] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[32]*ALGEBRAIC[10]); ALGEBRAIC[33] = CONSTANTS[19]*(exp((ALGEBRAIC[23]+ALGEBRAIC[14])/( CONSTANTS[36]*CONSTANTS[37])) - exp(ALGEBRAIC[24]/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[11] = STATES[11]+CONSTANTS[11]; ALGEBRAIC[25] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[33]*ALGEBRAIC[11]); ALGEBRAIC[12] = STATES[12]+CONSTANTS[12]; ALGEBRAIC[26] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[34]*ALGEBRAIC[12]); ALGEBRAIC[34] = CONSTANTS[20]*(exp(ALGEBRAIC[24]/( CONSTANTS[36]*CONSTANTS[37])) - exp((ALGEBRAIC[26]+ALGEBRAIC[25])/( CONSTANTS[36]*CONSTANTS[37]))); ALGEBRAIC[13] = STATES[13]+CONSTANTS[13]; ALGEBRAIC[27] = CONSTANTS[36]*CONSTANTS[37]*log( CONSTANTS[35]*ALGEBRAIC[13]); ALGEBRAIC[35] = CONSTANTS[21]*(exp((ALGEBRAIC[25]+ALGEBRAIC[15])/( CONSTANTS[36]*CONSTANTS[37])) - exp(ALGEBRAIC[27]/( CONSTANTS[36]*CONSTANTS[37]))); } 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; } void computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES, double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS) { }