#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Henrywood and Agarwal, Equation (12)";

double f_if(float d, float h, float l, float M, float D) {
        float r26385 = d;
        float r26386 = h;
        float r26387 = r26385 / r26386;
        float r26388 = 1;
        float r26389 = 2;
        float r26390 = r26388 / r26389;
        float r26391 = pow(r26387, r26390);
        float r26392 = l;
        float r26393 = r26385 / r26392;
        float r26394 = pow(r26393, r26390);
        float r26395 = r26391 * r26394;
        float r26396 = M;
        float r26397 = D;
        float r26398 = r26396 * r26397;
        float r26399 = r26389 * r26385;
        float r26400 = r26398 / r26399;
        float r26401 = pow(r26400, r26389);
        float r26402 = r26390 * r26401;
        float r26403 = r26386 / r26392;
        float r26404 = r26402 * r26403;
        float r26405 = r26388 - r26404;
        float r26406 = r26395 * r26405;
        return r26406;
}

double f_id(double d, double h, double l, double M, double D) {
        double r26407 = d;
        double r26408 = h;
        double r26409 = r26407 / r26408;
        double r26410 = 1;
        double r26411 = 2;
        double r26412 = r26410 / r26411;
        double r26413 = pow(r26409, r26412);
        double r26414 = l;
        double r26415 = r26407 / r26414;
        double r26416 = pow(r26415, r26412);
        double r26417 = r26413 * r26416;
        double r26418 = M;
        double r26419 = D;
        double r26420 = r26418 * r26419;
        double r26421 = r26411 * r26407;
        double r26422 = r26420 / r26421;
        double r26423 = pow(r26422, r26411);
        double r26424 = r26412 * r26423;
        double r26425 = r26408 / r26414;
        double r26426 = r26424 * r26425;
        double r26427 = r26410 - r26426;
        double r26428 = r26417 * r26427;
        return r26428;
}


double f_of(float d, float h, float l, float M, float D) {
        float r26429 = l;
        float r26430 = 1.85432241176355e-310;
        bool r26431 = r26429 <= r26430;
        float r26432 = 1;
        float r26433 = h;
        float r26434 = M;
        float r26435 = D;
        float r26436 = r26434 * r26435;
        float r26437 = d;
        float r26438 = 2;
        float r26439 = r26437 * r26438;
        float r26440 = r26436 / r26439;
        float r26441 = pow(r26440, r26438);
        float r26442 = r26433 * r26441;
        float r26443 = r26438 * r26429;
        float r26444 = r26442 / r26443;
        float r26445 = r26432 - r26444;
        float r26446 = 1/2;
        float r26447 = -1;
        float r26448 = r26447 / r26429;
        float r26449 = log(r26448);
        float r26450 = r26447 / r26437;
        float r26451 = log(r26450);
        float r26452 = r26449 - r26451;
        float r26453 = r26446 * r26452;
        float r26454 = exp(r26453);
        float r26455 = r26437 / r26433;
        float r26456 = r26432 / r26438;
        float r26457 = pow(r26455, r26456);
        float r26458 = r26454 * r26457;
        float r26459 = r26445 * r26458;
        float r26460 = 3.532898982346642e-76;
        bool r26461 = r26429 <= r26460;
        float r26462 = r26432 / r26429;
        float r26463 = pow(r26462, r26456);
        float r26464 = pow(r26437, r26456);
        float r26465 = r26463 * r26464;
        float r26466 = r26457 * r26465;
        float r26467 = r26466 * r26445;
        float r26468 = r26441 * r26456;
        float r26469 = r26433 / r26429;
        float r26470 = r26468 * r26469;
        float r26471 = r26432 - r26470;
        float r26472 = r26437 / r26429;
        float r26473 = pow(r26472, r26456);
        float r26474 = r26432 / r26433;
        float r26475 = pow(r26474, r26456);
        float r26476 = r26464 * r26475;
        float r26477 = r26473 * r26476;
        float r26478 = r26471 * r26477;
        float r26479 = r26461 ? r26467 : r26478;
        float r26480 = r26431 ? r26459 : r26479;
        return r26480;
}

double f_od(double d, double h, double l, double M, double D) {
        double r26481 = l;
        double r26482 = 1.85432241176355e-310;
        bool r26483 = r26481 <= r26482;
        double r26484 = 1;
        double r26485 = h;
        double r26486 = M;
        double r26487 = D;
        double r26488 = r26486 * r26487;
        double r26489 = d;
        double r26490 = 2;
        double r26491 = r26489 * r26490;
        double r26492 = r26488 / r26491;
        double r26493 = pow(r26492, r26490);
        double r26494 = r26485 * r26493;
        double r26495 = r26490 * r26481;
        double r26496 = r26494 / r26495;
        double r26497 = r26484 - r26496;
        double r26498 = 1/2;
        double r26499 = -1;
        double r26500 = r26499 / r26481;
        double r26501 = log(r26500);
        double r26502 = r26499 / r26489;
        double r26503 = log(r26502);
        double r26504 = r26501 - r26503;
        double r26505 = r26498 * r26504;
        double r26506 = exp(r26505);
        double r26507 = r26489 / r26485;
        double r26508 = r26484 / r26490;
        double r26509 = pow(r26507, r26508);
        double r26510 = r26506 * r26509;
        double r26511 = r26497 * r26510;
        double r26512 = 3.532898982346642e-76;
        bool r26513 = r26481 <= r26512;
        double r26514 = r26484 / r26481;
        double r26515 = pow(r26514, r26508);
        double r26516 = pow(r26489, r26508);
        double r26517 = r26515 * r26516;
        double r26518 = r26509 * r26517;
        double r26519 = r26518 * r26497;
        double r26520 = r26493 * r26508;
        double r26521 = r26485 / r26481;
        double r26522 = r26520 * r26521;
        double r26523 = r26484 - r26522;
        double r26524 = r26489 / r26481;
        double r26525 = pow(r26524, r26508);
        double r26526 = r26484 / r26485;
        double r26527 = pow(r26526, r26508);
        double r26528 = r26516 * r26527;
        double r26529 = r26525 * r26528;
        double r26530 = r26523 * r26529;
        double r26531 = r26513 ? r26519 : r26530;
        double r26532 = r26483 ? r26511 : r26531;
        return r26532;
}

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 r26533, r26534, r26535, r26536, r26537, r26538, r26539, r26540, r26541, r26542, r26543, r26544, r26545, r26546, r26547, r26548, r26549, r26550, r26551, r26552, r26553, r26554;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r26533);
        mpfr_init(r26534);
        mpfr_init(r26535);
        mpfr_init_set_str(r26536, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26537, "2", 10, MPFR_RNDN);
        mpfr_init(r26538);
        mpfr_init(r26539);
        mpfr_init(r26540);
        mpfr_init(r26541);
        mpfr_init(r26542);
        mpfr_init(r26543);
        mpfr_init(r26544);
        mpfr_init(r26545);
        mpfr_init(r26546);
        mpfr_init(r26547);
        mpfr_init(r26548);
        mpfr_init(r26549);
        mpfr_init(r26550);
        mpfr_init(r26551);
        mpfr_init(r26552);
        mpfr_init(r26553);
        mpfr_init(r26554);
}

double f_im(double d, double h, double l, double M, double D) {
        mpfr_set_d(r26533, d, MPFR_RNDN);
        mpfr_set_d(r26534, h, MPFR_RNDN);
        mpfr_div(r26535, r26533, r26534, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26538, r26536, r26537, MPFR_RNDN);
        mpfr_pow(r26539, r26535, r26538, MPFR_RNDN);
        mpfr_set_d(r26540, l, MPFR_RNDN);
        mpfr_div(r26541, r26533, r26540, MPFR_RNDN);
        mpfr_pow(r26542, r26541, r26538, MPFR_RNDN);
        mpfr_mul(r26543, r26539, r26542, MPFR_RNDN);
        mpfr_set_d(r26544, M, MPFR_RNDN);
        mpfr_set_d(r26545, D, MPFR_RNDN);
        mpfr_mul(r26546, r26544, r26545, MPFR_RNDN);
        mpfr_mul(r26547, r26537, r26533, MPFR_RNDN);
        mpfr_div(r26548, r26546, r26547, MPFR_RNDN);
        mpfr_pow(r26549, r26548, r26537, MPFR_RNDN);
        mpfr_mul(r26550, r26538, r26549, MPFR_RNDN);
        mpfr_div(r26551, r26534, r26540, MPFR_RNDN);
        mpfr_mul(r26552, r26550, r26551, MPFR_RNDN);
        mpfr_sub(r26553, r26536, r26552, MPFR_RNDN);
        mpfr_mul(r26554, r26543, r26553, MPFR_RNDN);
        return mpfr_get_d(r26554, MPFR_RNDN);
}

static mpfr_t r26555, r26556, r26557, r26558, r26559, r26560, r26561, r26562, r26563, r26564, r26565, r26566, r26567, r26568, r26569, r26570, r26571, r26572, r26573, r26574, r26575, r26576, r26577, r26578, r26579, r26580, r26581, r26582, r26583, r26584, r26585, r26586, r26587, r26588, r26589, r26590, r26591, r26592, r26593, r26594, r26595, r26596, r26597, r26598, r26599, r26600, r26601, r26602, r26603, r26604, r26605, r26606;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r26555);
        mpfr_init_set_str(r26556, "1.85432241176355e-310", 10, MPFR_RNDN);
        mpfr_init(r26557);
        mpfr_init_set_str(r26558, "1", 10, MPFR_RNDN);
        mpfr_init(r26559);
        mpfr_init(r26560);
        mpfr_init(r26561);
        mpfr_init(r26562);
        mpfr_init(r26563);
        mpfr_init_set_str(r26564, "2", 10, MPFR_RNDN);
        mpfr_init(r26565);
        mpfr_init(r26566);
        mpfr_init(r26567);
        mpfr_init(r26568);
        mpfr_init(r26569);
        mpfr_init(r26570);
        mpfr_init(r26571);
        mpfr_init_set_str(r26572, "1/2", 10, MPFR_RNDN);
        mpfr_init_set_str(r26573, "-1", 10, MPFR_RNDN);
        mpfr_init(r26574);
        mpfr_init(r26575);
        mpfr_init(r26576);
        mpfr_init(r26577);
        mpfr_init(r26578);
        mpfr_init(r26579);
        mpfr_init(r26580);
        mpfr_init(r26581);
        mpfr_init(r26582);
        mpfr_init(r26583);
        mpfr_init(r26584);
        mpfr_init(r26585);
        mpfr_init_set_str(r26586, "3.532898982346642e-76", 10, MPFR_RNDN);
        mpfr_init(r26587);
        mpfr_init(r26588);
        mpfr_init(r26589);
        mpfr_init(r26590);
        mpfr_init(r26591);
        mpfr_init(r26592);
        mpfr_init(r26593);
        mpfr_init(r26594);
        mpfr_init(r26595);
        mpfr_init(r26596);
        mpfr_init(r26597);
        mpfr_init(r26598);
        mpfr_init(r26599);
        mpfr_init(r26600);
        mpfr_init(r26601);
        mpfr_init(r26602);
        mpfr_init(r26603);
        mpfr_init(r26604);
        mpfr_init(r26605);
        mpfr_init(r26606);
}

double f_fm(double d, double h, double l, double M, double D) {
        mpfr_set_d(r26555, l, MPFR_RNDN);
        ;
        mpfr_set_si(r26557, mpfr_cmp(r26555, r26556) <= 0, MPFR_RNDN);
        ;
        mpfr_set_d(r26559, h, MPFR_RNDN);
        mpfr_set_d(r26560, M, MPFR_RNDN);
        mpfr_set_d(r26561, D, MPFR_RNDN);
        mpfr_mul(r26562, r26560, r26561, MPFR_RNDN);
        mpfr_set_d(r26563, d, MPFR_RNDN);
        ;
        mpfr_mul(r26565, r26563, r26564, MPFR_RNDN);
        mpfr_div(r26566, r26562, r26565, MPFR_RNDN);
        mpfr_pow(r26567, r26566, r26564, MPFR_RNDN);
        mpfr_mul(r26568, r26559, r26567, MPFR_RNDN);
        mpfr_mul(r26569, r26564, r26555, MPFR_RNDN);
        mpfr_div(r26570, r26568, r26569, MPFR_RNDN);
        mpfr_sub(r26571, r26558, r26570, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26574, r26573, r26555, MPFR_RNDN);
        mpfr_log(r26575, r26574, MPFR_RNDN);
        mpfr_div(r26576, r26573, r26563, MPFR_RNDN);
        mpfr_log(r26577, r26576, MPFR_RNDN);
        mpfr_sub(r26578, r26575, r26577, MPFR_RNDN);
        mpfr_mul(r26579, r26572, r26578, MPFR_RNDN);
        mpfr_exp(r26580, r26579, MPFR_RNDN);
        mpfr_div(r26581, r26563, r26559, MPFR_RNDN);
        mpfr_div(r26582, r26558, r26564, MPFR_RNDN);
        mpfr_pow(r26583, r26581, r26582, MPFR_RNDN);
        mpfr_mul(r26584, r26580, r26583, MPFR_RNDN);
        mpfr_mul(r26585, r26571, r26584, MPFR_RNDN);
        ;
        mpfr_set_si(r26587, mpfr_cmp(r26555, r26586) <= 0, MPFR_RNDN);
        mpfr_div(r26588, r26558, r26555, MPFR_RNDN);
        mpfr_pow(r26589, r26588, r26582, MPFR_RNDN);
        mpfr_pow(r26590, r26563, r26582, MPFR_RNDN);
        mpfr_mul(r26591, r26589, r26590, MPFR_RNDN);
        mpfr_mul(r26592, r26583, r26591, MPFR_RNDN);
        mpfr_mul(r26593, r26592, r26571, MPFR_RNDN);
        mpfr_mul(r26594, r26567, r26582, MPFR_RNDN);
        mpfr_div(r26595, r26559, r26555, MPFR_RNDN);
        mpfr_mul(r26596, r26594, r26595, MPFR_RNDN);
        mpfr_sub(r26597, r26558, r26596, MPFR_RNDN);
        mpfr_div(r26598, r26563, r26555, MPFR_RNDN);
        mpfr_pow(r26599, r26598, r26582, MPFR_RNDN);
        mpfr_div(r26600, r26558, r26559, MPFR_RNDN);
        mpfr_pow(r26601, r26600, r26582, MPFR_RNDN);
        mpfr_mul(r26602, r26590, r26601, MPFR_RNDN);
        mpfr_mul(r26603, r26599, r26602, MPFR_RNDN);
        mpfr_mul(r26604, r26597, r26603, MPFR_RNDN);
        if (mpfr_get_si(r26587, MPFR_RNDN)) { mpfr_set(r26605, r26593, MPFR_RNDN); } else { mpfr_set(r26605, r26604, MPFR_RNDN); };
        if (mpfr_get_si(r26557, MPFR_RNDN)) { mpfr_set(r26606, r26585, MPFR_RNDN); } else { mpfr_set(r26606, r26605, MPFR_RNDN); };
        return mpfr_get_d(r26606, MPFR_RNDN);
}

static mpfr_t r26607, r26608, r26609, r26610, r26611, r26612, r26613, r26614, r26615, r26616, 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;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r26607);
        mpfr_init_set_str(r26608, "1.85432241176355e-310", 10, MPFR_RNDN);
        mpfr_init(r26609);
        mpfr_init_set_str(r26610, "1", 10, MPFR_RNDN);
        mpfr_init(r26611);
        mpfr_init(r26612);
        mpfr_init(r26613);
        mpfr_init(r26614);
        mpfr_init(r26615);
        mpfr_init_set_str(r26616, "2", 10, MPFR_RNDN);
        mpfr_init(r26617);
        mpfr_init(r26618);
        mpfr_init(r26619);
        mpfr_init(r26620);
        mpfr_init(r26621);
        mpfr_init(r26622);
        mpfr_init(r26623);
        mpfr_init_set_str(r26624, "1/2", 10, MPFR_RNDN);
        mpfr_init_set_str(r26625, "-1", 10, MPFR_RNDN);
        mpfr_init(r26626);
        mpfr_init(r26627);
        mpfr_init(r26628);
        mpfr_init(r26629);
        mpfr_init(r26630);
        mpfr_init(r26631);
        mpfr_init(r26632);
        mpfr_init(r26633);
        mpfr_init(r26634);
        mpfr_init(r26635);
        mpfr_init(r26636);
        mpfr_init(r26637);
        mpfr_init_set_str(r26638, "3.532898982346642e-76", 10, MPFR_RNDN);
        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(r26651);
        mpfr_init(r26652);
        mpfr_init(r26653);
        mpfr_init(r26654);
        mpfr_init(r26655);
        mpfr_init(r26656);
        mpfr_init(r26657);
        mpfr_init(r26658);
}

double f_dm(double d, double h, double l, double M, double D) {
        mpfr_set_d(r26607, l, MPFR_RNDN);
        ;
        mpfr_set_si(r26609, mpfr_cmp(r26607, r26608) <= 0, MPFR_RNDN);
        ;
        mpfr_set_d(r26611, h, MPFR_RNDN);
        mpfr_set_d(r26612, M, MPFR_RNDN);
        mpfr_set_d(r26613, D, MPFR_RNDN);
        mpfr_mul(r26614, r26612, r26613, MPFR_RNDN);
        mpfr_set_d(r26615, d, MPFR_RNDN);
        ;
        mpfr_mul(r26617, r26615, r26616, MPFR_RNDN);
        mpfr_div(r26618, r26614, r26617, MPFR_RNDN);
        mpfr_pow(r26619, r26618, r26616, MPFR_RNDN);
        mpfr_mul(r26620, r26611, r26619, MPFR_RNDN);
        mpfr_mul(r26621, r26616, r26607, MPFR_RNDN);
        mpfr_div(r26622, r26620, r26621, MPFR_RNDN);
        mpfr_sub(r26623, r26610, r26622, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26626, r26625, r26607, MPFR_RNDN);
        mpfr_log(r26627, r26626, MPFR_RNDN);
        mpfr_div(r26628, r26625, r26615, MPFR_RNDN);
        mpfr_log(r26629, r26628, MPFR_RNDN);
        mpfr_sub(r26630, r26627, r26629, MPFR_RNDN);
        mpfr_mul(r26631, r26624, r26630, MPFR_RNDN);
        mpfr_exp(r26632, r26631, MPFR_RNDN);
        mpfr_div(r26633, r26615, r26611, MPFR_RNDN);
        mpfr_div(r26634, r26610, r26616, MPFR_RNDN);
        mpfr_pow(r26635, r26633, r26634, MPFR_RNDN);
        mpfr_mul(r26636, r26632, r26635, MPFR_RNDN);
        mpfr_mul(r26637, r26623, r26636, MPFR_RNDN);
        ;
        mpfr_set_si(r26639, mpfr_cmp(r26607, r26638) <= 0, MPFR_RNDN);
        mpfr_div(r26640, r26610, r26607, MPFR_RNDN);
        mpfr_pow(r26641, r26640, r26634, MPFR_RNDN);
        mpfr_pow(r26642, r26615, r26634, MPFR_RNDN);
        mpfr_mul(r26643, r26641, r26642, MPFR_RNDN);
        mpfr_mul(r26644, r26635, r26643, MPFR_RNDN);
        mpfr_mul(r26645, r26644, r26623, MPFR_RNDN);
        mpfr_mul(r26646, r26619, r26634, MPFR_RNDN);
        mpfr_div(r26647, r26611, r26607, MPFR_RNDN);
        mpfr_mul(r26648, r26646, r26647, MPFR_RNDN);
        mpfr_sub(r26649, r26610, r26648, MPFR_RNDN);
        mpfr_div(r26650, r26615, r26607, MPFR_RNDN);
        mpfr_pow(r26651, r26650, r26634, MPFR_RNDN);
        mpfr_div(r26652, r26610, r26611, MPFR_RNDN);
        mpfr_pow(r26653, r26652, r26634, MPFR_RNDN);
        mpfr_mul(r26654, r26642, r26653, MPFR_RNDN);
        mpfr_mul(r26655, r26651, r26654, MPFR_RNDN);
        mpfr_mul(r26656, r26649, r26655, MPFR_RNDN);
        if (mpfr_get_si(r26639, MPFR_RNDN)) { mpfr_set(r26657, r26645, MPFR_RNDN); } else { mpfr_set(r26657, r26656, MPFR_RNDN); };
        if (mpfr_get_si(r26609, MPFR_RNDN)) { mpfr_set(r26658, r26637, MPFR_RNDN); } else { mpfr_set(r26658, r26657, MPFR_RNDN); };
        return mpfr_get_d(r26658, MPFR_RNDN);
}