#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 r26538 = 1;
        float r26539 = x;
        float r26540 = r26538 / r26539;
        float r26541 = tan(r26539);
        float r26542 = r26538 / r26541;
        float r26543 = r26540 - r26542;
        return r26543;
}

double f_id(double x) {
        double r26544 = 1;
        double r26545 = x;
        double r26546 = r26544 / r26545;
        double r26547 = tan(r26545);
        double r26548 = r26544 / r26547;
        double r26549 = r26546 - r26548;
        return r26549;
}


double f_of(float x) {
        float r26550 = 1/45;
        float r26551 = x;
        float r26552 = 3;
        float r26553 = pow(r26551, r26552);
        float r26554 = r26550 * r26553;
        float r26555 = 2/945;
        float r26556 = 5;
        float r26557 = pow(r26551, r26556);
        float r26558 = r26555 * r26557;
        float r26559 = 1/3;
        float r26560 = r26559 * r26551;
        float r26561 = r26558 + r26560;
        float r26562 = r26554 + r26561;
        return r26562;
}

double f_od(double x) {
        double r26563 = 1/45;
        double r26564 = x;
        double r26565 = 3;
        double r26566 = pow(r26564, r26565);
        double r26567 = r26563 * r26566;
        double r26568 = 2/945;
        double r26569 = 5;
        double r26570 = pow(r26564, r26569);
        double r26571 = r26568 * r26570;
        double r26572 = 1/3;
        double r26573 = r26572 * r26564;
        double r26574 = r26571 + r26573;
        double r26575 = r26567 + r26574;
        return r26575;
}

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 r26576, r26577, r26578, r26579, r26580, r26581;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26576, "1", 10, MPFR_RNDN);
        mpfr_init(r26577);
        mpfr_init(r26578);
        mpfr_init(r26579);
        mpfr_init(r26580);
        mpfr_init(r26581);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26577, x, MPFR_RNDN);
        mpfr_div(r26578, r26576, r26577, MPFR_RNDN);
        mpfr_tan(r26579, r26577, MPFR_RNDN);
        mpfr_div(r26580, r26576, r26579, MPFR_RNDN);
        mpfr_sub(r26581, r26578, r26580, MPFR_RNDN);
        return mpfr_get_d(r26581, MPFR_RNDN);
}

static mpfr_t r26582, r26583, r26584, r26585, r26586, r26587, r26588, r26589, r26590, r26591, r26592, r26593, r26594;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26582, "1/45", 10, MPFR_RNDN);
        mpfr_init(r26583);
        mpfr_init_set_str(r26584, "3", 10, MPFR_RNDN);
        mpfr_init(r26585);
        mpfr_init(r26586);
        mpfr_init_set_str(r26587, "2/945", 10, MPFR_RNDN);
        mpfr_init_set_str(r26588, "5", 10, MPFR_RNDN);
        mpfr_init(r26589);
        mpfr_init(r26590);
        mpfr_init_set_str(r26591, "1/3", 10, MPFR_RNDN);
        mpfr_init(r26592);
        mpfr_init(r26593);
        mpfr_init(r26594);
}

double f_fm(double x) {
        ;
        mpfr_set_d(r26583, x, MPFR_RNDN);
        ;
        mpfr_pow(r26585, r26583, r26584, MPFR_RNDN);
        mpfr_mul(r26586, r26582, r26585, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r26589, r26583, r26588, MPFR_RNDN);
        mpfr_mul(r26590, r26587, r26589, MPFR_RNDN);
        ;
        mpfr_mul(r26592, r26591, r26583, MPFR_RNDN);
        mpfr_add(r26593, r26590, r26592, MPFR_RNDN);
        mpfr_add(r26594, r26586, r26593, MPFR_RNDN);
        return mpfr_get_d(r26594, MPFR_RNDN);
}

static mpfr_t r26595, r26596, r26597, r26598, r26599, r26600, r26601, r26602, r26603, r26604, r26605, r26606, r26607;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26595, "1/45", 10, MPFR_RNDN);
        mpfr_init(r26596);
        mpfr_init_set_str(r26597, "3", 10, MPFR_RNDN);
        mpfr_init(r26598);
        mpfr_init(r26599);
        mpfr_init_set_str(r26600, "2/945", 10, MPFR_RNDN);
        mpfr_init_set_str(r26601, "5", 10, MPFR_RNDN);
        mpfr_init(r26602);
        mpfr_init(r26603);
        mpfr_init_set_str(r26604, "1/3", 10, MPFR_RNDN);
        mpfr_init(r26605);
        mpfr_init(r26606);
        mpfr_init(r26607);
}

double f_dm(double x) {
        ;
        mpfr_set_d(r26596, x, MPFR_RNDN);
        ;
        mpfr_pow(r26598, r26596, r26597, MPFR_RNDN);
        mpfr_mul(r26599, r26595, r26598, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r26602, r26596, r26601, MPFR_RNDN);
        mpfr_mul(r26603, r26600, r26602, MPFR_RNDN);
        ;
        mpfr_mul(r26605, r26604, r26596, MPFR_RNDN);
        mpfr_add(r26606, r26603, r26605, MPFR_RNDN);
        mpfr_add(r26607, r26599, r26606, MPFR_RNDN);
        return mpfr_get_d(r26607, MPFR_RNDN);
}