#include #include #include #include #include char *name = "math.sin on complex, imaginary part"; double f_if(float re, float im) { float r19747 = 0.5f; float r19748 = re; float r19749 = cos(r19748); float r19750 = r19747 * r19749; float r19751 = 0.0f; float r19752 = im; float r19753 = r19751 - r19752; float r19754 = exp(r19753); float r19755 = exp(r19752); float r19756 = r19754 - r19755; float r19757 = r19750 * r19756; return r19757; } double f_id(double re, double im) { double r19758 = 0.5; double r19759 = re; double r19760 = cos(r19759); double r19761 = r19758 * r19760; double r19762 = 0.0; double r19763 = im; double r19764 = r19762 - r19763; double r19765 = exp(r19764); double r19766 = exp(r19763); double r19767 = r19765 - r19766; double r19768 = r19761 * r19767; return r19768; } double f_of(float re, float im) { float r19769 = 0.016666666666666666f; float r19770 = im; float r19771 = 5.0f; float r19772 = pow(r19770, r19771); float r19773 = r19769 * r19772; float r19774 = 2.0f; float r19775 = r19774 * r19770; float r19776 = 0.3333333333333333f; float r19777 = 3.0f; float r19778 = pow(r19770, r19777); float r19779 = r19776 * r19778; float r19780 = r19775 + r19779; float r19781 = r19773 + r19780; float r19782 = -r19781; float r19783 = re; float r19784 = cos(r19783); float r19785 = 0.5f; float r19786 = r19784 * r19785; float r19787 = r19782 * r19786; return r19787; } double f_od(double re, double im) { double r19788 = 0.016666666666666666; double r19789 = im; double r19790 = 5.0; double r19791 = pow(r19789, r19790); double r19792 = r19788 * r19791; double r19793 = 2.0; double r19794 = r19793 * r19789; double r19795 = 0.3333333333333333; double r19796 = 3.0; double r19797 = pow(r19789, r19796); double r19798 = r19795 * r19797; double r19799 = r19794 + r19798; double r19800 = r19792 + r19799; double r19801 = -r19800; double r19802 = re; double r19803 = cos(r19802); double r19804 = 0.5; double r19805 = r19803 * r19804; double r19806 = r19801 * r19805; return r19806; } 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 r19807, r19808, r19809, r19810, r19811, r19812, r19813, r19814, r19815, r19816, r19817; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r19807, "0.5", 10, MPFR_RNDN); mpfr_init(r19808); mpfr_init(r19809); mpfr_init(r19810); mpfr_init_set_str(r19811, "0", 10, MPFR_RNDN); mpfr_init(r19812); mpfr_init(r19813); mpfr_init(r19814); mpfr_init(r19815); mpfr_init(r19816); mpfr_init(r19817); } double f_im(double re, double im) { ; mpfr_set_d(r19808, re, MPFR_RNDN); mpfr_cos(r19809, r19808, MPFR_RNDN); mpfr_mul(r19810, r19807, r19809, MPFR_RNDN); ; mpfr_set_d(r19812, im, MPFR_RNDN); mpfr_sub(r19813, r19811, r19812, MPFR_RNDN); mpfr_exp(r19814, r19813, MPFR_RNDN); mpfr_exp(r19815, r19812, MPFR_RNDN); mpfr_sub(r19816, r19814, r19815, MPFR_RNDN); mpfr_mul(r19817, r19810, r19816, MPFR_RNDN); return mpfr_get_d(r19817, MPFR_RNDN); } static mpfr_t r19818, r19819, r19820, r19821, r19822, r19823, r19824, r19825, r19826, r19827, r19828, r19829, r19830, r19831, r19832, r19833, r19834, r19835, r19836; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19818, "1/60", 10, MPFR_RNDN); mpfr_init(r19819); mpfr_init_set_str(r19820, "5", 10, MPFR_RNDN); mpfr_init(r19821); mpfr_init(r19822); mpfr_init_set_str(r19823, "2", 10, MPFR_RNDN); mpfr_init(r19824); mpfr_init_set_str(r19825, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r19826, "3", 10, MPFR_RNDN); mpfr_init(r19827); mpfr_init(r19828); mpfr_init(r19829); mpfr_init(r19830); mpfr_init(r19831); mpfr_init(r19832); mpfr_init(r19833); mpfr_init_set_str(r19834, "0.5", 10, MPFR_RNDN); mpfr_init(r19835); mpfr_init(r19836); } double f_fm(double re, double im) { ; mpfr_set_d(r19819, im, MPFR_RNDN); ; mpfr_pow(r19821, r19819, r19820, MPFR_RNDN); mpfr_mul(r19822, r19818, r19821, MPFR_RNDN); ; mpfr_mul(r19824, r19823, r19819, MPFR_RNDN); ; ; mpfr_pow(r19827, r19819, r19826, MPFR_RNDN); mpfr_mul(r19828, r19825, r19827, MPFR_RNDN); mpfr_add(r19829, r19824, r19828, MPFR_RNDN); mpfr_add(r19830, r19822, r19829, MPFR_RNDN); mpfr_neg(r19831, r19830, MPFR_RNDN); mpfr_set_d(r19832, re, MPFR_RNDN); mpfr_cos(r19833, r19832, MPFR_RNDN); ; mpfr_mul(r19835, r19833, r19834, MPFR_RNDN); mpfr_mul(r19836, r19831, r19835, MPFR_RNDN); return mpfr_get_d(r19836, MPFR_RNDN); } static mpfr_t r19837, r19838, r19839, r19840, r19841, r19842, r19843, r19844, r19845, r19846, r19847, r19848, r19849, r19850, r19851, r19852, r19853, r19854, r19855; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19837, "1/60", 10, MPFR_RNDN); mpfr_init(r19838); mpfr_init_set_str(r19839, "5", 10, MPFR_RNDN); mpfr_init(r19840); mpfr_init(r19841); mpfr_init_set_str(r19842, "2", 10, MPFR_RNDN); mpfr_init(r19843); mpfr_init_set_str(r19844, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r19845, "3", 10, MPFR_RNDN); mpfr_init(r19846); mpfr_init(r19847); mpfr_init(r19848); mpfr_init(r19849); mpfr_init(r19850); mpfr_init(r19851); mpfr_init(r19852); mpfr_init_set_str(r19853, "0.5", 10, MPFR_RNDN); mpfr_init(r19854); mpfr_init(r19855); } double f_dm(double re, double im) { ; mpfr_set_d(r19838, im, MPFR_RNDN); ; mpfr_pow(r19840, r19838, r19839, MPFR_RNDN); mpfr_mul(r19841, r19837, r19840, MPFR_RNDN); ; mpfr_mul(r19843, r19842, r19838, MPFR_RNDN); ; ; mpfr_pow(r19846, r19838, r19845, MPFR_RNDN); mpfr_mul(r19847, r19844, r19846, MPFR_RNDN); mpfr_add(r19848, r19843, r19847, MPFR_RNDN); mpfr_add(r19849, r19841, r19848, MPFR_RNDN); mpfr_neg(r19850, r19849, MPFR_RNDN); mpfr_set_d(r19851, re, MPFR_RNDN); mpfr_cos(r19852, r19851, MPFR_RNDN); ; mpfr_mul(r19854, r19852, r19853, MPFR_RNDN); mpfr_mul(r19855, r19850, r19854, MPFR_RNDN); return mpfr_get_d(r19855, MPFR_RNDN); }