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

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

double f_if(float re, float im) {
        float r19261 = 0.5f;
        float r19262 = re;
        float r19263 = sin(r19262);
        float r19264 = r19261 * r19263;
        float r19265 = im;
        float r19266 = -r19265;
        float r19267 = exp(r19266);
        float r19268 = exp(r19265);
        float r19269 = r19267 - r19268;
        float r19270 = r19264 * r19269;
        return r19270;
}

double f_id(double re, double im) {
        double r19271 = 0.5;
        double r19272 = re;
        double r19273 = sin(r19272);
        double r19274 = r19271 * r19273;
        double r19275 = im;
        double r19276 = -r19275;
        double r19277 = exp(r19276);
        double r19278 = exp(r19275);
        double r19279 = r19277 - r19278;
        double r19280 = r19274 * r19279;
        return r19280;
}


double f_of(float re, float im) {
        float r19281 = im;
        float r19282 = r19281 * (r19281 * r19281);
        float r19283 = 0.3333333333333333f;
        float r19284 = 5.0f;
        float r19285 = pow(r19281, r19284);
        float r19286 = 0.016666666666666666f;
        float r19287 = 2.0f;
        float r19288 = r19281 * r19287;
        float r19289 = fma(r19285, r19286, r19288);
        float r19290 = fma(r19282, r19283, r19289);
        float r19291 = re;
        float r19292 = sin(r19291);
        float r19293 = 0.5f;
        float r19294 = -r19293;
        float r19295 = r19292 * r19294;
        float r19296 = r19290 * r19295;
        return r19296;
}

double f_od(double re, double im) {
        double r19297 = im;
        double r19298 = r19297 * (r19297 * r19297);
        double r19299 = 0.3333333333333333;
        double r19300 = 5.0;
        double r19301 = pow(r19297, r19300);
        double r19302 = 0.016666666666666666;
        double r19303 = 2.0;
        double r19304 = r19297 * r19303;
        double r19305 = fma(r19301, r19302, r19304);
        double r19306 = fma(r19298, r19299, r19305);
        double r19307 = re;
        double r19308 = sin(r19307);
        double r19309 = 0.5;
        double r19310 = -r19309;
        double r19311 = r19308 * r19310;
        double r19312 = r19306 * r19311;
        return r19312;
}

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 r19313, r19314, r19315, r19316, r19317, r19318, r19319, r19320, r19321, r19322;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r19313, "0.5", 10, MPFR_RNDN);
        mpfr_init(r19314);
        mpfr_init(r19315);
        mpfr_init(r19316);
        mpfr_init(r19317);
        mpfr_init(r19318);
        mpfr_init(r19319);
        mpfr_init(r19320);
        mpfr_init(r19321);
        mpfr_init(r19322);
}

double f_im(double re, double im) {
        ;
        mpfr_set_d(r19314, re, MPFR_RNDN);
        mpfr_sin(r19315, r19314, MPFR_RNDN);
        mpfr_mul(r19316, r19313, r19315, MPFR_RNDN);
        mpfr_set_d(r19317, im, MPFR_RNDN);
        mpfr_neg(r19318, r19317, MPFR_RNDN);
        mpfr_exp(r19319, r19318, MPFR_RNDN);
        mpfr_exp(r19320, r19317, MPFR_RNDN);
        mpfr_sub(r19321, r19319, r19320, MPFR_RNDN);
        mpfr_mul(r19322, r19316, r19321, MPFR_RNDN);
        return mpfr_get_d(r19322, MPFR_RNDN);
}

static mpfr_t r19323, r19324, r19325, r19326, r19327, r19328, r19329, r19330, r19331, r19332, r19333, r19334, r19335, r19336, r19337, r19338;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19323);
        mpfr_init(r19324);
        mpfr_init_set_str(r19325, "1/3", 10, MPFR_RNDN);
        mpfr_init_set_str(r19326, "5", 10, MPFR_RNDN);
        mpfr_init(r19327);
        mpfr_init_set_str(r19328, "1/60", 10, MPFR_RNDN);
        mpfr_init_set_str(r19329, "2", 10, MPFR_RNDN);
        mpfr_init(r19330);
        mpfr_init(r19331);
        mpfr_init(r19332);
        mpfr_init(r19333);
        mpfr_init(r19334);
        mpfr_init_set_str(r19335, "0.5", 10, MPFR_RNDN);
        mpfr_init(r19336);
        mpfr_init(r19337);
        mpfr_init(r19338);
}

double f_fm(double re, double im) {
        mpfr_set_d(r19323, im, MPFR_RNDN);
        mpfr_mul(r19324, r19323, r19323, MPFR_RNDN); mpfr_mul(r19324, r19324, r19323, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r19327, r19323, r19326, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r19330, r19323, r19329, MPFR_RNDN);
        mpfr_fma(r19331, r19327, r19328, r19330, MPFR_RNDN);
        mpfr_fma(r19332, r19324, r19325, r19331, MPFR_RNDN);
        mpfr_set_d(r19333, re, MPFR_RNDN);
        mpfr_sin(r19334, r19333, MPFR_RNDN);
        ;
        mpfr_neg(r19336, r19335, MPFR_RNDN);
        mpfr_mul(r19337, r19334, r19336, MPFR_RNDN);
        mpfr_mul(r19338, r19332, r19337, MPFR_RNDN);
        return mpfr_get_d(r19338, MPFR_RNDN);
}

static mpfr_t r19339, r19340, r19341, r19342, r19343, r19344, r19345, r19346, r19347, r19348, r19349, r19350, r19351, r19352, r19353, r19354;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r19339);
        mpfr_init(r19340);
        mpfr_init_set_str(r19341, "1/3", 10, MPFR_RNDN);
        mpfr_init_set_str(r19342, "5", 10, MPFR_RNDN);
        mpfr_init(r19343);
        mpfr_init_set_str(r19344, "1/60", 10, MPFR_RNDN);
        mpfr_init_set_str(r19345, "2", 10, MPFR_RNDN);
        mpfr_init(r19346);
        mpfr_init(r19347);
        mpfr_init(r19348);
        mpfr_init(r19349);
        mpfr_init(r19350);
        mpfr_init_set_str(r19351, "0.5", 10, MPFR_RNDN);
        mpfr_init(r19352);
        mpfr_init(r19353);
        mpfr_init(r19354);
}

double f_dm(double re, double im) {
        mpfr_set_d(r19339, im, MPFR_RNDN);
        mpfr_mul(r19340, r19339, r19339, MPFR_RNDN); mpfr_mul(r19340, r19340, r19339, MPFR_RNDN);
        ;
        ;
        mpfr_pow(r19343, r19339, r19342, MPFR_RNDN);
        ;
        ;
        mpfr_mul(r19346, r19339, r19345, MPFR_RNDN);
        mpfr_fma(r19347, r19343, r19344, r19346, MPFR_RNDN);
        mpfr_fma(r19348, r19340, r19341, r19347, MPFR_RNDN);
        mpfr_set_d(r19349, re, MPFR_RNDN);
        mpfr_sin(r19350, r19349, MPFR_RNDN);
        ;
        mpfr_neg(r19352, r19351, MPFR_RNDN);
        mpfr_mul(r19353, r19350, r19352, MPFR_RNDN);
        mpfr_mul(r19354, r19348, r19353, MPFR_RNDN);
        return mpfr_get_d(r19354, MPFR_RNDN);
}