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

char *name = "Falkner and Boettcher, Appendix A";

double f_if(float a, float k, float m) {
        float r25472 = a;
        float r25473 = k;
        float r25474 = m;
        float r25475 = pow(r25473, r25474);
        float r25476 = r25472 * r25475;
        float r25477 = 1;
        float r25478 = 10;
        float r25479 = r25478 * r25473;
        float r25480 = r25477 + r25479;
        float r25481 = r25473 * r25473;
        float r25482 = r25480 + r25481;
        float r25483 = r25476 / r25482;
        return r25483;
}

double f_id(double a, double k, double m) {
        double r25484 = a;
        double r25485 = k;
        double r25486 = m;
        double r25487 = pow(r25485, r25486);
        double r25488 = r25484 * r25487;
        double r25489 = 1;
        double r25490 = 10;
        double r25491 = r25490 * r25485;
        double r25492 = r25489 + r25491;
        double r25493 = r25485 * r25485;
        double r25494 = r25492 + r25493;
        double r25495 = r25488 / r25494;
        return r25495;
}


double f_of(float a, float k, float m) {
        float r25496 = a;
        float r25497 = k;
        float r25498 = 10;
        float r25499 = r25498 + r25497;
        float r25500 = 1;
        float r25501 = fma(r25497, r25499, r25500);
        float r25502 = m;
        float r25503 = pow(r25497, r25502);
        float r25504 = r25501 / r25503;
        float r25505 = r25496 / r25504;
        return r25505;
}

double f_od(double a, double k, double m) {
        double r25506 = a;
        double r25507 = k;
        double r25508 = 10;
        double r25509 = r25508 + r25507;
        double r25510 = 1;
        double r25511 = fma(r25507, r25509, r25510);
        double r25512 = m;
        double r25513 = pow(r25507, r25512);
        double r25514 = r25511 / r25513;
        double r25515 = r25506 / r25514;
        return r25515;
}

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 r25516, r25517, r25518, r25519, r25520, r25521, r25522, r25523, r25524, r25525, r25526, r25527;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r25516);
        mpfr_init(r25517);
        mpfr_init(r25518);
        mpfr_init(r25519);
        mpfr_init(r25520);
        mpfr_init_set_str(r25521, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r25522, "10", 10, MPFR_RNDN);
        mpfr_init(r25523);
        mpfr_init(r25524);
        mpfr_init(r25525);
        mpfr_init(r25526);
        mpfr_init(r25527);
}

double f_im(double a, double k, double m) {
        mpfr_set_d(r25516, a, MPFR_RNDN);
        mpfr_set_d(r25517, k, MPFR_RNDN);
        mpfr_set_d(r25518, m, MPFR_RNDN);
        mpfr_pow(r25519, r25517, r25518, MPFR_RNDN);
        mpfr_mul(r25520, r25516, r25519, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r25523, r25522, r25517, MPFR_RNDN);
        mpfr_add(r25524, r25521, r25523, MPFR_RNDN);
        mpfr_mul(r25525, r25517, r25517, MPFR_RNDN);
        mpfr_add(r25526, r25524, r25525, MPFR_RNDN);
        mpfr_div(r25527, r25520, r25526, MPFR_RNDN);
        return mpfr_get_d(r25527, MPFR_RNDN);
}

static mpfr_t r25528, r25529, r25530, r25531, r25532, r25533, r25534, r25535, r25536, r25537;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r25528);
        mpfr_init(r25529);
        mpfr_init_set_str(r25530, "10", 10, MPFR_RNDN);
        mpfr_init(r25531);
        mpfr_init_set_str(r25532, "1", 10, MPFR_RNDN);
        mpfr_init(r25533);
        mpfr_init(r25534);
        mpfr_init(r25535);
        mpfr_init(r25536);
        mpfr_init(r25537);
}

double f_fm(double a, double k, double m) {
        mpfr_set_d(r25528, a, MPFR_RNDN);
        mpfr_set_d(r25529, k, MPFR_RNDN);
        ;
        mpfr_add(r25531, r25530, r25529, MPFR_RNDN);
        ;
        mpfr_fma(r25533, r25529, r25531, r25532, MPFR_RNDN);
        mpfr_set_d(r25534, m, MPFR_RNDN);
        mpfr_pow(r25535, r25529, r25534, MPFR_RNDN);
        mpfr_div(r25536, r25533, r25535, MPFR_RNDN);
        mpfr_div(r25537, r25528, r25536, MPFR_RNDN);
        return mpfr_get_d(r25537, MPFR_RNDN);
}

static mpfr_t r25538, r25539, r25540, r25541, r25542, r25543, r25544, r25545, r25546, r25547;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r25538);
        mpfr_init(r25539);
        mpfr_init_set_str(r25540, "10", 10, MPFR_RNDN);
        mpfr_init(r25541);
        mpfr_init_set_str(r25542, "1", 10, MPFR_RNDN);
        mpfr_init(r25543);
        mpfr_init(r25544);
        mpfr_init(r25545);
        mpfr_init(r25546);
        mpfr_init(r25547);
}

double f_dm(double a, double k, double m) {
        mpfr_set_d(r25538, a, MPFR_RNDN);
        mpfr_set_d(r25539, k, MPFR_RNDN);
        ;
        mpfr_add(r25541, r25540, r25539, MPFR_RNDN);
        ;
        mpfr_fma(r25543, r25539, r25541, r25542, MPFR_RNDN);
        mpfr_set_d(r25544, m, MPFR_RNDN);
        mpfr_pow(r25545, r25539, r25544, MPFR_RNDN);
        mpfr_div(r25546, r25543, r25545, MPFR_RNDN);
        mpfr_div(r25547, r25538, r25546, MPFR_RNDN);
        return mpfr_get_d(r25547, MPFR_RNDN);
}