#include #include #include #include #include char *name = "Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1"; double f_if(float x, float y, float z, float t) { float r21915 = x; float r21916 = y; float r21917 = z; float r21918 = r21916 / r21917; float r21919 = t; float r21920 = r21918 * r21919; float r21921 = r21920 / r21919; float r21922 = r21915 * r21921; return r21922; } double f_id(double x, double y, double z, double t) { double r21923 = x; double r21924 = y; double r21925 = z; double r21926 = r21924 / r21925; double r21927 = t; double r21928 = r21926 * r21927; double r21929 = r21928 / r21927; double r21930 = r21923 * r21929; return r21930; } double f_of(float x, float y, float z, float t) { float r21931 = y; float r21932 = z; float r21933 = r21931 / r21932; float r21934 = t; float r21935 = r21933 * r21934; float r21936 = r21935 / r21934; float r21937 = -inf.0; bool r21938 = r21936 <= r21937; float r21939 = x; float r21940 = r21939 / r21932; float r21941 = r21940 * r21931; float r21942 = -2.7505505696020006e-105; bool r21943 = r21936 <= r21942; float r21944 = r21939 * r21933; float r21945 = 2.609628973841185e-242; bool r21946 = r21936 <= r21945; float r21947 = r21931 * r21939; float r21948 = r21947 / r21932; float r21949 = 3.155977372622876e+100; bool r21950 = r21936 <= r21949; float r21951 = r21950 ? r21944 : r21948; float r21952 = r21946 ? r21948 : r21951; float r21953 = r21943 ? r21944 : r21952; float r21954 = r21938 ? r21941 : r21953; return r21954; } double f_od(double x, double y, double z, double t) { double r21955 = y; double r21956 = z; double r21957 = r21955 / r21956; double r21958 = t; double r21959 = r21957 * r21958; double r21960 = r21959 / r21958; double r21961 = -inf.0; bool r21962 = r21960 <= r21961; double r21963 = x; double r21964 = r21963 / r21956; double r21965 = r21964 * r21955; double r21966 = -2.7505505696020006e-105; bool r21967 = r21960 <= r21966; double r21968 = r21963 * r21957; double r21969 = 2.609628973841185e-242; bool r21970 = r21960 <= r21969; double r21971 = r21955 * r21963; double r21972 = r21971 / r21956; double r21973 = 3.155977372622876e+100; bool r21974 = r21960 <= r21973; double r21975 = r21974 ? r21968 : r21972; double r21976 = r21970 ? r21972 : r21975; double r21977 = r21967 ? r21968 : r21976; double r21978 = r21962 ? r21965 : r21977; return r21978; } 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 r21979, r21980, r21981, r21982, r21983, r21984, r21985, r21986; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init(r21979); mpfr_init(r21980); mpfr_init(r21981); mpfr_init(r21982); mpfr_init(r21983); mpfr_init(r21984); mpfr_init(r21985); mpfr_init(r21986); } double f_im(double x, double y, double z, double t) { mpfr_set_d(r21979, x, MPFR_RNDN); mpfr_set_d(r21980, y, MPFR_RNDN); mpfr_set_d(r21981, z, MPFR_RNDN); mpfr_div(r21982, r21980, r21981, MPFR_RNDN); mpfr_set_d(r21983, t, MPFR_RNDN); mpfr_mul(r21984, r21982, r21983, MPFR_RNDN); mpfr_div(r21985, r21984, r21983, MPFR_RNDN); mpfr_mul(r21986, r21979, r21985, MPFR_RNDN); return mpfr_get_d(r21986, MPFR_RNDN); } static mpfr_t r21987, r21988, r21989, r21990, r21991, r21992, r21993, r21994, r21995, r21996, r21997, r21998, r21999, r22000, r22001, r22002, r22003, r22004, r22005, r22006, r22007, r22008, r22009, r22010; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r21987); mpfr_init(r21988); mpfr_init(r21989); mpfr_init(r21990); mpfr_init(r21991); mpfr_init(r21992); mpfr_init_set_str(r21993, "-inf.0", 10, MPFR_RNDN); mpfr_init(r21994); mpfr_init(r21995); mpfr_init(r21996); mpfr_init(r21997); mpfr_init_set_str(r21998, "-2.7505505696020006e-105", 10, MPFR_RNDN); mpfr_init(r21999); mpfr_init(r22000); mpfr_init_set_str(r22001, "2.609628973841185e-242", 10, MPFR_RNDN); mpfr_init(r22002); mpfr_init(r22003); mpfr_init(r22004); mpfr_init_set_str(r22005, "3.155977372622876e+100", 10, MPFR_RNDN); mpfr_init(r22006); mpfr_init(r22007); mpfr_init(r22008); mpfr_init(r22009); mpfr_init(r22010); } double f_fm(double x, double y, double z, double t) { mpfr_set_d(r21987, y, MPFR_RNDN); mpfr_set_d(r21988, z, MPFR_RNDN); mpfr_div(r21989, r21987, r21988, MPFR_RNDN); mpfr_set_d(r21990, t, MPFR_RNDN); mpfr_mul(r21991, r21989, r21990, MPFR_RNDN); mpfr_div(r21992, r21991, r21990, MPFR_RNDN); ; mpfr_set_si(r21994, mpfr_cmp(r21992, r21993) <= 0, MPFR_RNDN); mpfr_set_d(r21995, x, MPFR_RNDN); mpfr_div(r21996, r21995, r21988, MPFR_RNDN); mpfr_mul(r21997, r21996, r21987, MPFR_RNDN); ; mpfr_set_si(r21999, mpfr_cmp(r21992, r21998) <= 0, MPFR_RNDN); mpfr_mul(r22000, r21995, r21989, MPFR_RNDN); ; mpfr_set_si(r22002, mpfr_cmp(r21992, r22001) <= 0, MPFR_RNDN); mpfr_mul(r22003, r21987, r21995, MPFR_RNDN); mpfr_div(r22004, r22003, r21988, MPFR_RNDN); ; mpfr_set_si(r22006, mpfr_cmp(r21992, r22005) <= 0, MPFR_RNDN); if (mpfr_get_si(r22006, MPFR_RNDN)) { mpfr_set(r22007, r22000, MPFR_RNDN); } else { mpfr_set(r22007, r22004, MPFR_RNDN); }; if (mpfr_get_si(r22002, MPFR_RNDN)) { mpfr_set(r22008, r22004, MPFR_RNDN); } else { mpfr_set(r22008, r22007, MPFR_RNDN); }; if (mpfr_get_si(r21999, MPFR_RNDN)) { mpfr_set(r22009, r22000, MPFR_RNDN); } else { mpfr_set(r22009, r22008, MPFR_RNDN); }; if (mpfr_get_si(r21994, MPFR_RNDN)) { mpfr_set(r22010, r21997, MPFR_RNDN); } else { mpfr_set(r22010, r22009, MPFR_RNDN); }; return mpfr_get_d(r22010, MPFR_RNDN); } static mpfr_t r22011, r22012, r22013, r22014, r22015, r22016, r22017, r22018, r22019, r22020, r22021, r22022, r22023, r22024, r22025, r22026, r22027, r22028, r22029, r22030, r22031, r22032, r22033, r22034; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r22011); mpfr_init(r22012); mpfr_init(r22013); mpfr_init(r22014); mpfr_init(r22015); mpfr_init(r22016); mpfr_init_set_str(r22017, "-inf.0", 10, MPFR_RNDN); mpfr_init(r22018); mpfr_init(r22019); mpfr_init(r22020); mpfr_init(r22021); mpfr_init_set_str(r22022, "-2.7505505696020006e-105", 10, MPFR_RNDN); mpfr_init(r22023); mpfr_init(r22024); mpfr_init_set_str(r22025, "2.609628973841185e-242", 10, MPFR_RNDN); mpfr_init(r22026); mpfr_init(r22027); mpfr_init(r22028); mpfr_init_set_str(r22029, "3.155977372622876e+100", 10, MPFR_RNDN); mpfr_init(r22030); mpfr_init(r22031); mpfr_init(r22032); mpfr_init(r22033); mpfr_init(r22034); } double f_dm(double x, double y, double z, double t) { mpfr_set_d(r22011, y, MPFR_RNDN); mpfr_set_d(r22012, z, MPFR_RNDN); mpfr_div(r22013, r22011, r22012, MPFR_RNDN); mpfr_set_d(r22014, t, MPFR_RNDN); mpfr_mul(r22015, r22013, r22014, MPFR_RNDN); mpfr_div(r22016, r22015, r22014, MPFR_RNDN); ; mpfr_set_si(r22018, mpfr_cmp(r22016, r22017) <= 0, MPFR_RNDN); mpfr_set_d(r22019, x, MPFR_RNDN); mpfr_div(r22020, r22019, r22012, MPFR_RNDN); mpfr_mul(r22021, r22020, r22011, MPFR_RNDN); ; mpfr_set_si(r22023, mpfr_cmp(r22016, r22022) <= 0, MPFR_RNDN); mpfr_mul(r22024, r22019, r22013, MPFR_RNDN); ; mpfr_set_si(r22026, mpfr_cmp(r22016, r22025) <= 0, MPFR_RNDN); mpfr_mul(r22027, r22011, r22019, MPFR_RNDN); mpfr_div(r22028, r22027, r22012, MPFR_RNDN); ; mpfr_set_si(r22030, mpfr_cmp(r22016, r22029) <= 0, MPFR_RNDN); if (mpfr_get_si(r22030, MPFR_RNDN)) { mpfr_set(r22031, r22024, MPFR_RNDN); } else { mpfr_set(r22031, r22028, MPFR_RNDN); }; if (mpfr_get_si(r22026, MPFR_RNDN)) { mpfr_set(r22032, r22028, MPFR_RNDN); } else { mpfr_set(r22032, r22031, MPFR_RNDN); }; if (mpfr_get_si(r22023, MPFR_RNDN)) { mpfr_set(r22033, r22024, MPFR_RNDN); } else { mpfr_set(r22033, r22032, MPFR_RNDN); }; if (mpfr_get_si(r22018, MPFR_RNDN)) { mpfr_set(r22034, r22021, MPFR_RNDN); } else { mpfr_set(r22034, r22033, MPFR_RNDN); }; return mpfr_get_d(r22034, MPFR_RNDN); }