Generated Code

/*
   There are a total of 13 entries in the algebraic variable array.
   There are a total of 2 entries in each of the rate and state variable arrays.
   There are a total of 30 entries in the constant variable array.
 */
/*
 * VOI is time in component environment (millisecond).
 * ALGEBRAIC[10] is P_CE in component equations (dimensionless).
 * ALGEBRAIC[7] is P_PE in component equations (dimensionless).
 * ALGEBRAIC[8] is P_SE in component equations (dimensionless).
 * ALGEBRAIC[0] is Ca in component equations (dimensionless).
 * ALGEBRAIC[12] is C_2 in component equations (per_millisec).
 * ALGEBRAIC[1] is phi_A_1 in component equations (dimensionless).
 * ALGEBRAIC[11] is pi_n in component equations (dimensionless).
 * ALGEBRAIC[5] is A in component equations (dimensionless).
 * STATES[0] is A_1 in component equations (dimensionless).
 * ALGEBRAIC[4] is S in component equations (um).
 * ALGEBRAIC[9] is n in component equations (dimensionless).
 * ALGEBRAIC[6] is n_1 in component equations (dimensionless).
 * STATES[1] is n_2 in component equations (dimensionless).
 * CONSTANTS[27] is G_V in component equations (dimensionless).
 * CONSTANTS[26] is q_V in component equations (per_millisec).
 * CONSTANTS[25] is V in component equations (um_per_millisec).
 * CONSTANTS[28] is F_V in component equations (dimensionless).
 * CONSTANTS[29] is p_V in component equations (dimensionless).
 * CONSTANTS[0] is alpha_1 in component equations (per_um).
 * CONSTANTS[1] is alpha_2 in component equations (per_um).
 * CONSTANTS[2] is beta_1 in component equations (dimensionless).
 * CONSTANTS[3] is beta_2 in component equations (dimensionless).
 * CONSTANTS[4] is lambda in component equations (per_um).
 * CONSTANTS[5] is V_max in component equations (um_per_millisec).
 * CONSTANTS[6] is Ca_m in component equations (dimensionless).
 * CONSTANTS[7] is t_d in component equations (millisecond).
 * CONSTANTS[8] is a_c in component equations (per_millisec2).
 * CONSTANTS[9] is b_c in component equations (per_millisec2).
 * CONSTANTS[10] is C_1 in component equations (per_millisec).
 * CONSTANTS[11] is C_20 in component equations (per_millisec).
 * CONSTANTS[12] is q_k in component equations (dimensionless).
 * CONSTANTS[24] is V_1 in component equations (um_per_millisec).
 * CONSTANTS[13] is a in component equations (dimensionless).
 * CONSTANTS[14] is m_0 in component equations (dimensionless).
 * CONSTANTS[15] is g_1 in component equations (per_um).
 * CONSTANTS[16] is g_2 in component equations (dimensionless).
 * CONSTANTS[17] is pi_min in component equations (dimensionless).
 * CONSTANTS[18] is S_0 in component equations (um).
 * CONSTANTS[19] is q_1 in component equations (per_millisec).
 * CONSTANTS[20] is q_2 in component equations (per_millisec).
 * CONSTANTS[21] is q_3 in component equations (per_millisec).
 * CONSTANTS[22] is TnC in component equations (dimensionless).
 * ALGEBRAIC[2] is l_1 in component user_defined (um).
 * ALGEBRAIC[3] is l_2 in component user_defined (um).
 * CONSTANTS[23] is dl_1_dt in component user_defined (um_per_millisec).
 * RATES[0] is d/dt A_1 in component equations (dimensionless).
 * RATES[1] is d/dt n_2 in component equations (dimensionless).
 * There are a total of 10 condition variables.
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
STATES[0] = 0;
STATES[1] = 0;
CONSTANTS[0] = 14.6;
CONSTANTS[1] = 14.6;
CONSTANTS[2] = 1;
CONSTANTS[3] = 0.0012;
CONSTANTS[4] = 30;
CONSTANTS[5] = 0.0043;
CONSTANTS[6] = 45e-3;
CONSTANTS[7] = 170;
CONSTANTS[8] = 2.4e-4;
CONSTANTS[9] = 5e-4;
CONSTANTS[10] = 2.9e-2;
CONSTANTS[11] = 0.2;
CONSTANTS[12] = 4;
CONSTANTS[13] = 0.25;
CONSTANTS[14] = 0.87;
CONSTANTS[15] = 0.4;
CONSTANTS[16] = 0.6;
CONSTANTS[17] = 5e-2;
CONSTANTS[18] = 0.77;
CONSTANTS[19] = 0.017;
CONSTANTS[20] = 0.26;
CONSTANTS[21] = 0.03;
CONSTANTS[22] = 1;
CONSTANTS[23] = 0.00000;
CONSTANTS[24] =  0.100000*CONSTANTS[5];
CONSTANTS[25] = - CONSTANTS[23];
CONSTANTS[26] = (CONSTANTS[25]<=0.00000 ? CONSTANTS[19] - ( CONSTANTS[20]*CONSTANTS[25])/CONSTANTS[5] : CONSTANTS[21]);
CONSTANTS[27] = 1.00000+( 0.600000*CONSTANTS[25])/CONSTANTS[5];
CONSTANTS[28] = ( CONSTANTS[13]*(1.00000+CONSTANTS[25]/CONSTANTS[5]))/(CONSTANTS[13] - CONSTANTS[25]/CONSTANTS[5]);
CONSTANTS[29] = CONSTANTS[28]/CONSTANTS[27];
RATES[0] = 0.1001;
RATES[1] = 0.1001;
}
void
computeResiduals(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
                 double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
resid[0] = RATES[0] -  CONSTANTS[10]*ALGEBRAIC[0]*(CONSTANTS[22] - STATES[0]) -  CONSTANTS[11]*ALGEBRAIC[11]*ALGEBRAIC[1]*STATES[0];
resid[1] = RATES[1] -  CONSTANTS[26]*( CONSTANTS[14]*CONSTANTS[27] - STATES[1]);
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[3] = ALGEBRAIC[2]+1.87000;
ALGEBRAIC[4] =  0.500000*ALGEBRAIC[2]+CONSTANTS[18];
ALGEBRAIC[5] = ( STATES[0]*ALGEBRAIC[4])/1.00000;
ALGEBRAIC[7] =  CONSTANTS[3]*(exp( CONSTANTS[1]*ALGEBRAIC[3]) - 1.00000);
ALGEBRAIC[8] =  CONSTANTS[2]*(exp( CONSTANTS[0]*(ALGEBRAIC[3] - ALGEBRAIC[2])) - 1.00000);
ALGEBRAIC[10] =  CONSTANTS[4]*ALGEBRAIC[4]*STATES[0]*ALGEBRAIC[9]*CONSTANTS[29];
ALGEBRAIC[12] =  CONSTANTS[11]*ALGEBRAIC[11]*ALGEBRAIC[1];
}
void
computeEssentialVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = (CONDVAR[0]<=0.00000 ?  CONSTANTS[6]*pow(1.00000 - exp( - CONSTANTS[8]*pow(VOI, 2.00000)), 2.00000) :  CONSTANTS[6]*pow( (1.00000 - exp( - CONSTANTS[8]*pow(VOI, 2.00000)))*exp( - CONSTANTS[9]*pow(VOI - CONSTANTS[7], 2.00000)), 2.00000));
ALGEBRAIC[1] = exp( - CONSTANTS[12]*STATES[0]);
ALGEBRAIC[2] = (CONDVAR[8]<=0.00000&&CONDVAR[9]<=0.00000 ? 0.00000 : 0.00000);
ALGEBRAIC[6] = (CONDVAR[5]<0.00000 ? 0.00000 : CONDVAR[6]<=0.00000&&CONDVAR[7]<=0.00000 ?  CONSTANTS[15]*ALGEBRAIC[2]+CONSTANTS[16] : 1.00000);
ALGEBRAIC[9] =  ALGEBRAIC[6]*STATES[1];
ALGEBRAIC[11] = (CONDVAR[1]<=0.00000&&CONDVAR[2]<=0.00000 ? CONSTANTS[17] : CONDVAR[3]<=0.00000&&CONDVAR[4]<0.00000 ? pow(CONSTANTS[17],  2.00000*ALGEBRAIC[9] - 0.500000) : 1.00000);
}
void
getStateInformation(double* SI)
{
SI[0] = 1.0;
SI[1] = 1.0;
}
void
computeRoots(double VOI, double* CONSTANTS, double* RATES, double* OLDRATES, double* STATES,
             double* OLDSTATES, double* ALGEBRAIC, double* CONDVARS)
{
CONDVAR[0] = VOI - CONSTANTS[7];
CONDVAR[1] = 0.750000 - ALGEBRAIC[9];
CONDVAR[2] = ALGEBRAIC[9] - 1.00000;
CONDVAR[3] = 0.250000 - ALGEBRAIC[9];
CONDVAR[4] = ALGEBRAIC[9] - 0.750000;
CONDVAR[5] = ( CONSTANTS[15]*ALGEBRAIC[2]+CONSTANTS[16]) - 0.00000;
CONDVAR[6] = 0.00000 - ( CONSTANTS[15]*ALGEBRAIC[2]+CONSTANTS[16]);
CONDVAR[7] = ( CONSTANTS[15]*ALGEBRAIC[2]+CONSTANTS[16]) - 1.00000;
CONDVAR[8] = 200.000 - VOI;
CONDVAR[9] = VOI - 201.000;
}