#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

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 r18098 = x;
        float r18099 = y;
        float r18100 = z;
        float r18101 = r18099 / r18100;
        float r18102 = t;
        float r18103 = r18101 * r18102;
        float r18104 = r18103 / r18102;
        float r18105 = r18098 * r18104;
        return r18105;
}

double f_id(double x, double y, double z, double t) {
        double r18106 = x;
        double r18107 = y;
        double r18108 = z;
        double r18109 = r18107 / r18108;
        double r18110 = t;
        double r18111 = r18109 * r18110;
        double r18112 = r18111 / r18110;
        double r18113 = r18106 * r18112;
        return r18113;
}


double f_of(float x, float y, float z, float t) {
        float r18114 = y;
        float r18115 = z;
        float r18116 = r18114 / r18115;
        float r18117 = t;
        float r18118 = r18116 * r18117;
        float r18119 = r18118 / r18117;
        float r18120 = -2.068601928313338e-177f;
        bool r18121 = r18119 <= r18120;
        float r18122 = 1.0f;
        float r18123 = r18122 * (r18122 * r18122);
        float r18124 = x;
        float r18125 = r18115 / r18114;
        float r18126 = r18124 / r18125;
        float r18127 = r18123 * r18126;
        float r18128 = 4.8533841877051176e-225f;
        bool r18129 = r18119 <= r18128;
        float r18130 = r18124 / r18115;
        float r18131 = r18130 * r18114;
        float r18132 = r18123 * r18131;
        float r18133 = r18129 ? r18132 : r18127;
        float r18134 = r18121 ? r18127 : r18133;
        return r18134;
}

double f_od(double x, double y, double z, double t) {
        double r18135 = y;
        double r18136 = z;
        double r18137 = r18135 / r18136;
        double r18138 = t;
        double r18139 = r18137 * r18138;
        double r18140 = r18139 / r18138;
        double r18141 = -2.068601928313338e-177;
        bool r18142 = r18140 <= r18141;
        double r18143 = 1.0;
        double r18144 = r18143 * (r18143 * r18143);
        double r18145 = x;
        double r18146 = r18136 / r18135;
        double r18147 = r18145 / r18146;
        double r18148 = r18144 * r18147;
        double r18149 = 4.8533841877051176e-225;
        bool r18150 = r18140 <= r18149;
        double r18151 = r18145 / r18136;
        double r18152 = r18151 * r18135;
        double r18153 = r18144 * r18152;
        double r18154 = r18150 ? r18153 : r18148;
        double r18155 = r18142 ? r18148 : r18154;
        return r18155;
}

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 r18156, r18157, r18158, r18159, r18160, r18161, r18162, r18163;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r18156);
        mpfr_init(r18157);
        mpfr_init(r18158);
        mpfr_init(r18159);
        mpfr_init(r18160);
        mpfr_init(r18161);
        mpfr_init(r18162);
        mpfr_init(r18163);
}

double f_im(double x, double y, double z, double t) {
        mpfr_set_d(r18156, x, MPFR_RNDN);
        mpfr_set_d(r18157, y, MPFR_RNDN);
        mpfr_set_d(r18158, z, MPFR_RNDN);
        mpfr_div(r18159, r18157, r18158, MPFR_RNDN);
        mpfr_set_d(r18160, t, MPFR_RNDN);
        mpfr_mul(r18161, r18159, r18160, MPFR_RNDN);
        mpfr_div(r18162, r18161, r18160, MPFR_RNDN);
        mpfr_mul(r18163, r18156, r18162, MPFR_RNDN);
        return mpfr_get_d(r18163, MPFR_RNDN);
}

static mpfr_t r18164, r18165, r18166, r18167, r18168, r18169, r18170, r18171, r18172, r18173, r18174, r18175, r18176, r18177, r18178, r18179, r18180, r18181, r18182, r18183, r18184;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r18164);
        mpfr_init(r18165);
        mpfr_init(r18166);
        mpfr_init(r18167);
        mpfr_init(r18168);
        mpfr_init(r18169);
        mpfr_init_set_str(r18170, "-2.068601928313338e-177", 10, MPFR_RNDN);
        mpfr_init(r18171);
        mpfr_init_set_str(r18172, "1", 10, MPFR_RNDN);
        mpfr_init(r18173);
        mpfr_init(r18174);
        mpfr_init(r18175);
        mpfr_init(r18176);
        mpfr_init(r18177);
        mpfr_init_set_str(r18178, "4.8533841877051176e-225", 10, MPFR_RNDN);
        mpfr_init(r18179);
        mpfr_init(r18180);
        mpfr_init(r18181);
        mpfr_init(r18182);
        mpfr_init(r18183);
        mpfr_init(r18184);
}

double f_fm(double x, double y, double z, double t) {
        mpfr_set_d(r18164, y, MPFR_RNDN);
        mpfr_set_d(r18165, z, MPFR_RNDN);
        mpfr_div(r18166, r18164, r18165, MPFR_RNDN);
        mpfr_set_d(r18167, t, MPFR_RNDN);
        mpfr_mul(r18168, r18166, r18167, MPFR_RNDN);
        mpfr_div(r18169, r18168, r18167, MPFR_RNDN);
        ;
        mpfr_set_si(r18171, mpfr_cmp(r18169, r18170) <= 0, MPFR_RNDN);
        ;
        mpfr_mul(r18173, r18172, r18172, MPFR_RNDN); mpfr_mul(r18173, r18173, r18172, MPFR_RNDN);
        mpfr_set_d(r18174, x, MPFR_RNDN);
        mpfr_div(r18175, r18165, r18164, MPFR_RNDN);
        mpfr_div(r18176, r18174, r18175, MPFR_RNDN);
        mpfr_mul(r18177, r18173, r18176, MPFR_RNDN);
        ;
        mpfr_set_si(r18179, mpfr_cmp(r18169, r18178) <= 0, MPFR_RNDN);
        mpfr_div(r18180, r18174, r18165, MPFR_RNDN);
        mpfr_mul(r18181, r18180, r18164, MPFR_RNDN);
        mpfr_mul(r18182, r18173, r18181, MPFR_RNDN);
        if (mpfr_get_si(r18179, MPFR_RNDN)) { mpfr_set(r18183, r18182, MPFR_RNDN); } else { mpfr_set(r18183, r18177, MPFR_RNDN); };
        if (mpfr_get_si(r18171, MPFR_RNDN)) { mpfr_set(r18184, r18177, MPFR_RNDN); } else { mpfr_set(r18184, r18183, MPFR_RNDN); };
        return mpfr_get_d(r18184, MPFR_RNDN);
}

static mpfr_t r18185, r18186, r18187, r18188, r18189, r18190, r18191, r18192, r18193, r18194, r18195, r18196, r18197, r18198, r18199, r18200, r18201, r18202, r18203, r18204, r18205;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r18185);
        mpfr_init(r18186);
        mpfr_init(r18187);
        mpfr_init(r18188);
        mpfr_init(r18189);
        mpfr_init(r18190);
        mpfr_init_set_str(r18191, "-2.068601928313338e-177", 10, MPFR_RNDN);
        mpfr_init(r18192);
        mpfr_init_set_str(r18193, "1", 10, MPFR_RNDN);
        mpfr_init(r18194);
        mpfr_init(r18195);
        mpfr_init(r18196);
        mpfr_init(r18197);
        mpfr_init(r18198);
        mpfr_init_set_str(r18199, "4.8533841877051176e-225", 10, MPFR_RNDN);
        mpfr_init(r18200);
        mpfr_init(r18201);
        mpfr_init(r18202);
        mpfr_init(r18203);
        mpfr_init(r18204);
        mpfr_init(r18205);
}

double f_dm(double x, double y, double z, double t) {
        mpfr_set_d(r18185, y, MPFR_RNDN);
        mpfr_set_d(r18186, z, MPFR_RNDN);
        mpfr_div(r18187, r18185, r18186, MPFR_RNDN);
        mpfr_set_d(r18188, t, MPFR_RNDN);
        mpfr_mul(r18189, r18187, r18188, MPFR_RNDN);
        mpfr_div(r18190, r18189, r18188, MPFR_RNDN);
        ;
        mpfr_set_si(r18192, mpfr_cmp(r18190, r18191) <= 0, MPFR_RNDN);
        ;
        mpfr_mul(r18194, r18193, r18193, MPFR_RNDN); mpfr_mul(r18194, r18194, r18193, MPFR_RNDN);
        mpfr_set_d(r18195, x, MPFR_RNDN);
        mpfr_div(r18196, r18186, r18185, MPFR_RNDN);
        mpfr_div(r18197, r18195, r18196, MPFR_RNDN);
        mpfr_mul(r18198, r18194, r18197, MPFR_RNDN);
        ;
        mpfr_set_si(r18200, mpfr_cmp(r18190, r18199) <= 0, MPFR_RNDN);
        mpfr_div(r18201, r18195, r18186, MPFR_RNDN);
        mpfr_mul(r18202, r18201, r18185, MPFR_RNDN);
        mpfr_mul(r18203, r18194, r18202, MPFR_RNDN);
        if (mpfr_get_si(r18200, MPFR_RNDN)) { mpfr_set(r18204, r18203, MPFR_RNDN); } else { mpfr_set(r18204, r18198, MPFR_RNDN); };
        if (mpfr_get_si(r18192, MPFR_RNDN)) { mpfr_set(r18205, r18198, MPFR_RNDN); } else { mpfr_set(r18205, r18204, MPFR_RNDN); };
        return mpfr_get_d(r18205, MPFR_RNDN);
}