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

char *name = "FastMath dist4";

double f_if(float d1, float d2, float d3, float d4) {
        float r26993 = d1;
        float r26994 = d2;
        float r26995 = r26993 * r26994;
        float r26996 = d3;
        float r26997 = r26993 * r26996;
        float r26998 = r26995 - r26997;
        float r26999 = d4;
        float r27000 = r26999 * r26993;
        float r27001 = r26998 + r27000;
        float r27002 = r26993 * r26993;
        float r27003 = r27001 - r27002;
        return r27003;
}

double f_id(double d1, double d2, double d3, double d4) {
        double r27004 = d1;
        double r27005 = d2;
        double r27006 = r27004 * r27005;
        double r27007 = d3;
        double r27008 = r27004 * r27007;
        double r27009 = r27006 - r27008;
        double r27010 = d4;
        double r27011 = r27010 * r27004;
        double r27012 = r27009 + r27011;
        double r27013 = r27004 * r27004;
        double r27014 = r27012 - r27013;
        return r27014;
}


double f_of(float d1, float d2, float d3, float d4) {
        float r27015 = d1;
        float r27016 = d2;
        float r27017 = r27015 * r27016;
        float r27018 = d3;
        float r27019 = r27015 * r27018;
        float r27020 = r27017 - r27019;
        float r27021 = d4;
        float r27022 = r27021 * r27015;
        float r27023 = r27020 + r27022;
        float r27024 = r27015 * r27015;
        float r27025 = r27023 - r27024;
        return r27025;
}

double f_od(double d1, double d2, double d3, double d4) {
        double r27026 = d1;
        double r27027 = d2;
        double r27028 = r27026 * r27027;
        double r27029 = d3;
        double r27030 = r27026 * r27029;
        double r27031 = r27028 - r27030;
        double r27032 = d4;
        double r27033 = r27032 * r27026;
        double r27034 = r27031 + r27033;
        double r27035 = r27026 * r27026;
        double r27036 = r27034 - r27035;
        return r27036;
}

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 r27037, r27038, r27039, r27040, r27041, r27042, r27043, r27044, r27045, r27046, r27047;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r27037);
        mpfr_init(r27038);
        mpfr_init(r27039);
        mpfr_init(r27040);
        mpfr_init(r27041);
        mpfr_init(r27042);
        mpfr_init(r27043);
        mpfr_init(r27044);
        mpfr_init(r27045);
        mpfr_init(r27046);
        mpfr_init(r27047);
}

double f_im(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r27037, d1, MPFR_RNDN);
        mpfr_set_d(r27038, d2, MPFR_RNDN);
        mpfr_mul(r27039, r27037, r27038, MPFR_RNDN);
        mpfr_set_d(r27040, d3, MPFR_RNDN);
        mpfr_mul(r27041, r27037, r27040, MPFR_RNDN);
        mpfr_sub(r27042, r27039, r27041, MPFR_RNDN);
        mpfr_set_d(r27043, d4, MPFR_RNDN);
        mpfr_mul(r27044, r27043, r27037, MPFR_RNDN);
        mpfr_add(r27045, r27042, r27044, MPFR_RNDN);
        mpfr_mul(r27046, r27037, r27037, MPFR_RNDN);
        mpfr_sub(r27047, r27045, r27046, MPFR_RNDN);
        return mpfr_get_d(r27047, MPFR_RNDN);
}

static mpfr_t r27048, r27049, r27050, r27051, r27052, r27053, r27054, r27055, r27056, r27057, r27058;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r27048);
        mpfr_init(r27049);
        mpfr_init(r27050);
        mpfr_init(r27051);
        mpfr_init(r27052);
        mpfr_init(r27053);
        mpfr_init(r27054);
        mpfr_init(r27055);
        mpfr_init(r27056);
        mpfr_init(r27057);
        mpfr_init(r27058);
}

double f_fm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r27048, d1, MPFR_RNDN);
        mpfr_set_d(r27049, d2, MPFR_RNDN);
        mpfr_mul(r27050, r27048, r27049, MPFR_RNDN);
        mpfr_set_d(r27051, d3, MPFR_RNDN);
        mpfr_mul(r27052, r27048, r27051, MPFR_RNDN);
        mpfr_sub(r27053, r27050, r27052, MPFR_RNDN);
        mpfr_set_d(r27054, d4, MPFR_RNDN);
        mpfr_mul(r27055, r27054, r27048, MPFR_RNDN);
        mpfr_add(r27056, r27053, r27055, MPFR_RNDN);
        mpfr_mul(r27057, r27048, r27048, MPFR_RNDN);
        mpfr_sub(r27058, r27056, r27057, MPFR_RNDN);
        return mpfr_get_d(r27058, MPFR_RNDN);
}

static mpfr_t r27059, r27060, r27061, r27062, r27063, r27064, r27065, r27066, r27067, r27068, r27069;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r27059);
        mpfr_init(r27060);
        mpfr_init(r27061);
        mpfr_init(r27062);
        mpfr_init(r27063);
        mpfr_init(r27064);
        mpfr_init(r27065);
        mpfr_init(r27066);
        mpfr_init(r27067);
        mpfr_init(r27068);
        mpfr_init(r27069);
}

double f_dm(double d1, double d2, double d3, double d4) {
        mpfr_set_d(r27059, d1, MPFR_RNDN);
        mpfr_set_d(r27060, d2, MPFR_RNDN);
        mpfr_mul(r27061, r27059, r27060, MPFR_RNDN);
        mpfr_set_d(r27062, d3, MPFR_RNDN);
        mpfr_mul(r27063, r27059, r27062, MPFR_RNDN);
        mpfr_sub(r27064, r27061, r27063, MPFR_RNDN);
        mpfr_set_d(r27065, d4, MPFR_RNDN);
        mpfr_mul(r27066, r27065, r27059, MPFR_RNDN);
        mpfr_add(r27067, r27064, r27066, MPFR_RNDN);
        mpfr_mul(r27068, r27059, r27059, MPFR_RNDN);
        mpfr_sub(r27069, r27067, r27068, MPFR_RNDN);
        return mpfr_get_d(r27069, MPFR_RNDN);
}