#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 r26301 = a;
        float r26302 = 1.0;
        float r26303 = 3.0;
        float r26304 = r26302 / r26303;
        float r26305 = r26301 - r26304;
        float r26306 = 1;
        float r26307 = 9;
        float r26308 = r26307 * r26305;
        float r26309 = sqrt(r26308);
        float r26310 = r26306 / r26309;
        float r26311 = rand;
        float r26312 = r26310 * r26311;
        float r26313 = r26306 + r26312;
        float r26314 = r26305 * r26313;
        return r26314;
}

double f_id(double a, double rand) {
        double r26315 = a;
        double r26316 = 1.0;
        double r26317 = 3.0;
        double r26318 = r26316 / r26317;
        double r26319 = r26315 - r26318;
        double r26320 = 1;
        double r26321 = 9;
        double r26322 = r26321 * r26319;
        double r26323 = sqrt(r26322);
        double r26324 = r26320 / r26323;
        double r26325 = rand;
        double r26326 = r26324 * r26325;
        double r26327 = r26320 + r26326;
        double r26328 = r26319 * r26327;
        return r26328;
}


double f_of(float a, float rand) {
        float r26329 = a;
        float r26330 = 1.0;
        float r26331 = 3.0;
        float r26332 = r26330 / r26331;
        float r26333 = r26329 - r26332;
        float r26334 = 1;
        float r26335 = rand;
        float r26336 = 9;
        float r26337 = r26333 * r26336;
        float r26338 = sqrt(r26337);
        float r26339 = r26335 / r26338;
        float r26340 = r26334 * r26339;
        float r26341 = r26334 + r26340;
        float r26342 = r26333 * r26341;
        return r26342;
}

double f_od(double a, double rand) {
        double r26343 = a;
        double r26344 = 1.0;
        double r26345 = 3.0;
        double r26346 = r26344 / r26345;
        double r26347 = r26343 - r26346;
        double r26348 = 1;
        double r26349 = rand;
        double r26350 = 9;
        double r26351 = r26347 * r26350;
        double r26352 = sqrt(r26351);
        double r26353 = r26349 / r26352;
        double r26354 = r26348 * r26353;
        double r26355 = r26348 + r26354;
        double r26356 = r26347 * r26355;
        return r26356;
}

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 r26357, r26358, r26359, r26360, r26361, r26362, r26363, r26364, r26365, r26366, r26367, r26368, r26369, r26370;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r26357);
        mpfr_init_set_str(r26358, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26359, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26360);
        mpfr_init(r26361);
        mpfr_init_set_str(r26362, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r26363, "9", 10, MPFR_RNDN);
        mpfr_init(r26364);
        mpfr_init(r26365);
        mpfr_init(r26366);
        mpfr_init(r26367);
        mpfr_init(r26368);
        mpfr_init(r26369);
        mpfr_init(r26370);
}

double f_im(double a, double rand) {
        mpfr_set_d(r26357, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26360, r26358, r26359, MPFR_RNDN);
        mpfr_sub(r26361, r26357, r26360, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r26364, r26363, r26361, MPFR_RNDN);
        mpfr_sqrt(r26365, r26364, MPFR_RNDN);
        mpfr_div(r26366, r26362, r26365, MPFR_RNDN);
        mpfr_set_d(r26367, rand, MPFR_RNDN);
        mpfr_mul(r26368, r26366, r26367, MPFR_RNDN);
        mpfr_add(r26369, r26362, r26368, MPFR_RNDN);
        mpfr_mul(r26370, r26361, r26369, MPFR_RNDN);
        return mpfr_get_d(r26370, MPFR_RNDN);
}

static mpfr_t r26371, r26372, r26373, r26374, r26375, r26376, r26377, r26378, r26379, r26380, r26381, r26382, r26383, r26384;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r26371);
        mpfr_init_set_str(r26372, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26373, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26374);
        mpfr_init(r26375);
        mpfr_init_set_str(r26376, "1", 10, MPFR_RNDN);
        mpfr_init(r26377);
        mpfr_init_set_str(r26378, "9", 10, MPFR_RNDN);
        mpfr_init(r26379);
        mpfr_init(r26380);
        mpfr_init(r26381);
        mpfr_init(r26382);
        mpfr_init(r26383);
        mpfr_init(r26384);
}

double f_fm(double a, double rand) {
        mpfr_set_d(r26371, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26374, r26372, r26373, MPFR_RNDN);
        mpfr_sub(r26375, r26371, r26374, MPFR_RNDN);
        ;
        mpfr_set_d(r26377, rand, MPFR_RNDN);
        ;
        mpfr_mul(r26379, r26375, r26378, MPFR_RNDN);
        mpfr_sqrt(r26380, r26379, MPFR_RNDN);
        mpfr_div(r26381, r26377, r26380, MPFR_RNDN);
        mpfr_mul(r26382, r26376, r26381, MPFR_RNDN);
        mpfr_add(r26383, r26376, r26382, MPFR_RNDN);
        mpfr_mul(r26384, r26375, r26383, MPFR_RNDN);
        return mpfr_get_d(r26384, MPFR_RNDN);
}

static mpfr_t r26385, r26386, r26387, r26388, r26389, r26390, r26391, r26392, r26393, r26394, r26395, r26396, r26397, r26398;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r26385);
        mpfr_init_set_str(r26386, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r26387, "3.0", 10, MPFR_RNDN);
        mpfr_init(r26388);
        mpfr_init(r26389);
        mpfr_init_set_str(r26390, "1", 10, MPFR_RNDN);
        mpfr_init(r26391);
        mpfr_init_set_str(r26392, "9", 10, MPFR_RNDN);
        mpfr_init(r26393);
        mpfr_init(r26394);
        mpfr_init(r26395);
        mpfr_init(r26396);
        mpfr_init(r26397);
        mpfr_init(r26398);
}

double f_dm(double a, double rand) {
        mpfr_set_d(r26385, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r26388, r26386, r26387, MPFR_RNDN);
        mpfr_sub(r26389, r26385, r26388, MPFR_RNDN);
        ;
        mpfr_set_d(r26391, rand, MPFR_RNDN);
        ;
        mpfr_mul(r26393, r26389, r26392, MPFR_RNDN);
        mpfr_sqrt(r26394, r26393, MPFR_RNDN);
        mpfr_div(r26395, r26391, r26394, MPFR_RNDN);
        mpfr_mul(r26396, r26390, r26395, MPFR_RNDN);
        mpfr_add(r26397, r26390, r26396, MPFR_RNDN);
        mpfr_mul(r26398, r26389, r26397, MPFR_RNDN);
        return mpfr_get_d(r26398, MPFR_RNDN);
}