#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 r20750 = x;
        float r20751 = 4;
        float r20752 = pow(r20750, r20751);
        float r20753 = y;
        float r20754 = pow(r20753, r20751);
        float r20755 = r20752 - r20754;
        return r20755;
}

double f_id(double x, double y) {
        double r20756 = x;
        double r20757 = 4;
        double r20758 = pow(r20756, r20757);
        double r20759 = y;
        double r20760 = pow(r20759, r20757);
        double r20761 = r20758 - r20760;
        return r20761;
}


double f_of(float x, float y) {
        float r20762 = x;
        float r20763 = 4;
        float r20764 = pow(r20762, r20763);
        float r20765 = y;
        float r20766 = pow(r20765, r20763);
        float r20767 = r20764 - r20766;
        return r20767;
}

double f_od(double x, double y) {
        double r20768 = x;
        double r20769 = 4;
        double r20770 = pow(r20768, r20769);
        double r20771 = y;
        double r20772 = pow(r20771, r20769);
        double r20773 = r20770 - r20772;
        return r20773;
}

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 r20774, r20775, r20776, r20777, r20778, r20779;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r20774);
        mpfr_init_set_str(r20775, "4", 10, MPFR_RNDN);
        mpfr_init(r20776);
        mpfr_init(r20777);
        mpfr_init(r20778);
        mpfr_init(r20779);
}

double f_im(double x, double y) {
        mpfr_set_d(r20774, x, MPFR_RNDN);
        ;
        mpfr_pow(r20776, r20774, r20775, MPFR_RNDN);
        mpfr_set_d(r20777, y, MPFR_RNDN);
        mpfr_pow(r20778, r20777, r20775, MPFR_RNDN);
        mpfr_sub(r20779, r20776, r20778, MPFR_RNDN);
        return mpfr_get_d(r20779, MPFR_RNDN);
}

static mpfr_t r20780, r20781, r20782, r20783, r20784, r20785;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20780);
        mpfr_init_set_str(r20781, "4", 10, MPFR_RNDN);
        mpfr_init(r20782);
        mpfr_init(r20783);
        mpfr_init(r20784);
        mpfr_init(r20785);
}

double f_fm(double x, double y) {
        mpfr_set_d(r20780, x, MPFR_RNDN);
        ;
        mpfr_pow(r20782, r20780, r20781, MPFR_RNDN);
        mpfr_set_d(r20783, y, MPFR_RNDN);
        mpfr_pow(r20784, r20783, r20781, MPFR_RNDN);
        mpfr_sub(r20785, r20782, r20784, MPFR_RNDN);
        return mpfr_get_d(r20785, MPFR_RNDN);
}

static mpfr_t r20786, r20787, r20788, r20789, r20790, r20791;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20786);
        mpfr_init_set_str(r20787, "4", 10, MPFR_RNDN);
        mpfr_init(r20788);
        mpfr_init(r20789);
        mpfr_init(r20790);
        mpfr_init(r20791);
}

double f_dm(double x, double y) {
        mpfr_set_d(r20786, x, MPFR_RNDN);
        ;
        mpfr_pow(r20788, r20786, r20787, MPFR_RNDN);
        mpfr_set_d(r20789, y, MPFR_RNDN);
        mpfr_pow(r20790, r20789, r20787, MPFR_RNDN);
        mpfr_sub(r20791, r20788, r20790, MPFR_RNDN);
        return mpfr_get_d(r20791, MPFR_RNDN);
}