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

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

double f_if(float k, float n) {
        float r9642 = 1;
        float r9643 = k;
        float r9644 = sqrt(r9643);
        float r9645 = r9642 / r9644;
        float r9646 = 2;
        float r9647 = atan2(1.0, 0.0);
        float r9648 = r9646 * r9647;
        float r9649 = n;
        float r9650 = r9648 * r9649;
        float r9651 = r9642 - r9643;
        float r9652 = r9651 / r9646;
        float r9653 = pow(r9650, r9652);
        float r9654 = r9645 * r9653;
        return r9654;
}

double f_id(double k, double n) {
        double r9655 = 1;
        double r9656 = k;
        double r9657 = sqrt(r9656);
        double r9658 = r9655 / r9657;
        double r9659 = 2;
        double r9660 = atan2(1.0, 0.0);
        double r9661 = r9659 * r9660;
        double r9662 = n;
        double r9663 = r9661 * r9662;
        double r9664 = r9655 - r9656;
        double r9665 = r9664 / r9659;
        double r9666 = pow(r9663, r9665);
        double r9667 = r9658 * r9666;
        return r9667;
}


double f_of(float k, float n) {
        float r9668 = 2;
        float r9669 = atan2(1.0, 0.0);
        float r9670 = r9668 * r9669;
        float r9671 = 1;
        float r9672 = k;
        float r9673 = r9671 - r9672;
        float r9674 = r9673 / r9668;
        float r9675 = pow(r9670, r9674);
        float r9676 = sqrt(r9672);
        float r9677 = r9675 / r9676;
        float r9678 = n;
        float r9679 = pow(r9678, r9674);
        float r9680 = r9677 * r9679;
        return r9680;
}

double f_od(double k, double n) {
        double r9681 = 2;
        double r9682 = atan2(1.0, 0.0);
        double r9683 = r9681 * r9682;
        double r9684 = 1;
        double r9685 = k;
        double r9686 = r9684 - r9685;
        double r9687 = r9686 / r9681;
        double r9688 = pow(r9683, r9687);
        double r9689 = sqrt(r9685);
        double r9690 = r9688 / r9689;
        double r9691 = n;
        double r9692 = pow(r9691, r9687);
        double r9693 = r9690 * r9692;
        return r9693;
}

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 r9694, r9695, r9696, r9697, r9698, r9699, r9700, r9701, r9702, r9703, r9704, r9705, r9706;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r9694, "1", 10, MPFR_RNDN);
        mpfr_init(r9695);
        mpfr_init(r9696);
        mpfr_init(r9697);
        mpfr_init_set_str(r9698, "2", 10, MPFR_RNDN);
        mpfr_init(r9699);
        mpfr_init(r9700);
        mpfr_init(r9701);
        mpfr_init(r9702);
        mpfr_init(r9703);
        mpfr_init(r9704);
        mpfr_init(r9705);
        mpfr_init(r9706);
}

double f_im(double k, double n) {
        ;
        mpfr_set_d(r9695, k, MPFR_RNDN);
        mpfr_sqrt(r9696, r9695, MPFR_RNDN);
        mpfr_div(r9697, r9694, r9696, MPFR_RNDN);
        ;
        mpfr_const_pi(r9699, MPFR_RNDN);
        mpfr_mul(r9700, r9698, r9699, MPFR_RNDN);
        mpfr_set_d(r9701, n, MPFR_RNDN);
        mpfr_mul(r9702, r9700, r9701, MPFR_RNDN);
        mpfr_sub(r9703, r9694, r9695, MPFR_RNDN);
        mpfr_div(r9704, r9703, r9698, MPFR_RNDN);
        mpfr_pow(r9705, r9702, r9704, MPFR_RNDN);
        mpfr_mul(r9706, r9697, r9705, MPFR_RNDN);
        return mpfr_get_d(r9706, MPFR_RNDN);
}

static mpfr_t r9707, r9708, r9709, r9710, r9711, r9712, r9713, r9714, r9715, r9716, r9717, r9718, r9719;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r9707, "2", 10, MPFR_RNDN);
        mpfr_init(r9708);
        mpfr_init(r9709);
        mpfr_init_set_str(r9710, "1", 10, MPFR_RNDN);
        mpfr_init(r9711);
        mpfr_init(r9712);
        mpfr_init(r9713);
        mpfr_init(r9714);
        mpfr_init(r9715);
        mpfr_init(r9716);
        mpfr_init(r9717);
        mpfr_init(r9718);
        mpfr_init(r9719);
}

double f_fm(double k, double n) {
        ;
        mpfr_const_pi(r9708, MPFR_RNDN);
        mpfr_mul(r9709, r9707, r9708, MPFR_RNDN);
        ;
        mpfr_set_d(r9711, k, MPFR_RNDN);
        mpfr_sub(r9712, r9710, r9711, MPFR_RNDN);
        mpfr_div(r9713, r9712, r9707, MPFR_RNDN);
        mpfr_pow(r9714, r9709, r9713, MPFR_RNDN);
        mpfr_sqrt(r9715, r9711, MPFR_RNDN);
        mpfr_div(r9716, r9714, r9715, MPFR_RNDN);
        mpfr_set_d(r9717, n, MPFR_RNDN);
        mpfr_pow(r9718, r9717, r9713, MPFR_RNDN);
        mpfr_mul(r9719, r9716, r9718, MPFR_RNDN);
        return mpfr_get_d(r9719, MPFR_RNDN);
}

static mpfr_t r9720, r9721, r9722, r9723, r9724, r9725, r9726, r9727, r9728, r9729, r9730, r9731, r9732;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init_set_str(r9720, "2", 10, MPFR_RNDN);
        mpfr_init(r9721);
        mpfr_init(r9722);
        mpfr_init_set_str(r9723, "1", 10, MPFR_RNDN);
        mpfr_init(r9724);
        mpfr_init(r9725);
        mpfr_init(r9726);
        mpfr_init(r9727);
        mpfr_init(r9728);
        mpfr_init(r9729);
        mpfr_init(r9730);
        mpfr_init(r9731);
        mpfr_init(r9732);
}

double f_dm(double k, double n) {
        ;
        mpfr_const_pi(r9721, MPFR_RNDN);
        mpfr_mul(r9722, r9720, r9721, MPFR_RNDN);
        ;
        mpfr_set_d(r9724, k, MPFR_RNDN);
        mpfr_sub(r9725, r9723, r9724, MPFR_RNDN);
        mpfr_div(r9726, r9725, r9720, MPFR_RNDN);
        mpfr_pow(r9727, r9722, r9726, MPFR_RNDN);
        mpfr_sqrt(r9728, r9724, MPFR_RNDN);
        mpfr_div(r9729, r9727, r9728, MPFR_RNDN);
        mpfr_set_d(r9730, n, MPFR_RNDN);
        mpfr_pow(r9731, r9730, r9726, MPFR_RNDN);
        mpfr_mul(r9732, r9729, r9731, MPFR_RNDN);
        return mpfr_get_d(r9732, MPFR_RNDN);
}