#include #include #include #include #include char *name = "math.cos on complex, imaginary part"; double f_if(float re, float im) { float r19586 = 0.5f; float r19587 = re; float r19588 = sin(r19587); float r19589 = r19586 * r19588; float r19590 = im; float r19591 = -r19590; float r19592 = exp(r19591); float r19593 = exp(r19590); float r19594 = r19592 - r19593; float r19595 = r19589 * r19594; return r19595; } double f_id(double re, double im) { double r19596 = 0.5; double r19597 = re; double r19598 = sin(r19597); double r19599 = r19596 * r19598; double r19600 = im; double r19601 = -r19600; double r19602 = exp(r19601); double r19603 = exp(r19600); double r19604 = r19602 - r19603; double r19605 = r19599 * r19604; return r19605; } double f_of(float re, float im) { float r19606 = 0.5f; float r19607 = re; float r19608 = sin(r19607); float r19609 = r19606 * r19608; float r19610 = 0.01666666753590107f; float r19611 = im; float r19612 = 5.0f; float r19613 = pow(r19611, r19612); float r19614 = r19610 * r19613; float r19615 = 2.0f; float r19616 = r19615 * r19611; float r19617 = 0.3333333432674408f; float r19618 = 3.0f; float r19619 = pow(r19611, r19618); float r19620 = r19617 * r19619; float r19621 = r19616 + r19620; float r19622 = r19614 + r19621; float r19623 = -r19622; float r19624 = r19609 * r19623; return r19624; } double f_od(double re, double im) { double r19625 = 0.5; double r19626 = re; double r19627 = sin(r19626); double r19628 = r19625 * r19627; double r19629 = 0.01666666753590107; double r19630 = im; double r19631 = 5.0; double r19632 = pow(r19630, r19631); double r19633 = r19629 * r19632; double r19634 = 2.0; double r19635 = r19634 * r19630; double r19636 = 0.3333333432674408; double r19637 = 3.0; double r19638 = pow(r19630, r19637); double r19639 = r19636 * r19638; double r19640 = r19635 + r19639; double r19641 = r19633 + r19640; double r19642 = -r19641; double r19643 = r19628 * r19642; return r19643; } 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 r19644, r19645, r19646, r19647, r19648, r19649, r19650, r19651, r19652, r19653; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r19644, "0.5", 10, MPFR_RNDN); mpfr_init(r19645); mpfr_init(r19646); mpfr_init(r19647); mpfr_init(r19648); mpfr_init(r19649); mpfr_init(r19650); mpfr_init(r19651); mpfr_init(r19652); mpfr_init(r19653); } double f_im(double re, double im) { ; mpfr_set_d(r19645, re, MPFR_RNDN); mpfr_sin(r19646, r19645, MPFR_RNDN); mpfr_mul(r19647, r19644, r19646, MPFR_RNDN); mpfr_set_d(r19648, im, MPFR_RNDN); mpfr_neg(r19649, r19648, MPFR_RNDN); mpfr_exp(r19650, r19649, MPFR_RNDN); mpfr_exp(r19651, r19648, MPFR_RNDN); mpfr_sub(r19652, r19650, r19651, MPFR_RNDN); mpfr_mul(r19653, r19647, r19652, MPFR_RNDN); return mpfr_get_d(r19653, MPFR_RNDN); } static mpfr_t r19654, r19655, r19656, r19657, r19658, r19659, r19660, r19661, r19662, r19663, r19664, r19665, r19666, r19667, r19668, r19669, r19670, r19671, r19672; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19654, "0.5", 10, MPFR_RNDN); mpfr_init(r19655); mpfr_init(r19656); mpfr_init(r19657); mpfr_init_set_str(r19658, "1/60", 10, MPFR_RNDN); mpfr_init(r19659); mpfr_init_set_str(r19660, "5", 10, MPFR_RNDN); mpfr_init(r19661); mpfr_init(r19662); mpfr_init_set_str(r19663, "2", 10, MPFR_RNDN); mpfr_init(r19664); mpfr_init_set_str(r19665, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r19666, "3", 10, MPFR_RNDN); mpfr_init(r19667); mpfr_init(r19668); mpfr_init(r19669); mpfr_init(r19670); mpfr_init(r19671); mpfr_init(r19672); } double f_fm(double re, double im) { ; mpfr_set_d(r19655, re, MPFR_RNDN); mpfr_sin(r19656, r19655, MPFR_RNDN); mpfr_mul(r19657, r19654, r19656, MPFR_RNDN); ; mpfr_set_d(r19659, im, MPFR_RNDN); ; mpfr_pow(r19661, r19659, r19660, MPFR_RNDN); mpfr_mul(r19662, r19658, r19661, MPFR_RNDN); ; mpfr_mul(r19664, r19663, r19659, MPFR_RNDN); ; ; mpfr_pow(r19667, r19659, r19666, MPFR_RNDN); mpfr_mul(r19668, r19665, r19667, MPFR_RNDN); mpfr_add(r19669, r19664, r19668, MPFR_RNDN); mpfr_add(r19670, r19662, r19669, MPFR_RNDN); mpfr_neg(r19671, r19670, MPFR_RNDN); mpfr_mul(r19672, r19657, r19671, MPFR_RNDN); return mpfr_get_d(r19672, MPFR_RNDN); } static mpfr_t r19673, r19674, r19675, r19676, r19677, r19678, r19679, r19680, r19681, r19682, r19683, r19684, r19685, r19686, r19687, r19688, r19689, r19690, r19691; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19673, "0.5", 10, MPFR_RNDN); mpfr_init(r19674); mpfr_init(r19675); mpfr_init(r19676); mpfr_init_set_str(r19677, "1/60", 10, MPFR_RNDN); mpfr_init(r19678); mpfr_init_set_str(r19679, "5", 10, MPFR_RNDN); mpfr_init(r19680); mpfr_init(r19681); mpfr_init_set_str(r19682, "2", 10, MPFR_RNDN); mpfr_init(r19683); mpfr_init_set_str(r19684, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r19685, "3", 10, MPFR_RNDN); mpfr_init(r19686); mpfr_init(r19687); mpfr_init(r19688); mpfr_init(r19689); mpfr_init(r19690); mpfr_init(r19691); } double f_dm(double re, double im) { ; mpfr_set_d(r19674, re, MPFR_RNDN); mpfr_sin(r19675, r19674, MPFR_RNDN); mpfr_mul(r19676, r19673, r19675, MPFR_RNDN); ; mpfr_set_d(r19678, im, MPFR_RNDN); ; mpfr_pow(r19680, r19678, r19679, MPFR_RNDN); mpfr_mul(r19681, r19677, r19680, MPFR_RNDN); ; mpfr_mul(r19683, r19682, r19678, MPFR_RNDN); ; ; mpfr_pow(r19686, r19678, r19685, MPFR_RNDN); mpfr_mul(r19687, r19684, r19686, MPFR_RNDN); mpfr_add(r19688, r19683, r19687, MPFR_RNDN); mpfr_add(r19689, r19681, r19688, MPFR_RNDN); mpfr_neg(r19690, r19689, MPFR_RNDN); mpfr_mul(r19691, r19676, r19690, MPFR_RNDN); return mpfr_get_d(r19691, MPFR_RNDN); }