#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 r17585 = x; float r17586 = y; float r17587 = z; float r17588 = r17586 / r17587; float r17589 = t; float r17590 = r17588 * r17589; float r17591 = r17590 / r17589; float r17592 = r17585 * r17591; return r17592; } double f_id(double x, double y, double z, double t) { double r17593 = x; double r17594 = y; double r17595 = z; double r17596 = r17594 / r17595; double r17597 = t; double r17598 = r17596 * r17597; double r17599 = r17598 / r17597; double r17600 = r17593 * r17599; return r17600; } double f_of(float x, float y, float z, float t) { float r17601 = y; float r17602 = z; float r17603 = r17601 / r17602; float r17604 = t; float r17605 = r17603 * r17604; float r17606 = r17605 / r17604; float r17607 = -1.981822314854173e-301f; bool r17608 = r17606 <= r17607; float r17609 = x; float r17610 = r17609 * r17603; float r17611 = 3.707558976003304e-304f; bool r17612 = r17606 <= r17611; float r17613 = r17601 * r17609; float r17614 = r17613 / r17602; float r17615 = 3.3305262352552325e+148f; bool r17616 = r17606 <= r17615; float r17617 = 1.0f; float r17618 = r17617 * (r17617 * r17617); float r17619 = r17602 / r17601; float r17620 = r17609 / r17619; float r17621 = r17618 * r17620; float r17622 = r17616 ? r17621 : r17614; float r17623 = r17612 ? r17614 : r17622; float r17624 = r17608 ? r17610 : r17623; return r17624; } double f_od(double x, double y, double z, double t) { double r17625 = y; double r17626 = z; double r17627 = r17625 / r17626; double r17628 = t; double r17629 = r17627 * r17628; double r17630 = r17629 / r17628; double r17631 = -1.981822314854173e-301; bool r17632 = r17630 <= r17631; double r17633 = x; double r17634 = r17633 * r17627; double r17635 = 3.707558976003304e-304; bool r17636 = r17630 <= r17635; double r17637 = r17625 * r17633; double r17638 = r17637 / r17626; double r17639 = 3.3305262352552325e+148; bool r17640 = r17630 <= r17639; double r17641 = 1.0; double r17642 = r17641 * (r17641 * r17641); double r17643 = r17626 / r17625; double r17644 = r17633 / r17643; double r17645 = r17642 * r17644; double r17646 = r17640 ? r17645 : r17638; double r17647 = r17636 ? r17638 : r17646; double r17648 = r17632 ? r17634 : r17647; return r17648; } 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 r17649, r17650, r17651, r17652, r17653, r17654, r17655, r17656; void setup_mpfr_f_im() { mpfr_set_default_prec(144); mpfr_init(r17649); mpfr_init(r17650); mpfr_init(r17651); mpfr_init(r17652); mpfr_init(r17653); mpfr_init(r17654); mpfr_init(r17655); mpfr_init(r17656); } double f_im(double x, double y, double z, double t) { mpfr_set_d(r17649, x, MPFR_RNDN); mpfr_set_d(r17650, y, MPFR_RNDN); mpfr_set_d(r17651, z, MPFR_RNDN); mpfr_div(r17652, r17650, r17651, MPFR_RNDN); mpfr_set_d(r17653, t, MPFR_RNDN); mpfr_mul(r17654, r17652, r17653, MPFR_RNDN); mpfr_div(r17655, r17654, r17653, MPFR_RNDN); mpfr_mul(r17656, r17649, r17655, MPFR_RNDN); return mpfr_get_d(r17656, MPFR_RNDN); } static mpfr_t r17657, r17658, r17659, r17660, r17661, r17662, r17663, r17664, r17665, r17666, r17667, r17668, r17669, r17670, r17671, r17672, r17673, r17674, r17675, r17676, r17677, r17678, r17679, r17680; void setup_mpfr_f_fm() { mpfr_set_default_prec(144); mpfr_init(r17657); mpfr_init(r17658); mpfr_init(r17659); mpfr_init(r17660); mpfr_init(r17661); mpfr_init(r17662); mpfr_init_set_str(r17663, "-1.981822314854173e-301", 10, MPFR_RNDN); mpfr_init(r17664); mpfr_init(r17665); mpfr_init(r17666); mpfr_init_set_str(r17667, "3.707558976003304e-304", 10, MPFR_RNDN); mpfr_init(r17668); mpfr_init(r17669); mpfr_init(r17670); mpfr_init_set_str(r17671, "3.3305262352552325e+148", 10, MPFR_RNDN); mpfr_init(r17672); mpfr_init_set_str(r17673, "1", 10, MPFR_RNDN); mpfr_init(r17674); mpfr_init(r17675); mpfr_init(r17676); mpfr_init(r17677); mpfr_init(r17678); mpfr_init(r17679); mpfr_init(r17680); } double f_fm(double x, double y, double z, double t) { mpfr_set_d(r17657, y, MPFR_RNDN); mpfr_set_d(r17658, z, MPFR_RNDN); mpfr_div(r17659, r17657, r17658, MPFR_RNDN); mpfr_set_d(r17660, t, MPFR_RNDN); mpfr_mul(r17661, r17659, r17660, MPFR_RNDN); mpfr_div(r17662, r17661, r17660, MPFR_RNDN); ; mpfr_set_si(r17664, mpfr_cmp(r17662, r17663) <= 0, MPFR_RNDN); mpfr_set_d(r17665, x, MPFR_RNDN); mpfr_mul(r17666, r17665, r17659, MPFR_RNDN); ; mpfr_set_si(r17668, mpfr_cmp(r17662, r17667) <= 0, MPFR_RNDN); mpfr_mul(r17669, r17657, r17665, MPFR_RNDN); mpfr_div(r17670, r17669, r17658, MPFR_RNDN); ; mpfr_set_si(r17672, mpfr_cmp(r17662, r17671) <= 0, MPFR_RNDN); ; mpfr_mul(r17674, r17673, r17673, MPFR_RNDN); mpfr_mul(r17674, r17674, r17673, MPFR_RNDN); mpfr_div(r17675, r17658, r17657, MPFR_RNDN); mpfr_div(r17676, r17665, r17675, MPFR_RNDN); mpfr_mul(r17677, r17674, r17676, MPFR_RNDN); if (mpfr_get_si(r17672, MPFR_RNDN)) { mpfr_set(r17678, r17677, MPFR_RNDN); } else { mpfr_set(r17678, r17670, MPFR_RNDN); }; if (mpfr_get_si(r17668, MPFR_RNDN)) { mpfr_set(r17679, r17670, MPFR_RNDN); } else { mpfr_set(r17679, r17678, MPFR_RNDN); }; if (mpfr_get_si(r17664, MPFR_RNDN)) { mpfr_set(r17680, r17666, MPFR_RNDN); } else { mpfr_set(r17680, r17679, MPFR_RNDN); }; return mpfr_get_d(r17680, MPFR_RNDN); } static mpfr_t r17681, r17682, r17683, r17684, r17685, r17686, r17687, r17688, r17689, r17690, r17691, r17692, r17693, r17694, r17695, r17696, r17697, r17698, r17699, r17700, r17701, r17702, r17703, r17704; void setup_mpfr_f_dm() { mpfr_set_default_prec(144); mpfr_init(r17681); mpfr_init(r17682); mpfr_init(r17683); mpfr_init(r17684); mpfr_init(r17685); mpfr_init(r17686); mpfr_init_set_str(r17687, "-1.981822314854173e-301", 10, MPFR_RNDN); mpfr_init(r17688); mpfr_init(r17689); mpfr_init(r17690); mpfr_init_set_str(r17691, "3.707558976003304e-304", 10, MPFR_RNDN); mpfr_init(r17692); mpfr_init(r17693); mpfr_init(r17694); mpfr_init_set_str(r17695, "3.3305262352552325e+148", 10, MPFR_RNDN); mpfr_init(r17696); mpfr_init_set_str(r17697, "1", 10, MPFR_RNDN); mpfr_init(r17698); mpfr_init(r17699); mpfr_init(r17700); mpfr_init(r17701); mpfr_init(r17702); mpfr_init(r17703); mpfr_init(r17704); } double f_dm(double x, double y, double z, double t) { mpfr_set_d(r17681, y, MPFR_RNDN); mpfr_set_d(r17682, z, MPFR_RNDN); mpfr_div(r17683, r17681, r17682, MPFR_RNDN); mpfr_set_d(r17684, t, MPFR_RNDN); mpfr_mul(r17685, r17683, r17684, MPFR_RNDN); mpfr_div(r17686, r17685, r17684, MPFR_RNDN); ; mpfr_set_si(r17688, mpfr_cmp(r17686, r17687) <= 0, MPFR_RNDN); mpfr_set_d(r17689, x, MPFR_RNDN); mpfr_mul(r17690, r17689, r17683, MPFR_RNDN); ; mpfr_set_si(r17692, mpfr_cmp(r17686, r17691) <= 0, MPFR_RNDN); mpfr_mul(r17693, r17681, r17689, MPFR_RNDN); mpfr_div(r17694, r17693, r17682, MPFR_RNDN); ; mpfr_set_si(r17696, mpfr_cmp(r17686, r17695) <= 0, MPFR_RNDN); ; mpfr_mul(r17698, r17697, r17697, MPFR_RNDN); mpfr_mul(r17698, r17698, r17697, MPFR_RNDN); mpfr_div(r17699, r17682, r17681, MPFR_RNDN); mpfr_div(r17700, r17689, r17699, MPFR_RNDN); mpfr_mul(r17701, r17698, r17700, MPFR_RNDN); if (mpfr_get_si(r17696, MPFR_RNDN)) { mpfr_set(r17702, r17701, MPFR_RNDN); } else { mpfr_set(r17702, r17694, MPFR_RNDN); }; if (mpfr_get_si(r17692, MPFR_RNDN)) { mpfr_set(r17703, r17694, MPFR_RNDN); } else { mpfr_set(r17703, r17702, MPFR_RNDN); }; if (mpfr_get_si(r17688, MPFR_RNDN)) { mpfr_set(r17704, r17690, MPFR_RNDN); } else { mpfr_set(r17704, r17703, MPFR_RNDN); }; return mpfr_get_d(r17704, MPFR_RNDN); }