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

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

double f_if(float J, float l, float K, float U) {
        float r22527 = J;
        float r22528 = l;
        float r22529 = exp(r22528);
        float r22530 = -r22528;
        float r22531 = exp(r22530);
        float r22532 = r22529 - r22531;
        float r22533 = r22527 * r22532;
        float r22534 = K;
        float r22535 = 2;
        float r22536 = r22534 / r22535;
        float r22537 = cos(r22536);
        float r22538 = r22533 * r22537;
        float r22539 = U;
        float r22540 = r22538 + r22539;
        return r22540;
}

double f_id(double J, double l, double K, double U) {
        double r22541 = J;
        double r22542 = l;
        double r22543 = exp(r22542);
        double r22544 = -r22542;
        double r22545 = exp(r22544);
        double r22546 = r22543 - r22545;
        double r22547 = r22541 * r22546;
        double r22548 = K;
        double r22549 = 2;
        double r22550 = r22548 / r22549;
        double r22551 = cos(r22550);
        double r22552 = r22547 * r22551;
        double r22553 = U;
        double r22554 = r22552 + r22553;
        return r22554;
}


double f_of(float J, float l, float K, float U) {
        float r22555 = J;
        float r22556 = 1/3;
        float r22557 = l;
        float r22558 = 3;
        float r22559 = pow(r22557, r22558);
        float r22560 = r22556 * r22559;
        float r22561 = 2;
        float r22562 = r22561 * r22557;
        float r22563 = 1/60;
        float r22564 = 5;
        float r22565 = pow(r22557, r22564);
        float r22566 = r22563 * r22565;
        float r22567 = r22562 + r22566;
        float r22568 = r22560 + r22567;
        float r22569 = r22555 * r22568;
        float r22570 = K;
        float r22571 = r22570 / r22561;
        float r22572 = cos(r22571);
        float r22573 = r22569 * r22572;
        float r22574 = U;
        float r22575 = r22573 + r22574;
        return r22575;
}

double f_od(double J, double l, double K, double U) {
        double r22576 = J;
        double r22577 = 1/3;
        double r22578 = l;
        double r22579 = 3;
        double r22580 = pow(r22578, r22579);
        double r22581 = r22577 * r22580;
        double r22582 = 2;
        double r22583 = r22582 * r22578;
        double r22584 = 1/60;
        double r22585 = 5;
        double r22586 = pow(r22578, r22585);
        double r22587 = r22584 * r22586;
        double r22588 = r22583 + r22587;
        double r22589 = r22581 + r22588;
        double r22590 = r22576 * r22589;
        double r22591 = K;
        double r22592 = r22591 / r22582;
        double r22593 = cos(r22592);
        double r22594 = r22590 * r22593;
        double r22595 = U;
        double r22596 = r22594 + r22595;
        return r22596;
}

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 r22597, r22598, r22599, r22600, r22601, r22602, r22603, r22604, r22605, r22606, r22607, r22608, r22609, r22610;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r22597);
        mpfr_init(r22598);
        mpfr_init(r22599);
        mpfr_init(r22600);
        mpfr_init(r22601);
        mpfr_init(r22602);
        mpfr_init(r22603);
        mpfr_init(r22604);
        mpfr_init_set_str(r22605, "2", 10, MPFR_RNDN);
        mpfr_init(r22606);
        mpfr_init(r22607);
        mpfr_init(r22608);
        mpfr_init(r22609);
        mpfr_init(r22610);
}

double f_im(double J, double l, double K, double U) {
        mpfr_set_d(r22597, J, MPFR_RNDN);
        mpfr_set_d(r22598, l, MPFR_RNDN);
        mpfr_exp(r22599, r22598, MPFR_RNDN);
        mpfr_neg(r22600, r22598, MPFR_RNDN);
        mpfr_exp(r22601, r22600, MPFR_RNDN);
        mpfr_sub(r22602, r22599, r22601, MPFR_RNDN);
        mpfr_mul(r22603, r22597, r22602, MPFR_RNDN);
        mpfr_set_d(r22604, K, MPFR_RNDN);
        ;
        mpfr_div(r22606, r22604, r22605, MPFR_RNDN);
        mpfr_cos(r22607, r22606, MPFR_RNDN);
        mpfr_mul(r22608, r22603, r22607, MPFR_RNDN);
        mpfr_set_d(r22609, U, MPFR_RNDN);
        mpfr_add(r22610, r22608, r22609, MPFR_RNDN);
        return mpfr_get_d(r22610, MPFR_RNDN);
}

static mpfr_t r22611, r22612, r22613, r22614, r22615, r22616, r22617, r22618, r22619, r22620, r22621, r22622, r22623, r22624, r22625, r22626, r22627, r22628, r22629, r22630, r22631;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r22611);
        mpfr_init_set_str(r22612, "1/3", 10, MPFR_RNDN);
        mpfr_init(r22613);
        mpfr_init_set_str(r22614, "3", 10, MPFR_RNDN);
        mpfr_init(r22615);
        mpfr_init(r22616);
        mpfr_init_set_str(r22617, "2", 10, MPFR_RNDN);
        mpfr_init(r22618);
        mpfr_init_set_str(r22619, "1/60", 10, MPFR_RNDN);
        mpfr_init_set_str(r22620, "5", 10, MPFR_RNDN);
        mpfr_init(r22621);
        mpfr_init(r22622);
        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);
}

double f_fm(double J, double l, double K, double U) {
        mpfr_set_d(r22611, J, MPFR_RNDN);
        ;
        mpfr_set_d(r22613, l, MPFR_RNDN);
        ;
        mpfr_pow(r22615, r22613, r22614, MPFR_RNDN);
        mpfr_mul(r22616, r22612, r22615, MPFR_RNDN);
        ;
        mpfr_mul(r22618, r22617, r22613, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r22621, r22613, r22620, MPFR_RNDN);
        mpfr_mul(r22622, r22619, r22621, MPFR_RNDN);
        mpfr_add(r22623, r22618, r22622, MPFR_RNDN);
        mpfr_add(r22624, r22616, r22623, MPFR_RNDN);
        mpfr_mul(r22625, r22611, r22624, MPFR_RNDN);
        mpfr_set_d(r22626, K, MPFR_RNDN);
        mpfr_div(r22627, r22626, r22617, MPFR_RNDN);
        mpfr_cos(r22628, r22627, MPFR_RNDN);
        mpfr_mul(r22629, r22625, r22628, MPFR_RNDN);
        mpfr_set_d(r22630, U, MPFR_RNDN);
        mpfr_add(r22631, r22629, r22630, MPFR_RNDN);
        return mpfr_get_d(r22631, MPFR_RNDN);
}

static mpfr_t r22632, r22633, r22634, r22635, r22636, r22637, r22638, r22639, r22640, r22641, r22642, r22643, r22644, r22645, r22646, r22647, r22648, r22649, r22650, r22651, r22652;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r22632);
        mpfr_init_set_str(r22633, "1/3", 10, MPFR_RNDN);
        mpfr_init(r22634);
        mpfr_init_set_str(r22635, "3", 10, MPFR_RNDN);
        mpfr_init(r22636);
        mpfr_init(r22637);
        mpfr_init_set_str(r22638, "2", 10, MPFR_RNDN);
        mpfr_init(r22639);
        mpfr_init_set_str(r22640, "1/60", 10, MPFR_RNDN);
        mpfr_init_set_str(r22641, "5", 10, MPFR_RNDN);
        mpfr_init(r22642);
        mpfr_init(r22643);
        mpfr_init(r22644);
        mpfr_init(r22645);
        mpfr_init(r22646);
        mpfr_init(r22647);
        mpfr_init(r22648);
        mpfr_init(r22649);
        mpfr_init(r22650);
        mpfr_init(r22651);
        mpfr_init(r22652);
}

double f_dm(double J, double l, double K, double U) {
        mpfr_set_d(r22632, J, MPFR_RNDN);
        ;
        mpfr_set_d(r22634, l, MPFR_RNDN);
        ;
        mpfr_pow(r22636, r22634, r22635, MPFR_RNDN);
        mpfr_mul(r22637, r22633, r22636, MPFR_RNDN);
        ;
        mpfr_mul(r22639, r22638, r22634, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r22642, r22634, r22641, MPFR_RNDN);
        mpfr_mul(r22643, r22640, r22642, MPFR_RNDN);
        mpfr_add(r22644, r22639, r22643, MPFR_RNDN);
        mpfr_add(r22645, r22637, r22644, MPFR_RNDN);
        mpfr_mul(r22646, r22632, r22645, MPFR_RNDN);
        mpfr_set_d(r22647, K, MPFR_RNDN);
        mpfr_div(r22648, r22647, r22638, MPFR_RNDN);
        mpfr_cos(r22649, r22648, MPFR_RNDN);
        mpfr_mul(r22650, r22646, r22649, MPFR_RNDN);
        mpfr_set_d(r22651, U, MPFR_RNDN);
        mpfr_add(r22652, r22650, r22651, MPFR_RNDN);
        return mpfr_get_d(r22652, MPFR_RNDN);
}