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

char *name = "VandenBroeck and Keller, Equation (24)";

double f_if(float B, float x) {
        float r20656 = x;
        float r20657 = 1;
        float r20658 = B;
        float r20659 = tan(r20658);
        float r20660 = r20657 / r20659;
        float r20661 = r20656 * r20660;
        float r20662 = -r20661;
        float r20663 = sin(r20658);
        float r20664 = r20657 / r20663;
        float r20665 = r20662 + r20664;
        return r20665;
}

double f_id(double B, double x) {
        double r20666 = x;
        double r20667 = 1;
        double r20668 = B;
        double r20669 = tan(r20668);
        double r20670 = r20667 / r20669;
        double r20671 = r20666 * r20670;
        double r20672 = -r20671;
        double r20673 = sin(r20668);
        double r20674 = r20667 / r20673;
        double r20675 = r20672 + r20674;
        return r20675;
}


double f_of(float B, float x) {
        float r20676 = x;
        float r20677 = 1;
        float r20678 = B;
        float r20679 = tan(r20678);
        float r20680 = r20677 / r20679;
        float r20681 = r20676 * r20680;
        float r20682 = -r20681;
        float r20683 = sin(r20678);
        float r20684 = r20677 / r20683;
        float r20685 = r20682 + r20684;
        return r20685;
}

double f_od(double B, double x) {
        double r20686 = x;
        double r20687 = 1;
        double r20688 = B;
        double r20689 = tan(r20688);
        double r20690 = r20687 / r20689;
        double r20691 = r20686 * r20690;
        double r20692 = -r20691;
        double r20693 = sin(r20688);
        double r20694 = r20687 / r20693;
        double r20695 = r20692 + r20694;
        return r20695;
}

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 r20696, r20697, r20698, r20699, r20700, r20701, r20702, r20703, r20704, r20705;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r20696);
        mpfr_init_set_str(r20697, "1", 10, MPFR_RNDN);
        mpfr_init(r20698);
        mpfr_init(r20699);
        mpfr_init(r20700);
        mpfr_init(r20701);
        mpfr_init(r20702);
        mpfr_init(r20703);
        mpfr_init(r20704);
        mpfr_init(r20705);
}

double f_im(double B, double x) {
        mpfr_set_d(r20696, x, MPFR_RNDN);
        ;
        mpfr_set_d(r20698, B, MPFR_RNDN);
        mpfr_tan(r20699, r20698, MPFR_RNDN);
        mpfr_div(r20700, r20697, r20699, MPFR_RNDN);
        mpfr_mul(r20701, r20696, r20700, MPFR_RNDN);
        mpfr_neg(r20702, r20701, MPFR_RNDN);
        mpfr_sin(r20703, r20698, MPFR_RNDN);
        mpfr_div(r20704, r20697, r20703, MPFR_RNDN);
        mpfr_add(r20705, r20702, r20704, MPFR_RNDN);
        return mpfr_get_d(r20705, MPFR_RNDN);
}

static mpfr_t r20706, r20707, r20708, r20709, r20710, r20711, r20712, r20713, r20714, r20715;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20706);
        mpfr_init_set_str(r20707, "1", 10, MPFR_RNDN);
        mpfr_init(r20708);
        mpfr_init(r20709);
        mpfr_init(r20710);
        mpfr_init(r20711);
        mpfr_init(r20712);
        mpfr_init(r20713);
        mpfr_init(r20714);
        mpfr_init(r20715);
}

double f_fm(double B, double x) {
        mpfr_set_d(r20706, x, MPFR_RNDN);
        ;
        mpfr_set_d(r20708, B, MPFR_RNDN);
        mpfr_tan(r20709, r20708, MPFR_RNDN);
        mpfr_div(r20710, r20707, r20709, MPFR_RNDN);
        mpfr_mul(r20711, r20706, r20710, MPFR_RNDN);
        mpfr_neg(r20712, r20711, MPFR_RNDN);
        mpfr_sin(r20713, r20708, MPFR_RNDN);
        mpfr_div(r20714, r20707, r20713, MPFR_RNDN);
        mpfr_add(r20715, r20712, r20714, MPFR_RNDN);
        return mpfr_get_d(r20715, MPFR_RNDN);
}

static mpfr_t r20716, r20717, r20718, r20719, r20720, r20721, r20722, r20723, r20724, r20725;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20716);
        mpfr_init_set_str(r20717, "1", 10, MPFR_RNDN);
        mpfr_init(r20718);
        mpfr_init(r20719);
        mpfr_init(r20720);
        mpfr_init(r20721);
        mpfr_init(r20722);
        mpfr_init(r20723);
        mpfr_init(r20724);
        mpfr_init(r20725);
}

double f_dm(double B, double x) {
        mpfr_set_d(r20716, x, MPFR_RNDN);
        ;
        mpfr_set_d(r20718, B, MPFR_RNDN);
        mpfr_tan(r20719, r20718, MPFR_RNDN);
        mpfr_div(r20720, r20717, r20719, MPFR_RNDN);
        mpfr_mul(r20721, r20716, r20720, MPFR_RNDN);
        mpfr_neg(r20722, r20721, MPFR_RNDN);
        mpfr_sin(r20723, r20718, MPFR_RNDN);
        mpfr_div(r20724, r20717, r20723, MPFR_RNDN);
        mpfr_add(r20725, r20722, r20724, MPFR_RNDN);
        return mpfr_get_d(r20725, MPFR_RNDN);
}