#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 r17146 = alpha;
        float r17147 = beta;
        float r17148 = r17146 + r17147;
        float r17149 = r17147 - r17146;
        float r17150 = r17148 * r17149;
        float r17151 = 2.0f;
        float r17152 = i;
        float r17153 = r17151 * r17152;
        float r17154 = r17148 + r17153;
        float r17155 = r17150 / r17154;
        float r17156 = 2.0f;
        float r17157 = r17154 + r17156;
        float r17158 = r17155 / r17157;
        float r17159 = 1.0f;
        float r17160 = r17158 + r17159;
        float r17161 = r17160 / r17156;
        return r17161;
}

double f_id(double alpha, double beta, double i) {
        double r17162 = alpha;
        double r17163 = beta;
        double r17164 = r17162 + r17163;
        double r17165 = r17163 - r17162;
        double r17166 = r17164 * r17165;
        double r17167 = 2.0;
        double r17168 = i;
        double r17169 = r17167 * r17168;
        double r17170 = r17164 + r17169;
        double r17171 = r17166 / r17170;
        double r17172 = 2.0;
        double r17173 = r17170 + r17172;
        double r17174 = r17171 / r17173;
        double r17175 = 1.0;
        double r17176 = r17174 + r17175;
        double r17177 = r17176 / r17172;
        return r17177;
}


double f_of(float alpha, float beta, float i) {
        float r17178 = alpha;
        float r17179 = beta;
        float r17180 = r17178 + r17179;
        float r17181 = 2.0f;
        float r17182 = i;
        float r17183 = r17181 * r17182;
        float r17184 = r17180 + r17183;
        float r17185 = r17179 - r17178;
        float r17186 = r17184 / r17185;
        float r17187 = 1.0f;
        float r17188 = pow(r17186, r17187);
        float r17189 = r17180 / r17188;
        float r17190 = 2.0f;
        float r17191 = r17184 + r17190;
        float r17192 = r17189 / r17191;
        float r17193 = 1.0f;
        float r17194 = r17192 + r17193;
        float r17195 = r17194 / r17190;
        return r17195;
}

double f_od(double alpha, double beta, double i) {
        double r17196 = alpha;
        double r17197 = beta;
        double r17198 = r17196 + r17197;
        double r17199 = 2.0;
        double r17200 = i;
        double r17201 = r17199 * r17200;
        double r17202 = r17198 + r17201;
        double r17203 = r17197 - r17196;
        double r17204 = r17202 / r17203;
        double r17205 = 1.0;
        double r17206 = pow(r17204, r17205);
        double r17207 = r17198 / r17206;
        double r17208 = 2.0;
        double r17209 = r17202 + r17208;
        double r17210 = r17207 / r17209;
        double r17211 = 1.0;
        double r17212 = r17210 + r17211;
        double r17213 = r17212 / r17208;
        return r17213;
}

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 r17214, r17215, r17216, r17217, r17218, r17219, r17220, r17221, r17222, r17223, r17224, r17225, r17226, r17227, r17228, r17229;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r17214);
        mpfr_init(r17215);
        mpfr_init(r17216);
        mpfr_init(r17217);
        mpfr_init(r17218);
        mpfr_init_set_str(r17219, "2", 10, MPFR_RNDN);
        mpfr_init(r17220);
        mpfr_init(r17221);
        mpfr_init(r17222);
        mpfr_init(r17223);
        mpfr_init_set_str(r17224, "2.0", 10, MPFR_RNDN);
        mpfr_init(r17225);
        mpfr_init(r17226);
        mpfr_init_set_str(r17227, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17228);
        mpfr_init(r17229);
}

double f_im(double alpha, double beta, double i) {
        mpfr_set_d(r17214, alpha, MPFR_RNDN);
        mpfr_set_d(r17215, beta, MPFR_RNDN);
        mpfr_add(r17216, r17214, r17215, MPFR_RNDN);
        mpfr_sub(r17217, r17215, r17214, MPFR_RNDN);
        mpfr_mul(r17218, r17216, r17217, MPFR_RNDN);
        ;
        mpfr_set_d(r17220, i, MPFR_RNDN);
        mpfr_mul(r17221, r17219, r17220, MPFR_RNDN);
        mpfr_add(r17222, r17216, r17221, MPFR_RNDN);
        mpfr_div(r17223, r17218, r17222, MPFR_RNDN);
        ;
        mpfr_add(r17225, r17222, r17224, MPFR_RNDN);
        mpfr_div(r17226, r17223, r17225, MPFR_RNDN);
        ;
        mpfr_add(r17228, r17226, r17227, MPFR_RNDN);
        mpfr_div(r17229, r17228, r17224, MPFR_RNDN);
        return mpfr_get_d(r17229, MPFR_RNDN);
}

static mpfr_t r17230, r17231, r17232, r17233, r17234, r17235, r17236, r17237, r17238, r17239, r17240, r17241, r17242, r17243, r17244, r17245, r17246, r17247;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r17230);
        mpfr_init(r17231);
        mpfr_init(r17232);
        mpfr_init_set_str(r17233, "2", 10, MPFR_RNDN);
        mpfr_init(r17234);
        mpfr_init(r17235);
        mpfr_init(r17236);
        mpfr_init(r17237);
        mpfr_init(r17238);
        mpfr_init_set_str(r17239, "1", 10, MPFR_RNDN);
        mpfr_init(r17240);
        mpfr_init(r17241);
        mpfr_init_set_str(r17242, "2.0", 10, MPFR_RNDN);
        mpfr_init(r17243);
        mpfr_init(r17244);
        mpfr_init_set_str(r17245, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17246);
        mpfr_init(r17247);
}

double f_fm(double alpha, double beta, double i) {
        mpfr_set_d(r17230, alpha, MPFR_RNDN);
        mpfr_set_d(r17231, beta, MPFR_RNDN);
        mpfr_add(r17232, r17230, r17231, MPFR_RNDN);
        ;
        mpfr_set_d(r17234, i, MPFR_RNDN);
        mpfr_mul(r17235, r17233, r17234, MPFR_RNDN);
        mpfr_add(r17236, r17232, r17235, MPFR_RNDN);
        mpfr_sub(r17237, r17231, r17230, MPFR_RNDN);
        mpfr_div(r17238, r17236, r17237, MPFR_RNDN);
        ;
        mpfr_pow(r17240, r17238, r17239, MPFR_RNDN);
        mpfr_div(r17241, r17232, r17240, MPFR_RNDN);
        ;
        mpfr_add(r17243, r17236, r17242, MPFR_RNDN);
        mpfr_div(r17244, r17241, r17243, MPFR_RNDN);
        ;
        mpfr_add(r17246, r17244, r17245, MPFR_RNDN);
        mpfr_div(r17247, r17246, r17242, MPFR_RNDN);
        return mpfr_get_d(r17247, MPFR_RNDN);
}

static mpfr_t r17248, r17249, r17250, r17251, r17252, r17253, r17254, r17255, r17256, r17257, r17258, r17259, r17260, r17261, r17262, r17263, r17264, r17265;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r17248);
        mpfr_init(r17249);
        mpfr_init(r17250);
        mpfr_init_set_str(r17251, "2", 10, MPFR_RNDN);
        mpfr_init(r17252);
        mpfr_init(r17253);
        mpfr_init(r17254);
        mpfr_init(r17255);
        mpfr_init(r17256);
        mpfr_init_set_str(r17257, "1", 10, MPFR_RNDN);
        mpfr_init(r17258);
        mpfr_init(r17259);
        mpfr_init_set_str(r17260, "2.0", 10, MPFR_RNDN);
        mpfr_init(r17261);
        mpfr_init(r17262);
        mpfr_init_set_str(r17263, "1.0", 10, MPFR_RNDN);
        mpfr_init(r17264);
        mpfr_init(r17265);
}

double f_dm(double alpha, double beta, double i) {
        mpfr_set_d(r17248, alpha, MPFR_RNDN);
        mpfr_set_d(r17249, beta, MPFR_RNDN);
        mpfr_add(r17250, r17248, r17249, MPFR_RNDN);
        ;
        mpfr_set_d(r17252, i, MPFR_RNDN);
        mpfr_mul(r17253, r17251, r17252, MPFR_RNDN);
        mpfr_add(r17254, r17250, r17253, MPFR_RNDN);
        mpfr_sub(r17255, r17249, r17248, MPFR_RNDN);
        mpfr_div(r17256, r17254, r17255, MPFR_RNDN);
        ;
        mpfr_pow(r17258, r17256, r17257, MPFR_RNDN);
        mpfr_div(r17259, r17250, r17258, MPFR_RNDN);
        ;
        mpfr_add(r17261, r17254, r17260, MPFR_RNDN);
        mpfr_div(r17262, r17259, r17261, MPFR_RNDN);
        ;
        mpfr_add(r17264, r17262, r17263, MPFR_RNDN);
        mpfr_div(r17265, r17264, r17260, MPFR_RNDN);
        return mpfr_get_d(r17265, MPFR_RNDN);
}