#include #include #include #include #include char *name = "math.sin on complex, imaginary part"; double f_if(float re, float im) { float r20055 = 0.5f; float r20056 = re; float r20057 = cos(r20056); float r20058 = r20055 * r20057; float r20059 = 0.0f; float r20060 = im; float r20061 = r20059 - r20060; float r20062 = exp(r20061); float r20063 = exp(r20060); float r20064 = r20062 - r20063; float r20065 = r20058 * r20064; return r20065; } double f_id(double re, double im) { double r20066 = 0.5; double r20067 = re; double r20068 = cos(r20067); double r20069 = r20066 * r20068; double r20070 = 0.0; double r20071 = im; double r20072 = r20070 - r20071; double r20073 = exp(r20072); double r20074 = exp(r20071); double r20075 = r20073 - r20074; double r20076 = r20069 * r20075; return r20076; } double f_of(float re, float im) { float r20077 = 0.5f; float r20078 = re; float r20079 = cos(r20078); float r20080 = r20077 * r20079; float r20081 = 0.016666666666666666f; float r20082 = im; float r20083 = 5.0f; float r20084 = pow(r20082, r20083); float r20085 = r20081 * r20084; float r20086 = 0.3333333333333333f; float r20087 = r20082 * (r20082 * r20082); float r20088 = r20086 * r20087; float r20089 = r20085 + r20088; float r20090 = 2.0f; float r20091 = r20090 * r20082; float r20092 = r20089 + r20091; float r20093 = r20080 * r20092; float r20094 = -r20093; return r20094; } double f_od(double re, double im) { double r20095 = 0.5; double r20096 = re; double r20097 = cos(r20096); double r20098 = r20095 * r20097; double r20099 = 0.016666666666666666; double r20100 = im; double r20101 = 5.0; double r20102 = pow(r20100, r20101); double r20103 = r20099 * r20102; double r20104 = 0.3333333333333333; double r20105 = r20100 * (r20100 * r20100); double r20106 = r20104 * r20105; double r20107 = r20103 + r20106; double r20108 = 2.0; double r20109 = r20108 * r20100; double r20110 = r20107 + r20109; double r20111 = r20098 * r20110; double r20112 = -r20111; return r20112; } 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 r20113, r20114, r20115, r20116, r20117, r20118, r20119, r20120, r20121, r20122, r20123; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r20113, "0.5", 10, MPFR_RNDN); mpfr_init(r20114); mpfr_init(r20115); mpfr_init(r20116); mpfr_init_set_str(r20117, "0", 10, MPFR_RNDN); mpfr_init(r20118); mpfr_init(r20119); mpfr_init(r20120); mpfr_init(r20121); mpfr_init(r20122); mpfr_init(r20123); } double f_im(double re, double im) { ; mpfr_set_d(r20114, re, MPFR_RNDN); mpfr_cos(r20115, r20114, MPFR_RNDN); mpfr_mul(r20116, r20113, r20115, MPFR_RNDN); ; mpfr_set_d(r20118, im, MPFR_RNDN); mpfr_sub(r20119, r20117, r20118, MPFR_RNDN); mpfr_exp(r20120, r20119, MPFR_RNDN); mpfr_exp(r20121, r20118, MPFR_RNDN); mpfr_sub(r20122, r20120, r20121, MPFR_RNDN); mpfr_mul(r20123, r20116, r20122, MPFR_RNDN); return mpfr_get_d(r20123, MPFR_RNDN); } static mpfr_t r20124, r20125, r20126, r20127, r20128, r20129, r20130, r20131, r20132, r20133, r20134, r20135, r20136, r20137, r20138, r20139, r20140, r20141; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init_set_str(r20124, "0.5", 10, MPFR_RNDN); mpfr_init(r20125); mpfr_init(r20126); mpfr_init(r20127); mpfr_init_set_str(r20128, "1/60", 10, MPFR_RNDN); mpfr_init(r20129); mpfr_init_set_str(r20130, "5", 10, MPFR_RNDN); mpfr_init(r20131); mpfr_init(r20132); mpfr_init_set_str(r20133, "1/3", 10, MPFR_RNDN); mpfr_init(r20134); mpfr_init(r20135); mpfr_init(r20136); mpfr_init_set_str(r20137, "2", 10, MPFR_RNDN); mpfr_init(r20138); mpfr_init(r20139); mpfr_init(r20140); mpfr_init(r20141); } double f_fm(double re, double im) { ; mpfr_set_d(r20125, re, MPFR_RNDN); mpfr_cos(r20126, r20125, MPFR_RNDN); mpfr_mul(r20127, r20124, r20126, MPFR_RNDN); ; mpfr_set_d(r20129, im, MPFR_RNDN); ; mpfr_pow(r20131, r20129, r20130, MPFR_RNDN); mpfr_mul(r20132, r20128, r20131, MPFR_RNDN); ; mpfr_mul(r20134, r20129, r20129, MPFR_RNDN); mpfr_mul(r20134, r20134, r20129, MPFR_RNDN); mpfr_mul(r20135, r20133, r20134, MPFR_RNDN); mpfr_add(r20136, r20132, r20135, MPFR_RNDN); ; mpfr_mul(r20138, r20137, r20129, MPFR_RNDN); mpfr_add(r20139, r20136, r20138, MPFR_RNDN); mpfr_mul(r20140, r20127, r20139, MPFR_RNDN); mpfr_neg(r20141, r20140, MPFR_RNDN); return mpfr_get_d(r20141, MPFR_RNDN); } static mpfr_t r20142, r20143, r20144, r20145, r20146, r20147, r20148, r20149, r20150, r20151, r20152, r20153, r20154, r20155, r20156, r20157, r20158, r20159; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init_set_str(r20142, "0.5", 10, MPFR_RNDN); mpfr_init(r20143); mpfr_init(r20144); mpfr_init(r20145); mpfr_init_set_str(r20146, "1/60", 10, MPFR_RNDN); mpfr_init(r20147); mpfr_init_set_str(r20148, "5", 10, MPFR_RNDN); mpfr_init(r20149); mpfr_init(r20150); mpfr_init_set_str(r20151, "1/3", 10, MPFR_RNDN); mpfr_init(r20152); mpfr_init(r20153); mpfr_init(r20154); mpfr_init_set_str(r20155, "2", 10, MPFR_RNDN); mpfr_init(r20156); mpfr_init(r20157); mpfr_init(r20158); mpfr_init(r20159); } double f_dm(double re, double im) { ; mpfr_set_d(r20143, re, MPFR_RNDN); mpfr_cos(r20144, r20143, MPFR_RNDN); mpfr_mul(r20145, r20142, r20144, MPFR_RNDN); ; mpfr_set_d(r20147, im, MPFR_RNDN); ; mpfr_pow(r20149, r20147, r20148, MPFR_RNDN); mpfr_mul(r20150, r20146, r20149, MPFR_RNDN); ; mpfr_mul(r20152, r20147, r20147, MPFR_RNDN); mpfr_mul(r20152, r20152, r20147, MPFR_RNDN); mpfr_mul(r20153, r20151, r20152, MPFR_RNDN); mpfr_add(r20154, r20150, r20153, MPFR_RNDN); ; mpfr_mul(r20156, r20155, r20147, MPFR_RNDN); mpfr_add(r20157, r20154, r20156, MPFR_RNDN); mpfr_mul(r20158, r20145, r20157, MPFR_RNDN); mpfr_neg(r20159, r20158, MPFR_RNDN); return mpfr_get_d(r20159, MPFR_RNDN); }