#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 r18436 = x;
        float r18437 = sin(r18436);
        float r18438 = r18436 - r18437;
        float r18439 = tan(r18436);
        float r18440 = r18436 - r18439;
        float r18441 = r18438 / r18440;
        return r18441;
}

double f_id(double x) {
        double r18442 = x;
        double r18443 = sin(r18442);
        double r18444 = r18442 - r18443;
        double r18445 = tan(r18442);
        double r18446 = r18442 - r18445;
        double r18447 = r18444 / r18446;
        return r18447;
}


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

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

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 r18492, r18493, r18494, r18495, r18496, r18497;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2448);
        mpfr_init(r18492);
        mpfr_init(r18493);
        mpfr_init(r18494);
        mpfr_init(r18495);
        mpfr_init(r18496);
        mpfr_init(r18497);
}

double f_im(double x) {
        mpfr_set_d(r18492, x, MPFR_RNDN);
        mpfr_sin(r18493, r18492, MPFR_RNDN);
        mpfr_sub(r18494, r18492, r18493, MPFR_RNDN);
        mpfr_tan(r18495, r18492, MPFR_RNDN);
        mpfr_sub(r18496, r18492, r18495, MPFR_RNDN);
        mpfr_div(r18497, r18494, r18496, MPFR_RNDN);
        return mpfr_get_d(r18497, MPFR_RNDN);
}

static mpfr_t r18498, r18499, r18500, r18501, r18502, r18503, r18504, r18505, r18506, r18507, r18508, r18509, r18510, r18511, r18512, r18513, r18514, r18515, r18516, r18517, r18518, r18519;

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

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

static mpfr_t r18520, r18521, r18522, r18523, r18524, r18525, r18526, r18527, r18528, r18529, r18530, r18531, r18532, r18533, r18534, r18535, r18536, r18537, r18538, r18539, r18540, r18541;

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

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