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

char *name = "math.cos on complex, real part";

double f_if(float re, float im) {
        float r25458 = 0.5;
        float r25459 = re;
        float r25460 = cos(r25459);
        float r25461 = r25458 * r25460;
        float r25462 = im;
        float r25463 = -r25462;
        float r25464 = exp(r25463);
        float r25465 = exp(r25462);
        float r25466 = r25464 + r25465;
        float r25467 = r25461 * r25466;
        return r25467;
}

double f_id(double re, double im) {
        double r25468 = 0.5;
        double r25469 = re;
        double r25470 = cos(r25469);
        double r25471 = r25468 * r25470;
        double r25472 = im;
        double r25473 = -r25472;
        double r25474 = exp(r25473);
        double r25475 = exp(r25472);
        double r25476 = r25474 + r25475;
        double r25477 = r25471 * r25476;
        return r25477;
}


double f_of(float re, float im) {
        float r25478 = 0.5;
        float r25479 = re;
        float r25480 = cos(r25479);
        float r25481 = r25478 * r25480;
        float r25482 = im;
        float r25483 = -r25482;
        float r25484 = exp(r25483);
        float r25485 = exp(r25482);
        float r25486 = r25484 + r25485;
        float r25487 = r25481 * r25486;
        return r25487;
}

double f_od(double re, double im) {
        double r25488 = 0.5;
        double r25489 = re;
        double r25490 = cos(r25489);
        double r25491 = r25488 * r25490;
        double r25492 = im;
        double r25493 = -r25492;
        double r25494 = exp(r25493);
        double r25495 = exp(r25492);
        double r25496 = r25494 + r25495;
        double r25497 = r25491 * r25496;
        return r25497;
}

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 r25498, r25499, r25500, r25501, r25502, r25503, r25504, r25505, r25506, r25507;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r25498, "0.5", 10, MPFR_RNDN);
        mpfr_init(r25499);
        mpfr_init(r25500);
        mpfr_init(r25501);
        mpfr_init(r25502);
        mpfr_init(r25503);
        mpfr_init(r25504);
        mpfr_init(r25505);
        mpfr_init(r25506);
        mpfr_init(r25507);
}

double f_im(double re, double im) {
        ;
        mpfr_set_d(r25499, re, MPFR_RNDN);
        mpfr_cos(r25500, r25499, MPFR_RNDN);
        mpfr_mul(r25501, r25498, r25500, MPFR_RNDN);
        mpfr_set_d(r25502, im, MPFR_RNDN);
        mpfr_neg(r25503, r25502, MPFR_RNDN);
        mpfr_exp(r25504, r25503, MPFR_RNDN);
        mpfr_exp(r25505, r25502, MPFR_RNDN);
        mpfr_add(r25506, r25504, r25505, MPFR_RNDN);
        mpfr_mul(r25507, r25501, r25506, MPFR_RNDN);
        return mpfr_get_d(r25507, MPFR_RNDN);
}

static mpfr_t r25508, r25509, r25510, r25511, r25512, r25513, r25514, r25515, r25516, r25517;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r25508, "0.5", 10, MPFR_RNDN);
        mpfr_init(r25509);
        mpfr_init(r25510);
        mpfr_init(r25511);
        mpfr_init(r25512);
        mpfr_init(r25513);
        mpfr_init(r25514);
        mpfr_init(r25515);
        mpfr_init(r25516);
        mpfr_init(r25517);
}

double f_fm(double re, double im) {
        ;
        mpfr_set_d(r25509, re, MPFR_RNDN);
        mpfr_cos(r25510, r25509, MPFR_RNDN);
        mpfr_mul(r25511, r25508, r25510, MPFR_RNDN);
        mpfr_set_d(r25512, im, MPFR_RNDN);
        mpfr_neg(r25513, r25512, MPFR_RNDN);
        mpfr_exp(r25514, r25513, MPFR_RNDN);
        mpfr_exp(r25515, r25512, MPFR_RNDN);
        mpfr_add(r25516, r25514, r25515, MPFR_RNDN);
        mpfr_mul(r25517, r25511, r25516, MPFR_RNDN);
        return mpfr_get_d(r25517, MPFR_RNDN);
}

static mpfr_t r25518, r25519, r25520, r25521, r25522, r25523, r25524, r25525, r25526, r25527;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(592);
        mpfr_init_set_str(r25518, "0.5", 10, MPFR_RNDN);
        mpfr_init(r25519);
        mpfr_init(r25520);
        mpfr_init(r25521);
        mpfr_init(r25522);
        mpfr_init(r25523);
        mpfr_init(r25524);
        mpfr_init(r25525);
        mpfr_init(r25526);
        mpfr_init(r25527);
}

double f_dm(double re, double im) {
        ;
        mpfr_set_d(r25519, re, MPFR_RNDN);
        mpfr_cos(r25520, r25519, MPFR_RNDN);
        mpfr_mul(r25521, r25518, r25520, MPFR_RNDN);
        mpfr_set_d(r25522, im, MPFR_RNDN);
        mpfr_neg(r25523, r25522, MPFR_RNDN);
        mpfr_exp(r25524, r25523, MPFR_RNDN);
        mpfr_exp(r25525, r25522, MPFR_RNDN);
        mpfr_add(r25526, r25524, r25525, MPFR_RNDN);
        mpfr_mul(r25527, r25521, r25526, MPFR_RNDN);
        return mpfr_get_d(r25527, MPFR_RNDN);
}