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