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

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

double f_if(float alpha, float beta, float i) {
        float r17154 = alpha;
        float r17155 = beta;
        float r17156 = r17154 + r17155;
        float r17157 = r17155 - r17154;
        float r17158 = r17156 * r17157;
        float r17159 = 2.0f;
        float r17160 = i;
        float r17161 = r17159 * r17160;
        float r17162 = r17156 + r17161;
        float r17163 = r17158 / r17162;
        float r17164 = 2.0f;
        float r17165 = r17162 + r17164;
        float r17166 = r17163 / r17165;
        float r17167 = 1.0f;
        float r17168 = r17166 + r17167;
        float r17169 = r17168 / r17164;
        return r17169;
}

double f_id(double alpha, double beta, double i) {
        double r17170 = alpha;
        double r17171 = beta;
        double r17172 = r17170 + r17171;
        double r17173 = r17171 - r17170;
        double r17174 = r17172 * r17173;
        double r17175 = 2.0;
        double r17176 = i;
        double r17177 = r17175 * r17176;
        double r17178 = r17172 + r17177;
        double r17179 = r17174 / r17178;
        double r17180 = 2.0;
        double r17181 = r17178 + r17180;
        double r17182 = r17179 / r17181;
        double r17183 = 1.0;
        double r17184 = r17182 + r17183;
        double r17185 = r17184 / r17180;
        return r17185;
}


double f_of(float alpha, float beta, float i) {
        float r17186 = alpha;
        float r17187 = beta;
        float r17188 = r17186 + r17187;
        float r17189 = 2.0f;
        float r17190 = i;
        float r17191 = r17189 * r17190;
        float r17192 = r17188 + r17191;
        float r17193 = r17187 - r17186;
        float r17194 = r17192 / r17193;
        float r17195 = 1.0f;
        float r17196 = pow(r17194, r17195);
        float r17197 = r17188 / r17196;
        float r17198 = 2.0f;
        float r17199 = r17192 + r17198;
        float r17200 = r17197 / r17199;
        float r17201 = 1.0f;
        float r17202 = r17200 + r17201;
        float r17203 = r17202 / r17198;
        return r17203;
}

double f_od(double alpha, double beta, double i) {
        double r17204 = alpha;
        double r17205 = beta;
        double r17206 = r17204 + r17205;
        double r17207 = 2.0;
        double r17208 = i;
        double r17209 = r17207 * r17208;
        double r17210 = r17206 + r17209;
        double r17211 = r17205 - r17204;
        double r17212 = r17210 / r17211;
        double r17213 = 1.0;
        double r17214 = pow(r17212, r17213);
        double r17215 = r17206 / r17214;
        double r17216 = 2.0;
        double r17217 = r17210 + r17216;
        double r17218 = r17215 / r17217;
        double r17219 = 1.0;
        double r17220 = r17218 + r17219;
        double r17221 = r17220 / r17216;
        return r17221;
}

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 r17222, r17223, r17224, r17225, r17226, r17227, r17228, r17229, r17230, r17231, r17232, r17233, r17234, r17235, r17236, r17237;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r17222);
        mpfr_init(r17223);
        mpfr_init(r17224);
        mpfr_init(r17225);
        mpfr_init(r17226);
        mpfr_init_set_str(r17227, "2", 10, MPFR_RNDN);
        mpfr_init(r17228);
        mpfr_init(r17229);
        mpfr_init(r17230);
        mpfr_init(r17231);
        mpfr_init_set_str(r17232, "2.0", 10, MPFR_RNDN);
        mpfr_init(r17233);
        mpfr_init(r17234);
        mpfr_init_set_str(r17235, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17236);
        mpfr_init(r17237);
}

double f_im(double alpha, double beta, double i) {
        mpfr_set_d(r17222, alpha, MPFR_RNDN);
        mpfr_set_d(r17223, beta, MPFR_RNDN);
        mpfr_add(r17224, r17222, r17223, MPFR_RNDN);
        mpfr_sub(r17225, r17223, r17222, MPFR_RNDN);
        mpfr_mul(r17226, r17224, r17225, MPFR_RNDN);
        ;
        mpfr_set_d(r17228, i, MPFR_RNDN);
        mpfr_mul(r17229, r17227, r17228, MPFR_RNDN);
        mpfr_add(r17230, r17224, r17229, MPFR_RNDN);
        mpfr_div(r17231, r17226, r17230, MPFR_RNDN);
        ;
        mpfr_add(r17233, r17230, r17232, MPFR_RNDN);
        mpfr_div(r17234, r17231, r17233, MPFR_RNDN);
        ;
        mpfr_add(r17236, r17234, r17235, MPFR_RNDN);
        mpfr_div(r17237, r17236, r17232, MPFR_RNDN);
        return mpfr_get_d(r17237, MPFR_RNDN);
}

static mpfr_t r17238, r17239, r17240, r17241, r17242, r17243, r17244, r17245, r17246, r17247, r17248, r17249, r17250, r17251, r17252, r17253, r17254, r17255;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r17238);
        mpfr_init(r17239);
        mpfr_init(r17240);
        mpfr_init_set_str(r17241, "2", 10, MPFR_RNDN);
        mpfr_init(r17242);
        mpfr_init(r17243);
        mpfr_init(r17244);
        mpfr_init(r17245);
        mpfr_init(r17246);
        mpfr_init_set_str(r17247, "1", 10, MPFR_RNDN);
        mpfr_init(r17248);
        mpfr_init(r17249);
        mpfr_init_set_str(r17250, "2.0", 10, MPFR_RNDN);
        mpfr_init(r17251);
        mpfr_init(r17252);
        mpfr_init_set_str(r17253, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17254);
        mpfr_init(r17255);
}

double f_fm(double alpha, double beta, double i) {
        mpfr_set_d(r17238, alpha, MPFR_RNDN);
        mpfr_set_d(r17239, beta, MPFR_RNDN);
        mpfr_add(r17240, r17238, r17239, MPFR_RNDN);
        ;
        mpfr_set_d(r17242, i, MPFR_RNDN);
        mpfr_mul(r17243, r17241, r17242, MPFR_RNDN);
        mpfr_add(r17244, r17240, r17243, MPFR_RNDN);
        mpfr_sub(r17245, r17239, r17238, MPFR_RNDN);
        mpfr_div(r17246, r17244, r17245, MPFR_RNDN);
        ;
        mpfr_pow(r17248, r17246, r17247, MPFR_RNDN);
        mpfr_div(r17249, r17240, r17248, MPFR_RNDN);
        ;
        mpfr_add(r17251, r17244, r17250, MPFR_RNDN);
        mpfr_div(r17252, r17249, r17251, MPFR_RNDN);
        ;
        mpfr_add(r17254, r17252, r17253, MPFR_RNDN);
        mpfr_div(r17255, r17254, r17250, MPFR_RNDN);
        return mpfr_get_d(r17255, MPFR_RNDN);
}

static mpfr_t r17256, r17257, r17258, r17259, r17260, r17261, r17262, r17263, r17264, r17265, r17266, r17267, r17268, r17269, r17270, r17271, r17272, r17273;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r17256);
        mpfr_init(r17257);
        mpfr_init(r17258);
        mpfr_init_set_str(r17259, "2", 10, MPFR_RNDN);
        mpfr_init(r17260);
        mpfr_init(r17261);
        mpfr_init(r17262);
        mpfr_init(r17263);
        mpfr_init(r17264);
        mpfr_init_set_str(r17265, "1", 10, MPFR_RNDN);
        mpfr_init(r17266);
        mpfr_init(r17267);
        mpfr_init_set_str(r17268, "2.0", 10, MPFR_RNDN);
        mpfr_init(r17269);
        mpfr_init(r17270);
        mpfr_init_set_str(r17271, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17272);
        mpfr_init(r17273);
}

double f_dm(double alpha, double beta, double i) {
        mpfr_set_d(r17256, alpha, MPFR_RNDN);
        mpfr_set_d(r17257, beta, MPFR_RNDN);
        mpfr_add(r17258, r17256, r17257, MPFR_RNDN);
        ;
        mpfr_set_d(r17260, i, MPFR_RNDN);
        mpfr_mul(r17261, r17259, r17260, MPFR_RNDN);
        mpfr_add(r17262, r17258, r17261, MPFR_RNDN);
        mpfr_sub(r17263, r17257, r17256, MPFR_RNDN);
        mpfr_div(r17264, r17262, r17263, MPFR_RNDN);
        ;
        mpfr_pow(r17266, r17264, r17265, MPFR_RNDN);
        mpfr_div(r17267, r17258, r17266, MPFR_RNDN);
        ;
        mpfr_add(r17269, r17262, r17268, MPFR_RNDN);
        mpfr_div(r17270, r17267, r17269, MPFR_RNDN);
        ;
        mpfr_add(r17272, r17270, r17271, MPFR_RNDN);
        mpfr_div(r17273, r17272, r17268, MPFR_RNDN);
        return mpfr_get_d(r17273, MPFR_RNDN);
}