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

char *name = "invcot (example 3.9)";

double f_if(float x) {
        float r26534 = 1;
        float r26535 = x;
        float r26536 = r26534 / r26535;
        float r26537 = tan(r26535);
        float r26538 = r26534 / r26537;
        float r26539 = r26536 - r26538;
        return r26539;
}

double f_id(double x) {
        double r26540 = 1;
        double r26541 = x;
        double r26542 = r26540 / r26541;
        double r26543 = tan(r26541);
        double r26544 = r26540 / r26543;
        double r26545 = r26542 - r26544;
        return r26545;
}


double f_of(float x) {
        float r26546 = 1/45;
        float r26547 = x;
        float r26548 = 3;
        float r26549 = pow(r26547, r26548);
        float r26550 = r26546 * r26549;
        float r26551 = 2/945;
        float r26552 = 5;
        float r26553 = pow(r26547, r26552);
        float r26554 = r26551 * r26553;
        float r26555 = 1/3;
        float r26556 = r26555 * r26547;
        float r26557 = r26554 + r26556;
        float r26558 = r26550 + r26557;
        return r26558;
}

double f_od(double x) {
        double r26559 = 1/45;
        double r26560 = x;
        double r26561 = 3;
        double r26562 = pow(r26560, r26561);
        double r26563 = r26559 * r26562;
        double r26564 = 2/945;
        double r26565 = 5;
        double r26566 = pow(r26560, r26565);
        double r26567 = r26564 * r26566;
        double r26568 = 1/3;
        double r26569 = r26568 * r26560;
        double r26570 = r26567 + r26569;
        double r26571 = r26563 + r26570;
        return r26571;
}

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 r26572, r26573, r26574, r26575, r26576, r26577;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26572, "1", 10, MPFR_RNDN);
        mpfr_init(r26573);
        mpfr_init(r26574);
        mpfr_init(r26575);
        mpfr_init(r26576);
        mpfr_init(r26577);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26573, x, MPFR_RNDN);
        mpfr_div(r26574, r26572, r26573, MPFR_RNDN);
        mpfr_tan(r26575, r26573, MPFR_RNDN);
        mpfr_div(r26576, r26572, r26575, MPFR_RNDN);
        mpfr_sub(r26577, r26574, r26576, MPFR_RNDN);
        return mpfr_get_d(r26577, MPFR_RNDN);
}

static mpfr_t r26578, r26579, r26580, r26581, r26582, r26583, r26584, r26585, r26586, r26587, r26588, r26589, r26590;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26578, "1/45", 10, MPFR_RNDN);
        mpfr_init(r26579);
        mpfr_init_set_str(r26580, "3", 10, MPFR_RNDN);
        mpfr_init(r26581);
        mpfr_init(r26582);
        mpfr_init_set_str(r26583, "2/945", 10, MPFR_RNDN);
        mpfr_init_set_str(r26584, "5", 10, MPFR_RNDN);
        mpfr_init(r26585);
        mpfr_init(r26586);
        mpfr_init_set_str(r26587, "1/3", 10, MPFR_RNDN);
        mpfr_init(r26588);
        mpfr_init(r26589);
        mpfr_init(r26590);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r26579, x, MPFR_RNDN);
        ;
        mpfr_pow(r26581, r26579, r26580, MPFR_RNDN);
        mpfr_mul(r26582, r26578, r26581, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r26585, r26579, r26584, MPFR_RNDN);
        mpfr_mul(r26586, r26583, r26585, MPFR_RNDN);
        ;
        mpfr_mul(r26588, r26587, r26579, MPFR_RNDN);
        mpfr_add(r26589, r26586, r26588, MPFR_RNDN);
        mpfr_add(r26590, r26582, r26589, MPFR_RNDN);
        return mpfr_get_d(r26590, MPFR_RNDN);
}

static mpfr_t r26591, r26592, r26593, r26594, r26595, r26596, r26597, r26598, r26599, r26600, r26601, r26602, r26603;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26591, "1/45", 10, MPFR_RNDN);
        mpfr_init(r26592);
        mpfr_init_set_str(r26593, "3", 10, MPFR_RNDN);
        mpfr_init(r26594);
        mpfr_init(r26595);
        mpfr_init_set_str(r26596, "2/945", 10, MPFR_RNDN);
        mpfr_init_set_str(r26597, "5", 10, MPFR_RNDN);
        mpfr_init(r26598);
        mpfr_init(r26599);
        mpfr_init_set_str(r26600, "1/3", 10, MPFR_RNDN);
        mpfr_init(r26601);
        mpfr_init(r26602);
        mpfr_init(r26603);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r26592, x, MPFR_RNDN);
        ;
        mpfr_pow(r26594, r26592, r26593, MPFR_RNDN);
        mpfr_mul(r26595, r26591, r26594, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r26598, r26592, r26597, MPFR_RNDN);
        mpfr_mul(r26599, r26596, r26598, MPFR_RNDN);
        ;
        mpfr_mul(r26601, r26600, r26592, MPFR_RNDN);
        mpfr_add(r26602, r26599, r26601, MPFR_RNDN);
        mpfr_add(r26603, r26595, r26602, MPFR_RNDN);
        return mpfr_get_d(r26603, MPFR_RNDN);
}