#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 r16279582 = x;
        float r16279583 = 4;
        float r16279584 = pow(r16279582, r16279583);
        float r16279585 = y;
        float r16279586 = pow(r16279585, r16279583);
        float r16279587 = r16279584 - r16279586;
        return r16279587;
}

double f_id(double x, double y) {
        double r16279588 = x;
        double r16279589 = 4;
        double r16279590 = pow(r16279588, r16279589);
        double r16279591 = y;
        double r16279592 = pow(r16279591, r16279589);
        double r16279593 = r16279590 - r16279592;
        return r16279593;
}


double f_of(float x, float y) {
        float r16279594 = x;
        float r16279595 = 4;
        float r16279596 = pow(r16279594, r16279595);
        float r16279597 = y;
        float r16279598 = pow(r16279597, r16279595);
        float r16279599 = r16279596 - r16279598;
        return r16279599;
}

double f_od(double x, double y) {
        double r16279600 = x;
        double r16279601 = 4;
        double r16279602 = pow(r16279600, r16279601);
        double r16279603 = y;
        double r16279604 = pow(r16279603, r16279601);
        double r16279605 = r16279602 - r16279604;
        return r16279605;
}

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 r16279606, r16279607, r16279608, r16279609, r16279610, r16279611;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r16279606);
        mpfr_init_set_str(r16279607, "4", 10, MPFR_RNDN);
        mpfr_init(r16279608);
        mpfr_init(r16279609);
        mpfr_init(r16279610);
        mpfr_init(r16279611);
}

double f_im(double x, double y) {
        mpfr_set_d(r16279606, x, MPFR_RNDN);
        ;
        mpfr_pow(r16279608, r16279606, r16279607, MPFR_RNDN);
        mpfr_set_d(r16279609, y, MPFR_RNDN);
        mpfr_pow(r16279610, r16279609, r16279607, MPFR_RNDN);
        mpfr_sub(r16279611, r16279608, r16279610, MPFR_RNDN);
        return mpfr_get_d(r16279611, MPFR_RNDN);
}

static mpfr_t r16279612, r16279613, r16279614, r16279615, r16279616, r16279617;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r16279612);
        mpfr_init_set_str(r16279613, "4", 10, MPFR_RNDN);
        mpfr_init(r16279614);
        mpfr_init(r16279615);
        mpfr_init(r16279616);
        mpfr_init(r16279617);
}

double f_fm(double x, double y) {
        mpfr_set_d(r16279612, x, MPFR_RNDN);
        ;
        mpfr_pow(r16279614, r16279612, r16279613, MPFR_RNDN);
        mpfr_set_d(r16279615, y, MPFR_RNDN);
        mpfr_pow(r16279616, r16279615, r16279613, MPFR_RNDN);
        mpfr_sub(r16279617, r16279614, r16279616, MPFR_RNDN);
        return mpfr_get_d(r16279617, MPFR_RNDN);
}

static mpfr_t r16279618, r16279619, r16279620, r16279621, r16279622, r16279623;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r16279618);
        mpfr_init_set_str(r16279619, "4", 10, MPFR_RNDN);
        mpfr_init(r16279620);
        mpfr_init(r16279621);
        mpfr_init(r16279622);
        mpfr_init(r16279623);
}

double f_dm(double x, double y) {
        mpfr_set_d(r16279618, x, MPFR_RNDN);
        ;
        mpfr_pow(r16279620, r16279618, r16279619, MPFR_RNDN);
        mpfr_set_d(r16279621, y, MPFR_RNDN);
        mpfr_pow(r16279622, r16279621, r16279619, MPFR_RNDN);
        mpfr_sub(r16279623, r16279620, r16279622, MPFR_RNDN);
        return mpfr_get_d(r16279623, MPFR_RNDN);
}