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