#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 r9546 = th;
        float r9547 = cos(r9546);
        float r9548 = 2;
        float r9549 = sqrt(r9548);
        float r9550 = r9547 / r9549;
        float r9551 = a1;
        float r9552 = r9551 * r9551;
        float r9553 = r9550 * r9552;
        float r9554 = a2;
        float r9555 = r9554 * r9554;
        float r9556 = r9550 * r9555;
        float r9557 = r9553 + r9556;
        return r9557;
}

double f_id(double a1, double a2, double th) {
        double r9558 = th;
        double r9559 = cos(r9558);
        double r9560 = 2;
        double r9561 = sqrt(r9560);
        double r9562 = r9559 / r9561;
        double r9563 = a1;
        double r9564 = r9563 * r9563;
        double r9565 = r9562 * r9564;
        double r9566 = a2;
        double r9567 = r9566 * r9566;
        double r9568 = r9562 * r9567;
        double r9569 = r9565 + r9568;
        return r9569;
}


double f_of(float a1, float a2, float th) {
        float r9570 = th;
        float r9571 = cos(r9570);
        float r9572 = 2;
        float r9573 = sqrt(r9572);
        float r9574 = sqrt(r9573);
        float r9575 = r9571 / r9574;
        float r9576 = r9575 / r9574;
        float r9577 = a1;
        float r9578 = r9577 * r9577;
        float r9579 = r9576 * r9578;
        float r9580 = r9571 / r9573;
        float r9581 = a2;
        float r9582 = r9581 * r9581;
        float r9583 = r9580 * r9582;
        float r9584 = r9579 + r9583;
        return r9584;
}

double f_od(double a1, double a2, double th) {
        double r9585 = th;
        double r9586 = cos(r9585);
        double r9587 = 2;
        double r9588 = sqrt(r9587);
        double r9589 = sqrt(r9588);
        double r9590 = r9586 / r9589;
        double r9591 = r9590 / r9589;
        double r9592 = a1;
        double r9593 = r9592 * r9592;
        double r9594 = r9591 * r9593;
        double r9595 = r9586 / r9588;
        double r9596 = a2;
        double r9597 = r9596 * r9596;
        double r9598 = r9595 * r9597;
        double r9599 = r9594 + r9598;
        return r9599;
}

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 r9600, r9601, r9602, r9603, r9604, r9605, r9606, r9607, r9608, r9609, r9610, r9611;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r9600);
        mpfr_init(r9601);
        mpfr_init_set_str(r9602, "2", 10, MPFR_RNDN);
        mpfr_init(r9603);
        mpfr_init(r9604);
        mpfr_init(r9605);
        mpfr_init(r9606);
        mpfr_init(r9607);
        mpfr_init(r9608);
        mpfr_init(r9609);
        mpfr_init(r9610);
        mpfr_init(r9611);
}

double f_im(double a1, double a2, double th) {
        mpfr_set_d(r9600, th, MPFR_RNDN);
        mpfr_cos(r9601, r9600, MPFR_RNDN);
        ;
        mpfr_sqrt(r9603, r9602, MPFR_RNDN);
        mpfr_div(r9604, r9601, r9603, MPFR_RNDN);
        mpfr_set_d(r9605, a1, MPFR_RNDN);
        mpfr_mul(r9606, r9605, r9605, MPFR_RNDN);
        mpfr_mul(r9607, r9604, r9606, MPFR_RNDN);
        mpfr_set_d(r9608, a2, MPFR_RNDN);
        mpfr_mul(r9609, r9608, r9608, MPFR_RNDN);
        mpfr_mul(r9610, r9604, r9609, MPFR_RNDN);
        mpfr_add(r9611, r9607, r9610, MPFR_RNDN);
        return mpfr_get_d(r9611, MPFR_RNDN);
}

static mpfr_t r9612, r9613, r9614, r9615, r9616, r9617, r9618, r9619, r9620, r9621, r9622, r9623, r9624, r9625, r9626;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9612);
        mpfr_init(r9613);
        mpfr_init_set_str(r9614, "2", 10, MPFR_RNDN);
        mpfr_init(r9615);
        mpfr_init(r9616);
        mpfr_init(r9617);
        mpfr_init(r9618);
        mpfr_init(r9619);
        mpfr_init(r9620);
        mpfr_init(r9621);
        mpfr_init(r9622);
        mpfr_init(r9623);
        mpfr_init(r9624);
        mpfr_init(r9625);
        mpfr_init(r9626);
}

double f_fm(double a1, double a2, double th) {
        mpfr_set_d(r9612, th, MPFR_RNDN);
        mpfr_cos(r9613, r9612, MPFR_RNDN);
        ;
        mpfr_sqrt(r9615, r9614, MPFR_RNDN);
        mpfr_sqrt(r9616, r9615, MPFR_RNDN);
        mpfr_div(r9617, r9613, r9616, MPFR_RNDN);
        mpfr_div(r9618, r9617, r9616, MPFR_RNDN);
        mpfr_set_d(r9619, a1, MPFR_RNDN);
        mpfr_mul(r9620, r9619, r9619, MPFR_RNDN);
        mpfr_mul(r9621, r9618, r9620, MPFR_RNDN);
        mpfr_div(r9622, r9613, r9615, MPFR_RNDN);
        mpfr_set_d(r9623, a2, MPFR_RNDN);
        mpfr_mul(r9624, r9623, r9623, MPFR_RNDN);
        mpfr_mul(r9625, r9622, r9624, MPFR_RNDN);
        mpfr_add(r9626, r9621, r9625, MPFR_RNDN);
        return mpfr_get_d(r9626, MPFR_RNDN);
}

static mpfr_t r9627, r9628, r9629, r9630, r9631, r9632, r9633, r9634, r9635, r9636, r9637, r9638, r9639, r9640, r9641;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9627);
        mpfr_init(r9628);
        mpfr_init_set_str(r9629, "2", 10, MPFR_RNDN);
        mpfr_init(r9630);
        mpfr_init(r9631);
        mpfr_init(r9632);
        mpfr_init(r9633);
        mpfr_init(r9634);
        mpfr_init(r9635);
        mpfr_init(r9636);
        mpfr_init(r9637);
        mpfr_init(r9638);
        mpfr_init(r9639);
        mpfr_init(r9640);
        mpfr_init(r9641);
}

double f_dm(double a1, double a2, double th) {
        mpfr_set_d(r9627, th, MPFR_RNDN);
        mpfr_cos(r9628, r9627, MPFR_RNDN);
        ;
        mpfr_sqrt(r9630, r9629, MPFR_RNDN);
        mpfr_sqrt(r9631, r9630, MPFR_RNDN);
        mpfr_div(r9632, r9628, r9631, MPFR_RNDN);
        mpfr_div(r9633, r9632, r9631, MPFR_RNDN);
        mpfr_set_d(r9634, a1, MPFR_RNDN);
        mpfr_mul(r9635, r9634, r9634, MPFR_RNDN);
        mpfr_mul(r9636, r9633, r9635, MPFR_RNDN);
        mpfr_div(r9637, r9628, r9630, MPFR_RNDN);
        mpfr_set_d(r9638, a2, MPFR_RNDN);
        mpfr_mul(r9639, r9638, r9638, MPFR_RNDN);
        mpfr_mul(r9640, r9637, r9639, MPFR_RNDN);
        mpfr_add(r9641, r9636, r9640, MPFR_RNDN);
        return mpfr_get_d(r9641, MPFR_RNDN);
}