#include #include #include #include #include char *name = "Toniolo and Linder, Equation (13)"; double f_if(float n, float U, float t, float l, float Om, float U_) { float r24722 = 2; float r24723 = n; float r24724 = r24722 * r24723; float r24725 = U; float r24726 = r24724 * r24725; float r24727 = t; float r24728 = l; float r24729 = r24728 * r24728; float r24730 = Om; float r24731 = r24729 / r24730; float r24732 = r24722 * r24731; float r24733 = r24727 - r24732; float r24734 = r24728 / r24730; float r24735 = pow(r24734, r24722); float r24736 = r24723 * r24735; float r24737 = U_; float r24738 = r24725 - r24737; float r24739 = r24736 * r24738; float r24740 = r24733 - r24739; float r24741 = r24726 * r24740; float r24742 = sqrt(r24741); return r24742; } double f_id(double n, double U, double t, double l, double Om, double U_) { double r24743 = 2; double r24744 = n; double r24745 = r24743 * r24744; double r24746 = U; double r24747 = r24745 * r24746; double r24748 = t; double r24749 = l; double r24750 = r24749 * r24749; double r24751 = Om; double r24752 = r24750 / r24751; double r24753 = r24743 * r24752; double r24754 = r24748 - r24753; double r24755 = r24749 / r24751; double r24756 = pow(r24755, r24743); double r24757 = r24744 * r24756; double r24758 = U_; double r24759 = r24746 - r24758; double r24760 = r24757 * r24759; double r24761 = r24754 - r24760; double r24762 = r24747 * r24761; double r24763 = sqrt(r24762); return r24763; } double f_of(float n, float U, float t, float l, float Om, float U_) { float r24764 = n; float r24765 = 1.0336185503231454e-290; bool r24766 = r24764 <= r24765; float r24767 = 2; float r24768 = r24767 * r24764; float r24769 = U; float r24770 = t; float r24771 = l; float r24772 = Om; float r24773 = r24772 / r24771; float r24774 = r24771 / r24773; float r24775 = r24767 * r24774; float r24776 = r24770 - r24775; float r24777 = r24771 / r24772; float r24778 = r24764 * r24777; float r24779 = r24778 * r24777; float r24780 = U_; float r24781 = r24769 - r24780; float r24782 = r24779 * r24781; float r24783 = r24776 - r24782; float r24784 = r24769 * r24783; float r24785 = r24768 * r24784; float r24786 = sqrt(r24785); float r24787 = sqrt(r24768); float r24788 = r24771 * r24771; float r24789 = r24788 / r24772; float r24790 = r24767 * r24789; float r24791 = r24770 - r24790; float r24792 = r24791 - r24782; float r24793 = r24769 * r24792; float r24794 = sqrt(r24793); float r24795 = r24787 * r24794; float r24796 = r24766 ? r24786 : r24795; return r24796; } double f_od(double n, double U, double t, double l, double Om, double U_) { double r24797 = n; double r24798 = 1.0336185503231454e-290; bool r24799 = r24797 <= r24798; double r24800 = 2; double r24801 = r24800 * r24797; double r24802 = U; double r24803 = t; double r24804 = l; double r24805 = Om; double r24806 = r24805 / r24804; double r24807 = r24804 / r24806; double r24808 = r24800 * r24807; double r24809 = r24803 - r24808; double r24810 = r24804 / r24805; double r24811 = r24797 * r24810; double r24812 = r24811 * r24810; double r24813 = U_; double r24814 = r24802 - r24813; double r24815 = r24812 * r24814; double r24816 = r24809 - r24815; double r24817 = r24802 * r24816; double r24818 = r24801 * r24817; double r24819 = sqrt(r24818); double r24820 = sqrt(r24801); double r24821 = r24804 * r24804; double r24822 = r24821 / r24805; double r24823 = r24800 * r24822; double r24824 = r24803 - r24823; double r24825 = r24824 - r24815; double r24826 = r24802 * r24825; double r24827 = sqrt(r24826); double r24828 = r24820 * r24827; double r24829 = r24799 ? r24819 : r24828; return r24829; } 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 r24830, r24831, r24832, r24833, r24834, r24835, r24836, r24837, r24838, r24839, r24840, r24841, r24842, r24843, r24844, r24845, r24846, r24847, r24848, r24849, r24850; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init_set_str(r24830, "2", 10, MPFR_RNDN); mpfr_init(r24831); mpfr_init(r24832); mpfr_init(r24833); mpfr_init(r24834); mpfr_init(r24835); mpfr_init(r24836); mpfr_init(r24837); mpfr_init(r24838); mpfr_init(r24839); mpfr_init(r24840); mpfr_init(r24841); mpfr_init(r24842); mpfr_init(r24843); mpfr_init(r24844); mpfr_init(r24845); mpfr_init(r24846); mpfr_init(r24847); mpfr_init(r24848); mpfr_init(r24849); mpfr_init(r24850); } double f_im(double n, double U, double t, double l, double Om, double U_) { ; mpfr_set_d(r24831, n, MPFR_RNDN); mpfr_mul(r24832, r24830, r24831, MPFR_RNDN); mpfr_set_d(r24833, U, MPFR_RNDN); mpfr_mul(r24834, r24832, r24833, MPFR_RNDN); mpfr_set_d(r24835, t, MPFR_RNDN); mpfr_set_d(r24836, l, MPFR_RNDN); mpfr_mul(r24837, r24836, r24836, MPFR_RNDN); mpfr_set_d(r24838, Om, MPFR_RNDN); mpfr_div(r24839, r24837, r24838, MPFR_RNDN); mpfr_mul(r24840, r24830, r24839, MPFR_RNDN); mpfr_sub(r24841, r24835, r24840, MPFR_RNDN); mpfr_div(r24842, r24836, r24838, MPFR_RNDN); mpfr_pow(r24843, r24842, r24830, MPFR_RNDN); mpfr_mul(r24844, r24831, r24843, MPFR_RNDN); mpfr_set_d(r24845, U_, MPFR_RNDN); mpfr_sub(r24846, r24833, r24845, MPFR_RNDN); mpfr_mul(r24847, r24844, r24846, MPFR_RNDN); mpfr_sub(r24848, r24841, r24847, MPFR_RNDN); mpfr_mul(r24849, r24834, r24848, MPFR_RNDN); mpfr_sqrt(r24850, r24849, MPFR_RNDN); return mpfr_get_d(r24850, MPFR_RNDN); } static mpfr_t r24851, r24852, r24853, r24854, r24855, r24856, r24857, r24858, r24859, r24860, r24861, r24862, r24863, r24864, r24865, r24866, r24867, r24868, r24869, r24870, r24871, r24872, r24873, r24874, r24875, r24876, r24877, r24878, r24879, r24880, r24881, r24882, r24883; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r24851); mpfr_init_set_str(r24852, "1.0336185503231454e-290", 10, MPFR_RNDN); mpfr_init(r24853); mpfr_init_set_str(r24854, "2", 10, MPFR_RNDN); mpfr_init(r24855); mpfr_init(r24856); mpfr_init(r24857); mpfr_init(r24858); mpfr_init(r24859); mpfr_init(r24860); mpfr_init(r24861); mpfr_init(r24862); mpfr_init(r24863); mpfr_init(r24864); mpfr_init(r24865); mpfr_init(r24866); mpfr_init(r24867); mpfr_init(r24868); mpfr_init(r24869); mpfr_init(r24870); mpfr_init(r24871); mpfr_init(r24872); mpfr_init(r24873); mpfr_init(r24874); mpfr_init(r24875); mpfr_init(r24876); mpfr_init(r24877); mpfr_init(r24878); mpfr_init(r24879); mpfr_init(r24880); mpfr_init(r24881); mpfr_init(r24882); mpfr_init(r24883); } double f_fm(double n, double U, double t, double l, double Om, double U_) { mpfr_set_d(r24851, n, MPFR_RNDN); ; mpfr_set_si(r24853, mpfr_cmp(r24851, r24852) <= 0, MPFR_RNDN); ; mpfr_mul(r24855, r24854, r24851, MPFR_RNDN); mpfr_set_d(r24856, U, MPFR_RNDN); mpfr_set_d(r24857, t, MPFR_RNDN); mpfr_set_d(r24858, l, MPFR_RNDN); mpfr_set_d(r24859, Om, MPFR_RNDN); mpfr_div(r24860, r24859, r24858, MPFR_RNDN); mpfr_div(r24861, r24858, r24860, MPFR_RNDN); mpfr_mul(r24862, r24854, r24861, MPFR_RNDN); mpfr_sub(r24863, r24857, r24862, MPFR_RNDN); mpfr_div(r24864, r24858, r24859, MPFR_RNDN); mpfr_mul(r24865, r24851, r24864, MPFR_RNDN); mpfr_mul(r24866, r24865, r24864, MPFR_RNDN); mpfr_set_d(r24867, U_, MPFR_RNDN); mpfr_sub(r24868, r24856, r24867, MPFR_RNDN); mpfr_mul(r24869, r24866, r24868, MPFR_RNDN); mpfr_sub(r24870, r24863, r24869, MPFR_RNDN); mpfr_mul(r24871, r24856, r24870, MPFR_RNDN); mpfr_mul(r24872, r24855, r24871, MPFR_RNDN); mpfr_sqrt(r24873, r24872, MPFR_RNDN); mpfr_sqrt(r24874, r24855, MPFR_RNDN); mpfr_mul(r24875, r24858, r24858, MPFR_RNDN); mpfr_div(r24876, r24875, r24859, MPFR_RNDN); mpfr_mul(r24877, r24854, r24876, MPFR_RNDN); mpfr_sub(r24878, r24857, r24877, MPFR_RNDN); mpfr_sub(r24879, r24878, r24869, MPFR_RNDN); mpfr_mul(r24880, r24856, r24879, MPFR_RNDN); mpfr_sqrt(r24881, r24880, MPFR_RNDN); mpfr_mul(r24882, r24874, r24881, MPFR_RNDN); if (mpfr_get_si(r24853, MPFR_RNDN)) { mpfr_set(r24883, r24873, MPFR_RNDN); } else { mpfr_set(r24883, r24882, MPFR_RNDN); }; return mpfr_get_d(r24883, MPFR_RNDN); } static mpfr_t r24884, r24885, r24886, r24887, r24888, r24889, r24890, r24891, r24892, r24893, r24894, r24895, r24896, r24897, r24898, r24899, r24900, r24901, r24902, r24903, r24904, r24905, r24906, r24907, r24908, r24909, r24910, r24911, r24912, r24913, r24914, r24915, r24916; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r24884); mpfr_init_set_str(r24885, "1.0336185503231454e-290", 10, MPFR_RNDN); mpfr_init(r24886); mpfr_init_set_str(r24887, "2", 10, MPFR_RNDN); mpfr_init(r24888); mpfr_init(r24889); mpfr_init(r24890); mpfr_init(r24891); mpfr_init(r24892); mpfr_init(r24893); mpfr_init(r24894); mpfr_init(r24895); mpfr_init(r24896); mpfr_init(r24897); mpfr_init(r24898); mpfr_init(r24899); mpfr_init(r24900); mpfr_init(r24901); mpfr_init(r24902); mpfr_init(r24903); mpfr_init(r24904); mpfr_init(r24905); mpfr_init(r24906); mpfr_init(r24907); mpfr_init(r24908); mpfr_init(r24909); mpfr_init(r24910); mpfr_init(r24911); mpfr_init(r24912); mpfr_init(r24913); mpfr_init(r24914); mpfr_init(r24915); mpfr_init(r24916); } double f_dm(double n, double U, double t, double l, double Om, double U_) { mpfr_set_d(r24884, n, MPFR_RNDN); ; mpfr_set_si(r24886, mpfr_cmp(r24884, r24885) <= 0, MPFR_RNDN); ; mpfr_mul(r24888, r24887, r24884, MPFR_RNDN); mpfr_set_d(r24889, U, MPFR_RNDN); mpfr_set_d(r24890, t, MPFR_RNDN); mpfr_set_d(r24891, l, MPFR_RNDN); mpfr_set_d(r24892, Om, MPFR_RNDN); mpfr_div(r24893, r24892, r24891, MPFR_RNDN); mpfr_div(r24894, r24891, r24893, MPFR_RNDN); mpfr_mul(r24895, r24887, r24894, MPFR_RNDN); mpfr_sub(r24896, r24890, r24895, MPFR_RNDN); mpfr_div(r24897, r24891, r24892, MPFR_RNDN); mpfr_mul(r24898, r24884, r24897, MPFR_RNDN); mpfr_mul(r24899, r24898, r24897, MPFR_RNDN); mpfr_set_d(r24900, U_, MPFR_RNDN); mpfr_sub(r24901, r24889, r24900, MPFR_RNDN); mpfr_mul(r24902, r24899, r24901, MPFR_RNDN); mpfr_sub(r24903, r24896, r24902, MPFR_RNDN); mpfr_mul(r24904, r24889, r24903, MPFR_RNDN); mpfr_mul(r24905, r24888, r24904, MPFR_RNDN); mpfr_sqrt(r24906, r24905, MPFR_RNDN); mpfr_sqrt(r24907, r24888, MPFR_RNDN); mpfr_mul(r24908, r24891, r24891, MPFR_RNDN); mpfr_div(r24909, r24908, r24892, MPFR_RNDN); mpfr_mul(r24910, r24887, r24909, MPFR_RNDN); mpfr_sub(r24911, r24890, r24910, MPFR_RNDN); mpfr_sub(r24912, r24911, r24902, MPFR_RNDN); mpfr_mul(r24913, r24889, r24912, MPFR_RNDN); mpfr_sqrt(r24914, r24913, MPFR_RNDN); mpfr_mul(r24915, r24907, r24914, MPFR_RNDN); if (mpfr_get_si(r24886, MPFR_RNDN)) { mpfr_set(r24916, r24906, MPFR_RNDN); } else { mpfr_set(r24916, r24915, MPFR_RNDN); }; return mpfr_get_d(r24916, MPFR_RNDN); }