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

char *name = "Maksimov and Kolovsky, Equation (32)";

double f_if(float K, float m, float n, float M, float l) {
        float r22526 = K;
        float r22527 = m;
        float r22528 = n;
        float r22529 = r22527 + r22528;
        float r22530 = r22526 * r22529;
        float r22531 = 2;
        float r22532 = r22530 / r22531;
        float r22533 = M;
        float r22534 = r22532 - r22533;
        float r22535 = cos(r22534);
        float r22536 = r22529 / r22531;
        float r22537 = r22536 - r22533;
        float r22538 = pow(r22537, r22531);
        float r22539 = -r22538;
        float r22540 = l;
        float r22541 = r22527 - r22528;
        float r22542 = fabs(r22541);
        float r22543 = r22540 - r22542;
        float r22544 = r22539 - r22543;
        float r22545 = exp(r22544);
        float r22546 = r22535 * r22545;
        return r22546;
}

double f_id(double K, double m, double n, double M, double l) {
        double r22547 = K;
        double r22548 = m;
        double r22549 = n;
        double r22550 = r22548 + r22549;
        double r22551 = r22547 * r22550;
        double r22552 = 2;
        double r22553 = r22551 / r22552;
        double r22554 = M;
        double r22555 = r22553 - r22554;
        double r22556 = cos(r22555);
        double r22557 = r22550 / r22552;
        double r22558 = r22557 - r22554;
        double r22559 = pow(r22558, r22552);
        double r22560 = -r22559;
        double r22561 = l;
        double r22562 = r22548 - r22549;
        double r22563 = fabs(r22562);
        double r22564 = r22561 - r22563;
        double r22565 = r22560 - r22564;
        double r22566 = exp(r22565);
        double r22567 = r22556 * r22566;
        return r22567;
}


double f_of(float __attribute__((unused)) K, float m, float n, float M, float l) {
        float r22568 = m;
        float r22569 = n;
        float r22570 = r22568 + r22569;
        float r22571 = 2;
        float r22572 = r22570 / r22571;
        float r22573 = M;
        float r22574 = r22572 - r22573;
        float r22575 = pow(r22574, r22571);
        float r22576 = -r22575;
        float r22577 = l;
        float r22578 = r22568 - r22569;
        float r22579 = fabs(r22578);
        float r22580 = r22577 - r22579;
        float r22581 = r22576 - r22580;
        float r22582 = exp(r22581);
        return r22582;
}

double f_od(double __attribute__((unused)) K, double m, double n, double M, double l) {
        double r22583 = m;
        double r22584 = n;
        double r22585 = r22583 + r22584;
        double r22586 = 2;
        double r22587 = r22585 / r22586;
        double r22588 = M;
        double r22589 = r22587 - r22588;
        double r22590 = pow(r22589, r22586);
        double r22591 = -r22590;
        double r22592 = l;
        double r22593 = r22583 - r22584;
        double r22594 = fabs(r22593);
        double r22595 = r22592 - r22594;
        double r22596 = r22591 - r22595;
        double r22597 = exp(r22596);
        return r22597;
}

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 r22598, r22599, r22600, r22601, r22602, r22603, r22604, r22605, r22606, r22607, r22608, r22609, r22610, r22611, r22612, r22613, r22614, r22615, r22616, r22617, r22618;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1680);
        mpfr_init(r22598);
        mpfr_init(r22599);
        mpfr_init(r22600);
        mpfr_init(r22601);
        mpfr_init(r22602);
        mpfr_init_set_str(r22603, "2", 10, MPFR_RNDN);
        mpfr_init(r22604);
        mpfr_init(r22605);
        mpfr_init(r22606);
        mpfr_init(r22607);
        mpfr_init(r22608);
        mpfr_init(r22609);
        mpfr_init(r22610);
        mpfr_init(r22611);
        mpfr_init(r22612);
        mpfr_init(r22613);
        mpfr_init(r22614);
        mpfr_init(r22615);
        mpfr_init(r22616);
        mpfr_init(r22617);
        mpfr_init(r22618);
}

double f_im(double K, double m, double n, double M, double l) {
        mpfr_set_d(r22598, K, MPFR_RNDN);
        mpfr_set_d(r22599, m, MPFR_RNDN);
        mpfr_set_d(r22600, n, MPFR_RNDN);
        mpfr_add(r22601, r22599, r22600, MPFR_RNDN);
        mpfr_mul(r22602, r22598, r22601, MPFR_RNDN);
        ;
        mpfr_div(r22604, r22602, r22603, MPFR_RNDN);
        mpfr_set_d(r22605, M, MPFR_RNDN);
        mpfr_sub(r22606, r22604, r22605, MPFR_RNDN);
        mpfr_cos(r22607, r22606, MPFR_RNDN);
        mpfr_div(r22608, r22601, r22603, MPFR_RNDN);
        mpfr_sub(r22609, r22608, r22605, MPFR_RNDN);
        mpfr_pow(r22610, r22609, r22603, MPFR_RNDN);
        mpfr_neg(r22611, r22610, MPFR_RNDN);
        mpfr_set_d(r22612, l, MPFR_RNDN);
        mpfr_sub(r22613, r22599, r22600, MPFR_RNDN);
        mpfr_abs(r22614, r22613, MPFR_RNDN);
        mpfr_sub(r22615, r22612, r22614, MPFR_RNDN);
        mpfr_sub(r22616, r22611, r22615, MPFR_RNDN);
        mpfr_exp(r22617, r22616, MPFR_RNDN);
        mpfr_mul(r22618, r22607, r22617, MPFR_RNDN);
        return mpfr_get_d(r22618, MPFR_RNDN);
}

static mpfr_t r22619, r22620, r22621, r22622, r22623, r22624, r22625, r22626, r22627, r22628, r22629, r22630, r22631, r22632, r22633;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1680);
        mpfr_init(r22619);
        mpfr_init(r22620);
        mpfr_init(r22621);
        mpfr_init_set_str(r22622, "2", 10, MPFR_RNDN);
        mpfr_init(r22623);
        mpfr_init(r22624);
        mpfr_init(r22625);
        mpfr_init(r22626);
        mpfr_init(r22627);
        mpfr_init(r22628);
        mpfr_init(r22629);
        mpfr_init(r22630);
        mpfr_init(r22631);
        mpfr_init(r22632);
        mpfr_init(r22633);
}

double f_fm(double __attribute__((unused)) K, double m, double n, double M, double l) {
        mpfr_set_d(r22619, m, MPFR_RNDN);
        mpfr_set_d(r22620, n, MPFR_RNDN);
        mpfr_add(r22621, r22619, r22620, MPFR_RNDN);
        ;
        mpfr_div(r22623, r22621, r22622, MPFR_RNDN);
        mpfr_set_d(r22624, M, MPFR_RNDN);
        mpfr_sub(r22625, r22623, r22624, MPFR_RNDN);
        mpfr_pow(r22626, r22625, r22622, MPFR_RNDN);
        mpfr_neg(r22627, r22626, MPFR_RNDN);
        mpfr_set_d(r22628, l, MPFR_RNDN);
        mpfr_sub(r22629, r22619, r22620, MPFR_RNDN);
        mpfr_abs(r22630, r22629, MPFR_RNDN);
        mpfr_sub(r22631, r22628, r22630, MPFR_RNDN);
        mpfr_sub(r22632, r22627, r22631, MPFR_RNDN);
        mpfr_exp(r22633, r22632, MPFR_RNDN);
        return mpfr_get_d(r22633, MPFR_RNDN);
}

static mpfr_t r22634, r22635, r22636, r22637, r22638, r22639, r22640, r22641, r22642, r22643, r22644, r22645, r22646, r22647, r22648;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1680);
        mpfr_init(r22634);
        mpfr_init(r22635);
        mpfr_init(r22636);
        mpfr_init_set_str(r22637, "2", 10, MPFR_RNDN);
        mpfr_init(r22638);
        mpfr_init(r22639);
        mpfr_init(r22640);
        mpfr_init(r22641);
        mpfr_init(r22642);
        mpfr_init(r22643);
        mpfr_init(r22644);
        mpfr_init(r22645);
        mpfr_init(r22646);
        mpfr_init(r22647);
        mpfr_init(r22648);
}

double f_dm(double __attribute__((unused)) K, double m, double n, double M, double l) {
        mpfr_set_d(r22634, m, MPFR_RNDN);
        mpfr_set_d(r22635, n, MPFR_RNDN);
        mpfr_add(r22636, r22634, r22635, MPFR_RNDN);
        ;
        mpfr_div(r22638, r22636, r22637, MPFR_RNDN);
        mpfr_set_d(r22639, M, MPFR_RNDN);
        mpfr_sub(r22640, r22638, r22639, MPFR_RNDN);
        mpfr_pow(r22641, r22640, r22637, MPFR_RNDN);
        mpfr_neg(r22642, r22641, MPFR_RNDN);
        mpfr_set_d(r22643, l, MPFR_RNDN);
        mpfr_sub(r22644, r22634, r22635, MPFR_RNDN);
        mpfr_abs(r22645, r22644, MPFR_RNDN);
        mpfr_sub(r22646, r22643, r22645, MPFR_RNDN);
        mpfr_sub(r22647, r22642, r22646, MPFR_RNDN);
        mpfr_exp(r22648, r22647, MPFR_RNDN);
        return mpfr_get_d(r22648, MPFR_RNDN);
}