#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 r9651 = a;
        float r9652 = 1.0f;
        float r9653 = 3.0f;
        float r9654 = r9652 / r9653;
        float r9655 = r9651 - r9654;
        float r9656 = 1.0f;
        float r9657 = 9.0f;
        float r9658 = r9657 * r9655;
        float r9659 = sqrt(r9658);
        float r9660 = r9656 / r9659;
        float r9661 = rand;
        float r9662 = r9660 * r9661;
        float r9663 = r9656 + r9662;
        float r9664 = r9655 * r9663;
        return r9664;
}

double f_id(double a, double rand) {
        double r9665 = a;
        double r9666 = 1.0;
        double r9667 = 3.0;
        double r9668 = r9666 / r9667;
        double r9669 = r9665 - r9668;
        double r9670 = 1.0;
        double r9671 = 9.0;
        double r9672 = r9671 * r9669;
        double r9673 = sqrt(r9672);
        double r9674 = r9670 / r9673;
        double r9675 = rand;
        double r9676 = r9674 * r9675;
        double r9677 = r9670 + r9676;
        double r9678 = r9669 * r9677;
        return r9678;
}


double f_of(float a, float rand) {
        float r9679 = a;
        float r9680 = 1.0f;
        float r9681 = 3.0f;
        float r9682 = r9680 / r9681;
        float r9683 = r9679 - r9682;
        float r9684 = 1.0f;
        float r9685 = 9.0f;
        float r9686 = sqrt(r9685);
        float r9687 = sqrt(r9683);
        float r9688 = r9686 * r9687;
        float r9689 = r9684 / r9688;
        float r9690 = rand;
        float r9691 = r9689 * r9690;
        float r9692 = r9684 + r9691;
        float r9693 = r9683 * r9692;
        return r9693;
}

double f_od(double a, double rand) {
        double r9694 = a;
        double r9695 = 1.0;
        double r9696 = 3.0;
        double r9697 = r9695 / r9696;
        double r9698 = r9694 - r9697;
        double r9699 = 1.0;
        double r9700 = 9.0;
        double r9701 = sqrt(r9700);
        double r9702 = sqrt(r9698);
        double r9703 = r9701 * r9702;
        double r9704 = r9699 / r9703;
        double r9705 = rand;
        double r9706 = r9704 * r9705;
        double r9707 = r9699 + r9706;
        double r9708 = r9698 * r9707;
        return r9708;
}

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 r9709, r9710, r9711, r9712, r9713, r9714, r9715, r9716, r9717, r9718, r9719, r9720, r9721, r9722;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r9709);
        mpfr_init_set_str(r9710, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r9711, "3.0", 10, MPFR_RNDN);
        mpfr_init(r9712);
        mpfr_init(r9713);
        mpfr_init_set_str(r9714, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9715, "9", 10, MPFR_RNDN);
        mpfr_init(r9716);
        mpfr_init(r9717);
        mpfr_init(r9718);
        mpfr_init(r9719);
        mpfr_init(r9720);
        mpfr_init(r9721);
        mpfr_init(r9722);
}

double f_im(double a, double rand) {
        mpfr_set_d(r9709, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r9712, r9710, r9711, MPFR_RNDN);
        mpfr_sub(r9713, r9709, r9712, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r9716, r9715, r9713, MPFR_RNDN);
        mpfr_sqrt(r9717, r9716, MPFR_RNDN);
        mpfr_div(r9718, r9714, r9717, MPFR_RNDN);
        mpfr_set_d(r9719, rand, MPFR_RNDN);
        mpfr_mul(r9720, r9718, r9719, MPFR_RNDN);
        mpfr_add(r9721, r9714, r9720, MPFR_RNDN);
        mpfr_mul(r9722, r9713, r9721, MPFR_RNDN);
        return mpfr_get_d(r9722, MPFR_RNDN);
}

static mpfr_t r9723, r9724, r9725, r9726, r9727, r9728, r9729, r9730, r9731, r9732, r9733, r9734, r9735, r9736, r9737;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9723);
        mpfr_init_set_str(r9724, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r9725, "3.0", 10, MPFR_RNDN);
        mpfr_init(r9726);
        mpfr_init(r9727);
        mpfr_init_set_str(r9728, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9729, "9", 10, MPFR_RNDN);
        mpfr_init(r9730);
        mpfr_init(r9731);
        mpfr_init(r9732);
        mpfr_init(r9733);
        mpfr_init(r9734);
        mpfr_init(r9735);
        mpfr_init(r9736);
        mpfr_init(r9737);
}

double f_fm(double a, double rand) {
        mpfr_set_d(r9723, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r9726, r9724, r9725, MPFR_RNDN);
        mpfr_sub(r9727, r9723, r9726, MPFR_RNDN);
        ;
        ;
        mpfr_sqrt(r9730, r9729, MPFR_RNDN);
        mpfr_sqrt(r9731, r9727, MPFR_RNDN);
        mpfr_mul(r9732, r9730, r9731, MPFR_RNDN);
        mpfr_div(r9733, r9728, r9732, MPFR_RNDN);
        mpfr_set_d(r9734, rand, MPFR_RNDN);
        mpfr_mul(r9735, r9733, r9734, MPFR_RNDN);
        mpfr_add(r9736, r9728, r9735, MPFR_RNDN);
        mpfr_mul(r9737, r9727, r9736, MPFR_RNDN);
        return mpfr_get_d(r9737, MPFR_RNDN);
}

static mpfr_t r9738, r9739, r9740, r9741, r9742, r9743, r9744, r9745, r9746, r9747, r9748, r9749, r9750, r9751, r9752;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9738);
        mpfr_init_set_str(r9739, "1.0", 10, MPFR_RNDN);
        mpfr_init_set_str(r9740, "3.0", 10, MPFR_RNDN);
        mpfr_init(r9741);
        mpfr_init(r9742);
        mpfr_init_set_str(r9743, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9744, "9", 10, MPFR_RNDN);
        mpfr_init(r9745);
        mpfr_init(r9746);
        mpfr_init(r9747);
        mpfr_init(r9748);
        mpfr_init(r9749);
        mpfr_init(r9750);
        mpfr_init(r9751);
        mpfr_init(r9752);
}

double f_dm(double a, double rand) {
        mpfr_set_d(r9738, a, MPFR_RNDN);
        ;
        ;
        mpfr_div(r9741, r9739, r9740, MPFR_RNDN);
        mpfr_sub(r9742, r9738, r9741, MPFR_RNDN);
        ;
        ;
        mpfr_sqrt(r9745, r9744, MPFR_RNDN);
        mpfr_sqrt(r9746, r9742, MPFR_RNDN);
        mpfr_mul(r9747, r9745, r9746, MPFR_RNDN);
        mpfr_div(r9748, r9743, r9747, MPFR_RNDN);
        mpfr_set_d(r9749, rand, MPFR_RNDN);
        mpfr_mul(r9750, r9748, r9749, MPFR_RNDN);
        mpfr_add(r9751, r9743, r9750, MPFR_RNDN);
        mpfr_mul(r9752, r9742, r9751, MPFR_RNDN);
        return mpfr_get_d(r9752, MPFR_RNDN);
}