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

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


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

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

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 r26578, r26579, r26580, r26581, r26582, r26583;

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

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

static mpfr_t r26584, r26585, r26586, r26587, r26588, r26589, r26590, r26591, r26592, r26593, r26594, r26595, r26596;

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

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

static mpfr_t r26597, r26598, r26599, r26600, r26601, r26602, r26603, r26604, r26605, r26606, r26607, r26608, r26609;

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

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