#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 r9343 = th;
        float r9344 = cos(r9343);
        float r9345 = 2;
        float r9346 = sqrt(r9345);
        float r9347 = r9344 / r9346;
        float r9348 = a1;
        float r9349 = r9348 * r9348;
        float r9350 = r9347 * r9349;
        float r9351 = a2;
        float r9352 = r9351 * r9351;
        float r9353 = r9347 * r9352;
        float r9354 = r9350 + r9353;
        return r9354;
}

double f_id(double a1, double a2, double th) {
        double r9355 = th;
        double r9356 = cos(r9355);
        double r9357 = 2;
        double r9358 = sqrt(r9357);
        double r9359 = r9356 / r9358;
        double r9360 = a1;
        double r9361 = r9360 * r9360;
        double r9362 = r9359 * r9361;
        double r9363 = a2;
        double r9364 = r9363 * r9363;
        double r9365 = r9359 * r9364;
        double r9366 = r9362 + r9365;
        return r9366;
}


double f_of(float a1, float a2, float th) {
        float r9367 = th;
        float r9368 = cos(r9367);
        float r9369 = 2;
        float r9370 = sqrt(r9369);
        float r9371 = r9368 / r9370;
        float r9372 = a1;
        float r9373 = r9372 * r9372;
        float r9374 = r9371 * r9373;
        float r9375 = sqrt(r9370);
        float r9376 = r9368 / r9375;
        float r9377 = r9376 / r9375;
        float r9378 = a2;
        float r9379 = r9378 * r9378;
        float r9380 = r9377 * r9379;
        float r9381 = r9374 + r9380;
        return r9381;
}

double f_od(double a1, double a2, double th) {
        double r9382 = th;
        double r9383 = cos(r9382);
        double r9384 = 2;
        double r9385 = sqrt(r9384);
        double r9386 = r9383 / r9385;
        double r9387 = a1;
        double r9388 = r9387 * r9387;
        double r9389 = r9386 * r9388;
        double r9390 = sqrt(r9385);
        double r9391 = r9383 / r9390;
        double r9392 = r9391 / r9390;
        double r9393 = a2;
        double r9394 = r9393 * r9393;
        double r9395 = r9392 * r9394;
        double r9396 = r9389 + r9395;
        return r9396;
}

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 r9397, r9398, r9399, r9400, r9401, r9402, r9403, r9404, r9405, r9406, r9407, r9408;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init(r9397);
        mpfr_init(r9398);
        mpfr_init_set_str(r9399, "2", 10, MPFR_RNDN);
        mpfr_init(r9400);
        mpfr_init(r9401);
        mpfr_init(r9402);
        mpfr_init(r9403);
        mpfr_init(r9404);
        mpfr_init(r9405);
        mpfr_init(r9406);
        mpfr_init(r9407);
        mpfr_init(r9408);
}

double f_im(double a1, double a2, double th) {
        mpfr_set_d(r9397, th, MPFR_RNDN);
        mpfr_cos(r9398, r9397, MPFR_RNDN);
        ;
        mpfr_sqrt(r9400, r9399, MPFR_RNDN);
        mpfr_div(r9401, r9398, r9400, MPFR_RNDN);
        mpfr_set_d(r9402, a1, MPFR_RNDN);
        mpfr_mul(r9403, r9402, r9402, MPFR_RNDN);
        mpfr_mul(r9404, r9401, r9403, MPFR_RNDN);
        mpfr_set_d(r9405, a2, MPFR_RNDN);
        mpfr_mul(r9406, r9405, r9405, MPFR_RNDN);
        mpfr_mul(r9407, r9401, r9406, MPFR_RNDN);
        mpfr_add(r9408, r9404, r9407, MPFR_RNDN);
        return mpfr_get_d(r9408, MPFR_RNDN);
}

static mpfr_t r9409, r9410, r9411, r9412, r9413, r9414, r9415, r9416, r9417, r9418, r9419, r9420, r9421, r9422, r9423;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9409);
        mpfr_init(r9410);
        mpfr_init_set_str(r9411, "2", 10, MPFR_RNDN);
        mpfr_init(r9412);
        mpfr_init(r9413);
        mpfr_init(r9414);
        mpfr_init(r9415);
        mpfr_init(r9416);
        mpfr_init(r9417);
        mpfr_init(r9418);
        mpfr_init(r9419);
        mpfr_init(r9420);
        mpfr_init(r9421);
        mpfr_init(r9422);
        mpfr_init(r9423);
}

double f_fm(double a1, double a2, double th) {
        mpfr_set_d(r9409, th, MPFR_RNDN);
        mpfr_cos(r9410, r9409, MPFR_RNDN);
        ;
        mpfr_sqrt(r9412, r9411, MPFR_RNDN);
        mpfr_div(r9413, r9410, r9412, MPFR_RNDN);
        mpfr_set_d(r9414, a1, MPFR_RNDN);
        mpfr_mul(r9415, r9414, r9414, MPFR_RNDN);
        mpfr_mul(r9416, r9413, r9415, MPFR_RNDN);
        mpfr_sqrt(r9417, r9412, MPFR_RNDN);
        mpfr_div(r9418, r9410, r9417, MPFR_RNDN);
        mpfr_div(r9419, r9418, r9417, MPFR_RNDN);
        mpfr_set_d(r9420, a2, MPFR_RNDN);
        mpfr_mul(r9421, r9420, r9420, MPFR_RNDN);
        mpfr_mul(r9422, r9419, r9421, MPFR_RNDN);
        mpfr_add(r9423, r9416, r9422, MPFR_RNDN);
        return mpfr_get_d(r9423, MPFR_RNDN);
}

static mpfr_t r9424, r9425, r9426, r9427, r9428, r9429, r9430, r9431, r9432, r9433, r9434, r9435, r9436, r9437, r9438;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init(r9424);
        mpfr_init(r9425);
        mpfr_init_set_str(r9426, "2", 10, MPFR_RNDN);
        mpfr_init(r9427);
        mpfr_init(r9428);
        mpfr_init(r9429);
        mpfr_init(r9430);
        mpfr_init(r9431);
        mpfr_init(r9432);
        mpfr_init(r9433);
        mpfr_init(r9434);
        mpfr_init(r9435);
        mpfr_init(r9436);
        mpfr_init(r9437);
        mpfr_init(r9438);
}

double f_dm(double a1, double a2, double th) {
        mpfr_set_d(r9424, th, MPFR_RNDN);
        mpfr_cos(r9425, r9424, MPFR_RNDN);
        ;
        mpfr_sqrt(r9427, r9426, MPFR_RNDN);
        mpfr_div(r9428, r9425, r9427, MPFR_RNDN);
        mpfr_set_d(r9429, a1, MPFR_RNDN);
        mpfr_mul(r9430, r9429, r9429, MPFR_RNDN);
        mpfr_mul(r9431, r9428, r9430, MPFR_RNDN);
        mpfr_sqrt(r9432, r9427, MPFR_RNDN);
        mpfr_div(r9433, r9425, r9432, MPFR_RNDN);
        mpfr_div(r9434, r9433, r9432, MPFR_RNDN);
        mpfr_set_d(r9435, a2, MPFR_RNDN);
        mpfr_mul(r9436, r9435, r9435, MPFR_RNDN);
        mpfr_mul(r9437, r9434, r9436, MPFR_RNDN);
        mpfr_add(r9438, r9431, r9437, MPFR_RNDN);
        return mpfr_get_d(r9438, MPFR_RNDN);
}