#include #include #include #include #include char *name = "math.sqrt on complex, real part"; double f_if(float re, float im) { float r25646 = 0.5; float r25647 = 2.0; float r25648 = re; float r25649 = r25648 * r25648; float r25650 = im; float r25651 = r25650 * r25650; float r25652 = r25649 + r25651; float r25653 = sqrt(r25652); float r25654 = r25653 + r25648; float r25655 = r25647 * r25654; float r25656 = sqrt(r25655); float r25657 = r25646 * r25656; return r25657; } double f_id(double re, double im) { double r25658 = 0.5; double r25659 = 2.0; double r25660 = re; double r25661 = r25660 * r25660; double r25662 = im; double r25663 = r25662 * r25662; double r25664 = r25661 + r25663; double r25665 = sqrt(r25664); double r25666 = r25665 + r25660; double r25667 = r25659 * r25666; double r25668 = sqrt(r25667); double r25669 = r25658 * r25668; return r25669; } double f_of(float re, float im) { float r25670 = 2.0; float r25671 = im; float r25672 = re; float r25673 = r25671 + r25672; float r25674 = r25670 * r25673; float r25675 = -2.4563089802752075e+155; bool r25676 = r25674 <= r25675; float r25677 = 0.5; float r25678 = -r25672; float r25679 = r25678 - r25672; float r25680 = sqrt(r25679); float r25681 = r25671 * r25670; float r25682 = r25681 * r25671; float r25683 = sqrt(r25682); float r25684 = r25680 / r25683; float r25685 = r25677 / r25684; float r25686 = 1.0826408600978585e-256; bool r25687 = r25674 <= r25686; float r25688 = sqrt(r25670); float r25689 = fabs(r25671); float r25690 = r25688 * r25689; float r25691 = r25672 * r25672; float r25692 = r25671 * r25671; float r25693 = r25691 + r25692; float r25694 = sqrt(r25693); float r25695 = r25694 - r25672; float r25696 = sqrt(r25695); float r25697 = r25690 / r25696; float r25698 = r25677 * r25697; float r25699 = 8.360970028419815e+154; bool r25700 = r25674 <= r25699; float r25701 = r25694 + r25672; float r25702 = r25670 * r25701; float r25703 = sqrt(r25702); float r25704 = r25677 * r25703; float r25705 = sqrt(r25674); float r25706 = r25677 * r25705; float r25707 = r25700 ? r25704 : r25706; float r25708 = r25687 ? r25698 : r25707; float r25709 = r25676 ? r25685 : r25708; return r25709; } double f_od(double re, double im) { double r25710 = 2.0; double r25711 = im; double r25712 = re; double r25713 = r25711 + r25712; double r25714 = r25710 * r25713; double r25715 = -2.4563089802752075e+155; bool r25716 = r25714 <= r25715; double r25717 = 0.5; double r25718 = -r25712; double r25719 = r25718 - r25712; double r25720 = sqrt(r25719); double r25721 = r25711 * r25710; double r25722 = r25721 * r25711; double r25723 = sqrt(r25722); double r25724 = r25720 / r25723; double r25725 = r25717 / r25724; double r25726 = 1.0826408600978585e-256; bool r25727 = r25714 <= r25726; double r25728 = sqrt(r25710); double r25729 = fabs(r25711); double r25730 = r25728 * r25729; double r25731 = r25712 * r25712; double r25732 = r25711 * r25711; double r25733 = r25731 + r25732; double r25734 = sqrt(r25733); double r25735 = r25734 - r25712; double r25736 = sqrt(r25735); double r25737 = r25730 / r25736; double r25738 = r25717 * r25737; double r25739 = 8.360970028419815e+154; bool r25740 = r25714 <= r25739; double r25741 = r25734 + r25712; double r25742 = r25710 * r25741; double r25743 = sqrt(r25742); double r25744 = r25717 * r25743; double r25745 = sqrt(r25714); double r25746 = r25717 * r25745; double r25747 = r25740 ? r25744 : r25746; double r25748 = r25727 ? r25738 : r25747; double r25749 = r25716 ? r25725 : r25748; return r25749; } 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 r25750, r25751, r25752, r25753, r25754, r25755, r25756, r25757, r25758, r25759, r25760, r25761; void setup_mpfr_f_im() { mpfr_set_default_prec(3472); mpfr_init_set_str(r25750, "0.5", 10, MPFR_RNDN); mpfr_init_set_str(r25751, "2.0", 10, MPFR_RNDN); mpfr_init(r25752); mpfr_init(r25753); mpfr_init(r25754); mpfr_init(r25755); mpfr_init(r25756); mpfr_init(r25757); mpfr_init(r25758); mpfr_init(r25759); mpfr_init(r25760); mpfr_init(r25761); } double f_im(double re, double im) { ; ; mpfr_set_d(r25752, re, MPFR_RNDN); mpfr_mul(r25753, r25752, r25752, MPFR_RNDN); mpfr_set_d(r25754, im, MPFR_RNDN); mpfr_mul(r25755, r25754, r25754, MPFR_RNDN); mpfr_add(r25756, r25753, r25755, MPFR_RNDN); mpfr_sqrt(r25757, r25756, MPFR_RNDN); mpfr_add(r25758, r25757, r25752, MPFR_RNDN); mpfr_mul(r25759, r25751, r25758, MPFR_RNDN); mpfr_sqrt(r25760, r25759, MPFR_RNDN); mpfr_mul(r25761, r25750, r25760, MPFR_RNDN); return mpfr_get_d(r25761, MPFR_RNDN); } static mpfr_t r25762, r25763, r25764, r25765, r25766, r25767, r25768, r25769, r25770, r25771, r25772, r25773, r25774, r25775, r25776, r25777, r25778, r25779, r25780, r25781, r25782, r25783, r25784, r25785, r25786, r25787, r25788, r25789, r25790, r25791, r25792, r25793, r25794, r25795, r25796, r25797, r25798, r25799, r25800, r25801; void setup_mpfr_f_fm() { mpfr_set_default_prec(3472); mpfr_init_set_str(r25762, "2.0", 10, MPFR_RNDN); mpfr_init(r25763); mpfr_init(r25764); mpfr_init(r25765); mpfr_init(r25766); mpfr_init_set_str(r25767, "-2.4563089802752075e+155", 10, MPFR_RNDN); mpfr_init(r25768); mpfr_init_set_str(r25769, "0.5", 10, MPFR_RNDN); mpfr_init(r25770); mpfr_init(r25771); mpfr_init(r25772); mpfr_init(r25773); mpfr_init(r25774); mpfr_init(r25775); mpfr_init(r25776); mpfr_init(r25777); mpfr_init_set_str(r25778, "1.0826408600978585e-256", 10, MPFR_RNDN); mpfr_init(r25779); mpfr_init(r25780); mpfr_init(r25781); mpfr_init(r25782); mpfr_init(r25783); mpfr_init(r25784); mpfr_init(r25785); mpfr_init(r25786); mpfr_init(r25787); mpfr_init(r25788); mpfr_init(r25789); mpfr_init(r25790); mpfr_init_set_str(r25791, "8.360970028419815e+154", 10, MPFR_RNDN); mpfr_init(r25792); mpfr_init(r25793); mpfr_init(r25794); mpfr_init(r25795); mpfr_init(r25796); mpfr_init(r25797); mpfr_init(r25798); mpfr_init(r25799); mpfr_init(r25800); mpfr_init(r25801); } double f_fm(double re, double im) { ; mpfr_set_d(r25763, im, MPFR_RNDN); mpfr_set_d(r25764, re, MPFR_RNDN); mpfr_add(r25765, r25763, r25764, MPFR_RNDN); mpfr_mul(r25766, r25762, r25765, MPFR_RNDN); ; mpfr_set_si(r25768, mpfr_cmp(r25766, r25767) <= 0, MPFR_RNDN); ; mpfr_neg(r25770, r25764, MPFR_RNDN); mpfr_sub(r25771, r25770, r25764, MPFR_RNDN); mpfr_sqrt(r25772, r25771, MPFR_RNDN); mpfr_mul(r25773, r25763, r25762, MPFR_RNDN); mpfr_mul(r25774, r25773, r25763, MPFR_RNDN); mpfr_sqrt(r25775, r25774, MPFR_RNDN); mpfr_div(r25776, r25772, r25775, MPFR_RNDN); mpfr_div(r25777, r25769, r25776, MPFR_RNDN); ; mpfr_set_si(r25779, mpfr_cmp(r25766, r25778) <= 0, MPFR_RNDN); mpfr_sqrt(r25780, r25762, MPFR_RNDN); mpfr_abs(r25781, r25763, MPFR_RNDN); mpfr_mul(r25782, r25780, r25781, MPFR_RNDN); mpfr_mul(r25783, r25764, r25764, MPFR_RNDN); mpfr_mul(r25784, r25763, r25763, MPFR_RNDN); mpfr_add(r25785, r25783, r25784, MPFR_RNDN); mpfr_sqrt(r25786, r25785, MPFR_RNDN); mpfr_sub(r25787, r25786, r25764, MPFR_RNDN); mpfr_sqrt(r25788, r25787, MPFR_RNDN); mpfr_div(r25789, r25782, r25788, MPFR_RNDN); mpfr_mul(r25790, r25769, r25789, MPFR_RNDN); ; mpfr_set_si(r25792, mpfr_cmp(r25766, r25791) <= 0, MPFR_RNDN); mpfr_add(r25793, r25786, r25764, MPFR_RNDN); mpfr_mul(r25794, r25762, r25793, MPFR_RNDN); mpfr_sqrt(r25795, r25794, MPFR_RNDN); mpfr_mul(r25796, r25769, r25795, MPFR_RNDN); mpfr_sqrt(r25797, r25766, MPFR_RNDN); mpfr_mul(r25798, r25769, r25797, MPFR_RNDN); if (mpfr_get_si(r25792, MPFR_RNDN)) { mpfr_set(r25799, r25796, MPFR_RNDN); } else { mpfr_set(r25799, r25798, MPFR_RNDN); }; if (mpfr_get_si(r25779, MPFR_RNDN)) { mpfr_set(r25800, r25790, MPFR_RNDN); } else { mpfr_set(r25800, r25799, MPFR_RNDN); }; if (mpfr_get_si(r25768, MPFR_RNDN)) { mpfr_set(r25801, r25777, MPFR_RNDN); } else { mpfr_set(r25801, r25800, MPFR_RNDN); }; return mpfr_get_d(r25801, MPFR_RNDN); } static mpfr_t r25802, r25803, r25804, r25805, r25806, r25807, r25808, r25809, r25810, r25811, r25812, r25813, r25814, r25815, r25816, r25817, r25818, r25819, r25820, r25821, r25822, r25823, r25824, r25825, r25826, r25827, r25828, r25829, r25830, r25831, r25832, r25833, r25834, r25835, r25836, r25837, r25838, r25839, r25840, r25841; void setup_mpfr_f_dm() { mpfr_set_default_prec(3472); mpfr_init_set_str(r25802, "2.0", 10, MPFR_RNDN); mpfr_init(r25803); mpfr_init(r25804); mpfr_init(r25805); mpfr_init(r25806); mpfr_init_set_str(r25807, "-2.4563089802752075e+155", 10, MPFR_RNDN); mpfr_init(r25808); mpfr_init_set_str(r25809, "0.5", 10, MPFR_RNDN); mpfr_init(r25810); mpfr_init(r25811); mpfr_init(r25812); mpfr_init(r25813); mpfr_init(r25814); mpfr_init(r25815); mpfr_init(r25816); mpfr_init(r25817); mpfr_init_set_str(r25818, "1.0826408600978585e-256", 10, MPFR_RNDN); mpfr_init(r25819); mpfr_init(r25820); mpfr_init(r25821); mpfr_init(r25822); mpfr_init(r25823); mpfr_init(r25824); mpfr_init(r25825); mpfr_init(r25826); mpfr_init(r25827); mpfr_init(r25828); mpfr_init(r25829); mpfr_init(r25830); mpfr_init_set_str(r25831, "8.360970028419815e+154", 10, MPFR_RNDN); mpfr_init(r25832); mpfr_init(r25833); mpfr_init(r25834); mpfr_init(r25835); mpfr_init(r25836); mpfr_init(r25837); mpfr_init(r25838); mpfr_init(r25839); mpfr_init(r25840); mpfr_init(r25841); } double f_dm(double re, double im) { ; mpfr_set_d(r25803, im, MPFR_RNDN); mpfr_set_d(r25804, re, MPFR_RNDN); mpfr_add(r25805, r25803, r25804, MPFR_RNDN); mpfr_mul(r25806, r25802, r25805, MPFR_RNDN); ; mpfr_set_si(r25808, mpfr_cmp(r25806, r25807) <= 0, MPFR_RNDN); ; mpfr_neg(r25810, r25804, MPFR_RNDN); mpfr_sub(r25811, r25810, r25804, MPFR_RNDN); mpfr_sqrt(r25812, r25811, MPFR_RNDN); mpfr_mul(r25813, r25803, r25802, MPFR_RNDN); mpfr_mul(r25814, r25813, r25803, MPFR_RNDN); mpfr_sqrt(r25815, r25814, MPFR_RNDN); mpfr_div(r25816, r25812, r25815, MPFR_RNDN); mpfr_div(r25817, r25809, r25816, MPFR_RNDN); ; mpfr_set_si(r25819, mpfr_cmp(r25806, r25818) <= 0, MPFR_RNDN); mpfr_sqrt(r25820, r25802, MPFR_RNDN); mpfr_abs(r25821, r25803, MPFR_RNDN); mpfr_mul(r25822, r25820, r25821, MPFR_RNDN); mpfr_mul(r25823, r25804, r25804, MPFR_RNDN); mpfr_mul(r25824, r25803, r25803, MPFR_RNDN); mpfr_add(r25825, r25823, r25824, MPFR_RNDN); mpfr_sqrt(r25826, r25825, MPFR_RNDN); mpfr_sub(r25827, r25826, r25804, MPFR_RNDN); mpfr_sqrt(r25828, r25827, MPFR_RNDN); mpfr_div(r25829, r25822, r25828, MPFR_RNDN); mpfr_mul(r25830, r25809, r25829, MPFR_RNDN); ; mpfr_set_si(r25832, mpfr_cmp(r25806, r25831) <= 0, MPFR_RNDN); mpfr_add(r25833, r25826, r25804, MPFR_RNDN); mpfr_mul(r25834, r25802, r25833, MPFR_RNDN); mpfr_sqrt(r25835, r25834, MPFR_RNDN); mpfr_mul(r25836, r25809, r25835, MPFR_RNDN); mpfr_sqrt(r25837, r25806, MPFR_RNDN); mpfr_mul(r25838, r25809, r25837, MPFR_RNDN); if (mpfr_get_si(r25832, MPFR_RNDN)) { mpfr_set(r25839, r25836, MPFR_RNDN); } else { mpfr_set(r25839, r25838, MPFR_RNDN); }; if (mpfr_get_si(r25819, MPFR_RNDN)) { mpfr_set(r25840, r25830, MPFR_RNDN); } else { mpfr_set(r25840, r25839, MPFR_RNDN); }; if (mpfr_get_si(r25808, MPFR_RNDN)) { mpfr_set(r25841, r25817, MPFR_RNDN); } else { mpfr_set(r25841, r25840, MPFR_RNDN); }; return mpfr_get_d(r25841, MPFR_RNDN); }