#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.0024305039006771983;
        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 = 2859.9798077968026;
        bool r19606 = r19597 <= r19605;
        float r19607 = 9/40;
        float r19608 = 2;
        float r19609 = pow(r19597, r19608);
        float r19610 = r19607 * r19609;
        float r19611 = 1/2;
        float r19612 = 27/2800;
        float r19613 = 4;
        float r19614 = pow(r19597, r19613);
        float r19615 = r19612 * r19614;
        float r19616 = r19611 + r19615;
        float r19617 = r19610 - r19616;
        float r19618 = r19606 ? r19617 : r19604;
        float r19619 = r19599 ? r19604 : r19618;
        return r19619;
}

double f_od(double x) {
        double r19620 = x;
        double r19621 = -0.0024305039006771983;
        bool r19622 = r19620 <= r19621;
        double r19623 = sin(r19620);
        double r19624 = r19620 - r19623;
        double r19625 = tan(r19620);
        double r19626 = r19620 - r19625;
        double r19627 = r19624 / r19626;
        double r19628 = 2859.9798077968026;
        bool r19629 = r19620 <= r19628;
        double r19630 = 9/40;
        double r19631 = 2;
        double r19632 = pow(r19620, r19631);
        double r19633 = r19630 * r19632;
        double r19634 = 1/2;
        double r19635 = 27/2800;
        double r19636 = 4;
        double r19637 = pow(r19620, r19636);
        double r19638 = r19635 * r19637;
        double r19639 = r19634 + r19638;
        double r19640 = r19633 - r19639;
        double r19641 = r19629 ? r19640 : r19627;
        double r19642 = r19622 ? r19627 : r19641;
        return r19642;
}

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 r19643, r19644, r19645, r19646, r19647, r19648;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2448);
        mpfr_init(r19643);
        mpfr_init(r19644);
        mpfr_init(r19645);
        mpfr_init(r19646);
        mpfr_init(r19647);
        mpfr_init(r19648);
}

double f_im(double x) {
        mpfr_set_d(r19643, x, MPFR_RNDN);
        mpfr_sin(r19644, r19643, MPFR_RNDN);
        mpfr_sub(r19645, r19643, r19644, MPFR_RNDN);
        mpfr_tan(r19646, r19643, MPFR_RNDN);
        mpfr_sub(r19647, r19643, r19646, MPFR_RNDN);
        mpfr_div(r19648, r19645, r19647, MPFR_RNDN);
        return mpfr_get_d(r19648, MPFR_RNDN);
}

static mpfr_t r19649, r19650, r19651, r19652, r19653, r19654, r19655, r19656, r19657, r19658, r19659, r19660, r19661, r19662, r19663, r19664, r19665, r19666, r19667, r19668, r19669, r19670, r19671;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2448);
        mpfr_init(r19649);
        mpfr_init_set_str(r19650, "-0.0024305039006771983", 10, MPFR_RNDN);
        mpfr_init(r19651);
        mpfr_init(r19652);
        mpfr_init(r19653);
        mpfr_init(r19654);
        mpfr_init(r19655);
        mpfr_init(r19656);
        mpfr_init_set_str(r19657, "2859.9798077968026", 10, MPFR_RNDN);
        mpfr_init(r19658);
        mpfr_init_set_str(r19659, "9/40", 10, MPFR_RNDN);
        mpfr_init_set_str(r19660, "2", 10, MPFR_RNDN);
        mpfr_init(r19661);
        mpfr_init(r19662);
        mpfr_init_set_str(r19663, "1/2", 10, MPFR_RNDN);
        mpfr_init_set_str(r19664, "27/2800", 10, MPFR_RNDN);
        mpfr_init_set_str(r19665, "4", 10, MPFR_RNDN);
        mpfr_init(r19666);
        mpfr_init(r19667);
        mpfr_init(r19668);
        mpfr_init(r19669);
        mpfr_init(r19670);
        mpfr_init(r19671);
}

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

static mpfr_t r19672, r19673, r19674, r19675, r19676, r19677, r19678, r19679, r19680, r19681, r19682, r19683, r19684, r19685, r19686, r19687, r19688, r19689, r19690, r19691, r19692, r19693, r19694;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2448);
        mpfr_init(r19672);
        mpfr_init_set_str(r19673, "-0.0024305039006771983", 10, MPFR_RNDN);
        mpfr_init(r19674);
        mpfr_init(r19675);
        mpfr_init(r19676);
        mpfr_init(r19677);
        mpfr_init(r19678);
        mpfr_init(r19679);
        mpfr_init_set_str(r19680, "2859.9798077968026", 10, MPFR_RNDN);
        mpfr_init(r19681);
        mpfr_init_set_str(r19682, "9/40", 10, MPFR_RNDN);
        mpfr_init_set_str(r19683, "2", 10, MPFR_RNDN);
        mpfr_init(r19684);
        mpfr_init(r19685);
        mpfr_init_set_str(r19686, "1/2", 10, MPFR_RNDN);
        mpfr_init_set_str(r19687, "27/2800", 10, MPFR_RNDN);
        mpfr_init_set_str(r19688, "4", 10, MPFR_RNDN);
        mpfr_init(r19689);
        mpfr_init(r19690);
        mpfr_init(r19691);
        mpfr_init(r19692);
        mpfr_init(r19693);
        mpfr_init(r19694);
}

double f_dm(double x) {
        mpfr_set_d(r19672, x, MPFR_RNDN);
        ;
        mpfr_set_si(r19674, mpfr_cmp(r19672, r19673) <= 0, MPFR_RNDN);
        mpfr_sin(r19675, r19672, MPFR_RNDN);
        mpfr_sub(r19676, r19672, r19675, MPFR_RNDN);
        mpfr_tan(r19677, r19672, MPFR_RNDN);
        mpfr_sub(r19678, r19672, r19677, MPFR_RNDN);
        mpfr_div(r19679, r19676, r19678, MPFR_RNDN);
        ;
        mpfr_set_si(r19681, mpfr_cmp(r19672, r19680) <= 0, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r19684, r19672, r19683, MPFR_RNDN);
        mpfr_mul(r19685, r19682, r19684, MPFR_RNDN);
        ;
        ;
        ;
        mpfr_pow(r19689, r19672, r19688, MPFR_RNDN);
        mpfr_mul(r19690, r19687, r19689, MPFR_RNDN);
        mpfr_add(r19691, r19686, r19690, MPFR_RNDN);
        mpfr_sub(r19692, r19685, r19691, MPFR_RNDN);
        if (mpfr_get_si(r19681, MPFR_RNDN)) { mpfr_set(r19693, r19692, MPFR_RNDN); } else { mpfr_set(r19693, r19679, MPFR_RNDN); };
        if (mpfr_get_si(r19674, MPFR_RNDN)) { mpfr_set(r19694, r19679, MPFR_RNDN); } else { mpfr_set(r19694, r19693, MPFR_RNDN); };
        return mpfr_get_d(r19694, MPFR_RNDN);
}