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

char *name = "expq3 (problem 3.4.2)";

double f_if(float a, float b, float eps) {
        float r26610 = eps;
        float r26611 = a;
        float r26612 = b;
        float r26613 = r26611 + r26612;
        float r26614 = r26613 * r26610;
        float r26615 = exp(r26614);
        float r26616 = 1;
        float r26617 = r26615 - r26616;
        float r26618 = r26610 * r26617;
        float r26619 = r26611 * r26610;
        float r26620 = exp(r26619);
        float r26621 = r26620 - r26616;
        float r26622 = r26612 * r26610;
        float r26623 = exp(r26622);
        float r26624 = r26623 - r26616;
        float r26625 = r26621 * r26624;
        float r26626 = r26618 / r26625;
        return r26626;
}

double f_id(double a, double b, double eps) {
        double r26627 = eps;
        double r26628 = a;
        double r26629 = b;
        double r26630 = r26628 + r26629;
        double r26631 = r26630 * r26627;
        double r26632 = exp(r26631);
        double r26633 = 1;
        double r26634 = r26632 - r26633;
        double r26635 = r26627 * r26634;
        double r26636 = r26628 * r26627;
        double r26637 = exp(r26636);
        double r26638 = r26637 - r26633;
        double r26639 = r26629 * r26627;
        double r26640 = exp(r26639);
        double r26641 = r26640 - r26633;
        double r26642 = r26638 * r26641;
        double r26643 = r26635 / r26642;
        return r26643;
}


double f_of(float a, float b, float eps) {
        float r26644 = eps;
        float r26645 = a;
        float r26646 = b;
        float r26647 = r26645 + r26646;
        float r26648 = r26647 * r26644;
        float r26649 = exp(r26648);
        float r26650 = 1;
        float r26651 = r26649 - r26650;
        float r26652 = r26644 * r26651;
        float r26653 = r26645 * r26644;
        float r26654 = exp(r26653);
        float r26655 = r26654 - r26650;
        float r26656 = r26646 * r26644;
        float r26657 = exp(r26656);
        float r26658 = r26657 - r26650;
        float r26659 = r26655 * r26658;
        float r26660 = r26652 / r26659;
        float r26661 = -1.7834411869978269e+308;
        bool r26662 = r26660 <= r26661;
        float r26663 = r26650 / r26646;
        float r26664 = r26650 / r26645;
        float r26665 = r26663 + r26664;
        float r26666 = 1.7834989656068498e+308;
        bool r26667 = r26660 <= r26666;
        float r26668 = r26667 ? r26660 : r26665;
        float r26669 = r26662 ? r26665 : r26668;
        return r26669;
}

double f_od(double a, double b, double eps) {
        double r26670 = eps;
        double r26671 = a;
        double r26672 = b;
        double r26673 = r26671 + r26672;
        double r26674 = r26673 * r26670;
        double r26675 = exp(r26674);
        double r26676 = 1;
        double r26677 = r26675 - r26676;
        double r26678 = r26670 * r26677;
        double r26679 = r26671 * r26670;
        double r26680 = exp(r26679);
        double r26681 = r26680 - r26676;
        double r26682 = r26672 * r26670;
        double r26683 = exp(r26682);
        double r26684 = r26683 - r26676;
        double r26685 = r26681 * r26684;
        double r26686 = r26678 / r26685;
        double r26687 = -1.7834411869978269e+308;
        bool r26688 = r26686 <= r26687;
        double r26689 = r26676 / r26672;
        double r26690 = r26676 / r26671;
        double r26691 = r26689 + r26690;
        double r26692 = 1.7834989656068498e+308;
        bool r26693 = r26686 <= r26692;
        double r26694 = r26693 ? r26686 : r26691;
        double r26695 = r26688 ? r26691 : r26694;
        return r26695;
}

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 r26696, r26697, r26698, r26699, r26700, r26701, r26702, r26703, r26704, r26705, r26706, r26707, r26708, r26709, r26710, r26711, r26712;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2384);
        mpfr_init(r26696);
        mpfr_init(r26697);
        mpfr_init(r26698);
        mpfr_init(r26699);
        mpfr_init(r26700);
        mpfr_init(r26701);
        mpfr_init_set_str(r26702, "1", 10, MPFR_RNDN);
        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);
}

double f_im(double a, double b, double eps) {
        mpfr_set_d(r26696, eps, MPFR_RNDN);
        mpfr_set_d(r26697, a, MPFR_RNDN);
        mpfr_set_d(r26698, b, MPFR_RNDN);
        mpfr_add(r26699, r26697, r26698, MPFR_RNDN);
        mpfr_mul(r26700, r26699, r26696, MPFR_RNDN);
        mpfr_exp(r26701, r26700, MPFR_RNDN);
        ;
        mpfr_sub(r26703, r26701, r26702, MPFR_RNDN);
        mpfr_mul(r26704, r26696, r26703, MPFR_RNDN);
        mpfr_mul(r26705, r26697, r26696, MPFR_RNDN);
        mpfr_exp(r26706, r26705, MPFR_RNDN);
        mpfr_sub(r26707, r26706, r26702, MPFR_RNDN);
        mpfr_mul(r26708, r26698, r26696, MPFR_RNDN);
        mpfr_exp(r26709, r26708, MPFR_RNDN);
        mpfr_sub(r26710, r26709, r26702, MPFR_RNDN);
        mpfr_mul(r26711, r26707, r26710, MPFR_RNDN);
        mpfr_div(r26712, r26704, r26711, MPFR_RNDN);
        return mpfr_get_d(r26712, MPFR_RNDN);
}

static mpfr_t 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;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2384);
        mpfr_init(r26713);
        mpfr_init(r26714);
        mpfr_init(r26715);
        mpfr_init(r26716);
        mpfr_init(r26717);
        mpfr_init(r26718);
        mpfr_init_set_str(r26719, "1", 10, MPFR_RNDN);
        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(r26729);
        mpfr_init_set_str(r26730, "-1.7834411869978269e+308", 10, MPFR_RNDN);
        mpfr_init(r26731);
        mpfr_init(r26732);
        mpfr_init(r26733);
        mpfr_init(r26734);
        mpfr_init_set_str(r26735, "1.7834989656068498e+308", 10, MPFR_RNDN);
        mpfr_init(r26736);
        mpfr_init(r26737);
        mpfr_init(r26738);
}

double f_fm(double a, double b, double eps) {
        mpfr_set_d(r26713, eps, MPFR_RNDN);
        mpfr_set_d(r26714, a, MPFR_RNDN);
        mpfr_set_d(r26715, b, MPFR_RNDN);
        mpfr_add(r26716, r26714, r26715, MPFR_RNDN);
        mpfr_mul(r26717, r26716, r26713, MPFR_RNDN);
        mpfr_exp(r26718, r26717, MPFR_RNDN);
        ;
        mpfr_sub(r26720, r26718, r26719, MPFR_RNDN);
        mpfr_mul(r26721, r26713, r26720, MPFR_RNDN);
        mpfr_mul(r26722, r26714, r26713, MPFR_RNDN);
        mpfr_exp(r26723, r26722, MPFR_RNDN);
        mpfr_sub(r26724, r26723, r26719, MPFR_RNDN);
        mpfr_mul(r26725, r26715, r26713, MPFR_RNDN);
        mpfr_exp(r26726, r26725, MPFR_RNDN);
        mpfr_sub(r26727, r26726, r26719, MPFR_RNDN);
        mpfr_mul(r26728, r26724, r26727, MPFR_RNDN);
        mpfr_div(r26729, r26721, r26728, MPFR_RNDN);
        ;
        mpfr_set_si(r26731, mpfr_cmp(r26729, r26730) <= 0, MPFR_RNDN);
        mpfr_div(r26732, r26719, r26715, MPFR_RNDN);
        mpfr_div(r26733, r26719, r26714, MPFR_RNDN);
        mpfr_add(r26734, r26732, r26733, MPFR_RNDN);
        ;
        mpfr_set_si(r26736, mpfr_cmp(r26729, r26735) <= 0, MPFR_RNDN);
        if (mpfr_get_si(r26736, MPFR_RNDN)) { mpfr_set(r26737, r26729, MPFR_RNDN); } else { mpfr_set(r26737, r26734, MPFR_RNDN); };
        if (mpfr_get_si(r26731, MPFR_RNDN)) { mpfr_set(r26738, r26734, MPFR_RNDN); } else { mpfr_set(r26738, r26737, MPFR_RNDN); };
        return mpfr_get_d(r26738, MPFR_RNDN);
}

static mpfr_t r26739, r26740, r26741, r26742, r26743, r26744, r26745, r26746, r26747, r26748, r26749, r26750, r26751, r26752, r26753, r26754, r26755, r26756, r26757, r26758, r26759, r26760, r26761, r26762, r26763, r26764;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2384);
        mpfr_init(r26739);
        mpfr_init(r26740);
        mpfr_init(r26741);
        mpfr_init(r26742);
        mpfr_init(r26743);
        mpfr_init(r26744);
        mpfr_init_set_str(r26745, "1", 10, MPFR_RNDN);
        mpfr_init(r26746);
        mpfr_init(r26747);
        mpfr_init(r26748);
        mpfr_init(r26749);
        mpfr_init(r26750);
        mpfr_init(r26751);
        mpfr_init(r26752);
        mpfr_init(r26753);
        mpfr_init(r26754);
        mpfr_init(r26755);
        mpfr_init_set_str(r26756, "-1.7834411869978269e+308", 10, MPFR_RNDN);
        mpfr_init(r26757);
        mpfr_init(r26758);
        mpfr_init(r26759);
        mpfr_init(r26760);
        mpfr_init_set_str(r26761, "1.7834989656068498e+308", 10, MPFR_RNDN);
        mpfr_init(r26762);
        mpfr_init(r26763);
        mpfr_init(r26764);
}

double f_dm(double a, double b, double eps) {
        mpfr_set_d(r26739, eps, MPFR_RNDN);
        mpfr_set_d(r26740, a, MPFR_RNDN);
        mpfr_set_d(r26741, b, MPFR_RNDN);
        mpfr_add(r26742, r26740, r26741, MPFR_RNDN);
        mpfr_mul(r26743, r26742, r26739, MPFR_RNDN);
        mpfr_exp(r26744, r26743, MPFR_RNDN);
        ;
        mpfr_sub(r26746, r26744, r26745, MPFR_RNDN);
        mpfr_mul(r26747, r26739, r26746, MPFR_RNDN);
        mpfr_mul(r26748, r26740, r26739, MPFR_RNDN);
        mpfr_exp(r26749, r26748, MPFR_RNDN);
        mpfr_sub(r26750, r26749, r26745, MPFR_RNDN);
        mpfr_mul(r26751, r26741, r26739, MPFR_RNDN);
        mpfr_exp(r26752, r26751, MPFR_RNDN);
        mpfr_sub(r26753, r26752, r26745, MPFR_RNDN);
        mpfr_mul(r26754, r26750, r26753, MPFR_RNDN);
        mpfr_div(r26755, r26747, r26754, MPFR_RNDN);
        ;
        mpfr_set_si(r26757, mpfr_cmp(r26755, r26756) <= 0, MPFR_RNDN);
        mpfr_div(r26758, r26745, r26741, MPFR_RNDN);
        mpfr_div(r26759, r26745, r26740, MPFR_RNDN);
        mpfr_add(r26760, r26758, r26759, MPFR_RNDN);
        ;
        mpfr_set_si(r26762, mpfr_cmp(r26755, r26761) <= 0, MPFR_RNDN);
        if (mpfr_get_si(r26762, MPFR_RNDN)) { mpfr_set(r26763, r26755, MPFR_RNDN); } else { mpfr_set(r26763, r26760, MPFR_RNDN); };
        if (mpfr_get_si(r26757, MPFR_RNDN)) { mpfr_set(r26764, r26760, MPFR_RNDN); } else { mpfr_set(r26764, r26763, MPFR_RNDN); };
        return mpfr_get_d(r26764, MPFR_RNDN);
}