#include #include #include #include #include char *name = "math.sin on complex, imaginary part"; double f_if(float re, float im) { float r19927 = 0.5f; float r19928 = re; float r19929 = cos(r19928); float r19930 = r19927 * r19929; float r19931 = 0.0f; float r19932 = im; float r19933 = r19931 - r19932; float r19934 = exp(r19933); float r19935 = exp(r19932); float r19936 = r19934 - r19935; float r19937 = r19930 * r19936; return r19937; } double f_id(double re, double im) { double r19938 = 0.5; double r19939 = re; double r19940 = cos(r19939); double r19941 = r19938 * r19940; double r19942 = 0.0; double r19943 = im; double r19944 = r19942 - r19943; double r19945 = exp(r19944); double r19946 = exp(r19943); double r19947 = r19945 - r19946; double r19948 = r19941 * r19947; return r19948; } double f_of(float re, float im) { float r19949 = 0.01666666753590107f; float r19950 = im; float r19951 = 5.0f; float r19952 = pow(r19950, r19951); float r19953 = r19949 * r19952; float r19954 = 2.0f; float r19955 = r19954 * r19950; float r19956 = 0.3333333432674408f; float r19957 = 3.0f; float r19958 = pow(r19950, r19957); float r19959 = r19956 * r19958; float r19960 = r19955 + r19959; float r19961 = r19953 + r19960; float r19962 = -r19961; float r19963 = re; float r19964 = cos(r19963); float r19965 = 0.5f; float r19966 = r19964 * r19965; float r19967 = r19962 * r19966; return r19967; } double f_od(double re, double im) { double r19968 = 0.01666666753590107; double r19969 = im; double r19970 = 5.0; double r19971 = pow(r19969, r19970); double r19972 = r19968 * r19971; double r19973 = 2.0; double r19974 = r19973 * r19969; double r19975 = 0.3333333432674408; double r19976 = 3.0; double r19977 = pow(r19969, r19976); double r19978 = r19975 * r19977; double r19979 = r19974 + r19978; double r19980 = r19972 + r19979; double r19981 = -r19980; double r19982 = re; double r19983 = cos(r19982); double r19984 = 0.5; double r19985 = r19983 * r19984; double r19986 = r19981 * r19985; return r19986; } 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 r19987, r19988, r19989, r19990, r19991, r19992, r19993, r19994, r19995, r19996, r19997; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r19987, "0.5", 10, MPFR_RNDN); mpfr_init(r19988); mpfr_init(r19989); mpfr_init(r19990); mpfr_init_set_str(r19991, "0", 10, MPFR_RNDN); mpfr_init(r19992); mpfr_init(r19993); mpfr_init(r19994); mpfr_init(r19995); mpfr_init(r19996); mpfr_init(r19997); } double f_im(double re, double im) { ; mpfr_set_d(r19988, re, MPFR_RNDN); mpfr_cos(r19989, r19988, MPFR_RNDN); mpfr_mul(r19990, r19987, r19989, MPFR_RNDN); ; mpfr_set_d(r19992, im, MPFR_RNDN); mpfr_sub(r19993, r19991, r19992, MPFR_RNDN); mpfr_exp(r19994, r19993, MPFR_RNDN); mpfr_exp(r19995, r19992, MPFR_RNDN); mpfr_sub(r19996, r19994, r19995, MPFR_RNDN); mpfr_mul(r19997, r19990, r19996, MPFR_RNDN); return mpfr_get_d(r19997, MPFR_RNDN); } static mpfr_t r19998, r19999, r20000, r20001, r20002, r20003, r20004, r20005, r20006, r20007, r20008, r20009, r20010, r20011, r20012, r20013, r20014, r20015, r20016; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19998, "1/60", 10, MPFR_RNDN); mpfr_init(r19999); mpfr_init_set_str(r20000, "5", 10, MPFR_RNDN); mpfr_init(r20001); mpfr_init(r20002); mpfr_init_set_str(r20003, "2", 10, MPFR_RNDN); mpfr_init(r20004); mpfr_init_set_str(r20005, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r20006, "3", 10, MPFR_RNDN); mpfr_init(r20007); mpfr_init(r20008); mpfr_init(r20009); mpfr_init(r20010); mpfr_init(r20011); mpfr_init(r20012); mpfr_init(r20013); mpfr_init_set_str(r20014, "0.5", 10, MPFR_RNDN); mpfr_init(r20015); mpfr_init(r20016); } double f_fm(double re, double im) { ; mpfr_set_d(r19999, im, MPFR_RNDN); ; mpfr_pow(r20001, r19999, r20000, MPFR_RNDN); mpfr_mul(r20002, r19998, r20001, MPFR_RNDN); ; mpfr_mul(r20004, r20003, r19999, MPFR_RNDN); ; ; mpfr_pow(r20007, r19999, r20006, MPFR_RNDN); mpfr_mul(r20008, r20005, r20007, MPFR_RNDN); mpfr_add(r20009, r20004, r20008, MPFR_RNDN); mpfr_add(r20010, r20002, r20009, MPFR_RNDN); mpfr_neg(r20011, r20010, MPFR_RNDN); mpfr_set_d(r20012, re, MPFR_RNDN); mpfr_cos(r20013, r20012, MPFR_RNDN); ; mpfr_mul(r20015, r20013, r20014, MPFR_RNDN); mpfr_mul(r20016, r20011, r20015, MPFR_RNDN); return mpfr_get_d(r20016, MPFR_RNDN); } static mpfr_t r20017, r20018, r20019, r20020, r20021, r20022, r20023, r20024, r20025, r20026, r20027, r20028, r20029, r20030, r20031, r20032, r20033, r20034, r20035; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init_set_str(r20017, "1/60", 10, MPFR_RNDN); mpfr_init(r20018); mpfr_init_set_str(r20019, "5", 10, MPFR_RNDN); mpfr_init(r20020); mpfr_init(r20021); mpfr_init_set_str(r20022, "2", 10, MPFR_RNDN); mpfr_init(r20023); mpfr_init_set_str(r20024, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r20025, "3", 10, MPFR_RNDN); mpfr_init(r20026); mpfr_init(r20027); mpfr_init(r20028); mpfr_init(r20029); mpfr_init(r20030); mpfr_init(r20031); mpfr_init(r20032); mpfr_init_set_str(r20033, "0.5", 10, MPFR_RNDN); mpfr_init(r20034); mpfr_init(r20035); } double f_dm(double re, double im) { ; mpfr_set_d(r20018, im, MPFR_RNDN); ; mpfr_pow(r20020, r20018, r20019, MPFR_RNDN); mpfr_mul(r20021, r20017, r20020, MPFR_RNDN); ; mpfr_mul(r20023, r20022, r20018, MPFR_RNDN); ; ; mpfr_pow(r20026, r20018, r20025, MPFR_RNDN); mpfr_mul(r20027, r20024, r20026, MPFR_RNDN); mpfr_add(r20028, r20023, r20027, MPFR_RNDN); mpfr_add(r20029, r20021, r20028, MPFR_RNDN); mpfr_neg(r20030, r20029, MPFR_RNDN); mpfr_set_d(r20031, re, MPFR_RNDN); mpfr_cos(r20032, r20031, MPFR_RNDN); ; mpfr_mul(r20034, r20032, r20033, MPFR_RNDN); mpfr_mul(r20035, r20030, r20034, MPFR_RNDN); return mpfr_get_d(r20035, MPFR_RNDN); }