#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 r18440 = x;
        float r18441 = sin(r18440);
        float r18442 = r18440 - r18441;
        float r18443 = tan(r18440);
        float r18444 = r18440 - r18443;
        float r18445 = r18442 / r18444;
        return r18445;
}

double f_id(double x) {
        double r18446 = x;
        double r18447 = sin(r18446);
        double r18448 = r18446 - r18447;
        double r18449 = tan(r18446);
        double r18450 = r18446 - r18449;
        double r18451 = r18448 / r18450;
        return r18451;
}


double f_of(float x) {
        float r18452 = x;
        float r18453 = -0.0013911129327831766f;
        bool r18454 = r18452 <= r18453;
        float r18455 = sin(r18452);
        float r18456 = r18452 - r18455;
        float r18457 = tan(r18452);
        float r18458 = r18452 - r18457;
        float r18459 = r18456 / r18458;
        float r18460 = 1283.0534255457483f;
        bool r18461 = r18452 <= r18460;
        float r18462 = 0.225f;
        float r18463 = r18452 * r18452;
        float r18464 = r18462 * r18463;
        float r18465 = 0.009642857142857142f;
        float r18466 = 4.0f;
        float r18467 = pow(r18452, r18466);
        float r18468 = r18465 * r18467;
        float r18469 = 0.5f;
        float r18470 = r18468 + r18469;
        float r18471 = r18464 - r18470;
        float r18472 = r18461 ? r18471 : r18459;
        float r18473 = r18454 ? r18459 : r18472;
        return r18473;
}

double f_od(double x) {
        double r18474 = x;
        double r18475 = -0.0013911129327831766;
        bool r18476 = r18474 <= r18475;
        double r18477 = sin(r18474);
        double r18478 = r18474 - r18477;
        double r18479 = tan(r18474);
        double r18480 = r18474 - r18479;
        double r18481 = r18478 / r18480;
        double r18482 = 1283.0534255457483;
        bool r18483 = r18474 <= r18482;
        double r18484 = 0.225;
        double r18485 = r18474 * r18474;
        double r18486 = r18484 * r18485;
        double r18487 = 0.009642857142857142;
        double r18488 = 4.0;
        double r18489 = pow(r18474, r18488);
        double r18490 = r18487 * r18489;
        double r18491 = 0.5;
        double r18492 = r18490 + r18491;
        double r18493 = r18486 - r18492;
        double r18494 = r18483 ? r18493 : r18481;
        double r18495 = r18476 ? r18481 : r18494;
        return r18495;
}

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 r18496, r18497, r18498, r18499, r18500, r18501;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2448);
        mpfr_init(r18496);
        mpfr_init(r18497);
        mpfr_init(r18498);
        mpfr_init(r18499);
        mpfr_init(r18500);
        mpfr_init(r18501);
}

double f_im(double x) {
        mpfr_set_d(r18496, x, MPFR_RNDN);
        mpfr_sin(r18497, r18496, MPFR_RNDN);
        mpfr_sub(r18498, r18496, r18497, MPFR_RNDN);
        mpfr_tan(r18499, r18496, MPFR_RNDN);
        mpfr_sub(r18500, r18496, r18499, MPFR_RNDN);
        mpfr_div(r18501, r18498, r18500, MPFR_RNDN);
        return mpfr_get_d(r18501, MPFR_RNDN);
}

static mpfr_t r18502, r18503, r18504, r18505, r18506, r18507, r18508, r18509, r18510, r18511, r18512, r18513, r18514, r18515, r18516, r18517, r18518, r18519, r18520, r18521, r18522, r18523;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2448);
        mpfr_init(r18502);
        mpfr_init_set_str(r18503, "-0.0013911129327831766", 10, MPFR_RNDN);
        mpfr_init(r18504);
        mpfr_init(r18505);
        mpfr_init(r18506);
        mpfr_init(r18507);
        mpfr_init(r18508);
        mpfr_init(r18509);
        mpfr_init_set_str(r18510, "1283.0534255457483", 10, MPFR_RNDN);
        mpfr_init(r18511);
        mpfr_init_set_str(r18512, "9/40", 10, MPFR_RNDN);
        mpfr_init(r18513);
        mpfr_init(r18514);
        mpfr_init_set_str(r18515, "27/2800", 10, MPFR_RNDN);
        mpfr_init_set_str(r18516, "4", 10, MPFR_RNDN);
        mpfr_init(r18517);
        mpfr_init(r18518);
        mpfr_init_set_str(r18519, "1/2", 10, MPFR_RNDN);
        mpfr_init(r18520);
        mpfr_init(r18521);
        mpfr_init(r18522);
        mpfr_init(r18523);
}

double f_fm(double x) {
        mpfr_set_d(r18502, x, MPFR_RNDN);
        ;
        mpfr_set_si(r18504, mpfr_cmp(r18502, r18503) <= 0, MPFR_RNDN);
        mpfr_sin(r18505, r18502, MPFR_RNDN);
        mpfr_sub(r18506, r18502, r18505, MPFR_RNDN);
        mpfr_tan(r18507, r18502, MPFR_RNDN);
        mpfr_sub(r18508, r18502, r18507, MPFR_RNDN);
        mpfr_div(r18509, r18506, r18508, MPFR_RNDN);
        ;
        mpfr_set_si(r18511, mpfr_cmp(r18502, r18510) <= 0, MPFR_RNDN);
        ;
        mpfr_sqr(r18513, r18502, MPFR_RNDN);
        mpfr_mul(r18514, r18512, r18513, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r18517, r18502, r18516, MPFR_RNDN);
        mpfr_mul(r18518, r18515, r18517, MPFR_RNDN);
        ;
        mpfr_add(r18520, r18518, r18519, MPFR_RNDN);
        mpfr_sub(r18521, r18514, r18520, MPFR_RNDN);
        if (mpfr_get_si(r18511, MPFR_RNDN)) { mpfr_set(r18522, r18521, MPFR_RNDN); } else { mpfr_set(r18522, r18509, MPFR_RNDN); };
        if (mpfr_get_si(r18504, MPFR_RNDN)) { mpfr_set(r18523, r18509, MPFR_RNDN); } else { mpfr_set(r18523, r18522, MPFR_RNDN); };
        return mpfr_get_d(r18523, MPFR_RNDN);
}

static mpfr_t r18524, r18525, r18526, r18527, r18528, r18529, r18530, r18531, r18532, r18533, r18534, r18535, r18536, r18537, r18538, r18539, r18540, r18541, r18542, r18543, r18544, r18545;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2448);
        mpfr_init(r18524);
        mpfr_init_set_str(r18525, "-0.0013911129327831766", 10, MPFR_RNDN);
        mpfr_init(r18526);
        mpfr_init(r18527);
        mpfr_init(r18528);
        mpfr_init(r18529);
        mpfr_init(r18530);
        mpfr_init(r18531);
        mpfr_init_set_str(r18532, "1283.0534255457483", 10, MPFR_RNDN);
        mpfr_init(r18533);
        mpfr_init_set_str(r18534, "9/40", 10, MPFR_RNDN);
        mpfr_init(r18535);
        mpfr_init(r18536);
        mpfr_init_set_str(r18537, "27/2800", 10, MPFR_RNDN);
        mpfr_init_set_str(r18538, "4", 10, MPFR_RNDN);
        mpfr_init(r18539);
        mpfr_init(r18540);
        mpfr_init_set_str(r18541, "1/2", 10, MPFR_RNDN);
        mpfr_init(r18542);
        mpfr_init(r18543);
        mpfr_init(r18544);
        mpfr_init(r18545);
}

double f_dm(double x) {
        mpfr_set_d(r18524, x, MPFR_RNDN);
        ;
        mpfr_set_si(r18526, mpfr_cmp(r18524, r18525) <= 0, MPFR_RNDN);
        mpfr_sin(r18527, r18524, MPFR_RNDN);
        mpfr_sub(r18528, r18524, r18527, MPFR_RNDN);
        mpfr_tan(r18529, r18524, MPFR_RNDN);
        mpfr_sub(r18530, r18524, r18529, MPFR_RNDN);
        mpfr_div(r18531, r18528, r18530, MPFR_RNDN);
        ;
        mpfr_set_si(r18533, mpfr_cmp(r18524, r18532) <= 0, MPFR_RNDN);
        ;
        mpfr_sqr(r18535, r18524, MPFR_RNDN);
        mpfr_mul(r18536, r18534, r18535, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r18539, r18524, r18538, MPFR_RNDN);
        mpfr_mul(r18540, r18537, r18539, MPFR_RNDN);
        ;
        mpfr_add(r18542, r18540, r18541, MPFR_RNDN);
        mpfr_sub(r18543, r18536, r18542, MPFR_RNDN);
        if (mpfr_get_si(r18533, MPFR_RNDN)) { mpfr_set(r18544, r18543, MPFR_RNDN); } else { mpfr_set(r18544, r18531, MPFR_RNDN); };
        if (mpfr_get_si(r18526, MPFR_RNDN)) { mpfr_set(r18545, r18531, MPFR_RNDN); } else { mpfr_set(r18545, r18544, MPFR_RNDN); };
        return mpfr_get_d(r18545, MPFR_RNDN);
}