/* There are a total of 1 entries in the algebraic variable array. There are a total of 6 entries in each of the rate and state variable arrays. There are a total of 8 entries in the constant variable array. */ /* * VOI is time in component environment (minute). * ALGEBRAIC[0] is l in component l (dimensionless). * STATES[0] is l_RI_RII in component l_RI_RII (dimensionless). * STATES[1] is RI in component RI (dimensionless). * STATES[2] is RII in component RII (dimensionless). * CONSTANTS[0] is ka in component model_parameters (per_minute). * CONSTANTS[1] is ki in component model_parameters (per_minute). * CONSTANTS[2] is kcd in component model_parameters (per_minute). * CONSTANTS[3] is klid in component model_parameters (per_minute). * STATES[3] is RI_endo in component RI_endo (dimensionless). * STATES[4] is l_RI_RII_endo in component l_RI_RII_endo (dimensionless). * CONSTANTS[4] is kr in component model_parameters (per_minute). * CONSTANTS[5] is p_RI in component model_parameters (per_minute). * CONSTANTS[6] is alpha in component model_parameters (dimensionless). * STATES[5] is RII_endo in component RII_endo (dimensionless). * CONSTANTS[7] is p_RII in component model_parameters (per_minute). * RATES[0] is d/dt l_RI_RII in component l_RI_RII (dimensionless). * RATES[1] is d/dt RI in component RI (dimensionless). * RATES[2] is d/dt RII in component RII (dimensionless). * RATES[4] is d/dt l_RI_RII_endo in component l_RI_RII_endo (dimensionless). * RATES[3] is d/dt RI_endo in component RI_endo (dimensionless). * RATES[5] is d/dt RII_endo in component RII_endo (dimensionless). */ void initConsts(double* CONSTANTS, double* RATES, double *STATES) { STATES[0] = 0.0; STATES[1] = 20.0; STATES[2] = 20.0; CONSTANTS[0] = 1; CONSTANTS[1] = 0.333333333; CONSTANTS[2] = 0.0277777778; CONSTANTS[3] = 0.25; STATES[3] = 0.0; STATES[4] = 40.0; CONSTANTS[4] = 0.033333333; CONSTANTS[5] = 8; CONSTANTS[6] = 1; STATES[5] = 0.0; CONSTANTS[7] = 4; } void computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { RATES[4] = CONSTANTS[1]*STATES[0] - CONSTANTS[4]*STATES[4]; RATES[3] = CONSTANTS[1]*STATES[1] - CONSTANTS[4]*STATES[3]; RATES[5] = CONSTANTS[1]*STATES[2] - CONSTANTS[4]*STATES[5]; ALGEBRAIC[0] = (VOI>=2500.00 ? 0.0100000 : 3.00000e-05); RATES[0] = CONSTANTS[0]*ALGEBRAIC[0]*STATES[1]*STATES[2] - (CONSTANTS[2]+CONSTANTS[3]+CONSTANTS[1])*STATES[0]; RATES[1] = (CONSTANTS[5]+ CONSTANTS[4]*STATES[3]+ CONSTANTS[6]*CONSTANTS[4]*STATES[4]) - ( CONSTANTS[0]*ALGEBRAIC[0]*STATES[1]*STATES[2]+ (CONSTANTS[2]+CONSTANTS[1])*STATES[1]); RATES[2] = (CONSTANTS[7]+ CONSTANTS[4]*STATES[5]+ CONSTANTS[6]*CONSTANTS[4]*STATES[4]) - ( CONSTANTS[0]*ALGEBRAIC[0]*STATES[1]*STATES[2]+ (CONSTANTS[2]+CONSTANTS[1])*STATES[2]); } void computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC) { ALGEBRAIC[0] = (VOI>=2500.00 ? 0.0100000 : 3.00000e-05); }