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