#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 r26080 = x;
        float r26081 = 4;
        float r26082 = pow(r26080, r26081);
        float r26083 = y;
        float r26084 = pow(r26083, r26081);
        float r26085 = r26082 - r26084;
        return r26085;
}

double f_id(double x, double y) {
        double r26086 = x;
        double r26087 = 4;
        double r26088 = pow(r26086, r26087);
        double r26089 = y;
        double r26090 = pow(r26089, r26087);
        double r26091 = r26088 - r26090;
        return r26091;
}


double f_of(float x, float y) {
        float r26092 = x;
        float r26093 = 4;
        float r26094 = pow(r26092, r26093);
        float r26095 = y;
        float r26096 = pow(r26095, r26093);
        float r26097 = r26094 - r26096;
        return r26097;
}

double f_od(double x, double y) {
        double r26098 = x;
        double r26099 = 4;
        double r26100 = pow(r26098, r26099);
        double r26101 = y;
        double r26102 = pow(r26101, r26099);
        double r26103 = r26100 - r26102;
        return r26103;
}

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 r26104, r26105, r26106, r26107, r26108, r26109;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r26104);
        mpfr_init_set_str(r26105, "4", 10, MPFR_RNDN);
        mpfr_init(r26106);
        mpfr_init(r26107);
        mpfr_init(r26108);
        mpfr_init(r26109);
}

double f_im(double x, double y) {
        mpfr_set_d(r26104, x, MPFR_RNDN);
        ;
        mpfr_pow(r26106, r26104, r26105, MPFR_RNDN);
        mpfr_set_d(r26107, y, MPFR_RNDN);
        mpfr_pow(r26108, r26107, r26105, MPFR_RNDN);
        mpfr_sub(r26109, r26106, r26108, MPFR_RNDN);
        return mpfr_get_d(r26109, MPFR_RNDN);
}

static mpfr_t r26110, r26111, r26112, r26113, r26114, r26115;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r26110);
        mpfr_init_set_str(r26111, "4", 10, MPFR_RNDN);
        mpfr_init(r26112);
        mpfr_init(r26113);
        mpfr_init(r26114);
        mpfr_init(r26115);
}

double f_fm(double x, double y) {
        mpfr_set_d(r26110, x, MPFR_RNDN);
        ;
        mpfr_pow(r26112, r26110, r26111, MPFR_RNDN);
        mpfr_set_d(r26113, y, MPFR_RNDN);
        mpfr_pow(r26114, r26113, r26111, MPFR_RNDN);
        mpfr_sub(r26115, r26112, r26114, MPFR_RNDN);
        return mpfr_get_d(r26115, MPFR_RNDN);
}

static mpfr_t r26116, r26117, r26118, r26119, r26120, r26121;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r26116);
        mpfr_init_set_str(r26117, "4", 10, MPFR_RNDN);
        mpfr_init(r26118);
        mpfr_init(r26119);
        mpfr_init(r26120);
        mpfr_init(r26121);
}

double f_dm(double x, double y) {
        mpfr_set_d(r26116, x, MPFR_RNDN);
        ;
        mpfr_pow(r26118, r26116, r26117, MPFR_RNDN);
        mpfr_set_d(r26119, y, MPFR_RNDN);
        mpfr_pow(r26120, r26119, r26117, MPFR_RNDN);
        mpfr_sub(r26121, r26118, r26120, MPFR_RNDN);
        return mpfr_get_d(r26121, MPFR_RNDN);
}