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

char *name = "Radioactive exchange between two surfaces";

double f_if(float x, float y) {
        float r15028 = x;
        float r15029 = 4.0f;
        float r15030 = pow(r15028, r15029);
        float r15031 = y;
        float r15032 = pow(r15031, r15029);
        float r15033 = r15030 - r15032;
        return r15033;
}

double f_id(double x, double y) {
        double r15034 = x;
        double r15035 = 4.0;
        double r15036 = pow(r15034, r15035);
        double r15037 = y;
        double r15038 = pow(r15037, r15035);
        double r15039 = r15036 - r15038;
        return r15039;
}


double f_of(float x, float y) {
        float r15040 = x;
        float r15041 = 4.0f;
        float r15042 = pow(r15040, r15041);
        float r15043 = y;
        float r15044 = pow(r15043, r15041);
        float r15045 = r15042 - r15044;
        return r15045;
}

double f_od(double x, double y) {
        double r15046 = x;
        double r15047 = 4.0;
        double r15048 = pow(r15046, r15047);
        double r15049 = y;
        double r15050 = pow(r15049, r15047);
        double r15051 = r15048 - r15050;
        return r15051;
}

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 r15052, r15053, r15054, r15055, r15056, r15057;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r15052);
        mpfr_init_set_str(r15053, "4", 10, MPFR_RNDN);
        mpfr_init(r15054);
        mpfr_init(r15055);
        mpfr_init(r15056);
        mpfr_init(r15057);
}

double f_im(double x, double y) {
        mpfr_set_d(r15052, x, MPFR_RNDN);
        ;
        mpfr_pow(r15054, r15052, r15053, MPFR_RNDN);
        mpfr_set_d(r15055, y, MPFR_RNDN);
        mpfr_pow(r15056, r15055, r15053, MPFR_RNDN);
        mpfr_sub(r15057, r15054, r15056, MPFR_RNDN);
        return mpfr_get_d(r15057, MPFR_RNDN);
}

static mpfr_t r15058, r15059, r15060, r15061, r15062, r15063;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r15058);
        mpfr_init_set_str(r15059, "4", 10, MPFR_RNDN);
        mpfr_init(r15060);
        mpfr_init(r15061);
        mpfr_init(r15062);
        mpfr_init(r15063);
}

double f_fm(double x, double y) {
        mpfr_set_d(r15058, x, MPFR_RNDN);
        ;
        mpfr_pow(r15060, r15058, r15059, MPFR_RNDN);
        mpfr_set_d(r15061, y, MPFR_RNDN);
        mpfr_pow(r15062, r15061, r15059, MPFR_RNDN);
        mpfr_sub(r15063, r15060, r15062, MPFR_RNDN);
        return mpfr_get_d(r15063, MPFR_RNDN);
}

static mpfr_t r15064, r15065, r15066, r15067, r15068, r15069;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r15064);
        mpfr_init_set_str(r15065, "4", 10, MPFR_RNDN);
        mpfr_init(r15066);
        mpfr_init(r15067);
        mpfr_init(r15068);
        mpfr_init(r15069);
}

double f_dm(double x, double y) {
        mpfr_set_d(r15064, x, MPFR_RNDN);
        ;
        mpfr_pow(r15066, r15064, r15065, MPFR_RNDN);
        mpfr_set_d(r15067, y, MPFR_RNDN);
        mpfr_pow(r15068, r15067, r15065, MPFR_RNDN);
        mpfr_sub(r15069, r15066, r15068, MPFR_RNDN);
        return mpfr_get_d(r15069, MPFR_RNDN);
}