#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 r26488 = 1;
        float r26489 = x;
        float r26490 = r26488 / r26489;
        float r26491 = tan(r26489);
        float r26492 = r26488 / r26491;
        float r26493 = r26490 - r26492;
        return r26493;
}

double f_id(double x) {
        double r26494 = 1;
        double r26495 = x;
        double r26496 = r26494 / r26495;
        double r26497 = tan(r26495);
        double r26498 = r26494 / r26497;
        double r26499 = r26496 - r26498;
        return r26499;
}


double f_of(float x) {
        float r26500 = x;
        float r26501 = r26500 * r26500;
        float r26502 = 1/45;
        float r26503 = 1/3;
        float r26504 = fma(r26501, r26502, r26503);
        float r26505 = sqrt(r26504);
        float r26506 = r26505 * r26505;
        float r26507 = 2/945;
        float r26508 = 5;
        float r26509 = pow(r26500, r26508);
        float r26510 = r26507 * r26509;
        float r26511 = exp(r26510);
        float r26512 = log(r26511);
        float r26513 = fma(r26506, r26500, r26512);
        return r26513;
}

double f_od(double x) {
        double r26514 = x;
        double r26515 = r26514 * r26514;
        double r26516 = 1/45;
        double r26517 = 1/3;
        double r26518 = fma(r26515, r26516, r26517);
        double r26519 = sqrt(r26518);
        double r26520 = r26519 * r26519;
        double r26521 = 2/945;
        double r26522 = 5;
        double r26523 = pow(r26514, r26522);
        double r26524 = r26521 * r26523;
        double r26525 = exp(r26524);
        double r26526 = log(r26525);
        double r26527 = fma(r26520, r26514, r26526);
        return r26527;
}

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 r26528, r26529, r26530, r26531, r26532, r26533;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(2384);
        mpfr_init_set_str(r26528, "1", 10, MPFR_RNDN);
        mpfr_init(r26529);
        mpfr_init(r26530);
        mpfr_init(r26531);
        mpfr_init(r26532);
        mpfr_init(r26533);
}

double f_im(double x) {
        ;
        mpfr_set_d(r26529, x, MPFR_RNDN);
        mpfr_div(r26530, r26528, r26529, MPFR_RNDN);
        mpfr_tan(r26531, r26529, MPFR_RNDN);
        mpfr_div(r26532, r26528, r26531, MPFR_RNDN);
        mpfr_sub(r26533, r26530, r26532, MPFR_RNDN);
        return mpfr_get_d(r26533, MPFR_RNDN);
}

static mpfr_t r26534, r26535, r26536, r26537, r26538, r26539, r26540, r26541, r26542, r26543, r26544, r26545, r26546, r26547;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(2384);
        mpfr_init(r26534);
        mpfr_init(r26535);
        mpfr_init_set_str(r26536, "1/45", 10, MPFR_RNDN);
        mpfr_init_set_str(r26537, "1/3", 10, MPFR_RNDN);
        mpfr_init(r26538);
        mpfr_init(r26539);
        mpfr_init(r26540);
        mpfr_init_set_str(r26541, "2/945", 10, MPFR_RNDN);
        mpfr_init_set_str(r26542, "5", 10, MPFR_RNDN);
        mpfr_init(r26543);
        mpfr_init(r26544);
        mpfr_init(r26545);
        mpfr_init(r26546);
        mpfr_init(r26547);
}

double f_fm(double x) {
        mpfr_set_d(r26534, x, MPFR_RNDN);
        mpfr_mul(r26535, r26534, r26534, MPFR_RNDN);
        ;
        ;
        mpfr_fma(r26538, r26535, r26536, r26537, MPFR_RNDN);
        mpfr_sqrt(r26539, r26538, MPFR_RNDN);
        mpfr_mul(r26540, r26539, r26539, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r26543, r26534, r26542, MPFR_RNDN);
        mpfr_mul(r26544, r26541, r26543, MPFR_RNDN);
        mpfr_exp(r26545, r26544, MPFR_RNDN);
        mpfr_log(r26546, r26545, MPFR_RNDN);
        mpfr_fma(r26547, r26540, r26534, r26546, MPFR_RNDN);
        return mpfr_get_d(r26547, MPFR_RNDN);
}

static mpfr_t r26548, r26549, r26550, r26551, r26552, r26553, r26554, r26555, r26556, r26557, r26558, r26559, r26560, r26561;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(2384);
        mpfr_init(r26548);
        mpfr_init(r26549);
        mpfr_init_set_str(r26550, "1/45", 10, MPFR_RNDN);
        mpfr_init_set_str(r26551, "1/3", 10, MPFR_RNDN);
        mpfr_init(r26552);
        mpfr_init(r26553);
        mpfr_init(r26554);
        mpfr_init_set_str(r26555, "2/945", 10, MPFR_RNDN);
        mpfr_init_set_str(r26556, "5", 10, MPFR_RNDN);
        mpfr_init(r26557);
        mpfr_init(r26558);
        mpfr_init(r26559);
        mpfr_init(r26560);
        mpfr_init(r26561);
}

double f_dm(double x) {
        mpfr_set_d(r26548, x, MPFR_RNDN);
        mpfr_mul(r26549, r26548, r26548, MPFR_RNDN);
        ;
        ;
        mpfr_fma(r26552, r26549, r26550, r26551, MPFR_RNDN);
        mpfr_sqrt(r26553, r26552, MPFR_RNDN);
        mpfr_mul(r26554, r26553, r26553, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r26557, r26548, r26556, MPFR_RNDN);
        mpfr_mul(r26558, r26555, r26557, MPFR_RNDN);
        mpfr_exp(r26559, r26558, MPFR_RNDN);
        mpfr_log(r26560, r26559, MPFR_RNDN);
        mpfr_fma(r26561, r26554, r26548, r26560, MPFR_RNDN);
        return mpfr_get_d(r26561, MPFR_RNDN);
}