#include #include #include #include #include char *name = "Hakyll.Web.Tags:renderTagCloud from hakyll-4.7.2.3"; double f_if(float x, float y, float z, float t, float a) { float r16731 = x; float r16732 = y; float r16733 = z; float r16734 = r16732 - r16733; float r16735 = t; float r16736 = 1.0f; float r16737 = r16735 + r16736; float r16738 = r16737 - r16733; float r16739 = r16734 / r16738; float r16740 = a; float r16741 = r16740 - r16731; float r16742 = r16739 * r16741; float r16743 = r16731 + r16742; return r16743; } double f_id(double x, double y, double z, double t, double a) { double r16744 = x; double r16745 = y; double r16746 = z; double r16747 = r16745 - r16746; double r16748 = t; double r16749 = 1.0; double r16750 = r16748 + r16749; double r16751 = r16750 - r16746; double r16752 = r16747 / r16751; double r16753 = a; double r16754 = r16753 - r16744; double r16755 = r16752 * r16754; double r16756 = r16744 + r16755; return r16756; } double f_of(float x, float y, float z, float t, float a) { float r16757 = z; float r16758 = -1.1200702374891714e+279f; bool r16759 = r16757 <= r16758; float r16760 = y; float r16761 = r16760 / r16757; float r16762 = x; float r16763 = a; float r16764 = fma(r16761, r16762, r16763); float r16765 = r16757 / r16763; float r16766 = r16760 / r16765; float r16767 = r16764 - r16766; float r16768 = 9.019727682954405e+206f; bool r16769 = r16757 <= r16768; float r16770 = r16763 - r16762; float r16771 = r16760 - r16757; float r16772 = 1.0f; float r16773 = t; float r16774 = r16772 + r16773; float r16775 = r16774 - r16757; float r16776 = r16771 / r16775; float r16777 = fma(r16770, r16776, r16762); float r16778 = r16769 ? r16777 : r16767; float r16779 = r16759 ? r16767 : r16778; return r16779; } double f_od(double x, double y, double z, double t, double a) { double r16780 = z; double r16781 = -1.1200702374891714e+279; bool r16782 = r16780 <= r16781; double r16783 = y; double r16784 = r16783 / r16780; double r16785 = x; double r16786 = a; double r16787 = fma(r16784, r16785, r16786); double r16788 = r16780 / r16786; double r16789 = r16783 / r16788; double r16790 = r16787 - r16789; double r16791 = 9.019727682954405e+206; bool r16792 = r16780 <= r16791; double r16793 = r16786 - r16785; double r16794 = r16783 - r16780; double r16795 = 1.0; double r16796 = t; double r16797 = r16795 + r16796; double r16798 = r16797 - r16780; double r16799 = r16794 / r16798; double r16800 = fma(r16793, r16799, r16785); double r16801 = r16792 ? r16800 : r16790; double r16802 = r16782 ? r16790 : r16801; return r16802; } 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 r16803, r16804, r16805, r16806, r16807, r16808, r16809, r16810, r16811, r16812, r16813, r16814, r16815; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r16803); mpfr_init(r16804); mpfr_init(r16805); mpfr_init(r16806); mpfr_init(r16807); mpfr_init_set_str(r16808, "1.0", 10, MPFR_RNDN); mpfr_init(r16809); mpfr_init(r16810); mpfr_init(r16811); mpfr_init(r16812); mpfr_init(r16813); mpfr_init(r16814); mpfr_init(r16815); } double f_im(double x, double y, double z, double t, double a) { mpfr_set_d(r16803, x, MPFR_RNDN); mpfr_set_d(r16804, y, MPFR_RNDN); mpfr_set_d(r16805, z, MPFR_RNDN); mpfr_sub(r16806, r16804, r16805, MPFR_RNDN); mpfr_set_d(r16807, t, MPFR_RNDN); ; mpfr_add(r16809, r16807, r16808, MPFR_RNDN); mpfr_sub(r16810, r16809, r16805, MPFR_RNDN); mpfr_div(r16811, r16806, r16810, MPFR_RNDN); mpfr_set_d(r16812, a, MPFR_RNDN); mpfr_sub(r16813, r16812, r16803, MPFR_RNDN); mpfr_mul(r16814, r16811, r16813, MPFR_RNDN); mpfr_add(r16815, r16803, r16814, MPFR_RNDN); return mpfr_get_d(r16815, MPFR_RNDN); } static mpfr_t r16816, r16817, r16818, r16819, r16820, r16821, r16822, r16823, r16824, r16825, r16826, r16827, r16828, r16829, r16830, r16831, r16832, r16833, r16834, r16835, r16836, r16837, r16838; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r16816); mpfr_init_set_str(r16817, "-1.1200702374891714e+279", 10, MPFR_RNDN); mpfr_init(r16818); mpfr_init(r16819); mpfr_init(r16820); mpfr_init(r16821); mpfr_init(r16822); mpfr_init(r16823); mpfr_init(r16824); mpfr_init(r16825); mpfr_init(r16826); mpfr_init_set_str(r16827, "9.019727682954405e+206", 10, MPFR_RNDN); mpfr_init(r16828); mpfr_init(r16829); mpfr_init(r16830); mpfr_init_set_str(r16831, "1.0", 10, MPFR_RNDN); mpfr_init(r16832); mpfr_init(r16833); mpfr_init(r16834); mpfr_init(r16835); mpfr_init(r16836); mpfr_init(r16837); mpfr_init(r16838); } double f_fm(double x, double y, double z, double t, double a) { mpfr_set_d(r16816, z, MPFR_RNDN); ; mpfr_set_si(r16818, mpfr_cmp(r16816, r16817) <= 0, MPFR_RNDN); mpfr_set_d(r16819, y, MPFR_RNDN); mpfr_div(r16820, r16819, r16816, MPFR_RNDN); mpfr_set_d(r16821, x, MPFR_RNDN); mpfr_set_d(r16822, a, MPFR_RNDN); mpfr_fma(r16823, r16820, r16821, r16822, MPFR_RNDN); mpfr_div(r16824, r16816, r16822, MPFR_RNDN); mpfr_div(r16825, r16819, r16824, MPFR_RNDN); mpfr_sub(r16826, r16823, r16825, MPFR_RNDN); ; mpfr_set_si(r16828, mpfr_cmp(r16816, r16827) <= 0, MPFR_RNDN); mpfr_sub(r16829, r16822, r16821, MPFR_RNDN); mpfr_sub(r16830, r16819, r16816, MPFR_RNDN); ; mpfr_set_d(r16832, t, MPFR_RNDN); mpfr_add(r16833, r16831, r16832, MPFR_RNDN); mpfr_sub(r16834, r16833, r16816, MPFR_RNDN); mpfr_div(r16835, r16830, r16834, MPFR_RNDN); mpfr_fma(r16836, r16829, r16835, r16821, MPFR_RNDN); if (mpfr_get_si(r16828, MPFR_RNDN)) { mpfr_set(r16837, r16836, MPFR_RNDN); } else { mpfr_set(r16837, r16826, MPFR_RNDN); }; if (mpfr_get_si(r16818, MPFR_RNDN)) { mpfr_set(r16838, r16826, MPFR_RNDN); } else { mpfr_set(r16838, r16837, MPFR_RNDN); }; return mpfr_get_d(r16838, MPFR_RNDN); } static mpfr_t r16839, r16840, r16841, r16842, r16843, r16844, r16845, r16846, r16847, r16848, r16849, r16850, r16851, r16852, r16853, r16854, r16855, r16856, r16857, r16858, r16859, r16860, r16861; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r16839); mpfr_init_set_str(r16840, "-1.1200702374891714e+279", 10, MPFR_RNDN); mpfr_init(r16841); mpfr_init(r16842); mpfr_init(r16843); mpfr_init(r16844); mpfr_init(r16845); mpfr_init(r16846); mpfr_init(r16847); mpfr_init(r16848); mpfr_init(r16849); mpfr_init_set_str(r16850, "9.019727682954405e+206", 10, MPFR_RNDN); mpfr_init(r16851); mpfr_init(r16852); mpfr_init(r16853); mpfr_init_set_str(r16854, "1.0", 10, MPFR_RNDN); mpfr_init(r16855); mpfr_init(r16856); mpfr_init(r16857); mpfr_init(r16858); mpfr_init(r16859); mpfr_init(r16860); mpfr_init(r16861); } double f_dm(double x, double y, double z, double t, double a) { mpfr_set_d(r16839, z, MPFR_RNDN); ; mpfr_set_si(r16841, mpfr_cmp(r16839, r16840) <= 0, MPFR_RNDN); mpfr_set_d(r16842, y, MPFR_RNDN); mpfr_div(r16843, r16842, r16839, MPFR_RNDN); mpfr_set_d(r16844, x, MPFR_RNDN); mpfr_set_d(r16845, a, MPFR_RNDN); mpfr_fma(r16846, r16843, r16844, r16845, MPFR_RNDN); mpfr_div(r16847, r16839, r16845, MPFR_RNDN); mpfr_div(r16848, r16842, r16847, MPFR_RNDN); mpfr_sub(r16849, r16846, r16848, MPFR_RNDN); ; mpfr_set_si(r16851, mpfr_cmp(r16839, r16850) <= 0, MPFR_RNDN); mpfr_sub(r16852, r16845, r16844, MPFR_RNDN); mpfr_sub(r16853, r16842, r16839, MPFR_RNDN); ; mpfr_set_d(r16855, t, MPFR_RNDN); mpfr_add(r16856, r16854, r16855, MPFR_RNDN); mpfr_sub(r16857, r16856, r16839, MPFR_RNDN); mpfr_div(r16858, r16853, r16857, MPFR_RNDN); mpfr_fma(r16859, r16852, r16858, r16844, MPFR_RNDN); if (mpfr_get_si(r16851, MPFR_RNDN)) { mpfr_set(r16860, r16859, MPFR_RNDN); } else { mpfr_set(r16860, r16849, MPFR_RNDN); }; if (mpfr_get_si(r16841, MPFR_RNDN)) { mpfr_set(r16861, r16849, MPFR_RNDN); } else { mpfr_set(r16861, r16860, MPFR_RNDN); }; return mpfr_get_d(r16861, MPFR_RNDN); }