#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 r25478 = th;
        float r25479 = cos(r25478);
        float r25480 = 2;
        float r25481 = sqrt(r25480);
        float r25482 = r25479 / r25481;
        float r25483 = a1;
        float r25484 = r25483 * r25483;
        float r25485 = r25482 * r25484;
        float r25486 = a2;
        float r25487 = r25486 * r25486;
        float r25488 = r25482 * r25487;
        float r25489 = r25485 + r25488;
        return r25489;
}

double f_id(double a1, double a2, double th) {
        double r25490 = th;
        double r25491 = cos(r25490);
        double r25492 = 2;
        double r25493 = sqrt(r25492);
        double r25494 = r25491 / r25493;
        double r25495 = a1;
        double r25496 = r25495 * r25495;
        double r25497 = r25494 * r25496;
        double r25498 = a2;
        double r25499 = r25498 * r25498;
        double r25500 = r25494 * r25499;
        double r25501 = r25497 + r25500;
        return r25501;
}


double f_of(float a1, float a2, float th) {
        float r25502 = a1;
        float r25503 = a2;
        float r25504 = hypot(r25502, r25503);
        float r25505 = th;
        float r25506 = cos(r25505);
        float r25507 = r25504 * r25506;
        float r25508 = 2;
        float r25509 = sqrt(r25508);
        float r25510 = r25507 / r25509;
        float r25511 = r25510 * r25504;
        return r25511;
}

double f_od(double a1, double a2, double th) {
        double r25512 = a1;
        double r25513 = a2;
        double r25514 = hypot(r25512, r25513);
        double r25515 = th;
        double r25516 = cos(r25515);
        double r25517 = r25514 * r25516;
        double r25518 = 2;
        double r25519 = sqrt(r25518);
        double r25520 = r25517 / r25519;
        double r25521 = r25520 * r25514;
        return r25521;
}

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 r25522, r25523, r25524, r25525, r25526, r25527, r25528, r25529, r25530, r25531, r25532, r25533;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r25522);
        mpfr_init(r25523);
        mpfr_init_set_str(r25524, "2", 10, MPFR_RNDN);
        mpfr_init(r25525);
        mpfr_init(r25526);
        mpfr_init(r25527);
        mpfr_init(r25528);
        mpfr_init(r25529);
        mpfr_init(r25530);
        mpfr_init(r25531);
        mpfr_init(r25532);
        mpfr_init(r25533);
}

double f_im(double a1, double a2, double th) {
        mpfr_set_d(r25522, th, MPFR_RNDN);
        mpfr_cos(r25523, r25522, MPFR_RNDN);
        ;
        mpfr_sqrt(r25525, r25524, MPFR_RNDN);
        mpfr_div(r25526, r25523, r25525, MPFR_RNDN);
        mpfr_set_d(r25527, a1, MPFR_RNDN);
        mpfr_mul(r25528, r25527, r25527, MPFR_RNDN);
        mpfr_mul(r25529, r25526, r25528, MPFR_RNDN);
        mpfr_set_d(r25530, a2, MPFR_RNDN);
        mpfr_mul(r25531, r25530, r25530, MPFR_RNDN);
        mpfr_mul(r25532, r25526, r25531, MPFR_RNDN);
        mpfr_add(r25533, r25529, r25532, MPFR_RNDN);
        return mpfr_get_d(r25533, MPFR_RNDN);
}

static mpfr_t r25534, r25535, r25536, r25537, r25538, r25539, r25540, r25541, r25542, r25543;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25534);
        mpfr_init(r25535);
        mpfr_init(r25536);
        mpfr_init(r25537);
        mpfr_init(r25538);
        mpfr_init(r25539);
        mpfr_init_set_str(r25540, "2", 10, MPFR_RNDN);
        mpfr_init(r25541);
        mpfr_init(r25542);
        mpfr_init(r25543);
}

double f_fm(double a1, double a2, double th) {
        mpfr_set_d(r25534, a1, MPFR_RNDN);
        mpfr_set_d(r25535, a2, MPFR_RNDN);
        mpfr_hypot(r25536, r25534, r25535, MPFR_RNDN);
        mpfr_set_d(r25537, th, MPFR_RNDN);
        mpfr_cos(r25538, r25537, MPFR_RNDN);
        mpfr_mul(r25539, r25536, r25538, MPFR_RNDN);
        ;
        mpfr_sqrt(r25541, r25540, MPFR_RNDN);
        mpfr_div(r25542, r25539, r25541, MPFR_RNDN);
        mpfr_mul(r25543, r25542, r25536, MPFR_RNDN);
        return mpfr_get_d(r25543, MPFR_RNDN);
}

static mpfr_t r25544, r25545, r25546, r25547, r25548, r25549, r25550, r25551, r25552, r25553;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r25544);
        mpfr_init(r25545);
        mpfr_init(r25546);
        mpfr_init(r25547);
        mpfr_init(r25548);
        mpfr_init(r25549);
        mpfr_init_set_str(r25550, "2", 10, MPFR_RNDN);
        mpfr_init(r25551);
        mpfr_init(r25552);
        mpfr_init(r25553);
}

double f_dm(double a1, double a2, double th) {
        mpfr_set_d(r25544, a1, MPFR_RNDN);
        mpfr_set_d(r25545, a2, MPFR_RNDN);
        mpfr_hypot(r25546, r25544, r25545, MPFR_RNDN);
        mpfr_set_d(r25547, th, MPFR_RNDN);
        mpfr_cos(r25548, r25547, MPFR_RNDN);
        mpfr_mul(r25549, r25546, r25548, MPFR_RNDN);
        ;
        mpfr_sqrt(r25551, r25550, MPFR_RNDN);
        mpfr_div(r25552, r25549, r25551, MPFR_RNDN);
        mpfr_mul(r25553, r25552, r25546, MPFR_RNDN);
        return mpfr_get_d(r25553, MPFR_RNDN);
}