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

char *name = "Octave 3.8, jcobi/4, as called";

double f_if(float i) {
        float r26399 = i;
        float r26400 = r26399 * r26399;
        float r26401 = r26400 * r26400;
        float r26402 = 2;
        float r26403 = r26402 * r26399;
        float r26404 = r26403 * r26403;
        float r26405 = r26401 / r26404;
        float r26406 = 1.0;
        float r26407 = r26404 - r26406;
        float r26408 = r26405 / r26407;
        return r26408;
}

double f_id(double i) {
        double r26409 = i;
        double r26410 = r26409 * r26409;
        double r26411 = r26410 * r26410;
        double r26412 = 2;
        double r26413 = r26412 * r26409;
        double r26414 = r26413 * r26413;
        double r26415 = r26411 / r26414;
        double r26416 = 1.0;
        double r26417 = r26414 - r26416;
        double r26418 = r26415 / r26417;
        return r26418;
}


double f_of(float i) {
        float r26419 = 1;
        float r26420 = 2;
        float r26421 = r26419 / r26420;
        float r26422 = i;
        float r26423 = r26421 * r26422;
        float r26424 = r26420 * r26420;
        float r26425 = r26422 * r26420;
        float r26426 = r26424 * r26425;
        float r26427 = 1.0;
        float r26428 = r26427 / r26422;
        float r26429 = r26420 * r26428;
        float r26430 = r26426 - r26429;
        float r26431 = r26423 / r26430;
        return r26431;
}

double f_od(double i) {
        double r26432 = 1;
        double r26433 = 2;
        double r26434 = r26432 / r26433;
        double r26435 = i;
        double r26436 = r26434 * r26435;
        double r26437 = r26433 * r26433;
        double r26438 = r26435 * r26433;
        double r26439 = r26437 * r26438;
        double r26440 = 1.0;
        double r26441 = r26440 / r26435;
        double r26442 = r26433 * r26441;
        double r26443 = r26439 - r26442;
        double r26444 = r26436 / r26443;
        return r26444;
}

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 r26445, r26446, r26447, r26448, r26449, r26450, r26451, r26452, r26453, r26454;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r26445);
        mpfr_init(r26446);
        mpfr_init(r26447);
        mpfr_init_set_str(r26448, "2", 10, MPFR_RNDN);
        mpfr_init(r26449);
        mpfr_init(r26450);
        mpfr_init(r26451);
        mpfr_init_set_str(r26452, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26453);
        mpfr_init(r26454);
}

double f_im(double i) {
        mpfr_set_d(r26445, i, MPFR_RNDN);
        mpfr_mul(r26446, r26445, r26445, MPFR_RNDN);
        mpfr_mul(r26447, r26446, r26446, MPFR_RNDN);
        ;
        mpfr_mul(r26449, r26448, r26445, MPFR_RNDN);
        mpfr_mul(r26450, r26449, r26449, MPFR_RNDN);
        mpfr_div(r26451, r26447, r26450, MPFR_RNDN);
        ;
        mpfr_sub(r26453, r26450, r26452, MPFR_RNDN);
        mpfr_div(r26454, r26451, r26453, MPFR_RNDN);
        return mpfr_get_d(r26454, MPFR_RNDN);
}

static mpfr_t r26455, r26456, r26457, r26458, r26459, r26460, r26461, r26462, r26463, r26464, r26465, r26466, r26467;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26455, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26456, "2", 10, MPFR_RNDN);
        mpfr_init(r26457);
        mpfr_init(r26458);
        mpfr_init(r26459);
        mpfr_init(r26460);
        mpfr_init(r26461);
        mpfr_init(r26462);
        mpfr_init_set_str(r26463, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26464);
        mpfr_init(r26465);
        mpfr_init(r26466);
        mpfr_init(r26467);
}

double f_fm(double i) {
        ;
        ;
        mpfr_div(r26457, r26455, r26456, MPFR_RNDN);
        mpfr_set_d(r26458, i, MPFR_RNDN);
        mpfr_mul(r26459, r26457, r26458, MPFR_RNDN);
        mpfr_mul(r26460, r26456, r26456, MPFR_RNDN);
        mpfr_mul(r26461, r26458, r26456, MPFR_RNDN);
        mpfr_mul(r26462, r26460, r26461, MPFR_RNDN);
        ;
        mpfr_div(r26464, r26463, r26458, MPFR_RNDN);
        mpfr_mul(r26465, r26456, r26464, MPFR_RNDN);
        mpfr_sub(r26466, r26462, r26465, MPFR_RNDN);
        mpfr_div(r26467, r26459, r26466, MPFR_RNDN);
        return mpfr_get_d(r26467, MPFR_RNDN);
}

static mpfr_t r26468, r26469, r26470, r26471, r26472, r26473, r26474, r26475, r26476, r26477, r26478, r26479, r26480;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26468, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26469, "2", 10, MPFR_RNDN);
        mpfr_init(r26470);
        mpfr_init(r26471);
        mpfr_init(r26472);
        mpfr_init(r26473);
        mpfr_init(r26474);
        mpfr_init(r26475);
        mpfr_init_set_str(r26476, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26477);
        mpfr_init(r26478);
        mpfr_init(r26479);
        mpfr_init(r26480);
}

double f_dm(double i) {
        ;
        ;
        mpfr_div(r26470, r26468, r26469, MPFR_RNDN);
        mpfr_set_d(r26471, i, MPFR_RNDN);
        mpfr_mul(r26472, r26470, r26471, MPFR_RNDN);
        mpfr_mul(r26473, r26469, r26469, MPFR_RNDN);
        mpfr_mul(r26474, r26471, r26469, MPFR_RNDN);
        mpfr_mul(r26475, r26473, r26474, MPFR_RNDN);
        ;
        mpfr_div(r26477, r26476, r26471, MPFR_RNDN);
        mpfr_mul(r26478, r26469, r26477, MPFR_RNDN);
        mpfr_sub(r26479, r26475, r26478, MPFR_RNDN);
        mpfr_div(r26480, r26472, r26479, MPFR_RNDN);
        return mpfr_get_d(r26480, MPFR_RNDN);
}