#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 r23359 = x; float r23360 = y; float r23361 = z; float r23362 = r23360 / r23361; float r23363 = t; float r23364 = r23362 * r23363; float r23365 = r23364 / r23363; float r23366 = r23359 * r23365; return r23366; } double f_id(double x, double y, double z, double t) { double r23367 = x; double r23368 = y; double r23369 = z; double r23370 = r23368 / r23369; double r23371 = t; double r23372 = r23370 * r23371; double r23373 = r23372 / r23371; double r23374 = r23367 * r23373; return r23374; } double f_of(float x, float y, float z, float __attribute__((unused)) t) { float r23375 = y; float r23376 = x; float r23377 = r23375 * r23376; float r23378 = -8.848462821600082e+285; bool r23379 = r23377 <= r23378; float r23380 = z; float r23381 = r23376 / r23380; float r23382 = r23381 * r23375; float r23383 = -4.2284236289604585e-290; bool r23384 = r23377 <= r23383; float r23385 = r23377 / r23380; float r23386 = 7.585235682791941e-295; bool r23387 = r23377 <= r23386; float r23388 = r23380 / r23376; float r23389 = r23375 / r23388; float r23390 = expm1(r23389); float r23391 = log1p(r23390); float r23392 = 7.861310228265737e+86; bool r23393 = r23377 <= r23392; float r23394 = +inf.0; bool r23395 = r23377 <= r23394; float r23396 = r23380 / r23375; float r23397 = r23376 / r23396; float r23398 = r23395 ? r23397 : r23397; float r23399 = r23393 ? r23385 : r23398; float r23400 = r23387 ? r23391 : r23399; float r23401 = r23384 ? r23385 : r23400; float r23402 = r23379 ? r23382 : r23401; return r23402; } double f_od(double x, double y, double z, double __attribute__((unused)) t) { double r23403 = y; double r23404 = x; double r23405 = r23403 * r23404; double r23406 = -8.848462821600082e+285; bool r23407 = r23405 <= r23406; double r23408 = z; double r23409 = r23404 / r23408; double r23410 = r23409 * r23403; double r23411 = -4.2284236289604585e-290; bool r23412 = r23405 <= r23411; double r23413 = r23405 / r23408; double r23414 = 7.585235682791941e-295; bool r23415 = r23405 <= r23414; double r23416 = r23408 / r23404; double r23417 = r23403 / r23416; double r23418 = expm1(r23417); double r23419 = log1p(r23418); double r23420 = 7.861310228265737e+86; bool r23421 = r23405 <= r23420; double r23422 = +inf.0; bool r23423 = r23405 <= r23422; double r23424 = r23408 / r23403; double r23425 = r23404 / r23424; double r23426 = r23423 ? r23425 : r23425; double r23427 = r23421 ? r23413 : r23426; double r23428 = r23415 ? r23419 : r23427; double r23429 = r23412 ? r23413 : r23428; double r23430 = r23407 ? r23410 : r23429; return r23430; } 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 r23431, r23432, r23433, r23434, r23435, r23436, r23437, r23438; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init(r23431); mpfr_init(r23432); mpfr_init(r23433); mpfr_init(r23434); mpfr_init(r23435); mpfr_init(r23436); mpfr_init(r23437); mpfr_init(r23438); } double f_im(double x, double y, double z, double t) { mpfr_set_d(r23431, x, MPFR_RNDN); mpfr_set_d(r23432, y, MPFR_RNDN); mpfr_set_d(r23433, z, MPFR_RNDN); mpfr_div(r23434, r23432, r23433, MPFR_RNDN); mpfr_set_d(r23435, t, MPFR_RNDN); mpfr_mul(r23436, r23434, r23435, MPFR_RNDN); mpfr_div(r23437, r23436, r23435, MPFR_RNDN); mpfr_mul(r23438, r23431, r23437, MPFR_RNDN); return mpfr_get_d(r23438, MPFR_RNDN); } static mpfr_t r23439, r23440, r23441, r23442, r23443, r23444, r23445, r23446, r23447, r23448, r23449, r23450, r23451, r23452, r23453, r23454, r23455, r23456, r23457, r23458, r23459, r23460, r23461, r23462, r23463, r23464, r23465, r23466; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r23439); mpfr_init(r23440); mpfr_init(r23441); mpfr_init_set_str(r23442, "-8.848462821600082e+285", 10, MPFR_RNDN); mpfr_init(r23443); mpfr_init(r23444); mpfr_init(r23445); mpfr_init(r23446); mpfr_init_set_str(r23447, "-4.2284236289604585e-290", 10, MPFR_RNDN); mpfr_init(r23448); mpfr_init(r23449); mpfr_init_set_str(r23450, "7.585235682791941e-295", 10, MPFR_RNDN); mpfr_init(r23451); mpfr_init(r23452); mpfr_init(r23453); mpfr_init(r23454); mpfr_init(r23455); mpfr_init_set_str(r23456, "7.861310228265737e+86", 10, MPFR_RNDN); mpfr_init(r23457); mpfr_init_set_str(r23458, "+inf.0", 10, MPFR_RNDN); mpfr_init(r23459); mpfr_init(r23460); mpfr_init(r23461); mpfr_init(r23462); mpfr_init(r23463); mpfr_init(r23464); mpfr_init(r23465); mpfr_init(r23466); } double f_fm(double x, double y, double z, double __attribute__((unused)) t) { mpfr_set_d(r23439, y, MPFR_RNDN); mpfr_set_d(r23440, x, MPFR_RNDN); mpfr_mul(r23441, r23439, r23440, MPFR_RNDN); ; mpfr_set_si(r23443, mpfr_cmp(r23441, r23442) <= 0, MPFR_RNDN); mpfr_set_d(r23444, z, MPFR_RNDN); mpfr_div(r23445, r23440, r23444, MPFR_RNDN); mpfr_mul(r23446, r23445, r23439, MPFR_RNDN); ; mpfr_set_si(r23448, mpfr_cmp(r23441, r23447) <= 0, MPFR_RNDN); mpfr_div(r23449, r23441, r23444, MPFR_RNDN); ; mpfr_set_si(r23451, mpfr_cmp(r23441, r23450) <= 0, MPFR_RNDN); mpfr_div(r23452, r23444, r23440, MPFR_RNDN); mpfr_div(r23453, r23439, r23452, MPFR_RNDN); mpfr_expm1(r23454, r23453, MPFR_RNDN); mpfr_log1p(r23455, r23454, MPFR_RNDN); ; mpfr_set_si(r23457, mpfr_cmp(r23441, r23456) <= 0, MPFR_RNDN); ; mpfr_set_si(r23459, mpfr_cmp(r23441, r23458) <= 0, MPFR_RNDN); mpfr_div(r23460, r23444, r23439, MPFR_RNDN); mpfr_div(r23461, r23440, r23460, MPFR_RNDN); if (mpfr_get_si(r23459, MPFR_RNDN)) { mpfr_set(r23462, r23461, MPFR_RNDN); } else { mpfr_set(r23462, r23461, MPFR_RNDN); }; if (mpfr_get_si(r23457, MPFR_RNDN)) { mpfr_set(r23463, r23449, MPFR_RNDN); } else { mpfr_set(r23463, r23462, MPFR_RNDN); }; if (mpfr_get_si(r23451, MPFR_RNDN)) { mpfr_set(r23464, r23455, MPFR_RNDN); } else { mpfr_set(r23464, r23463, MPFR_RNDN); }; if (mpfr_get_si(r23448, MPFR_RNDN)) { mpfr_set(r23465, r23449, MPFR_RNDN); } else { mpfr_set(r23465, r23464, MPFR_RNDN); }; if (mpfr_get_si(r23443, MPFR_RNDN)) { mpfr_set(r23466, r23446, MPFR_RNDN); } else { mpfr_set(r23466, r23465, MPFR_RNDN); }; return mpfr_get_d(r23466, MPFR_RNDN); } static mpfr_t r23467, r23468, r23469, r23470, r23471, r23472, r23473, r23474, r23475, r23476, r23477, r23478, r23479, r23480, r23481, r23482, r23483, r23484, r23485, r23486, r23487, r23488, r23489, r23490, r23491, r23492, r23493, r23494; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r23467); mpfr_init(r23468); mpfr_init(r23469); mpfr_init_set_str(r23470, "-8.848462821600082e+285", 10, MPFR_RNDN); mpfr_init(r23471); mpfr_init(r23472); mpfr_init(r23473); mpfr_init(r23474); mpfr_init_set_str(r23475, "-4.2284236289604585e-290", 10, MPFR_RNDN); mpfr_init(r23476); mpfr_init(r23477); mpfr_init_set_str(r23478, "7.585235682791941e-295", 10, MPFR_RNDN); mpfr_init(r23479); mpfr_init(r23480); mpfr_init(r23481); mpfr_init(r23482); mpfr_init(r23483); mpfr_init_set_str(r23484, "7.861310228265737e+86", 10, MPFR_RNDN); mpfr_init(r23485); mpfr_init_set_str(r23486, "+inf.0", 10, MPFR_RNDN); mpfr_init(r23487); mpfr_init(r23488); mpfr_init(r23489); mpfr_init(r23490); mpfr_init(r23491); mpfr_init(r23492); mpfr_init(r23493); mpfr_init(r23494); } double f_dm(double x, double y, double z, double __attribute__((unused)) t) { mpfr_set_d(r23467, y, MPFR_RNDN); mpfr_set_d(r23468, x, MPFR_RNDN); mpfr_mul(r23469, r23467, r23468, MPFR_RNDN); ; mpfr_set_si(r23471, mpfr_cmp(r23469, r23470) <= 0, MPFR_RNDN); mpfr_set_d(r23472, z, MPFR_RNDN); mpfr_div(r23473, r23468, r23472, MPFR_RNDN); mpfr_mul(r23474, r23473, r23467, MPFR_RNDN); ; mpfr_set_si(r23476, mpfr_cmp(r23469, r23475) <= 0, MPFR_RNDN); mpfr_div(r23477, r23469, r23472, MPFR_RNDN); ; mpfr_set_si(r23479, mpfr_cmp(r23469, r23478) <= 0, MPFR_RNDN); mpfr_div(r23480, r23472, r23468, MPFR_RNDN); mpfr_div(r23481, r23467, r23480, MPFR_RNDN); mpfr_expm1(r23482, r23481, MPFR_RNDN); mpfr_log1p(r23483, r23482, MPFR_RNDN); ; mpfr_set_si(r23485, mpfr_cmp(r23469, r23484) <= 0, MPFR_RNDN); ; mpfr_set_si(r23487, mpfr_cmp(r23469, r23486) <= 0, MPFR_RNDN); mpfr_div(r23488, r23472, r23467, MPFR_RNDN); mpfr_div(r23489, r23468, r23488, MPFR_RNDN); if (mpfr_get_si(r23487, MPFR_RNDN)) { mpfr_set(r23490, r23489, MPFR_RNDN); } else { mpfr_set(r23490, r23489, MPFR_RNDN); }; if (mpfr_get_si(r23485, MPFR_RNDN)) { mpfr_set(r23491, r23477, MPFR_RNDN); } else { mpfr_set(r23491, r23490, MPFR_RNDN); }; if (mpfr_get_si(r23479, MPFR_RNDN)) { mpfr_set(r23492, r23483, MPFR_RNDN); } else { mpfr_set(r23492, r23491, MPFR_RNDN); }; if (mpfr_get_si(r23476, MPFR_RNDN)) { mpfr_set(r23493, r23477, MPFR_RNDN); } else { mpfr_set(r23493, r23492, MPFR_RNDN); }; if (mpfr_get_si(r23471, MPFR_RNDN)) { mpfr_set(r23494, r23474, MPFR_RNDN); } else { mpfr_set(r23494, r23493, MPFR_RNDN); }; return mpfr_get_d(r23494, MPFR_RNDN); }