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

char *name = "Octave 3.8, oct_fill_randg";

double f_if(float a, float rand) {
        float r26115 = a;
        float r26116 = 1.0;
        float r26117 = 3.0;
        float r26118 = r26116 / r26117;
        float r26119 = r26115 - r26118;
        float r26120 = 1;
        float r26121 = 9;
        float r26122 = r26121 * r26119;
        float r26123 = sqrt(r26122);
        float r26124 = r26120 / r26123;
        float r26125 = rand;
        float r26126 = r26124 * r26125;
        float r26127 = r26120 + r26126;
        float r26128 = r26119 * r26127;
        return r26128;
}

double f_id(double a, double rand) {
        double r26129 = a;
        double r26130 = 1.0;
        double r26131 = 3.0;
        double r26132 = r26130 / r26131;
        double r26133 = r26129 - r26132;
        double r26134 = 1;
        double r26135 = 9;
        double r26136 = r26135 * r26133;
        double r26137 = sqrt(r26136);
        double r26138 = r26134 / r26137;
        double r26139 = rand;
        double r26140 = r26138 * r26139;
        double r26141 = r26134 + r26140;
        double r26142 = r26133 * r26141;
        return r26142;
}


double f_of(float a, float rand) {
        float r26143 = a;
        float r26144 = 1.0;
        float r26145 = 3.0;
        float r26146 = r26144 / r26145;
        float r26147 = r26143 - r26146;
        float r26148 = 1;
        float r26149 = 9;
        float r26150 = r26149 * r26147;
        float r26151 = 1/2;
        float r26152 = -r26151;
        float r26153 = pow(r26150, r26152);
        float r26154 = rand;
        float r26155 = r26153 * r26154;
        float r26156 = r26148 + r26155;
        float r26157 = r26147 * r26156;
        return r26157;
}

double f_od(double a, double rand) {
        double r26158 = a;
        double r26159 = 1.0;
        double r26160 = 3.0;
        double r26161 = r26159 / r26160;
        double r26162 = r26158 - r26161;
        double r26163 = 1;
        double r26164 = 9;
        double r26165 = r26164 * r26162;
        double r26166 = 1/2;
        double r26167 = -r26166;
        double r26168 = pow(r26165, r26167);
        double r26169 = rand;
        double r26170 = r26168 * r26169;
        double r26171 = r26163 + r26170;
        double r26172 = r26162 * r26171;
        return r26172;
}

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 r26173, r26174, r26175, r26176, r26177, r26178, r26179, r26180, r26181, r26182, r26183, r26184, r26185, r26186;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r26173);
        mpfr_init_set_str(r26174, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26175, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26176);
        mpfr_init(r26177);
        mpfr_init_set_str(r26178, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26179, "9", 10, MPFR_RNDN);
        mpfr_init(r26180);
        mpfr_init(r26181);
        mpfr_init(r26182);
        mpfr_init(r26183);
        mpfr_init(r26184);
        mpfr_init(r26185);
        mpfr_init(r26186);
}

double f_im(double a, double rand) {
        mpfr_set_d(r26173, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26176, r26174, r26175, MPFR_RNDN);
        mpfr_sub(r26177, r26173, r26176, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26180, r26179, r26177, MPFR_RNDN);
        mpfr_sqrt(r26181, r26180, MPFR_RNDN);
        mpfr_div(r26182, r26178, r26181, MPFR_RNDN);
        mpfr_set_d(r26183, rand, MPFR_RNDN);
        mpfr_mul(r26184, r26182, r26183, MPFR_RNDN);
        mpfr_add(r26185, r26178, r26184, MPFR_RNDN);
        mpfr_mul(r26186, r26177, r26185, MPFR_RNDN);
        return mpfr_get_d(r26186, MPFR_RNDN);
}

static mpfr_t r26187, r26188, r26189, r26190, r26191, r26192, r26193, r26194, r26195, r26196, r26197, r26198, r26199, r26200, r26201;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r26187);
        mpfr_init_set_str(r26188, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26189, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26190);
        mpfr_init(r26191);
        mpfr_init_set_str(r26192, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26193, "9", 10, MPFR_RNDN);
        mpfr_init(r26194);
        mpfr_init_set_str(r26195, "1/2", 10, MPFR_RNDN);
        mpfr_init(r26196);
        mpfr_init(r26197);
        mpfr_init(r26198);
        mpfr_init(r26199);
        mpfr_init(r26200);
        mpfr_init(r26201);
}

double f_fm(double a, double rand) {
        mpfr_set_d(r26187, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26190, r26188, r26189, MPFR_RNDN);
        mpfr_sub(r26191, r26187, r26190, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26194, r26193, r26191, MPFR_RNDN);
        ;
        mpfr_neg(r26196, r26195, MPFR_RNDN);
        mpfr_pow(r26197, r26194, r26196, MPFR_RNDN);
        mpfr_set_d(r26198, rand, MPFR_RNDN);
        mpfr_mul(r26199, r26197, r26198, MPFR_RNDN);
        mpfr_add(r26200, r26192, r26199, MPFR_RNDN);
        mpfr_mul(r26201, r26191, r26200, MPFR_RNDN);
        return mpfr_get_d(r26201, MPFR_RNDN);
}

static mpfr_t r26202, r26203, r26204, r26205, r26206, r26207, r26208, r26209, r26210, r26211, r26212, r26213, r26214, r26215, r26216;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r26202);
        mpfr_init_set_str(r26203, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26204, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26205);
        mpfr_init(r26206);
        mpfr_init_set_str(r26207, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26208, "9", 10, MPFR_RNDN);
        mpfr_init(r26209);
        mpfr_init_set_str(r26210, "1/2", 10, MPFR_RNDN);
        mpfr_init(r26211);
        mpfr_init(r26212);
        mpfr_init(r26213);
        mpfr_init(r26214);
        mpfr_init(r26215);
        mpfr_init(r26216);
}

double f_dm(double a, double rand) {
        mpfr_set_d(r26202, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26205, r26203, r26204, MPFR_RNDN);
        mpfr_sub(r26206, r26202, r26205, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26209, r26208, r26206, MPFR_RNDN);
        ;
        mpfr_neg(r26211, r26210, MPFR_RNDN);
        mpfr_pow(r26212, r26209, r26211, MPFR_RNDN);
        mpfr_set_d(r26213, rand, MPFR_RNDN);
        mpfr_mul(r26214, r26212, r26213, MPFR_RNDN);
        mpfr_add(r26215, r26207, r26214, MPFR_RNDN);
        mpfr_mul(r26216, r26206, r26215, MPFR_RNDN);
        return mpfr_get_d(r26216, MPFR_RNDN);
}