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

char *name = "Rosa's DopplerBench";

double f_if(float u, float v, float t1) {
        float r18568 = t1;
        float r18569 = -r18568;
        float r18570 = v;
        float r18571 = r18569 * r18570;
        float r18572 = u;
        float r18573 = r18568 + r18572;
        float r18574 = r18573 * r18573;
        float r18575 = r18571 / r18574;
        return r18575;
}

double f_id(double u, double v, double t1) {
        double r18576 = t1;
        double r18577 = -r18576;
        double r18578 = v;
        double r18579 = r18577 * r18578;
        double r18580 = u;
        double r18581 = r18576 + r18580;
        double r18582 = r18581 * r18581;
        double r18583 = r18579 / r18582;
        return r18583;
}


double f_of(float u, float v, float t1) {
        float r18584 = t1;
        float r18585 = -r18584;
        float r18586 = u;
        float r18587 = r18584 + r18586;
        float r18588 = r18585 / r18587;
        float r18589 = v;
        float r18590 = r18588 * r18589;
        float r18591 = r18590 / r18587;
        return r18591;
}

double f_od(double u, double v, double t1) {
        double r18592 = t1;
        double r18593 = -r18592;
        double r18594 = u;
        double r18595 = r18592 + r18594;
        double r18596 = r18593 / r18595;
        double r18597 = v;
        double r18598 = r18596 * r18597;
        double r18599 = r18598 / r18595;
        return r18599;
}

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 r18600, r18601, r18602, r18603, r18604, r18605, r18606, r18607;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r18600);
        mpfr_init(r18601);
        mpfr_init(r18602);
        mpfr_init(r18603);
        mpfr_init(r18604);
        mpfr_init(r18605);
        mpfr_init(r18606);
        mpfr_init(r18607);
}

double f_im(double u, double v, double t1) {
        mpfr_set_d(r18600, t1, MPFR_RNDN);
        mpfr_neg(r18601, r18600, MPFR_RNDN);
        mpfr_set_d(r18602, v, MPFR_RNDN);
        mpfr_mul(r18603, r18601, r18602, MPFR_RNDN);
        mpfr_set_d(r18604, u, MPFR_RNDN);
        mpfr_add(r18605, r18600, r18604, MPFR_RNDN);
        mpfr_mul(r18606, r18605, r18605, MPFR_RNDN);
        mpfr_div(r18607, r18603, r18606, MPFR_RNDN);
        return mpfr_get_d(r18607, MPFR_RNDN);
}

static mpfr_t r18608, r18609, r18610, r18611, r18612, r18613, r18614, r18615;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r18608);
        mpfr_init(r18609);
        mpfr_init(r18610);
        mpfr_init(r18611);
        mpfr_init(r18612);
        mpfr_init(r18613);
        mpfr_init(r18614);
        mpfr_init(r18615);
}

double f_fm(double u, double v, double t1) {
        mpfr_set_d(r18608, t1, MPFR_RNDN);
        mpfr_neg(r18609, r18608, MPFR_RNDN);
        mpfr_set_d(r18610, u, MPFR_RNDN);
        mpfr_add(r18611, r18608, r18610, MPFR_RNDN);
        mpfr_div(r18612, r18609, r18611, MPFR_RNDN);
        mpfr_set_d(r18613, v, MPFR_RNDN);
        mpfr_mul(r18614, r18612, r18613, MPFR_RNDN);
        mpfr_div(r18615, r18614, r18611, MPFR_RNDN);
        return mpfr_get_d(r18615, MPFR_RNDN);
}

static mpfr_t r18616, r18617, r18618, r18619, r18620, r18621, r18622, r18623;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r18616);
        mpfr_init(r18617);
        mpfr_init(r18618);
        mpfr_init(r18619);
        mpfr_init(r18620);
        mpfr_init(r18621);
        mpfr_init(r18622);
        mpfr_init(r18623);
}

double f_dm(double u, double v, double t1) {
        mpfr_set_d(r18616, t1, MPFR_RNDN);
        mpfr_neg(r18617, r18616, MPFR_RNDN);
        mpfr_set_d(r18618, u, MPFR_RNDN);
        mpfr_add(r18619, r18616, r18618, MPFR_RNDN);
        mpfr_div(r18620, r18617, r18619, MPFR_RNDN);
        mpfr_set_d(r18621, v, MPFR_RNDN);
        mpfr_mul(r18622, r18620, r18621, MPFR_RNDN);
        mpfr_div(r18623, r18622, r18619, MPFR_RNDN);
        return mpfr_get_d(r18623, MPFR_RNDN);
}