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

char *name = "Hakyll.Web.Tags:renderTagCloud from hakyll-4.7.2.3";

double f_if(float x, float y, float z, float t, float a) {
        float r17605 = x;
        float r17606 = y;
        float r17607 = z;
        float r17608 = r17606 - r17607;
        float r17609 = t;
        float r17610 = 1.0f;
        float r17611 = r17609 + r17610;
        float r17612 = r17611 - r17607;
        float r17613 = r17608 / r17612;
        float r17614 = a;
        float r17615 = r17614 - r17605;
        float r17616 = r17613 * r17615;
        float r17617 = r17605 + r17616;
        return r17617;
}

double f_id(double x, double y, double z, double t, double a) {
        double r17618 = x;
        double r17619 = y;
        double r17620 = z;
        double r17621 = r17619 - r17620;
        double r17622 = t;
        double r17623 = 1.0;
        double r17624 = r17622 + r17623;
        double r17625 = r17624 - r17620;
        double r17626 = r17621 / r17625;
        double r17627 = a;
        double r17628 = r17627 - r17618;
        double r17629 = r17626 * r17628;
        double r17630 = r17618 + r17629;
        return r17630;
}


double f_of(float x, float y, float z, float t, float a) {
        float r17631 = z;
        float r17632 = -2.4724579276140303e+244f;
        bool r17633 = r17631 <= r17632;
        float r17634 = x;
        float r17635 = a;
        float r17636 = r17634 - r17635;
        float r17637 = y;
        float r17638 = r17637 / r17631;
        float r17639 = fma(r17636, r17638, r17635);
        float r17640 = 1.7059758340520525e+174f;
        bool r17641 = r17631 <= r17640;
        float r17642 = r17635 - r17634;
        float r17643 = 1.0f;
        float r17644 = 1.0f;
        float r17645 = t;
        float r17646 = r17644 + r17645;
        float r17647 = r17646 - r17631;
        float r17648 = r17637 - r17631;
        float r17649 = r17647 / r17648;
        float r17650 = r17643 / r17649;
        float r17651 = fma(r17642, r17650, r17634);
        float r17652 = r17641 ? r17651 : r17639;
        float r17653 = r17633 ? r17639 : r17652;
        return r17653;
}

double f_od(double x, double y, double z, double t, double a) {
        double r17654 = z;
        double r17655 = -2.4724579276140303e+244;
        bool r17656 = r17654 <= r17655;
        double r17657 = x;
        double r17658 = a;
        double r17659 = r17657 - r17658;
        double r17660 = y;
        double r17661 = r17660 / r17654;
        double r17662 = fma(r17659, r17661, r17658);
        double r17663 = 1.7059758340520525e+174;
        bool r17664 = r17654 <= r17663;
        double r17665 = r17658 - r17657;
        double r17666 = 1.0;
        double r17667 = 1.0;
        double r17668 = t;
        double r17669 = r17667 + r17668;
        double r17670 = r17669 - r17654;
        double r17671 = r17660 - r17654;
        double r17672 = r17670 / r17671;
        double r17673 = r17666 / r17672;
        double r17674 = fma(r17665, r17673, r17657);
        double r17675 = r17664 ? r17674 : r17662;
        double r17676 = r17656 ? r17662 : r17675;
        return r17676;
}

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 r17677, r17678, r17679, r17680, r17681, r17682, r17683, r17684, r17685, r17686, r17687, r17688, r17689;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r17677);
        mpfr_init(r17678);
        mpfr_init(r17679);
        mpfr_init(r17680);
        mpfr_init(r17681);
        mpfr_init_set_str(r17682, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17683);
        mpfr_init(r17684);
        mpfr_init(r17685);
        mpfr_init(r17686);
        mpfr_init(r17687);
        mpfr_init(r17688);
        mpfr_init(r17689);
}

double f_im(double x, double y, double z, double t, double a) {
        mpfr_set_d(r17677, x, MPFR_RNDN);
        mpfr_set_d(r17678, y, MPFR_RNDN);
        mpfr_set_d(r17679, z, MPFR_RNDN);
        mpfr_sub(r17680, r17678, r17679, MPFR_RNDN);
        mpfr_set_d(r17681, t, MPFR_RNDN);
        ;
        mpfr_add(r17683, r17681, r17682, MPFR_RNDN);
        mpfr_sub(r17684, r17683, r17679, MPFR_RNDN);
        mpfr_div(r17685, r17680, r17684, MPFR_RNDN);
        mpfr_set_d(r17686, a, MPFR_RNDN);
        mpfr_sub(r17687, r17686, r17677, MPFR_RNDN);
        mpfr_mul(r17688, r17685, r17687, MPFR_RNDN);
        mpfr_add(r17689, r17677, r17688, MPFR_RNDN);
        return mpfr_get_d(r17689, MPFR_RNDN);
}

static mpfr_t r17690, r17691, r17692, r17693, r17694, r17695, r17696, r17697, r17698, r17699, r17700, r17701, r17702, r17703, r17704, r17705, r17706, r17707, r17708, r17709, r17710, r17711, r17712;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r17690);
        mpfr_init_set_str(r17691, "-2.4724579276140303e+244", 10, MPFR_RNDN);
        mpfr_init(r17692);
        mpfr_init(r17693);
        mpfr_init(r17694);
        mpfr_init(r17695);
        mpfr_init(r17696);
        mpfr_init(r17697);
        mpfr_init(r17698);
        mpfr_init_set_str(r17699, "1.7059758340520525e+174", 10, MPFR_RNDN);
        mpfr_init(r17700);
        mpfr_init(r17701);
        mpfr_init_set_str(r17702, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r17703, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17704);
        mpfr_init(r17705);
        mpfr_init(r17706);
        mpfr_init(r17707);
        mpfr_init(r17708);
        mpfr_init(r17709);
        mpfr_init(r17710);
        mpfr_init(r17711);
        mpfr_init(r17712);
}

double f_fm(double x, double y, double z, double t, double a) {
        mpfr_set_d(r17690, z, MPFR_RNDN);
        ;
        mpfr_set_si(r17692, mpfr_cmp(r17690, r17691) <= 0, MPFR_RNDN);
        mpfr_set_d(r17693, x, MPFR_RNDN);
        mpfr_set_d(r17694, a, MPFR_RNDN);
        mpfr_sub(r17695, r17693, r17694, MPFR_RNDN);
        mpfr_set_d(r17696, y, MPFR_RNDN);
        mpfr_div(r17697, r17696, r17690, MPFR_RNDN);
        mpfr_fma(r17698, r17695, r17697, r17694, MPFR_RNDN);
        ;
        mpfr_set_si(r17700, mpfr_cmp(r17690, r17699) <= 0, MPFR_RNDN);
        mpfr_sub(r17701, r17694, r17693, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r17704, t, MPFR_RNDN);
        mpfr_add(r17705, r17703, r17704, MPFR_RNDN);
        mpfr_sub(r17706, r17705, r17690, MPFR_RNDN);
        mpfr_sub(r17707, r17696, r17690, MPFR_RNDN);
        mpfr_div(r17708, r17706, r17707, MPFR_RNDN);
        mpfr_div(r17709, r17702, r17708, MPFR_RNDN);
        mpfr_fma(r17710, r17701, r17709, r17693, MPFR_RNDN);
        if (mpfr_get_si(r17700, MPFR_RNDN)) { mpfr_set(r17711, r17710, MPFR_RNDN); } else { mpfr_set(r17711, r17698, MPFR_RNDN); };
        if (mpfr_get_si(r17692, MPFR_RNDN)) { mpfr_set(r17712, r17698, MPFR_RNDN); } else { mpfr_set(r17712, r17711, MPFR_RNDN); };
        return mpfr_get_d(r17712, MPFR_RNDN);
}

static mpfr_t r17713, r17714, r17715, r17716, r17717, r17718, r17719, r17720, r17721, r17722, r17723, r17724, r17725, r17726, r17727, r17728, r17729, r17730, r17731, r17732, r17733, r17734, r17735;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r17713);
        mpfr_init_set_str(r17714, "-2.4724579276140303e+244", 10, MPFR_RNDN);
        mpfr_init(r17715);
        mpfr_init(r17716);
        mpfr_init(r17717);
        mpfr_init(r17718);
        mpfr_init(r17719);
        mpfr_init(r17720);
        mpfr_init(r17721);
        mpfr_init_set_str(r17722, "1.7059758340520525e+174", 10, MPFR_RNDN);
        mpfr_init(r17723);
        mpfr_init(r17724);
        mpfr_init_set_str(r17725, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r17726, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17727);
        mpfr_init(r17728);
        mpfr_init(r17729);
        mpfr_init(r17730);
        mpfr_init(r17731);
        mpfr_init(r17732);
        mpfr_init(r17733);
        mpfr_init(r17734);
        mpfr_init(r17735);
}

double f_dm(double x, double y, double z, double t, double a) {
        mpfr_set_d(r17713, z, MPFR_RNDN);
        ;
        mpfr_set_si(r17715, mpfr_cmp(r17713, r17714) <= 0, MPFR_RNDN);
        mpfr_set_d(r17716, x, MPFR_RNDN);
        mpfr_set_d(r17717, a, MPFR_RNDN);
        mpfr_sub(r17718, r17716, r17717, MPFR_RNDN);
        mpfr_set_d(r17719, y, MPFR_RNDN);
        mpfr_div(r17720, r17719, r17713, MPFR_RNDN);
        mpfr_fma(r17721, r17718, r17720, r17717, MPFR_RNDN);
        ;
        mpfr_set_si(r17723, mpfr_cmp(r17713, r17722) <= 0, MPFR_RNDN);
        mpfr_sub(r17724, r17717, r17716, MPFR_RNDN);
        ;
        ;
        mpfr_set_d(r17727, t, MPFR_RNDN);
        mpfr_add(r17728, r17726, r17727, MPFR_RNDN);
        mpfr_sub(r17729, r17728, r17713, MPFR_RNDN);
        mpfr_sub(r17730, r17719, r17713, MPFR_RNDN);
        mpfr_div(r17731, r17729, r17730, MPFR_RNDN);
        mpfr_div(r17732, r17725, r17731, MPFR_RNDN);
        mpfr_fma(r17733, r17724, r17732, r17716, MPFR_RNDN);
        if (mpfr_get_si(r17723, MPFR_RNDN)) { mpfr_set(r17734, r17733, MPFR_RNDN); } else { mpfr_set(r17734, r17721, MPFR_RNDN); };
        if (mpfr_get_si(r17715, MPFR_RNDN)) { mpfr_set(r17735, r17721, MPFR_RNDN); } else { mpfr_set(r17735, r17734, MPFR_RNDN); };
        return mpfr_get_d(r17735, MPFR_RNDN);
}