#include #include #include #include #include char *name = "Henrywood and Agarwal, Equation (12)"; double f_if(float d, float h, float l, float M, float D) { float r26423 = d; float r26424 = h; float r26425 = r26423 / r26424; float r26426 = 1; float r26427 = 2; float r26428 = r26426 / r26427; float r26429 = pow(r26425, r26428); float r26430 = l; float r26431 = r26423 / r26430; float r26432 = pow(r26431, r26428); float r26433 = r26429 * r26432; float r26434 = M; float r26435 = D; float r26436 = r26434 * r26435; float r26437 = r26427 * r26423; float r26438 = r26436 / r26437; float r26439 = pow(r26438, r26427); float r26440 = r26428 * r26439; float r26441 = r26424 / r26430; float r26442 = r26440 * r26441; float r26443 = r26426 - r26442; float r26444 = r26433 * r26443; return r26444; } double f_id(double d, double h, double l, double M, double D) { double r26445 = d; double r26446 = h; double r26447 = r26445 / r26446; double r26448 = 1; double r26449 = 2; double r26450 = r26448 / r26449; double r26451 = pow(r26447, r26450); double r26452 = l; double r26453 = r26445 / r26452; double r26454 = pow(r26453, r26450); double r26455 = r26451 * r26454; double r26456 = M; double r26457 = D; double r26458 = r26456 * r26457; double r26459 = r26449 * r26445; double r26460 = r26458 / r26459; double r26461 = pow(r26460, r26449); double r26462 = r26450 * r26461; double r26463 = r26446 / r26452; double r26464 = r26462 * r26463; double r26465 = r26448 - r26464; double r26466 = r26455 * r26465; return r26466; } double f_of(float d, float h, float l, float M, float D) { float r26467 = 1; float r26468 = l; float r26469 = r26467 / r26468; float r26470 = -1.2018552924534038e+119; bool r26471 = r26469 <= r26470; float r26472 = d; float r26473 = h; float r26474 = r26472 / r26473; float r26475 = sqrt(r26474); float r26476 = 2; float r26477 = r26467 / r26476; float r26478 = pow(r26475, r26477); float r26479 = r26478 * r26478; float r26480 = 1/2; float r26481 = -1; float r26482 = r26481 / r26468; float r26483 = log(r26482); float r26484 = r26481 / r26472; float r26485 = log(r26484); float r26486 = r26483 - r26485; float r26487 = r26480 * r26486; float r26488 = exp(r26487); float r26489 = r26479 * r26488; float r26490 = M; float r26491 = D; float r26492 = r26490 * r26491; float r26493 = r26476 * r26472; float r26494 = r26492 / r26493; float r26495 = pow(r26494, r26476); float r26496 = r26477 * r26495; float r26497 = r26496 * r26473; float r26498 = r26497 * r26469; float r26499 = r26467 - r26498; float r26500 = r26489 * r26499; float r26501 = -1.4928350211850135e-304; bool r26502 = r26469 <= r26501; float r26503 = r26481 / r26473; float r26504 = log(r26503); float r26505 = r26504 - r26485; float r26506 = r26480 * r26505; float r26507 = exp(r26506); float r26508 = r26472 / r26468; float r26509 = pow(r26508, r26477); float r26510 = r26507 * r26509; float r26511 = r26473 / r26468; float r26512 = r26496 * r26511; float r26513 = r26467 - r26512; float r26514 = r26510 * r26513; float r26515 = 2.390814121891317e+143; bool r26516 = r26469 <= r26515; float r26517 = pow(r26472, r26477); float r26518 = r26467 / r26473; float r26519 = pow(r26518, r26477); float r26520 = r26517 * r26519; float r26521 = r26520 * r26509; float r26522 = r26521 * r26499; float r26523 = pow(r26474, r26477); float r26524 = pow(r26469, r26477); float r26525 = r26517 * r26524; float r26526 = r26523 * r26525; float r26527 = r26526 * r26499; float r26528 = r26516 ? r26522 : r26527; float r26529 = r26502 ? r26514 : r26528; float r26530 = r26471 ? r26500 : r26529; return r26530; } double f_od(double d, double h, double l, double M, double D) { double r26531 = 1; double r26532 = l; double r26533 = r26531 / r26532; double r26534 = -1.2018552924534038e+119; bool r26535 = r26533 <= r26534; double r26536 = d; double r26537 = h; double r26538 = r26536 / r26537; double r26539 = sqrt(r26538); double r26540 = 2; double r26541 = r26531 / r26540; double r26542 = pow(r26539, r26541); double r26543 = r26542 * r26542; double r26544 = 1/2; double r26545 = -1; double r26546 = r26545 / r26532; double r26547 = log(r26546); double r26548 = r26545 / r26536; double r26549 = log(r26548); double r26550 = r26547 - r26549; double r26551 = r26544 * r26550; double r26552 = exp(r26551); double r26553 = r26543 * r26552; double r26554 = M; double r26555 = D; double r26556 = r26554 * r26555; double r26557 = r26540 * r26536; double r26558 = r26556 / r26557; double r26559 = pow(r26558, r26540); double r26560 = r26541 * r26559; double r26561 = r26560 * r26537; double r26562 = r26561 * r26533; double r26563 = r26531 - r26562; double r26564 = r26553 * r26563; double r26565 = -1.4928350211850135e-304; bool r26566 = r26533 <= r26565; double r26567 = r26545 / r26537; double r26568 = log(r26567); double r26569 = r26568 - r26549; double r26570 = r26544 * r26569; double r26571 = exp(r26570); double r26572 = r26536 / r26532; double r26573 = pow(r26572, r26541); double r26574 = r26571 * r26573; double r26575 = r26537 / r26532; double r26576 = r26560 * r26575; double r26577 = r26531 - r26576; double r26578 = r26574 * r26577; double r26579 = 2.390814121891317e+143; bool r26580 = r26533 <= r26579; double r26581 = pow(r26536, r26541); double r26582 = r26531 / r26537; double r26583 = pow(r26582, r26541); double r26584 = r26581 * r26583; double r26585 = r26584 * r26573; double r26586 = r26585 * r26563; double r26587 = pow(r26538, r26541); double r26588 = pow(r26533, r26541); double r26589 = r26581 * r26588; double r26590 = r26587 * r26589; double r26591 = r26590 * r26563; double r26592 = r26580 ? r26586 : r26591; double r26593 = r26566 ? r26578 : r26592; double r26594 = r26535 ? r26564 : r26593; return r26594; } void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) { mpfr_fmod(r, n, d, rmd); if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd); } static mpfr_t r26595, r26596, r26597, r26598, r26599, r26600, r26601, r26602, r26603, r26604, r26605, r26606, r26607, r26608, r26609, r26610, r26611, r26612, r26613, r26614, r26615, r26616; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r26595); mpfr_init(r26596); mpfr_init(r26597); mpfr_init_set_str(r26598, "1", 10, MPFR_RNDN); mpfr_init_set_str(r26599, "2", 10, MPFR_RNDN); mpfr_init(r26600); mpfr_init(r26601); mpfr_init(r26602); mpfr_init(r26603); mpfr_init(r26604); mpfr_init(r26605); mpfr_init(r26606); mpfr_init(r26607); mpfr_init(r26608); mpfr_init(r26609); mpfr_init(r26610); mpfr_init(r26611); mpfr_init(r26612); mpfr_init(r26613); mpfr_init(r26614); mpfr_init(r26615); mpfr_init(r26616); } double f_im(double d, double h, double l, double M, double D) { mpfr_set_d(r26595, d, MPFR_RNDN); mpfr_set_d(r26596, h, MPFR_RNDN); mpfr_div(r26597, r26595, r26596, MPFR_RNDN); ; ; mpfr_div(r26600, r26598, r26599, MPFR_RNDN); mpfr_pow(r26601, r26597, r26600, MPFR_RNDN); mpfr_set_d(r26602, l, MPFR_RNDN); mpfr_div(r26603, r26595, r26602, MPFR_RNDN); mpfr_pow(r26604, r26603, r26600, MPFR_RNDN); mpfr_mul(r26605, r26601, r26604, MPFR_RNDN); mpfr_set_d(r26606, M, MPFR_RNDN); mpfr_set_d(r26607, D, MPFR_RNDN); mpfr_mul(r26608, r26606, r26607, MPFR_RNDN); mpfr_mul(r26609, r26599, r26595, MPFR_RNDN); mpfr_div(r26610, r26608, r26609, MPFR_RNDN); mpfr_pow(r26611, r26610, r26599, MPFR_RNDN); mpfr_mul(r26612, r26600, r26611, MPFR_RNDN); mpfr_div(r26613, r26596, r26602, MPFR_RNDN); mpfr_mul(r26614, r26612, r26613, MPFR_RNDN); mpfr_sub(r26615, r26598, r26614, MPFR_RNDN); mpfr_mul(r26616, r26605, r26615, MPFR_RNDN); return mpfr_get_d(r26616, MPFR_RNDN); } static mpfr_t r26617, r26618, r26619, r26620, r26621, r26622, r26623, r26624, r26625, r26626, r26627, r26628, r26629, r26630, r26631, r26632, r26633, r26634, r26635, r26636, r26637, r26638, r26639, r26640, r26641, r26642, r26643, r26644, r26645, r26646, r26647, r26648, r26649, r26650, r26651, r26652, r26653, r26654, r26655, r26656, r26657, r26658, r26659, r26660, r26661, r26662, r26663, r26664, r26665, r26666, r26667, r26668, r26669, r26670, r26671, r26672, r26673, r26674, r26675, r26676, r26677, r26678, r26679, r26680; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init_set_str(r26617, "1", 10, MPFR_RNDN); mpfr_init(r26618); mpfr_init(r26619); mpfr_init_set_str(r26620, "-1.2018552924534038e+119", 10, MPFR_RNDN); mpfr_init(r26621); mpfr_init(r26622); mpfr_init(r26623); mpfr_init(r26624); mpfr_init(r26625); mpfr_init_set_str(r26626, "2", 10, MPFR_RNDN); mpfr_init(r26627); mpfr_init(r26628); mpfr_init(r26629); mpfr_init_set_str(r26630, "1/2", 10, MPFR_RNDN); mpfr_init_set_str(r26631, "-1", 10, MPFR_RNDN); mpfr_init(r26632); mpfr_init(r26633); mpfr_init(r26634); mpfr_init(r26635); mpfr_init(r26636); mpfr_init(r26637); mpfr_init(r26638); mpfr_init(r26639); mpfr_init(r26640); mpfr_init(r26641); mpfr_init(r26642); mpfr_init(r26643); mpfr_init(r26644); mpfr_init(r26645); mpfr_init(r26646); mpfr_init(r26647); mpfr_init(r26648); mpfr_init(r26649); mpfr_init(r26650); mpfr_init_set_str(r26651, "-1.4928350211850135e-304", 10, MPFR_RNDN); mpfr_init(r26652); mpfr_init(r26653); mpfr_init(r26654); mpfr_init(r26655); mpfr_init(r26656); mpfr_init(r26657); mpfr_init(r26658); mpfr_init(r26659); mpfr_init(r26660); mpfr_init(r26661); mpfr_init(r26662); mpfr_init(r26663); mpfr_init(r26664); mpfr_init_set_str(r26665, "2.390814121891317e+143", 10, MPFR_RNDN); mpfr_init(r26666); mpfr_init(r26667); mpfr_init(r26668); mpfr_init(r26669); mpfr_init(r26670); mpfr_init(r26671); mpfr_init(r26672); mpfr_init(r26673); mpfr_init(r26674); mpfr_init(r26675); mpfr_init(r26676); mpfr_init(r26677); mpfr_init(r26678); mpfr_init(r26679); mpfr_init(r26680); } double f_fm(double d, double h, double l, double M, double D) { ; mpfr_set_d(r26618, l, MPFR_RNDN); mpfr_div(r26619, r26617, r26618, MPFR_RNDN); ; mpfr_set_si(r26621, mpfr_cmp(r26619, r26620) <= 0, MPFR_RNDN); mpfr_set_d(r26622, d, MPFR_RNDN); mpfr_set_d(r26623, h, MPFR_RNDN); mpfr_div(r26624, r26622, r26623, MPFR_RNDN); mpfr_sqrt(r26625, r26624, MPFR_RNDN); ; mpfr_div(r26627, r26617, r26626, MPFR_RNDN); mpfr_pow(r26628, r26625, r26627, MPFR_RNDN); mpfr_mul(r26629, r26628, r26628, MPFR_RNDN); ; ; mpfr_div(r26632, r26631, r26618, MPFR_RNDN); mpfr_log(r26633, r26632, MPFR_RNDN); mpfr_div(r26634, r26631, r26622, MPFR_RNDN); mpfr_log(r26635, r26634, MPFR_RNDN); mpfr_sub(r26636, r26633, r26635, MPFR_RNDN); mpfr_mul(r26637, r26630, r26636, MPFR_RNDN); mpfr_exp(r26638, r26637, MPFR_RNDN); mpfr_mul(r26639, r26629, r26638, MPFR_RNDN); mpfr_set_d(r26640, M, MPFR_RNDN); mpfr_set_d(r26641, D, MPFR_RNDN); mpfr_mul(r26642, r26640, r26641, MPFR_RNDN); mpfr_mul(r26643, r26626, r26622, MPFR_RNDN); mpfr_div(r26644, r26642, r26643, MPFR_RNDN); mpfr_pow(r26645, r26644, r26626, MPFR_RNDN); mpfr_mul(r26646, r26627, r26645, MPFR_RNDN); mpfr_mul(r26647, r26646, r26623, MPFR_RNDN); mpfr_mul(r26648, r26647, r26619, MPFR_RNDN); mpfr_sub(r26649, r26617, r26648, MPFR_RNDN); mpfr_mul(r26650, r26639, r26649, MPFR_RNDN); ; mpfr_set_si(r26652, mpfr_cmp(r26619, r26651) <= 0, MPFR_RNDN); mpfr_div(r26653, r26631, r26623, MPFR_RNDN); mpfr_log(r26654, r26653, MPFR_RNDN); mpfr_sub(r26655, r26654, r26635, MPFR_RNDN); mpfr_mul(r26656, r26630, r26655, MPFR_RNDN); mpfr_exp(r26657, r26656, MPFR_RNDN); mpfr_div(r26658, r26622, r26618, MPFR_RNDN); mpfr_pow(r26659, r26658, r26627, MPFR_RNDN); mpfr_mul(r26660, r26657, r26659, MPFR_RNDN); mpfr_div(r26661, r26623, r26618, MPFR_RNDN); mpfr_mul(r26662, r26646, r26661, MPFR_RNDN); mpfr_sub(r26663, r26617, r26662, MPFR_RNDN); mpfr_mul(r26664, r26660, r26663, MPFR_RNDN); ; mpfr_set_si(r26666, mpfr_cmp(r26619, r26665) <= 0, MPFR_RNDN); mpfr_pow(r26667, r26622, r26627, MPFR_RNDN); mpfr_div(r26668, r26617, r26623, MPFR_RNDN); mpfr_pow(r26669, r26668, r26627, MPFR_RNDN); mpfr_mul(r26670, r26667, r26669, MPFR_RNDN); mpfr_mul(r26671, r26670, r26659, MPFR_RNDN); mpfr_mul(r26672, r26671, r26649, MPFR_RNDN); mpfr_pow(r26673, r26624, r26627, MPFR_RNDN); mpfr_pow(r26674, r26619, r26627, MPFR_RNDN); mpfr_mul(r26675, r26667, r26674, MPFR_RNDN); mpfr_mul(r26676, r26673, r26675, MPFR_RNDN); mpfr_mul(r26677, r26676, r26649, MPFR_RNDN); if (mpfr_get_si(r26666, MPFR_RNDN)) { mpfr_set(r26678, r26672, MPFR_RNDN); } else { mpfr_set(r26678, r26677, MPFR_RNDN); }; if (mpfr_get_si(r26652, MPFR_RNDN)) { mpfr_set(r26679, r26664, MPFR_RNDN); } else { mpfr_set(r26679, r26678, MPFR_RNDN); }; if (mpfr_get_si(r26621, MPFR_RNDN)) { mpfr_set(r26680, r26650, MPFR_RNDN); } else { mpfr_set(r26680, r26679, MPFR_RNDN); }; return mpfr_get_d(r26680, MPFR_RNDN); } static mpfr_t r26681, r26682, r26683, r26684, r26685, r26686, r26687, r26688, r26689, r26690, r26691, r26692, r26693, r26694, r26695, r26696, r26697, r26698, r26699, r26700, r26701, r26702, r26703, r26704, r26705, r26706, r26707, r26708, r26709, r26710, r26711, r26712, r26713, r26714, r26715, r26716, r26717, r26718, r26719, r26720, r26721, r26722, r26723, r26724, r26725, r26726, r26727, r26728, r26729, r26730, r26731, r26732, r26733, r26734, r26735, r26736, r26737, r26738, r26739, r26740, r26741, r26742, r26743, r26744; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init_set_str(r26681, "1", 10, MPFR_RNDN); mpfr_init(r26682); mpfr_init(r26683); mpfr_init_set_str(r26684, "-1.2018552924534038e+119", 10, MPFR_RNDN); mpfr_init(r26685); mpfr_init(r26686); mpfr_init(r26687); mpfr_init(r26688); mpfr_init(r26689); mpfr_init_set_str(r26690, "2", 10, MPFR_RNDN); mpfr_init(r26691); mpfr_init(r26692); mpfr_init(r26693); mpfr_init_set_str(r26694, "1/2", 10, MPFR_RNDN); mpfr_init_set_str(r26695, "-1", 10, MPFR_RNDN); mpfr_init(r26696); mpfr_init(r26697); mpfr_init(r26698); mpfr_init(r26699); mpfr_init(r26700); mpfr_init(r26701); mpfr_init(r26702); mpfr_init(r26703); mpfr_init(r26704); mpfr_init(r26705); mpfr_init(r26706); mpfr_init(r26707); mpfr_init(r26708); mpfr_init(r26709); mpfr_init(r26710); mpfr_init(r26711); mpfr_init(r26712); mpfr_init(r26713); mpfr_init(r26714); mpfr_init_set_str(r26715, "-1.4928350211850135e-304", 10, MPFR_RNDN); mpfr_init(r26716); mpfr_init(r26717); mpfr_init(r26718); mpfr_init(r26719); mpfr_init(r26720); mpfr_init(r26721); mpfr_init(r26722); mpfr_init(r26723); mpfr_init(r26724); mpfr_init(r26725); mpfr_init(r26726); mpfr_init(r26727); mpfr_init(r26728); mpfr_init_set_str(r26729, "2.390814121891317e+143", 10, MPFR_RNDN); mpfr_init(r26730); mpfr_init(r26731); mpfr_init(r26732); mpfr_init(r26733); mpfr_init(r26734); mpfr_init(r26735); mpfr_init(r26736); mpfr_init(r26737); mpfr_init(r26738); mpfr_init(r26739); mpfr_init(r26740); mpfr_init(r26741); mpfr_init(r26742); mpfr_init(r26743); mpfr_init(r26744); } double f_dm(double d, double h, double l, double M, double D) { ; mpfr_set_d(r26682, l, MPFR_RNDN); mpfr_div(r26683, r26681, r26682, MPFR_RNDN); ; mpfr_set_si(r26685, mpfr_cmp(r26683, r26684) <= 0, MPFR_RNDN); mpfr_set_d(r26686, d, MPFR_RNDN); mpfr_set_d(r26687, h, MPFR_RNDN); mpfr_div(r26688, r26686, r26687, MPFR_RNDN); mpfr_sqrt(r26689, r26688, MPFR_RNDN); ; mpfr_div(r26691, r26681, r26690, MPFR_RNDN); mpfr_pow(r26692, r26689, r26691, MPFR_RNDN); mpfr_mul(r26693, r26692, r26692, MPFR_RNDN); ; ; mpfr_div(r26696, r26695, r26682, MPFR_RNDN); mpfr_log(r26697, r26696, MPFR_RNDN); mpfr_div(r26698, r26695, r26686, MPFR_RNDN); mpfr_log(r26699, r26698, MPFR_RNDN); mpfr_sub(r26700, r26697, r26699, MPFR_RNDN); mpfr_mul(r26701, r26694, r26700, MPFR_RNDN); mpfr_exp(r26702, r26701, MPFR_RNDN); mpfr_mul(r26703, r26693, r26702, MPFR_RNDN); mpfr_set_d(r26704, M, MPFR_RNDN); mpfr_set_d(r26705, D, MPFR_RNDN); mpfr_mul(r26706, r26704, r26705, MPFR_RNDN); mpfr_mul(r26707, r26690, r26686, MPFR_RNDN); mpfr_div(r26708, r26706, r26707, MPFR_RNDN); mpfr_pow(r26709, r26708, r26690, MPFR_RNDN); mpfr_mul(r26710, r26691, r26709, MPFR_RNDN); mpfr_mul(r26711, r26710, r26687, MPFR_RNDN); mpfr_mul(r26712, r26711, r26683, MPFR_RNDN); mpfr_sub(r26713, r26681, r26712, MPFR_RNDN); mpfr_mul(r26714, r26703, r26713, MPFR_RNDN); ; mpfr_set_si(r26716, mpfr_cmp(r26683, r26715) <= 0, MPFR_RNDN); mpfr_div(r26717, r26695, r26687, MPFR_RNDN); mpfr_log(r26718, r26717, MPFR_RNDN); mpfr_sub(r26719, r26718, r26699, MPFR_RNDN); mpfr_mul(r26720, r26694, r26719, MPFR_RNDN); mpfr_exp(r26721, r26720, MPFR_RNDN); mpfr_div(r26722, r26686, r26682, MPFR_RNDN); mpfr_pow(r26723, r26722, r26691, MPFR_RNDN); mpfr_mul(r26724, r26721, r26723, MPFR_RNDN); mpfr_div(r26725, r26687, r26682, MPFR_RNDN); mpfr_mul(r26726, r26710, r26725, MPFR_RNDN); mpfr_sub(r26727, r26681, r26726, MPFR_RNDN); mpfr_mul(r26728, r26724, r26727, MPFR_RNDN); ; mpfr_set_si(r26730, mpfr_cmp(r26683, r26729) <= 0, MPFR_RNDN); mpfr_pow(r26731, r26686, r26691, MPFR_RNDN); mpfr_div(r26732, r26681, r26687, MPFR_RNDN); mpfr_pow(r26733, r26732, r26691, MPFR_RNDN); mpfr_mul(r26734, r26731, r26733, MPFR_RNDN); mpfr_mul(r26735, r26734, r26723, MPFR_RNDN); mpfr_mul(r26736, r26735, r26713, MPFR_RNDN); mpfr_pow(r26737, r26688, r26691, MPFR_RNDN); mpfr_pow(r26738, r26683, r26691, MPFR_RNDN); mpfr_mul(r26739, r26731, r26738, MPFR_RNDN); mpfr_mul(r26740, r26737, r26739, MPFR_RNDN); mpfr_mul(r26741, r26740, r26713, MPFR_RNDN); if (mpfr_get_si(r26730, MPFR_RNDN)) { mpfr_set(r26742, r26736, MPFR_RNDN); } else { mpfr_set(r26742, r26741, MPFR_RNDN); }; if (mpfr_get_si(r26716, MPFR_RNDN)) { mpfr_set(r26743, r26728, MPFR_RNDN); } else { mpfr_set(r26743, r26742, MPFR_RNDN); }; if (mpfr_get_si(r26685, MPFR_RNDN)) { mpfr_set(r26744, r26714, MPFR_RNDN); } else { mpfr_set(r26744, r26743, MPFR_RNDN); }; return mpfr_get_d(r26744, MPFR_RNDN); }