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

char *name = "Migdal et al, Equation (64)";

double f_if(float a1, float a2, float th) {
        float r19965 = th;
        float r19966 = cos(r19965);
        float r19967 = 2.0f;
        float r19968 = sqrt(r19967);
        float r19969 = r19966 / r19968;
        float r19970 = a1;
        float r19971 = r19970 * r19970;
        float r19972 = r19969 * r19971;
        float r19973 = a2;
        float r19974 = r19973 * r19973;
        float r19975 = r19969 * r19974;
        float r19976 = r19972 + r19975;
        return r19976;
}

double f_id(double a1, double a2, double th) {
        double r19977 = th;
        double r19978 = cos(r19977);
        double r19979 = 2.0;
        double r19980 = sqrt(r19979);
        double r19981 = r19978 / r19980;
        double r19982 = a1;
        double r19983 = r19982 * r19982;
        double r19984 = r19981 * r19983;
        double r19985 = a2;
        double r19986 = r19985 * r19985;
        double r19987 = r19981 * r19986;
        double r19988 = r19984 + r19987;
        return r19988;
}


double f_of(float a1, float a2, float th) {
        float r19989 = a2;
        float r19990 = r19989 * r19989;
        float r19991 = a1;
        float r19992 = r19991 * r19991;
        float r19993 = r19990 + r19992;
        float r19994 = 2.0f;
        float r19995 = sqrt(r19994);
        float r19996 = r19993 / r19995;
        float r19997 = 1.0f;
        float r19998 = th;
        float r19999 = cos(r19998);
        float r20000 = r19997 / r19999;
        float r20001 = r19996 / r20000;
        return r20001;
}

double f_od(double a1, double a2, double th) {
        double r20002 = a2;
        double r20003 = r20002 * r20002;
        double r20004 = a1;
        double r20005 = r20004 * r20004;
        double r20006 = r20003 + r20005;
        double r20007 = 2.0;
        double r20008 = sqrt(r20007);
        double r20009 = r20006 / r20008;
        double r20010 = 1.0;
        double r20011 = th;
        double r20012 = cos(r20011);
        double r20013 = r20010 / r20012;
        double r20014 = r20009 / r20013;
        return r20014;
}

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 r20015, r20016, r20017, r20018, r20019, r20020, r20021, r20022, r20023, r20024, r20025, r20026;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r20015);
        mpfr_init(r20016);
        mpfr_init_set_str(r20017, "2", 10, MPFR_RNDN);
        mpfr_init(r20018);
        mpfr_init(r20019);
        mpfr_init(r20020);
        mpfr_init(r20021);
        mpfr_init(r20022);
        mpfr_init(r20023);
        mpfr_init(r20024);
        mpfr_init(r20025);
        mpfr_init(r20026);
}

double f_im(double a1, double a2, double th) {
        mpfr_set_d(r20015, th, MPFR_RNDN);
        mpfr_cos(r20016, r20015, MPFR_RNDN);
        ;
        mpfr_sqrt(r20018, r20017, MPFR_RNDN);
        mpfr_div(r20019, r20016, r20018, MPFR_RNDN);
        mpfr_set_d(r20020, a1, MPFR_RNDN);
        mpfr_sqr(r20021, r20020, MPFR_RNDN);
        mpfr_mul(r20022, r20019, r20021, MPFR_RNDN);
        mpfr_set_d(r20023, a2, MPFR_RNDN);
        mpfr_sqr(r20024, r20023, MPFR_RNDN);
        mpfr_mul(r20025, r20019, r20024, MPFR_RNDN);
        mpfr_add(r20026, r20022, r20025, MPFR_RNDN);
        return mpfr_get_d(r20026, MPFR_RNDN);
}

static mpfr_t r20027, r20028, r20029, r20030, r20031, r20032, r20033, r20034, r20035, r20036, r20037, r20038, r20039;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20027);
        mpfr_init(r20028);
        mpfr_init(r20029);
        mpfr_init(r20030);
        mpfr_init(r20031);
        mpfr_init_set_str(r20032, "2", 10, MPFR_RNDN);
        mpfr_init(r20033);
        mpfr_init(r20034);
        mpfr_init_set_str(r20035, "1", 10, MPFR_RNDN);
        mpfr_init(r20036);
        mpfr_init(r20037);
        mpfr_init(r20038);
        mpfr_init(r20039);
}

double f_fm(double a1, double a2, double th) {
        mpfr_set_d(r20027, a2, MPFR_RNDN);
        mpfr_sqr(r20028, r20027, MPFR_RNDN);
        mpfr_set_d(r20029, a1, MPFR_RNDN);
        mpfr_mul(r20030, r20029, r20029, MPFR_RNDN);
        mpfr_add(r20031, r20028, r20030, MPFR_RNDN);
        ;
        mpfr_sqrt(r20033, r20032, MPFR_RNDN);
        mpfr_div(r20034, r20031, r20033, MPFR_RNDN);
        ;
        mpfr_set_d(r20036, th, MPFR_RNDN);
        mpfr_cos(r20037, r20036, MPFR_RNDN);
        mpfr_div(r20038, r20035, r20037, MPFR_RNDN);
        mpfr_div(r20039, r20034, r20038, MPFR_RNDN);
        return mpfr_get_d(r20039, MPFR_RNDN);
}

static mpfr_t r20040, r20041, r20042, r20043, r20044, r20045, r20046, r20047, r20048, r20049, r20050, r20051, r20052;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r20040);
        mpfr_init(r20041);
        mpfr_init(r20042);
        mpfr_init(r20043);
        mpfr_init(r20044);
        mpfr_init_set_str(r20045, "2", 10, MPFR_RNDN);
        mpfr_init(r20046);
        mpfr_init(r20047);
        mpfr_init_set_str(r20048, "1", 10, MPFR_RNDN);
        mpfr_init(r20049);
        mpfr_init(r20050);
        mpfr_init(r20051);
        mpfr_init(r20052);
}

double f_dm(double a1, double a2, double th) {
        mpfr_set_d(r20040, a2, MPFR_RNDN);
        mpfr_sqr(r20041, r20040, MPFR_RNDN);
        mpfr_set_d(r20042, a1, MPFR_RNDN);
        mpfr_mul(r20043, r20042, r20042, MPFR_RNDN);
        mpfr_add(r20044, r20041, r20043, MPFR_RNDN);
        ;
        mpfr_sqrt(r20046, r20045, MPFR_RNDN);
        mpfr_div(r20047, r20044, r20046, MPFR_RNDN);
        ;
        mpfr_set_d(r20049, th, MPFR_RNDN);
        mpfr_cos(r20050, r20049, MPFR_RNDN);
        mpfr_div(r20051, r20048, r20050, MPFR_RNDN);
        mpfr_div(r20052, r20047, r20051, MPFR_RNDN);
        return mpfr_get_d(r20052, MPFR_RNDN);
}