#include #include #include #include #include char *name = "math.sin on complex, imaginary part"; double f_if(float re, float im) { float r19159 = 0.5f; float r19160 = re; float r19161 = cos(r19160); float r19162 = r19159 * r19161; float r19163 = 0.0f; float r19164 = im; float r19165 = r19163 - r19164; float r19166 = exp(r19165); float r19167 = exp(r19164); float r19168 = r19166 - r19167; float r19169 = r19162 * r19168; return r19169; } double f_id(double re, double im) { double r19170 = 0.5; double r19171 = re; double r19172 = cos(r19171); double r19173 = r19170 * r19172; double r19174 = 0.0; double r19175 = im; double r19176 = r19174 - r19175; double r19177 = exp(r19176); double r19178 = exp(r19175); double r19179 = r19177 - r19178; double r19180 = r19173 * r19179; return r19180; } double f_of(float re, float im) { float r19181 = 0.016666666666666666f; float r19182 = im; float r19183 = 5.0f; float r19184 = pow(r19182, r19183); float r19185 = r19181 * r19184; float r19186 = 2.0f; float r19187 = r19186 * r19182; float r19188 = 0.3333333333333333f; float r19189 = 3.0f; float r19190 = pow(r19182, r19189); float r19191 = r19188 * r19190; float r19192 = r19187 + r19191; float r19193 = r19185 + r19192; float r19194 = -r19193; float r19195 = re; float r19196 = cos(r19195); float r19197 = 0.5f; float r19198 = r19196 * r19197; float r19199 = r19194 * r19198; return r19199; } double f_od(double re, double im) { double r19200 = 0.016666666666666666; double r19201 = im; double r19202 = 5.0; double r19203 = pow(r19201, r19202); double r19204 = r19200 * r19203; double r19205 = 2.0; double r19206 = r19205 * r19201; double r19207 = 0.3333333333333333; double r19208 = 3.0; double r19209 = pow(r19201, r19208); double r19210 = r19207 * r19209; double r19211 = r19206 + r19210; double r19212 = r19204 + r19211; double r19213 = -r19212; double r19214 = re; double r19215 = cos(r19214); double r19216 = 0.5; double r19217 = r19215 * r19216; double r19218 = r19213 * r19217; return r19218; } 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 r19219, r19220, r19221, r19222, r19223, r19224, r19225, r19226, r19227, r19228, r19229; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init_set_str(r19219, "0.5", 10, MPFR_RNDN); mpfr_init(r19220); mpfr_init(r19221); mpfr_init(r19222); mpfr_init_set_str(r19223, "0", 10, MPFR_RNDN); mpfr_init(r19224); mpfr_init(r19225); mpfr_init(r19226); mpfr_init(r19227); mpfr_init(r19228); mpfr_init(r19229); } double f_im(double re, double im) { ; mpfr_set_d(r19220, re, MPFR_RNDN); mpfr_cos(r19221, r19220, MPFR_RNDN); mpfr_mul(r19222, r19219, r19221, MPFR_RNDN); ; mpfr_set_d(r19224, im, MPFR_RNDN); mpfr_sub(r19225, r19223, r19224, MPFR_RNDN); mpfr_exp(r19226, r19225, MPFR_RNDN); mpfr_exp(r19227, r19224, MPFR_RNDN); mpfr_sub(r19228, r19226, r19227, MPFR_RNDN); mpfr_mul(r19229, r19222, r19228, MPFR_RNDN); return mpfr_get_d(r19229, MPFR_RNDN); } static mpfr_t r19230, r19231, r19232, r19233, r19234, r19235, r19236, r19237, r19238, r19239, r19240, r19241, r19242, r19243, r19244, r19245, r19246, r19247, r19248; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19230, "1/60", 10, MPFR_RNDN); mpfr_init(r19231); mpfr_init_set_str(r19232, "5", 10, MPFR_RNDN); mpfr_init(r19233); mpfr_init(r19234); mpfr_init_set_str(r19235, "2", 10, MPFR_RNDN); mpfr_init(r19236); mpfr_init_set_str(r19237, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r19238, "3", 10, MPFR_RNDN); mpfr_init(r19239); mpfr_init(r19240); mpfr_init(r19241); mpfr_init(r19242); mpfr_init(r19243); mpfr_init(r19244); mpfr_init(r19245); mpfr_init_set_str(r19246, "0.5", 10, MPFR_RNDN); mpfr_init(r19247); mpfr_init(r19248); } double f_fm(double re, double im) { ; mpfr_set_d(r19231, im, MPFR_RNDN); ; mpfr_pow(r19233, r19231, r19232, MPFR_RNDN); mpfr_mul(r19234, r19230, r19233, MPFR_RNDN); ; mpfr_mul(r19236, r19235, r19231, MPFR_RNDN); ; ; mpfr_pow(r19239, r19231, r19238, MPFR_RNDN); mpfr_mul(r19240, r19237, r19239, MPFR_RNDN); mpfr_add(r19241, r19236, r19240, MPFR_RNDN); mpfr_add(r19242, r19234, r19241, MPFR_RNDN); mpfr_neg(r19243, r19242, MPFR_RNDN); mpfr_set_d(r19244, re, MPFR_RNDN); mpfr_cos(r19245, r19244, MPFR_RNDN); ; mpfr_mul(r19247, r19245, r19246, MPFR_RNDN); mpfr_mul(r19248, r19243, r19247, MPFR_RNDN); return mpfr_get_d(r19248, MPFR_RNDN); } static mpfr_t r19249, r19250, r19251, r19252, r19253, r19254, r19255, r19256, r19257, r19258, r19259, r19260, r19261, r19262, r19263, r19264, r19265, r19266, r19267; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init_set_str(r19249, "1/60", 10, MPFR_RNDN); mpfr_init(r19250); mpfr_init_set_str(r19251, "5", 10, MPFR_RNDN); mpfr_init(r19252); mpfr_init(r19253); mpfr_init_set_str(r19254, "2", 10, MPFR_RNDN); mpfr_init(r19255); mpfr_init_set_str(r19256, "1/3", 10, MPFR_RNDN); mpfr_init_set_str(r19257, "3", 10, MPFR_RNDN); mpfr_init(r19258); mpfr_init(r19259); mpfr_init(r19260); mpfr_init(r19261); mpfr_init(r19262); mpfr_init(r19263); mpfr_init(r19264); mpfr_init_set_str(r19265, "0.5", 10, MPFR_RNDN); mpfr_init(r19266); mpfr_init(r19267); } double f_dm(double re, double im) { ; mpfr_set_d(r19250, im, MPFR_RNDN); ; mpfr_pow(r19252, r19250, r19251, MPFR_RNDN); mpfr_mul(r19253, r19249, r19252, MPFR_RNDN); ; mpfr_mul(r19255, r19254, r19250, MPFR_RNDN); ; ; mpfr_pow(r19258, r19250, r19257, MPFR_RNDN); mpfr_mul(r19259, r19256, r19258, MPFR_RNDN); mpfr_add(r19260, r19255, r19259, MPFR_RNDN); mpfr_add(r19261, r19253, r19260, MPFR_RNDN); mpfr_neg(r19262, r19261, MPFR_RNDN); mpfr_set_d(r19263, re, MPFR_RNDN); mpfr_cos(r19264, r19263, MPFR_RNDN); ; mpfr_mul(r19266, r19264, r19265, MPFR_RNDN); mpfr_mul(r19267, r19262, r19266, MPFR_RNDN); return mpfr_get_d(r19267, MPFR_RNDN); }