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

char *name = "sintan (problem 3.4.5)";

double f_if(float x) {
        float r19585 = x;
        float r19586 = sin(r19585);
        float r19587 = r19585 - r19586;
        float r19588 = tan(r19585);
        float r19589 = r19585 - r19588;
        float r19590 = r19587 / r19589;
        return r19590;
}

double f_id(double x) {
        double r19591 = x;
        double r19592 = sin(r19591);
        double r19593 = r19591 - r19592;
        double r19594 = tan(r19591);
        double r19595 = r19591 - r19594;
        double r19596 = r19593 / r19595;
        return r19596;
}


double f_of(float x) {
        float r19597 = x;
        float r19598 = -0.0006848976318816709;
        bool r19599 = r19597 <= r19598;
        float r19600 = sin(r19597);
        float r19601 = r19597 - r19600;
        float r19602 = tan(r19597);
        float r19603 = r19597 - r19602;
        float r19604 = r19601 / r19603;
        float r19605 = 4185100.604392328;
        bool r19606 = r19597 <= r19605;
        float r19607 = -1/2;
        float r19608 = -1/8;
        float r19609 = cbrt(r19608);
        float r19610 = 4;
        float r19611 = pow(r19597, r19610);
        float r19612 = 27/1400;
        float r19613 = r19611 * r19612;
        float r19614 = 9/20;
        float r19615 = r19614 * r19597;
        float r19616 = r19597 * r19615;
        float r19617 = r19613 - r19616;
        float r19618 = r19609 * r19617;
        float r19619 = r19607 + r19618;
        float r19620 = r19606 ? r19619 : r19604;
        float r19621 = r19599 ? r19604 : r19620;
        return r19621;
}

double f_od(double x) {
        double r19622 = x;
        double r19623 = -0.0006848976318816709;
        bool r19624 = r19622 <= r19623;
        double r19625 = sin(r19622);
        double r19626 = r19622 - r19625;
        double r19627 = tan(r19622);
        double r19628 = r19622 - r19627;
        double r19629 = r19626 / r19628;
        double r19630 = 4185100.604392328;
        bool r19631 = r19622 <= r19630;
        double r19632 = -1/2;
        double r19633 = -1/8;
        double r19634 = cbrt(r19633);
        double r19635 = 4;
        double r19636 = pow(r19622, r19635);
        double r19637 = 27/1400;
        double r19638 = r19636 * r19637;
        double r19639 = 9/20;
        double r19640 = r19639 * r19622;
        double r19641 = r19622 * r19640;
        double r19642 = r19638 - r19641;
        double r19643 = r19634 * r19642;
        double r19644 = r19632 + r19643;
        double r19645 = r19631 ? r19644 : r19629;
        double r19646 = r19624 ? r19629 : r19645;
        return r19646;
}

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 r19647, r19648, r19649, r19650, r19651, r19652;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2448);
        mpfr_init(r19647);
        mpfr_init(r19648);
        mpfr_init(r19649);
        mpfr_init(r19650);
        mpfr_init(r19651);
        mpfr_init(r19652);
}

double f_im(double x) {
        mpfr_set_d(r19647, x, MPFR_RNDN);
        mpfr_sin(r19648, r19647, MPFR_RNDN);
        mpfr_sub(r19649, r19647, r19648, MPFR_RNDN);
        mpfr_tan(r19650, r19647, MPFR_RNDN);
        mpfr_sub(r19651, r19647, r19650, MPFR_RNDN);
        mpfr_div(r19652, r19649, r19651, MPFR_RNDN);
        return mpfr_get_d(r19652, MPFR_RNDN);
}

static mpfr_t r19653, r19654, r19655, r19656, r19657, r19658, r19659, r19660, r19661, r19662, r19663, r19664, r19665, r19666, r19667, r19668, r19669, r19670, r19671, r19672, r19673, r19674, r19675, r19676, r19677;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2448);
        mpfr_init(r19653);
        mpfr_init_set_str(r19654, "-0.0006848976318816709", 10, MPFR_RNDN);
        mpfr_init(r19655);
        mpfr_init(r19656);
        mpfr_init(r19657);
        mpfr_init(r19658);
        mpfr_init(r19659);
        mpfr_init(r19660);
        mpfr_init_set_str(r19661, "4185100.604392328", 10, MPFR_RNDN);
        mpfr_init(r19662);
        mpfr_init_set_str(r19663, "-1/2", 10, MPFR_RNDN);
        mpfr_init_set_str(r19664, "-1/8", 10, MPFR_RNDN);
        mpfr_init(r19665);
        mpfr_init_set_str(r19666, "4", 10, MPFR_RNDN);
        mpfr_init(r19667);
        mpfr_init_set_str(r19668, "27/1400", 10, MPFR_RNDN);
        mpfr_init(r19669);
        mpfr_init_set_str(r19670, "9/20", 10, MPFR_RNDN);
        mpfr_init(r19671);
        mpfr_init(r19672);
        mpfr_init(r19673);
        mpfr_init(r19674);
        mpfr_init(r19675);
        mpfr_init(r19676);
        mpfr_init(r19677);
}

double f_fm(double x) {
        mpfr_set_d(r19653, x, MPFR_RNDN);
        ;
        mpfr_set_si(r19655, mpfr_cmp(r19653, r19654) <= 0, MPFR_RNDN);
        mpfr_sin(r19656, r19653, MPFR_RNDN);
        mpfr_sub(r19657, r19653, r19656, MPFR_RNDN);
        mpfr_tan(r19658, r19653, MPFR_RNDN);
        mpfr_sub(r19659, r19653, r19658, MPFR_RNDN);
        mpfr_div(r19660, r19657, r19659, MPFR_RNDN);
        ;
        mpfr_set_si(r19662, mpfr_cmp(r19653, r19661) <= 0, MPFR_RNDN);
        ;
        ;
        mpfr_cbrt(r19665, r19664, MPFR_RNDN);
        ;
        mpfr_pow(r19667, r19653, r19666, MPFR_RNDN);
        ;
        mpfr_mul(r19669, r19667, r19668, MPFR_RNDN);
        ;
        mpfr_mul(r19671, r19670, r19653, MPFR_RNDN);
        mpfr_mul(r19672, r19653, r19671, MPFR_RNDN);
        mpfr_sub(r19673, r19669, r19672, MPFR_RNDN);
        mpfr_mul(r19674, r19665, r19673, MPFR_RNDN);
        mpfr_add(r19675, r19663, r19674, MPFR_RNDN);
        if (mpfr_get_si(r19662, MPFR_RNDN)) { mpfr_set(r19676, r19675, MPFR_RNDN); } else { mpfr_set(r19676, r19660, MPFR_RNDN); };
        if (mpfr_get_si(r19655, MPFR_RNDN)) { mpfr_set(r19677, r19660, MPFR_RNDN); } else { mpfr_set(r19677, r19676, MPFR_RNDN); };
        return mpfr_get_d(r19677, MPFR_RNDN);
}

static mpfr_t r19678, r19679, r19680, r19681, r19682, r19683, r19684, r19685, r19686, r19687, r19688, r19689, r19690, r19691, r19692, r19693, r19694, r19695, r19696, r19697, r19698, r19699, r19700, r19701, r19702;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2448);
        mpfr_init(r19678);
        mpfr_init_set_str(r19679, "-0.0006848976318816709", 10, MPFR_RNDN);
        mpfr_init(r19680);
        mpfr_init(r19681);
        mpfr_init(r19682);
        mpfr_init(r19683);
        mpfr_init(r19684);
        mpfr_init(r19685);
        mpfr_init_set_str(r19686, "4185100.604392328", 10, MPFR_RNDN);
        mpfr_init(r19687);
        mpfr_init_set_str(r19688, "-1/2", 10, MPFR_RNDN);
        mpfr_init_set_str(r19689, "-1/8", 10, MPFR_RNDN);
        mpfr_init(r19690);
        mpfr_init_set_str(r19691, "4", 10, MPFR_RNDN);
        mpfr_init(r19692);
        mpfr_init_set_str(r19693, "27/1400", 10, MPFR_RNDN);
        mpfr_init(r19694);
        mpfr_init_set_str(r19695, "9/20", 10, MPFR_RNDN);
        mpfr_init(r19696);
        mpfr_init(r19697);
        mpfr_init(r19698);
        mpfr_init(r19699);
        mpfr_init(r19700);
        mpfr_init(r19701);
        mpfr_init(r19702);
}

double f_dm(double x) {
        mpfr_set_d(r19678, x, MPFR_RNDN);
        ;
        mpfr_set_si(r19680, mpfr_cmp(r19678, r19679) <= 0, MPFR_RNDN);
        mpfr_sin(r19681, r19678, MPFR_RNDN);
        mpfr_sub(r19682, r19678, r19681, MPFR_RNDN);
        mpfr_tan(r19683, r19678, MPFR_RNDN);
        mpfr_sub(r19684, r19678, r19683, MPFR_RNDN);
        mpfr_div(r19685, r19682, r19684, MPFR_RNDN);
        ;
        mpfr_set_si(r19687, mpfr_cmp(r19678, r19686) <= 0, MPFR_RNDN);
        ;
        ;
        mpfr_cbrt(r19690, r19689, MPFR_RNDN);
        ;
        mpfr_pow(r19692, r19678, r19691, MPFR_RNDN);
        ;
        mpfr_mul(r19694, r19692, r19693, MPFR_RNDN);
        ;
        mpfr_mul(r19696, r19695, r19678, MPFR_RNDN);
        mpfr_mul(r19697, r19678, r19696, MPFR_RNDN);
        mpfr_sub(r19698, r19694, r19697, MPFR_RNDN);
        mpfr_mul(r19699, r19690, r19698, MPFR_RNDN);
        mpfr_add(r19700, r19688, r19699, MPFR_RNDN);
        if (mpfr_get_si(r19687, MPFR_RNDN)) { mpfr_set(r19701, r19700, MPFR_RNDN); } else { mpfr_set(r19701, r19685, MPFR_RNDN); };
        if (mpfr_get_si(r19680, MPFR_RNDN)) { mpfr_set(r19702, r19685, MPFR_RNDN); } else { mpfr_set(r19702, r19701, MPFR_RNDN); };
        return mpfr_get_d(r19702, MPFR_RNDN);
}