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

char *name = "NMSE problem 3.4.4";

double f_if(float x) {
        float r15001 = 2.0f;
        float r15002 = x;
        float r15003 = r15001 * r15002;
        float r15004 = exp(r15003);
        float r15005 = 1.0f;
        float r15006 = r15004 - r15005;
        float r15007 = exp(r15002);
        float r15008 = r15007 - r15005;
        float r15009 = r15006 / r15008;
        float r15010 = sqrt(r15009);
        return r15010;
}

double f_id(double x) {
        double r15011 = 2.0;
        double r15012 = x;
        double r15013 = r15011 * r15012;
        double r15014 = exp(r15013);
        double r15015 = 1.0;
        double r15016 = r15014 - r15015;
        double r15017 = exp(r15012);
        double r15018 = r15017 - r15015;
        double r15019 = r15016 / r15018;
        double r15020 = sqrt(r15019);
        return r15020;
}


double f_of(float x) {
        float r15021 = x;
        float r15022 = -0.0007312005036510527f;
        bool r15023 = r15021 <= r15022;
        float r15024 = 2.0f;
        float r15025 = r15024 * r15021;
        float r15026 = exp(r15025);
        float r15027 = sqrt(r15026);
        float r15028 = 1.0f;
        float r15029 = r15027 + r15028;
        float r15030 = r15027 - r15028;
        float r15031 = r15029 * r15030;
        float r15032 = exp(r15021);
        float r15033 = r15032 * (r15032 * r15032);
        float r15034 = r15033 - r15028;
        float r15035 = r15032 + r15028;
        float r15036 = r15021 + r15021;
        float r15037 = exp(r15036);
        float r15038 = r15035 + r15037;
        float r15039 = r15034 / r15038;
        float r15040 = r15031 / r15039;
        float r15041 = sqrt(r15040);
        float r15042 = 0.5f;
        float r15043 = r15021 * r15042;
        float r15044 = sqrt(r15024);
        float r15045 = r15043 / r15044;
        float r15046 = r15045 + r15044;
        float r15047 = 0.25f;
        float r15048 = 0.125f;
        float r15049 = r15048 / r15024;
        float r15050 = r15047 - r15049;
        float r15051 = r15021 * r15021;
        float r15052 = r15051 / r15044;
        float r15053 = r15050 * r15052;
        float r15054 = r15046 + r15053;
        float r15055 = r15023 ? r15041 : r15054;
        return r15055;
}

double f_od(double x) {
        double r15056 = x;
        double r15057 = -0.0007312005036510527;
        bool r15058 = r15056 <= r15057;
        double r15059 = 2.0;
        double r15060 = r15059 * r15056;
        double r15061 = exp(r15060);
        double r15062 = sqrt(r15061);
        double r15063 = 1.0;
        double r15064 = r15062 + r15063;
        double r15065 = r15062 - r15063;
        double r15066 = r15064 * r15065;
        double r15067 = exp(r15056);
        double r15068 = r15067 * (r15067 * r15067);
        double r15069 = r15068 - r15063;
        double r15070 = r15067 + r15063;
        double r15071 = r15056 + r15056;
        double r15072 = exp(r15071);
        double r15073 = r15070 + r15072;
        double r15074 = r15069 / r15073;
        double r15075 = r15066 / r15074;
        double r15076 = sqrt(r15075);
        double r15077 = 0.5;
        double r15078 = r15056 * r15077;
        double r15079 = sqrt(r15059);
        double r15080 = r15078 / r15079;
        double r15081 = r15080 + r15079;
        double r15082 = 0.25;
        double r15083 = 0.125;
        double r15084 = r15083 / r15059;
        double r15085 = r15082 - r15084;
        double r15086 = r15056 * r15056;
        double r15087 = r15086 / r15079;
        double r15088 = r15085 * r15087;
        double r15089 = r15081 + r15088;
        double r15090 = r15058 ? r15076 : r15089;
        return r15090;
}

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 r15091, r15092, r15093, r15094, r15095, r15096, r15097, r15098, r15099, r15100;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r15091, "2", 10, MPFR_RNDN);
        mpfr_init(r15092);
        mpfr_init(r15093);
        mpfr_init(r15094);
        mpfr_init_set_str(r15095, "1", 10, MPFR_RNDN);
        mpfr_init(r15096);
        mpfr_init(r15097);
        mpfr_init(r15098);
        mpfr_init(r15099);
        mpfr_init(r15100);
}

double f_im(double x) {
        ;
        mpfr_set_d(r15092, x, MPFR_RNDN);
        mpfr_mul(r15093, r15091, r15092, MPFR_RNDN);
        mpfr_exp(r15094, r15093, MPFR_RNDN);
        ;
        mpfr_sub(r15096, r15094, r15095, MPFR_RNDN);
        mpfr_exp(r15097, r15092, MPFR_RNDN);
        mpfr_sub(r15098, r15097, r15095, MPFR_RNDN);
        mpfr_div(r15099, r15096, r15098, MPFR_RNDN);
        mpfr_sqrt(r15100, r15099, MPFR_RNDN);
        return mpfr_get_d(r15100, MPFR_RNDN);
}

static mpfr_t r15101, r15102, r15103, r15104, r15105, r15106, r15107, r15108, r15109, r15110, r15111, r15112, r15113, r15114, r15115, r15116, r15117, r15118, r15119, r15120, r15121, r15122, r15123, r15124, r15125, r15126, r15127, r15128, r15129, r15130, r15131, r15132, r15133, r15134, r15135;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r15101);
        mpfr_init_set_str(r15102, "-0.0007312005f0", 10, MPFR_RNDN);
        mpfr_init(r15103);
        mpfr_init_set_str(r15104, "2", 10, MPFR_RNDN);
        mpfr_init(r15105);
        mpfr_init(r15106);
        mpfr_init(r15107);
        mpfr_init_set_str(r15108, "1", 10, MPFR_RNDN);
        mpfr_init(r15109);
        mpfr_init(r15110);
        mpfr_init(r15111);
        mpfr_init(r15112);
        mpfr_init(r15113);
        mpfr_init(r15114);
        mpfr_init(r15115);
        mpfr_init(r15116);
        mpfr_init(r15117);
        mpfr_init(r15118);
        mpfr_init(r15119);
        mpfr_init(r15120);
        mpfr_init(r15121);
        mpfr_init_set_str(r15122, "1/2", 10, MPFR_RNDN);
        mpfr_init(r15123);
        mpfr_init(r15124);
        mpfr_init(r15125);
        mpfr_init(r15126);
        mpfr_init_set_str(r15127, "1/4", 10, MPFR_RNDN);
        mpfr_init_set_str(r15128, "1/8", 10, MPFR_RNDN);
        mpfr_init(r15129);
        mpfr_init(r15130);
        mpfr_init(r15131);
        mpfr_init(r15132);
        mpfr_init(r15133);
        mpfr_init(r15134);
        mpfr_init(r15135);
}

double f_fm(double x) {
        mpfr_set_d(r15101, x, MPFR_RNDN);
        ;
        mpfr_set_si(r15103, mpfr_cmp(r15101, r15102) <= 0, MPFR_RNDN);
        ;
        mpfr_mul(r15105, r15104, r15101, MPFR_RNDN);
        mpfr_exp(r15106, r15105, MPFR_RNDN);
        mpfr_sqrt(r15107, r15106, MPFR_RNDN);
        ;
        mpfr_add(r15109, r15107, r15108, MPFR_RNDN);
        mpfr_sub(r15110, r15107, r15108, MPFR_RNDN);
        mpfr_mul(r15111, r15109, r15110, MPFR_RNDN);
        mpfr_exp(r15112, r15101, MPFR_RNDN);
        mpfr_mul(r15113, r15112, r15112, MPFR_RNDN); mpfr_mul(r15113, r15113, r15112, MPFR_RNDN);
        mpfr_sub(r15114, r15113, r15108, MPFR_RNDN);
        mpfr_add(r15115, r15112, r15108, MPFR_RNDN);
        mpfr_add(r15116, r15101, r15101, MPFR_RNDN);
        mpfr_exp(r15117, r15116, MPFR_RNDN);
        mpfr_add(r15118, r15115, r15117, MPFR_RNDN);
        mpfr_div(r15119, r15114, r15118, MPFR_RNDN);
        mpfr_div(r15120, r15111, r15119, MPFR_RNDN);
        mpfr_sqrt(r15121, r15120, MPFR_RNDN);
        ;
        mpfr_mul(r15123, r15101, r15122, MPFR_RNDN);
        mpfr_sqrt(r15124, r15104, MPFR_RNDN);
        mpfr_div(r15125, r15123, r15124, MPFR_RNDN);
        mpfr_add(r15126, r15125, r15124, MPFR_RNDN);
        ;
        ;
        mpfr_div(r15129, r15128, r15104, MPFR_RNDN);
        mpfr_sub(r15130, r15127, r15129, MPFR_RNDN);
        mpfr_sqr(r15131, r15101, MPFR_RNDN);
        mpfr_div(r15132, r15131, r15124, MPFR_RNDN);
        mpfr_mul(r15133, r15130, r15132, MPFR_RNDN);
        mpfr_add(r15134, r15126, r15133, MPFR_RNDN);
        if (mpfr_get_si(r15103, MPFR_RNDN)) { mpfr_set(r15135, r15121, MPFR_RNDN); } else { mpfr_set(r15135, r15134, MPFR_RNDN); };
        return mpfr_get_d(r15135, MPFR_RNDN);
}

static mpfr_t r15136, r15137, r15138, r15139, r15140, r15141, r15142, r15143, r15144, r15145, r15146, r15147, r15148, r15149, r15150, r15151, r15152, r15153, r15154, r15155, r15156, r15157, r15158, r15159, r15160, r15161, r15162, r15163, r15164, r15165, r15166, r15167, r15168, r15169, r15170;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r15136);
        mpfr_init_set_str(r15137, "-0.0007312005f0", 10, MPFR_RNDN);
        mpfr_init(r15138);
        mpfr_init_set_str(r15139, "2", 10, MPFR_RNDN);
        mpfr_init(r15140);
        mpfr_init(r15141);
        mpfr_init(r15142);
        mpfr_init_set_str(r15143, "1", 10, MPFR_RNDN);
        mpfr_init(r15144);
        mpfr_init(r15145);
        mpfr_init(r15146);
        mpfr_init(r15147);
        mpfr_init(r15148);
        mpfr_init(r15149);
        mpfr_init(r15150);
        mpfr_init(r15151);
        mpfr_init(r15152);
        mpfr_init(r15153);
        mpfr_init(r15154);
        mpfr_init(r15155);
        mpfr_init(r15156);
        mpfr_init_set_str(r15157, "1/2", 10, MPFR_RNDN);
        mpfr_init(r15158);
        mpfr_init(r15159);
        mpfr_init(r15160);
        mpfr_init(r15161);
        mpfr_init_set_str(r15162, "1/4", 10, MPFR_RNDN);
        mpfr_init_set_str(r15163, "1/8", 10, MPFR_RNDN);
        mpfr_init(r15164);
        mpfr_init(r15165);
        mpfr_init(r15166);
        mpfr_init(r15167);
        mpfr_init(r15168);
        mpfr_init(r15169);
        mpfr_init(r15170);
}

double f_dm(double x) {
        mpfr_set_d(r15136, x, MPFR_RNDN);
        ;
        mpfr_set_si(r15138, mpfr_cmp(r15136, r15137) <= 0, MPFR_RNDN);
        ;
        mpfr_mul(r15140, r15139, r15136, MPFR_RNDN);
        mpfr_exp(r15141, r15140, MPFR_RNDN);
        mpfr_sqrt(r15142, r15141, MPFR_RNDN);
        ;
        mpfr_add(r15144, r15142, r15143, MPFR_RNDN);
        mpfr_sub(r15145, r15142, r15143, MPFR_RNDN);
        mpfr_mul(r15146, r15144, r15145, MPFR_RNDN);
        mpfr_exp(r15147, r15136, MPFR_RNDN);
        mpfr_mul(r15148, r15147, r15147, MPFR_RNDN); mpfr_mul(r15148, r15148, r15147, MPFR_RNDN);
        mpfr_sub(r15149, r15148, r15143, MPFR_RNDN);
        mpfr_add(r15150, r15147, r15143, MPFR_RNDN);
        mpfr_add(r15151, r15136, r15136, MPFR_RNDN);
        mpfr_exp(r15152, r15151, MPFR_RNDN);
        mpfr_add(r15153, r15150, r15152, MPFR_RNDN);
        mpfr_div(r15154, r15149, r15153, MPFR_RNDN);
        mpfr_div(r15155, r15146, r15154, MPFR_RNDN);
        mpfr_sqrt(r15156, r15155, MPFR_RNDN);
        ;
        mpfr_mul(r15158, r15136, r15157, MPFR_RNDN);
        mpfr_sqrt(r15159, r15139, MPFR_RNDN);
        mpfr_div(r15160, r15158, r15159, MPFR_RNDN);
        mpfr_add(r15161, r15160, r15159, MPFR_RNDN);
        ;
        ;
        mpfr_div(r15164, r15163, r15139, MPFR_RNDN);
        mpfr_sub(r15165, r15162, r15164, MPFR_RNDN);
        mpfr_sqr(r15166, r15136, MPFR_RNDN);
        mpfr_div(r15167, r15166, r15159, MPFR_RNDN);
        mpfr_mul(r15168, r15165, r15167, MPFR_RNDN);
        mpfr_add(r15169, r15161, r15168, MPFR_RNDN);
        if (mpfr_get_si(r15138, MPFR_RNDN)) { mpfr_set(r15170, r15156, MPFR_RNDN); } else { mpfr_set(r15170, r15169, MPFR_RNDN); };
        return mpfr_get_d(r15170, MPFR_RNDN);
}

