#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 r26333 = a;
        float r26334 = 1.0;
        float r26335 = 3.0;
        float r26336 = r26334 / r26335;
        float r26337 = r26333 - r26336;
        float r26338 = 1;
        float r26339 = 9;
        float r26340 = r26339 * r26337;
        float r26341 = sqrt(r26340);
        float r26342 = r26338 / r26341;
        float r26343 = rand;
        float r26344 = r26342 * r26343;
        float r26345 = r26338 + r26344;
        float r26346 = r26337 * r26345;
        return r26346;
}

double f_id(double a, double rand) {
        double r26347 = a;
        double r26348 = 1.0;
        double r26349 = 3.0;
        double r26350 = r26348 / r26349;
        double r26351 = r26347 - r26350;
        double r26352 = 1;
        double r26353 = 9;
        double r26354 = r26353 * r26351;
        double r26355 = sqrt(r26354);
        double r26356 = r26352 / r26355;
        double r26357 = rand;
        double r26358 = r26356 * r26357;
        double r26359 = r26352 + r26358;
        double r26360 = r26351 * r26359;
        return r26360;
}


double f_of(float a, float rand) {
        float r26361 = a;
        float r26362 = 1.0;
        float r26363 = 3.0;
        float r26364 = r26362 / r26363;
        float r26365 = r26361 - r26364;
        float r26366 = 1;
        float r26367 = 9;
        float r26368 = r26367 * r26365;
        float r26369 = sqrt(r26368);
        float r26370 = r26366 / r26369;
        float r26371 = rand;
        float r26372 = r26370 * r26371;
        float r26373 = r26366 + r26372;
        float r26374 = r26365 * r26373;
        return r26374;
}

double f_od(double a, double rand) {
        double r26375 = a;
        double r26376 = 1.0;
        double r26377 = 3.0;
        double r26378 = r26376 / r26377;
        double r26379 = r26375 - r26378;
        double r26380 = 1;
        double r26381 = 9;
        double r26382 = r26381 * r26379;
        double r26383 = sqrt(r26382);
        double r26384 = r26380 / r26383;
        double r26385 = rand;
        double r26386 = r26384 * r26385;
        double r26387 = r26380 + r26386;
        double r26388 = r26379 * r26387;
        return r26388;
}

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 r26389, r26390, r26391, r26392, r26393, r26394, r26395, r26396, r26397, r26398, r26399, r26400, r26401, r26402;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r26389);
        mpfr_init_set_str(r26390, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26391, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26392);
        mpfr_init(r26393);
        mpfr_init_set_str(r26394, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26395, "9", 10, MPFR_RNDN);
        mpfr_init(r26396);
        mpfr_init(r26397);
        mpfr_init(r26398);
        mpfr_init(r26399);
        mpfr_init(r26400);
        mpfr_init(r26401);
        mpfr_init(r26402);
}

double f_im(double a, double rand) {
        mpfr_set_d(r26389, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26392, r26390, r26391, MPFR_RNDN);
        mpfr_sub(r26393, r26389, r26392, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26396, r26395, r26393, MPFR_RNDN);
        mpfr_sqrt(r26397, r26396, MPFR_RNDN);
        mpfr_div(r26398, r26394, r26397, MPFR_RNDN);
        mpfr_set_d(r26399, rand, MPFR_RNDN);
        mpfr_mul(r26400, r26398, r26399, MPFR_RNDN);
        mpfr_add(r26401, r26394, r26400, MPFR_RNDN);
        mpfr_mul(r26402, r26393, r26401, MPFR_RNDN);
        return mpfr_get_d(r26402, MPFR_RNDN);
}

static mpfr_t r26403, r26404, r26405, r26406, r26407, r26408, r26409, r26410, r26411, r26412, r26413, r26414, r26415, r26416;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r26403);
        mpfr_init_set_str(r26404, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26405, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26406);
        mpfr_init(r26407);
        mpfr_init_set_str(r26408, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26409, "9", 10, MPFR_RNDN);
        mpfr_init(r26410);
        mpfr_init(r26411);
        mpfr_init(r26412);
        mpfr_init(r26413);
        mpfr_init(r26414);
        mpfr_init(r26415);
        mpfr_init(r26416);
}

double f_fm(double a, double rand) {
        mpfr_set_d(r26403, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26406, r26404, r26405, MPFR_RNDN);
        mpfr_sub(r26407, r26403, r26406, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26410, r26409, r26407, MPFR_RNDN);
        mpfr_sqrt(r26411, r26410, MPFR_RNDN);
        mpfr_div(r26412, r26408, r26411, MPFR_RNDN);
        mpfr_set_d(r26413, rand, MPFR_RNDN);
        mpfr_mul(r26414, r26412, r26413, MPFR_RNDN);
        mpfr_add(r26415, r26408, r26414, MPFR_RNDN);
        mpfr_mul(r26416, r26407, r26415, MPFR_RNDN);
        return mpfr_get_d(r26416, MPFR_RNDN);
}

static mpfr_t r26417, r26418, r26419, r26420, r26421, r26422, r26423, r26424, r26425, r26426, r26427, r26428, r26429, r26430;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r26417);
        mpfr_init_set_str(r26418, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26419, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26420);
        mpfr_init(r26421);
        mpfr_init_set_str(r26422, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26423, "9", 10, MPFR_RNDN);
        mpfr_init(r26424);
        mpfr_init(r26425);
        mpfr_init(r26426);
        mpfr_init(r26427);
        mpfr_init(r26428);
        mpfr_init(r26429);
        mpfr_init(r26430);
}

double f_dm(double a, double rand) {
        mpfr_set_d(r26417, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26420, r26418, r26419, MPFR_RNDN);
        mpfr_sub(r26421, r26417, r26420, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26424, r26423, r26421, MPFR_RNDN);
        mpfr_sqrt(r26425, r26424, MPFR_RNDN);
        mpfr_div(r26426, r26422, r26425, MPFR_RNDN);
        mpfr_set_d(r26427, rand, MPFR_RNDN);
        mpfr_mul(r26428, r26426, r26427, MPFR_RNDN);
        mpfr_add(r26429, r26422, r26428, MPFR_RNDN);
        mpfr_mul(r26430, r26421, r26429, MPFR_RNDN);
        return mpfr_get_d(r26430, MPFR_RNDN);
}