Generated Code

The following is c code generated by the CellML API from this CellML file. (Back to language selection)

The raw code is available.

/*
   There are a total of 13 entries in the algebraic variable array.
   There are a total of 3 entries in each of the rate and state variable arrays.
   There are a total of 20 entries in the constant variable array.
 */
/*
 * VOI is t in component environment (second).
 * ALGEBRAIC[9] is Pi in component TempCDa (UnitP).
 * STATES[0] is Pi in component TempRC (UnitP).
 * ALGEBRAIC[12] is Qo in component TempRC (UnitQ).
 * ALGEBRAIC[5] is Qo in component TempCDv (UnitQ).
 * ALGEBRAIC[3] is Pi in component TempCDv (UnitP).
 * ALGEBRAIC[11] is Qo in component TempCDa (UnitQ).
 * CONSTANTS[0] is CVao in component ParaLeftHeart (UnitCV).
 * ALGEBRAIC[2] is E in component EVentricle (UnitE).
 * STATES[1] is V in component TempCDv (UnitV).
 * CONSTANTS[1] is PlvIni in component ParaLeftHeart (UnitP).
 * CONSTANTS[2] is VlvIni in component ParaLeftHeart (UnitV).
 * ALGEBRAIC[4] is Tao in component TempCDv (dimensionless).
 * CONSTANTS[3] is Vlv0 in component ParaLeftHeart (UnitV).
 * CONSTANTS[4] is CVmi in component ParaLeftHeart (UnitCV).
 * ALGEBRAIC[8] is E in component EAtrium (UnitE).
 * STATES[2] is V in component TempCDa (UnitV).
 * CONSTANTS[5] is PlaIni in component ParaLeftHeart (UnitP).
 * CONSTANTS[6] is VlaIni in component ParaLeftHeart (UnitV).
 * ALGEBRAIC[10] is Tao in component TempCDa (dimensionless).
 * CONSTANTS[7] is Vla0 in component ParaLeftHeart (UnitV).
 * CONSTANTS[8] is ElvMax in component ParaLeftHeart (UnitE).
 * CONSTANTS[9] is ElvMin in component ParaLeftHeart (UnitE).
 * CONSTANTS[10] is T in component ParaLeftHeart (second).
 * CONSTANTS[11] is Ts1 in component ParaLeftHeart (dimensionless).
 * CONSTANTS[12] is Ts2 in component ParaLeftHeart (dimensionless).
 * ALGEBRAIC[0] is mt in component EVentricle (second).
 * ALGEBRAIC[1] is et in component EVentricle (dimensionless).
 * CONSTANTS[13] is ElaMax in component ParaLeftHeart (UnitE).
 * CONSTANTS[14] is ElaMin in component ParaLeftHeart (UnitE).
 * CONSTANTS[15] is Tpwb in component ParaLeftHeart (dimensionless).
 * CONSTANTS[16] is Tpww in component ParaLeftHeart (dimensionless).
 * ALGEBRAIC[6] is mt in component EAtrium (second).
 * ALGEBRAIC[7] is et in component EAtrium (dimensionless).
 * CONSTANTS[17] is Rwk in component ParaWindKessel (UnitR).
 * CONSTANTS[18] is Cwk in component ParaWindKessel (UnitC).
 * CONSTANTS[19] is P0 in component ParaWindKessel (UnitP).
 * RATES[1] is d/dt V in component TempCDv (UnitV).
 * RATES[2] is d/dt V in component TempCDa (UnitV).
 * RATES[0] is d/dt Pi in component TempRC (UnitP).
 */
void
initConsts(double* CONSTANTS, double* RATES, double *STATES)
{
CONSTANTS[0] = 350.;
CONSTANTS[1] = 1.0;
CONSTANTS[2] = 5.0;
CONSTANTS[3] = 500;
CONSTANTS[4] = 400.;
CONSTANTS[5] = 1.0;
CONSTANTS[6] = 4.0;
CONSTANTS[7] = 20;
CONSTANTS[8] = 2.5;
CONSTANTS[9] = 0.1;
CONSTANTS[10] = 1.0;
CONSTANTS[11] = 0.3;
CONSTANTS[12] = 0.45;
CONSTANTS[13] = 0.25;
CONSTANTS[14] = 0.15;
CONSTANTS[15] = 0.92;
CONSTANTS[16] = 0.09;
CONSTANTS[17] = 0.55;
CONSTANTS[18] = 2.8;
CONSTANTS[19] = 0.;
STATES[0] = CONSTANTS[19];
STATES[1] = CONSTANTS[3];
STATES[2] = CONSTANTS[7];
}
void
computeRates(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = VOI -  CONSTANTS[10]*floor(VOI/CONSTANTS[10]);
ALGEBRAIC[1] = (ALGEBRAIC[0]>=0.00000&&ALGEBRAIC[0]<= CONSTANTS[11]*CONSTANTS[10] ? 1.00000 - cos(( 3.14159*ALGEBRAIC[0])/( CONSTANTS[11]*CONSTANTS[10])) : ALGEBRAIC[0]> CONSTANTS[11]*CONSTANTS[10]&&ALGEBRAIC[0]<= CONSTANTS[12]*CONSTANTS[10] ? 1.00000+cos(( 3.14159*(ALGEBRAIC[0] -  CONSTANTS[11]*CONSTANTS[10]))/( (CONSTANTS[12] - CONSTANTS[11])*CONSTANTS[10])) : ALGEBRAIC[0]> CONSTANTS[12]*CONSTANTS[10]&&ALGEBRAIC[0]<CONSTANTS[10] ? 0.00000 : 0.0/0.0);
ALGEBRAIC[2] = CONSTANTS[9]+( ALGEBRAIC[1]*(CONSTANTS[8] - CONSTANTS[9]))/2.00000;
ALGEBRAIC[3] = CONSTANTS[1]+ ALGEBRAIC[2]*(STATES[1] - CONSTANTS[2]);
ALGEBRAIC[4] = (ALGEBRAIC[3]>=STATES[0] ? 1.00000 : ALGEBRAIC[3]<STATES[0] ? 0.00000 : 0.0/0.0);
ALGEBRAIC[5] = (ALGEBRAIC[3]>=STATES[0] ?  CONSTANTS[0]*ALGEBRAIC[4]*pow(fabs(ALGEBRAIC[3] - STATES[0]), 0.500000) : ALGEBRAIC[3]<STATES[0] ?  -1.00000*CONSTANTS[0]*ALGEBRAIC[4]*pow(fabs(STATES[0] - ALGEBRAIC[3]), 0.500000) : 0.0/0.0);
ALGEBRAIC[6] = VOI -  CONSTANTS[10]*floor(VOI/CONSTANTS[10]);
ALGEBRAIC[7] = (ALGEBRAIC[6]>=0.00000&&ALGEBRAIC[6]<= ((CONSTANTS[15]+CONSTANTS[16]) - 1.00000)*CONSTANTS[10] ? 1.00000 - cos(( 2.00000*3.14159*(ALGEBRAIC[6] -  (CONSTANTS[15] - 1.00000)*CONSTANTS[10]))/( CONSTANTS[16]*CONSTANTS[10])) : ALGEBRAIC[6]> ((CONSTANTS[15]+CONSTANTS[16]) - 1.00000)*CONSTANTS[10]&&ALGEBRAIC[6]<= CONSTANTS[15]*CONSTANTS[10] ? 0.00000 : ALGEBRAIC[6]> CONSTANTS[15]*CONSTANTS[10]&&ALGEBRAIC[6]<=CONSTANTS[10] ? 1.00000 - cos(( 2.00000*3.14159*(ALGEBRAIC[6] -  CONSTANTS[15]*CONSTANTS[10]))/( CONSTANTS[16]*CONSTANTS[10])) : 0.0/0.0);
ALGEBRAIC[8] = CONSTANTS[14]+( ALGEBRAIC[7]*(CONSTANTS[13] - CONSTANTS[14]))/2.00000;
ALGEBRAIC[9] = CONSTANTS[5]+ ALGEBRAIC[8]*(STATES[2] - CONSTANTS[6]);
ALGEBRAIC[10] = (ALGEBRAIC[9]>=ALGEBRAIC[3] ? 1.00000 : ALGEBRAIC[9]<ALGEBRAIC[3] ? 0.00000 : 0.0/0.0);
ALGEBRAIC[11] = (ALGEBRAIC[9]>=ALGEBRAIC[3] ?  CONSTANTS[4]*ALGEBRAIC[10]*pow(fabs(ALGEBRAIC[9] - ALGEBRAIC[3]), 0.500000) : ALGEBRAIC[9]<ALGEBRAIC[3] ?  -1.00000*CONSTANTS[4]*ALGEBRAIC[10]*pow(fabs(ALGEBRAIC[3] - ALGEBRAIC[9]), 0.500000) : 0.0/0.0);
RATES[1] = ALGEBRAIC[11] - ALGEBRAIC[5];
ALGEBRAIC[12] = (STATES[0] - ALGEBRAIC[9])/CONSTANTS[17];
RATES[2] = ALGEBRAIC[12] - ALGEBRAIC[11];
RATES[0] = (ALGEBRAIC[5] - ALGEBRAIC[12])/CONSTANTS[18];
}
void
computeVariables(double VOI, double* CONSTANTS, double* RATES, double* STATES, double* ALGEBRAIC)
{
ALGEBRAIC[0] = VOI -  CONSTANTS[10]*floor(VOI/CONSTANTS[10]);
ALGEBRAIC[1] = (ALGEBRAIC[0]>=0.00000&&ALGEBRAIC[0]<= CONSTANTS[11]*CONSTANTS[10] ? 1.00000 - cos(( 3.14159*ALGEBRAIC[0])/( CONSTANTS[11]*CONSTANTS[10])) : ALGEBRAIC[0]> CONSTANTS[11]*CONSTANTS[10]&&ALGEBRAIC[0]<= CONSTANTS[12]*CONSTANTS[10] ? 1.00000+cos(( 3.14159*(ALGEBRAIC[0] -  CONSTANTS[11]*CONSTANTS[10]))/( (CONSTANTS[12] - CONSTANTS[11])*CONSTANTS[10])) : ALGEBRAIC[0]> CONSTANTS[12]*CONSTANTS[10]&&ALGEBRAIC[0]<CONSTANTS[10] ? 0.00000 : 0.0/0.0);
ALGEBRAIC[2] = CONSTANTS[9]+( ALGEBRAIC[1]*(CONSTANTS[8] - CONSTANTS[9]))/2.00000;
ALGEBRAIC[3] = CONSTANTS[1]+ ALGEBRAIC[2]*(STATES[1] - CONSTANTS[2]);
ALGEBRAIC[4] = (ALGEBRAIC[3]>=STATES[0] ? 1.00000 : ALGEBRAIC[3]<STATES[0] ? 0.00000 : 0.0/0.0);
ALGEBRAIC[5] = (ALGEBRAIC[3]>=STATES[0] ?  CONSTANTS[0]*ALGEBRAIC[4]*pow(fabs(ALGEBRAIC[3] - STATES[0]), 0.500000) : ALGEBRAIC[3]<STATES[0] ?  -1.00000*CONSTANTS[0]*ALGEBRAIC[4]*pow(fabs(STATES[0] - ALGEBRAIC[3]), 0.500000) : 0.0/0.0);
ALGEBRAIC[6] = VOI -  CONSTANTS[10]*floor(VOI/CONSTANTS[10]);
ALGEBRAIC[7] = (ALGEBRAIC[6]>=0.00000&&ALGEBRAIC[6]<= ((CONSTANTS[15]+CONSTANTS[16]) - 1.00000)*CONSTANTS[10] ? 1.00000 - cos(( 2.00000*3.14159*(ALGEBRAIC[6] -  (CONSTANTS[15] - 1.00000)*CONSTANTS[10]))/( CONSTANTS[16]*CONSTANTS[10])) : ALGEBRAIC[6]> ((CONSTANTS[15]+CONSTANTS[16]) - 1.00000)*CONSTANTS[10]&&ALGEBRAIC[6]<= CONSTANTS[15]*CONSTANTS[10] ? 0.00000 : ALGEBRAIC[6]> CONSTANTS[15]*CONSTANTS[10]&&ALGEBRAIC[6]<=CONSTANTS[10] ? 1.00000 - cos(( 2.00000*3.14159*(ALGEBRAIC[6] -  CONSTANTS[15]*CONSTANTS[10]))/( CONSTANTS[16]*CONSTANTS[10])) : 0.0/0.0);
ALGEBRAIC[8] = CONSTANTS[14]+( ALGEBRAIC[7]*(CONSTANTS[13] - CONSTANTS[14]))/2.00000;
ALGEBRAIC[9] = CONSTANTS[5]+ ALGEBRAIC[8]*(STATES[2] - CONSTANTS[6]);
ALGEBRAIC[10] = (ALGEBRAIC[9]>=ALGEBRAIC[3] ? 1.00000 : ALGEBRAIC[9]<ALGEBRAIC[3] ? 0.00000 : 0.0/0.0);
ALGEBRAIC[11] = (ALGEBRAIC[9]>=ALGEBRAIC[3] ?  CONSTANTS[4]*ALGEBRAIC[10]*pow(fabs(ALGEBRAIC[9] - ALGEBRAIC[3]), 0.500000) : ALGEBRAIC[9]<ALGEBRAIC[3] ?  -1.00000*CONSTANTS[4]*ALGEBRAIC[10]*pow(fabs(ALGEBRAIC[3] - ALGEBRAIC[9]), 0.500000) : 0.0/0.0);
ALGEBRAIC[12] = (STATES[0] - ALGEBRAIC[9])/CONSTANTS[17];
}