#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 r26106 = i;
        float r26107 = r26106 * r26106;
        float r26108 = r26107 * r26107;
        float r26109 = 2;
        float r26110 = r26109 * r26106;
        float r26111 = r26110 * r26110;
        float r26112 = r26108 / r26111;
        float r26113 = 1.0;
        float r26114 = r26111 - r26113;
        float r26115 = r26112 / r26114;
        return r26115;
}

double f_id(double i) {
        double r26116 = i;
        double r26117 = r26116 * r26116;
        double r26118 = r26117 * r26117;
        double r26119 = 2;
        double r26120 = r26119 * r26116;
        double r26121 = r26120 * r26120;
        double r26122 = r26118 / r26121;
        double r26123 = 1.0;
        double r26124 = r26121 - r26123;
        double r26125 = r26122 / r26124;
        return r26125;
}


double f_of(float i) {
        float r26126 = 1;
        float r26127 = 2;
        float r26128 = r26126 / r26127;
        float r26129 = i;
        float r26130 = r26128 * r26129;
        float r26131 = r26127 * r26127;
        float r26132 = r26129 * r26127;
        float r26133 = r26131 * r26132;
        float r26134 = 1.0;
        float r26135 = r26134 / r26129;
        float r26136 = r26127 * r26135;
        float r26137 = r26133 - r26136;
        float r26138 = r26130 / r26137;
        return r26138;
}

double f_od(double i) {
        double r26139 = 1;
        double r26140 = 2;
        double r26141 = r26139 / r26140;
        double r26142 = i;
        double r26143 = r26141 * r26142;
        double r26144 = r26140 * r26140;
        double r26145 = r26142 * r26140;
        double r26146 = r26144 * r26145;
        double r26147 = 1.0;
        double r26148 = r26147 / r26142;
        double r26149 = r26140 * r26148;
        double r26150 = r26146 - r26149;
        double r26151 = r26143 / r26150;
        return r26151;
}

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 r26152, r26153, r26154, r26155, r26156, r26157, r26158, r26159, r26160, r26161;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r26152);
        mpfr_init(r26153);
        mpfr_init(r26154);
        mpfr_init_set_str(r26155, "2", 10, MPFR_RNDN);
        mpfr_init(r26156);
        mpfr_init(r26157);
        mpfr_init(r26158);
        mpfr_init_set_str(r26159, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26160);
        mpfr_init(r26161);
}

double f_im(double i) {
        mpfr_set_d(r26152, i, MPFR_RNDN);
        mpfr_mul(r26153, r26152, r26152, MPFR_RNDN);
        mpfr_mul(r26154, r26153, r26153, MPFR_RNDN);
        ;
        mpfr_mul(r26156, r26155, r26152, MPFR_RNDN);
        mpfr_mul(r26157, r26156, r26156, MPFR_RNDN);
        mpfr_div(r26158, r26154, r26157, MPFR_RNDN);
        ;
        mpfr_sub(r26160, r26157, r26159, MPFR_RNDN);
        mpfr_div(r26161, r26158, r26160, MPFR_RNDN);
        return mpfr_get_d(r26161, MPFR_RNDN);
}

static mpfr_t r26162, r26163, r26164, r26165, r26166, r26167, r26168, r26169, r26170, r26171, r26172, r26173, r26174;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26162, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26163, "2", 10, MPFR_RNDN);
        mpfr_init(r26164);
        mpfr_init(r26165);
        mpfr_init(r26166);
        mpfr_init(r26167);
        mpfr_init(r26168);
        mpfr_init(r26169);
        mpfr_init_set_str(r26170, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26171);
        mpfr_init(r26172);
        mpfr_init(r26173);
        mpfr_init(r26174);
}

double f_fm(double i) {
        ;
        ;
        mpfr_div(r26164, r26162, r26163, MPFR_RNDN);
        mpfr_set_d(r26165, i, MPFR_RNDN);
        mpfr_mul(r26166, r26164, r26165, MPFR_RNDN);
        mpfr_mul(r26167, r26163, r26163, MPFR_RNDN);
        mpfr_mul(r26168, r26165, r26163, MPFR_RNDN);
        mpfr_mul(r26169, r26167, r26168, MPFR_RNDN);
        ;
        mpfr_div(r26171, r26170, r26165, MPFR_RNDN);
        mpfr_mul(r26172, r26163, r26171, MPFR_RNDN);
        mpfr_sub(r26173, r26169, r26172, MPFR_RNDN);
        mpfr_div(r26174, r26166, r26173, MPFR_RNDN);
        return mpfr_get_d(r26174, MPFR_RNDN);
}

static mpfr_t r26175, r26176, r26177, r26178, r26179, r26180, r26181, r26182, r26183, r26184, r26185, r26186, r26187;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r26175, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26176, "2", 10, MPFR_RNDN);
        mpfr_init(r26177);
        mpfr_init(r26178);
        mpfr_init(r26179);
        mpfr_init(r26180);
        mpfr_init(r26181);
        mpfr_init(r26182);
        mpfr_init_set_str(r26183, "1.0", 10, MPFR_RNDN);
        mpfr_init(r26184);
        mpfr_init(r26185);
        mpfr_init(r26186);
        mpfr_init(r26187);
}

double f_dm(double i) {
        ;
        ;
        mpfr_div(r26177, r26175, r26176, MPFR_RNDN);
        mpfr_set_d(r26178, i, MPFR_RNDN);
        mpfr_mul(r26179, r26177, r26178, MPFR_RNDN);
        mpfr_mul(r26180, r26176, r26176, MPFR_RNDN);
        mpfr_mul(r26181, r26178, r26176, MPFR_RNDN);
        mpfr_mul(r26182, r26180, r26181, MPFR_RNDN);
        ;
        mpfr_div(r26184, r26183, r26178, MPFR_RNDN);
        mpfr_mul(r26185, r26176, r26184, MPFR_RNDN);
        mpfr_sub(r26186, r26182, r26185, MPFR_RNDN);
        mpfr_div(r26187, r26179, r26186, MPFR_RNDN);
        return mpfr_get_d(r26187, MPFR_RNDN);
}