#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 r26326 = alpha;
        float r26327 = beta;
        float r26328 = r26326 + r26327;
        float r26329 = r26327 - r26326;
        float r26330 = r26328 * r26329;
        float r26331 = 2;
        float r26332 = i;
        float r26333 = r26331 * r26332;
        float r26334 = r26328 + r26333;
        float r26335 = r26330 / r26334;
        float r26336 = 2.0;
        float r26337 = r26334 + r26336;
        float r26338 = r26335 / r26337;
        float r26339 = 1.0;
        float r26340 = r26338 + r26339;
        float r26341 = r26340 / r26336;
        return r26341;
}

double f_id(double alpha, double beta, double i) {
        double r26342 = alpha;
        double r26343 = beta;
        double r26344 = r26342 + r26343;
        double r26345 = r26343 - r26342;
        double r26346 = r26344 * r26345;
        double r26347 = 2;
        double r26348 = i;
        double r26349 = r26347 * r26348;
        double r26350 = r26344 + r26349;
        double r26351 = r26346 / r26350;
        double r26352 = 2.0;
        double r26353 = r26350 + r26352;
        double r26354 = r26351 / r26353;
        double r26355 = 1.0;
        double r26356 = r26354 + r26355;
        double r26357 = r26356 / r26352;
        return r26357;
}


double f_of(float alpha, float beta, float i) {
        float r26358 = beta;
        float r26359 = alpha;
        float r26360 = r26358 + r26359;
        float r26361 = i;
        float r26362 = 2;
        float r26363 = fma(r26361, r26362, r26358);
        float r26364 = 2.0;
        float r26365 = r26364 + r26359;
        float r26366 = r26363 + r26365;
        float r26367 = r26360 / r26366;
        float r26368 = r26358 - r26359;
        float r26369 = fma(r26362, r26361, r26360);
        float r26370 = r26368 / r26369;
        float r26371 = 1.0;
        float r26372 = fma(r26367, r26370, r26371);
        float r26373 = exp(r26372);
        float r26374 = log(r26373);
        float r26375 = r26374 / r26364;
        return r26375;
}

double f_od(double alpha, double beta, double i) {
        double r26376 = beta;
        double r26377 = alpha;
        double r26378 = r26376 + r26377;
        double r26379 = i;
        double r26380 = 2;
        double r26381 = fma(r26379, r26380, r26376);
        double r26382 = 2.0;
        double r26383 = r26382 + r26377;
        double r26384 = r26381 + r26383;
        double r26385 = r26378 / r26384;
        double r26386 = r26376 - r26377;
        double r26387 = fma(r26380, r26379, r26378);
        double r26388 = r26386 / r26387;
        double r26389 = 1.0;
        double r26390 = fma(r26385, r26388, r26389);
        double r26391 = exp(r26390);
        double r26392 = log(r26391);
        double r26393 = r26392 / r26382;
        return r26393;
}

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 r26394, r26395, r26396, r26397, r26398, r26399, r26400, r26401, r26402, r26403, r26404, r26405, r26406, r26407, r26408, r26409;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26394);
        mpfr_init(r26395);
        mpfr_init(r26396);
        mpfr_init(r26397);
        mpfr_init(r26398);
        mpfr_init_set_str(r26399, "2", 10, MPFR_RNDN);
        mpfr_init(r26400);
        mpfr_init(r26401);
        mpfr_init(r26402);
        mpfr_init(r26403);
        mpfr_init_set_str(r26404, "2.0", 10, MPFR_RNDN);
        mpfr_init(r26405);
        mpfr_init(r26406);
        mpfr_init_set_str(r26407, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26408);
        mpfr_init(r26409);
}

double f_im(double alpha, double beta, double i) {
        mpfr_set_d(r26394, alpha, MPFR_RNDN);
        mpfr_set_d(r26395, beta, MPFR_RNDN);
        mpfr_add(r26396, r26394, r26395, MPFR_RNDN);
        mpfr_sub(r26397, r26395, r26394, MPFR_RNDN);
        mpfr_mul(r26398, r26396, r26397, MPFR_RNDN);
        ;
        mpfr_set_d(r26400, i, MPFR_RNDN);
        mpfr_mul(r26401, r26399, r26400, MPFR_RNDN);
        mpfr_add(r26402, r26396, r26401, MPFR_RNDN);
        mpfr_div(r26403, r26398, r26402, MPFR_RNDN);
        ;
        mpfr_add(r26405, r26402, r26404, MPFR_RNDN);
        mpfr_div(r26406, r26403, r26405, MPFR_RNDN);
        ;
        mpfr_add(r26408, r26406, r26407, MPFR_RNDN);
        mpfr_div(r26409, r26408, r26404, MPFR_RNDN);
        return mpfr_get_d(r26409, MPFR_RNDN);
}

static mpfr_t r26410, r26411, r26412, r26413, r26414, r26415, r26416, r26417, r26418, r26419, r26420, r26421, r26422, r26423, r26424, r26425, r26426, r26427;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26410);
        mpfr_init(r26411);
        mpfr_init(r26412);
        mpfr_init(r26413);
        mpfr_init_set_str(r26414, "2", 10, MPFR_RNDN);
        mpfr_init(r26415);
        mpfr_init_set_str(r26416, "2.0", 10, MPFR_RNDN);
        mpfr_init(r26417);
        mpfr_init(r26418);
        mpfr_init(r26419);
        mpfr_init(r26420);
        mpfr_init(r26421);
        mpfr_init(r26422);
        mpfr_init_set_str(r26423, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26424);
        mpfr_init(r26425);
        mpfr_init(r26426);
        mpfr_init(r26427);
}

double f_fm(double alpha, double beta, double i) {
        mpfr_set_d(r26410, beta, MPFR_RNDN);
        mpfr_set_d(r26411, alpha, MPFR_RNDN);
        mpfr_add(r26412, r26410, r26411, MPFR_RNDN);
        mpfr_set_d(r26413, i, MPFR_RNDN);
        ;
        mpfr_fma(r26415, r26413, r26414, r26410, MPFR_RNDN);
        ;
        mpfr_add(r26417, r26416, r26411, MPFR_RNDN);
        mpfr_add(r26418, r26415, r26417, MPFR_RNDN);
        mpfr_div(r26419, r26412, r26418, MPFR_RNDN);
        mpfr_sub(r26420, r26410, r26411, MPFR_RNDN);
        mpfr_fma(r26421, r26414, r26413, r26412, MPFR_RNDN);
        mpfr_div(r26422, r26420, r26421, MPFR_RNDN);
        ;
        mpfr_fma(r26424, r26419, r26422, r26423, MPFR_RNDN);
        mpfr_exp(r26425, r26424, MPFR_RNDN);
        mpfr_log(r26426, r26425, MPFR_RNDN);
        mpfr_div(r26427, r26426, r26416, MPFR_RNDN);
        return mpfr_get_d(r26427, MPFR_RNDN);
}

static mpfr_t r26428, r26429, r26430, r26431, r26432, r26433, r26434, r26435, r26436, r26437, r26438, r26439, r26440, r26441, r26442, r26443, r26444, r26445;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r26428);
        mpfr_init(r26429);
        mpfr_init(r26430);
        mpfr_init(r26431);
        mpfr_init_set_str(r26432, "2", 10, MPFR_RNDN);
        mpfr_init(r26433);
        mpfr_init_set_str(r26434, "2.0", 10, MPFR_RNDN);
        mpfr_init(r26435);
        mpfr_init(r26436);
        mpfr_init(r26437);
        mpfr_init(r26438);
        mpfr_init(r26439);
        mpfr_init(r26440);
        mpfr_init_set_str(r26441, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26442);
        mpfr_init(r26443);
        mpfr_init(r26444);
        mpfr_init(r26445);
}

double f_dm(double alpha, double beta, double i) {
        mpfr_set_d(r26428, beta, MPFR_RNDN);
        mpfr_set_d(r26429, alpha, MPFR_RNDN);
        mpfr_add(r26430, r26428, r26429, MPFR_RNDN);
        mpfr_set_d(r26431, i, MPFR_RNDN);
        ;
        mpfr_fma(r26433, r26431, r26432, r26428, MPFR_RNDN);
        ;
        mpfr_add(r26435, r26434, r26429, MPFR_RNDN);
        mpfr_add(r26436, r26433, r26435, MPFR_RNDN);
        mpfr_div(r26437, r26430, r26436, MPFR_RNDN);
        mpfr_sub(r26438, r26428, r26429, MPFR_RNDN);
        mpfr_fma(r26439, r26432, r26431, r26430, MPFR_RNDN);
        mpfr_div(r26440, r26438, r26439, MPFR_RNDN);
        ;
        mpfr_fma(r26442, r26437, r26440, r26441, MPFR_RNDN);
        mpfr_exp(r26443, r26442, MPFR_RNDN);
        mpfr_log(r26444, r26443, MPFR_RNDN);
        mpfr_div(r26445, r26444, r26434, MPFR_RNDN);
        return mpfr_get_d(r26445, MPFR_RNDN);
}