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

char *name = "Octave 3.8, jcobi/1";

double f_if(float alpha, float beta) {
        float r26117 = beta;
        float r26118 = alpha;
        float r26119 = r26117 - r26118;
        float r26120 = r26118 + r26117;
        float r26121 = 2.0;
        float r26122 = r26120 + r26121;
        float r26123 = r26119 / r26122;
        float r26124 = 1.0;
        float r26125 = r26123 + r26124;
        float r26126 = r26125 / r26121;
        return r26126;
}

double f_id(double alpha, double beta) {
        double r26127 = beta;
        double r26128 = alpha;
        double r26129 = r26127 - r26128;
        double r26130 = r26128 + r26127;
        double r26131 = 2.0;
        double r26132 = r26130 + r26131;
        double r26133 = r26129 / r26132;
        double r26134 = 1.0;
        double r26135 = r26133 + r26134;
        double r26136 = r26135 / r26131;
        return r26136;
}


double f_of(float alpha, float beta) {
        float r26137 = beta;
        float r26138 = alpha;
        float r26139 = r26137 - r26138;
        float r26140 = 1;
        float r26141 = r26138 + r26137;
        float r26142 = 2.0;
        float r26143 = r26141 + r26142;
        float r26144 = r26140 / r26143;
        float r26145 = 1.0;
        float r26146 = fma(r26139, r26144, r26145);
        float r26147 = r26146 / r26142;
        return r26147;
}

double f_od(double alpha, double beta) {
        double r26148 = beta;
        double r26149 = alpha;
        double r26150 = r26148 - r26149;
        double r26151 = 1;
        double r26152 = r26149 + r26148;
        double r26153 = 2.0;
        double r26154 = r26152 + r26153;
        double r26155 = r26151 / r26154;
        double r26156 = 1.0;
        double r26157 = fma(r26150, r26155, r26156);
        double r26158 = r26157 / r26153;
        return r26158;
}

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 r26159, r26160, r26161, r26162, r26163, r26164, r26165, r26166, r26167, r26168;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26159);
        mpfr_init(r26160);
        mpfr_init(r26161);
        mpfr_init(r26162);
        mpfr_init_set_str(r26163, "2.0", 10, MPFR_RNDN);
        mpfr_init(r26164);
        mpfr_init(r26165);
        mpfr_init_set_str(r26166, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26167);
        mpfr_init(r26168);
}

double f_im(double alpha, double beta) {
        mpfr_set_d(r26159, beta, MPFR_RNDN);
        mpfr_set_d(r26160, alpha, MPFR_RNDN);
        mpfr_sub(r26161, r26159, r26160, MPFR_RNDN);
        mpfr_add(r26162, r26160, r26159, MPFR_RNDN);
        ;
        mpfr_add(r26164, r26162, r26163, MPFR_RNDN);
        mpfr_div(r26165, r26161, r26164, MPFR_RNDN);
        ;
        mpfr_add(r26167, r26165, r26166, MPFR_RNDN);
        mpfr_div(r26168, r26167, r26163, MPFR_RNDN);
        return mpfr_get_d(r26168, MPFR_RNDN);
}

static mpfr_t r26169, r26170, r26171, r26172, r26173, r26174, r26175, r26176, r26177, r26178, r26179;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26169);
        mpfr_init(r26170);
        mpfr_init(r26171);
        mpfr_init_set_str(r26172, "1", 10, MPFR_RNDN);
        mpfr_init(r26173);
        mpfr_init_set_str(r26174, "2.0", 10, MPFR_RNDN);
        mpfr_init(r26175);
        mpfr_init(r26176);
        mpfr_init_set_str(r26177, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26178);
        mpfr_init(r26179);
}

double f_fm(double alpha, double beta) {
        mpfr_set_d(r26169, beta, MPFR_RNDN);
        mpfr_set_d(r26170, alpha, MPFR_RNDN);
        mpfr_sub(r26171, r26169, r26170, MPFR_RNDN);
        ;
        mpfr_add(r26173, r26170, r26169, MPFR_RNDN);
        ;
        mpfr_add(r26175, r26173, r26174, MPFR_RNDN);
        mpfr_div(r26176, r26172, r26175, MPFR_RNDN);
        ;
        mpfr_fma(r26178, r26171, r26176, r26177, MPFR_RNDN);
        mpfr_div(r26179, r26178, r26174, MPFR_RNDN);
        return mpfr_get_d(r26179, MPFR_RNDN);
}

static mpfr_t r26180, r26181, r26182, r26183, r26184, r26185, r26186, r26187, r26188, r26189, r26190;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26180);
        mpfr_init(r26181);
        mpfr_init(r26182);
        mpfr_init_set_str(r26183, "1", 10, MPFR_RNDN);
        mpfr_init(r26184);
        mpfr_init_set_str(r26185, "2.0", 10, MPFR_RNDN);
        mpfr_init(r26186);
        mpfr_init(r26187);
        mpfr_init_set_str(r26188, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26189);
        mpfr_init(r26190);
}

double f_dm(double alpha, double beta) {
        mpfr_set_d(r26180, beta, MPFR_RNDN);
        mpfr_set_d(r26181, alpha, MPFR_RNDN);
        mpfr_sub(r26182, r26180, r26181, MPFR_RNDN);
        ;
        mpfr_add(r26184, r26181, r26180, MPFR_RNDN);
        ;
        mpfr_add(r26186, r26184, r26185, MPFR_RNDN);
        mpfr_div(r26187, r26183, r26186, MPFR_RNDN);
        ;
        mpfr_fma(r26189, r26182, r26187, r26188, MPFR_RNDN);
        mpfr_div(r26190, r26189, r26185, MPFR_RNDN);
        return mpfr_get_d(r26190, MPFR_RNDN);
}