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

char *name = "Henrywood and Agarwal, Equation (3)";

double f_if(float c0, float A, float V, float l) {
        float r23230 = c0;
        float r23231 = A;
        float r23232 = V;
        float r23233 = l;
        float r23234 = r23232 * r23233;
        float r23235 = r23231 / r23234;
        float r23236 = sqrt(r23235);
        float r23237 = r23230 * r23236;
        return r23237;
}

double f_id(double c0, double A, double V, double l) {
        double r23238 = c0;
        double r23239 = A;
        double r23240 = V;
        double r23241 = l;
        double r23242 = r23240 * r23241;
        double r23243 = r23239 / r23242;
        double r23244 = sqrt(r23243);
        double r23245 = r23238 * r23244;
        return r23245;
}


double f_of(float c0, float A, float V, float l) {
        float r23246 = A;
        float r23247 = V;
        float r23248 = r23246 / r23247;
        float r23249 = -inf.0;
        bool r23250 = r23248 <= r23249;
        float r23251 = c0;
        float r23252 = l;
        float r23253 = r23246 / r23252;
        float r23254 = sqrt(r23253);
        float r23255 = sqrt(r23247);
        float r23256 = r23254 / r23255;
        float r23257 = r23251 * r23256;
        float r23258 = -8.662013682143746e-304;
        bool r23259 = r23248 <= r23258;
        float r23260 = 1;
        float r23261 = r23260 / r23252;
        float r23262 = r23248 * r23261;
        float r23263 = sqrt(r23262);
        float r23264 = r23251 * r23263;
        float r23265 = 2.4578593314605e-315;
        bool r23266 = r23248 <= r23265;
        float r23267 = r23247 * r23252;
        float r23268 = r23260 / r23267;
        float r23269 = r23246 * r23268;
        float r23270 = sqrt(r23269);
        float r23271 = r23251 * r23270;
        float r23272 = 3.33359585043328e+268;
        bool r23273 = r23248 <= r23272;
        float r23274 = sqrt(r23248);
        float r23275 = r23251 * r23274;
        float r23276 = sqrt(r23252);
        float r23277 = r23275 / r23276;
        float r23278 = r23273 ? r23277 : r23271;
        float r23279 = r23266 ? r23271 : r23278;
        float r23280 = r23259 ? r23264 : r23279;
        float r23281 = r23250 ? r23257 : r23280;
        return r23281;
}

double f_od(double c0, double A, double V, double l) {
        double r23282 = A;
        double r23283 = V;
        double r23284 = r23282 / r23283;
        double r23285 = -inf.0;
        bool r23286 = r23284 <= r23285;
        double r23287 = c0;
        double r23288 = l;
        double r23289 = r23282 / r23288;
        double r23290 = sqrt(r23289);
        double r23291 = sqrt(r23283);
        double r23292 = r23290 / r23291;
        double r23293 = r23287 * r23292;
        double r23294 = -8.662013682143746e-304;
        bool r23295 = r23284 <= r23294;
        double r23296 = 1;
        double r23297 = r23296 / r23288;
        double r23298 = r23284 * r23297;
        double r23299 = sqrt(r23298);
        double r23300 = r23287 * r23299;
        double r23301 = 2.4578593314605e-315;
        bool r23302 = r23284 <= r23301;
        double r23303 = r23283 * r23288;
        double r23304 = r23296 / r23303;
        double r23305 = r23282 * r23304;
        double r23306 = sqrt(r23305);
        double r23307 = r23287 * r23306;
        double r23308 = 3.33359585043328e+268;
        bool r23309 = r23284 <= r23308;
        double r23310 = sqrt(r23284);
        double r23311 = r23287 * r23310;
        double r23312 = sqrt(r23288);
        double r23313 = r23311 / r23312;
        double r23314 = r23309 ? r23313 : r23307;
        double r23315 = r23302 ? r23307 : r23314;
        double r23316 = r23295 ? r23300 : r23315;
        double r23317 = r23286 ? r23293 : r23316;
        return r23317;
}

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 r23318, r23319, r23320, r23321, r23322, r23323, r23324, r23325;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r23318);
        mpfr_init(r23319);
        mpfr_init(r23320);
        mpfr_init(r23321);
        mpfr_init(r23322);
        mpfr_init(r23323);
        mpfr_init(r23324);
        mpfr_init(r23325);
}

double f_im(double c0, double A, double V, double l) {
        mpfr_set_d(r23318, c0, MPFR_RNDN);
        mpfr_set_d(r23319, A, MPFR_RNDN);
        mpfr_set_d(r23320, V, MPFR_RNDN);
        mpfr_set_d(r23321, l, MPFR_RNDN);
        mpfr_mul(r23322, r23320, r23321, MPFR_RNDN);
        mpfr_div(r23323, r23319, r23322, MPFR_RNDN);
        mpfr_sqrt(r23324, r23323, MPFR_RNDN);
        mpfr_mul(r23325, r23318, r23324, MPFR_RNDN);
        return mpfr_get_d(r23325, MPFR_RNDN);
}

static mpfr_t r23326, r23327, r23328, r23329, r23330, r23331, r23332, r23333, r23334, r23335, r23336, r23337, r23338, r23339, r23340, r23341, r23342, r23343, r23344, r23345, r23346, r23347, r23348, r23349, r23350, r23351, r23352, r23353, r23354, r23355, r23356, r23357, r23358, r23359, r23360, r23361;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r23326);
        mpfr_init(r23327);
        mpfr_init(r23328);
        mpfr_init_set_str(r23329, "-inf.0", 10, MPFR_RNDN);
        mpfr_init(r23330);
        mpfr_init(r23331);
        mpfr_init(r23332);
        mpfr_init(r23333);
        mpfr_init(r23334);
        mpfr_init(r23335);
        mpfr_init(r23336);
        mpfr_init(r23337);
        mpfr_init_set_str(r23338, "-8.662013682143746e-304", 10, MPFR_RNDN);
        mpfr_init(r23339);
        mpfr_init_set_str(r23340, "1", 10, MPFR_RNDN);
        mpfr_init(r23341);
        mpfr_init(r23342);
        mpfr_init(r23343);
        mpfr_init(r23344);
        mpfr_init_set_str(r23345, "2.4578593314605e-315", 10, MPFR_RNDN);
        mpfr_init(r23346);
        mpfr_init(r23347);
        mpfr_init(r23348);
        mpfr_init(r23349);
        mpfr_init(r23350);
        mpfr_init(r23351);
        mpfr_init_set_str(r23352, "3.33359585043328e+268", 10, MPFR_RNDN);
        mpfr_init(r23353);
        mpfr_init(r23354);
        mpfr_init(r23355);
        mpfr_init(r23356);
        mpfr_init(r23357);
        mpfr_init(r23358);
        mpfr_init(r23359);
        mpfr_init(r23360);
        mpfr_init(r23361);
}

double f_fm(double c0, double A, double V, double l) {
        mpfr_set_d(r23326, A, MPFR_RNDN);
        mpfr_set_d(r23327, V, MPFR_RNDN);
        mpfr_div(r23328, r23326, r23327, MPFR_RNDN);
        ;
        mpfr_set_si(r23330, mpfr_cmp(r23328, r23329) <= 0, MPFR_RNDN);
        mpfr_set_d(r23331, c0, MPFR_RNDN);
        mpfr_set_d(r23332, l, MPFR_RNDN);
        mpfr_div(r23333, r23326, r23332, MPFR_RNDN);
        mpfr_sqrt(r23334, r23333, MPFR_RNDN);
        mpfr_sqrt(r23335, r23327, MPFR_RNDN);
        mpfr_div(r23336, r23334, r23335, MPFR_RNDN);
        mpfr_mul(r23337, r23331, r23336, MPFR_RNDN);
        ;
        mpfr_set_si(r23339, mpfr_cmp(r23328, r23338) <= 0, MPFR_RNDN);
        ;
        mpfr_div(r23341, r23340, r23332, MPFR_RNDN);
        mpfr_mul(r23342, r23328, r23341, MPFR_RNDN);
        mpfr_sqrt(r23343, r23342, MPFR_RNDN);
        mpfr_mul(r23344, r23331, r23343, MPFR_RNDN);
        ;
        mpfr_set_si(r23346, mpfr_cmp(r23328, r23345) <= 0, MPFR_RNDN);
        mpfr_mul(r23347, r23327, r23332, MPFR_RNDN);
        mpfr_div(r23348, r23340, r23347, MPFR_RNDN);
        mpfr_mul(r23349, r23326, r23348, MPFR_RNDN);
        mpfr_sqrt(r23350, r23349, MPFR_RNDN);
        mpfr_mul(r23351, r23331, r23350, MPFR_RNDN);
        ;
        mpfr_set_si(r23353, mpfr_cmp(r23328, r23352) <= 0, MPFR_RNDN);
        mpfr_sqrt(r23354, r23328, MPFR_RNDN);
        mpfr_mul(r23355, r23331, r23354, MPFR_RNDN);
        mpfr_sqrt(r23356, r23332, MPFR_RNDN);
        mpfr_div(r23357, r23355, r23356, MPFR_RNDN);
        if (mpfr_get_si(r23353, MPFR_RNDN)) { mpfr_set(r23358, r23357, MPFR_RNDN); } else { mpfr_set(r23358, r23351, MPFR_RNDN); };
        if (mpfr_get_si(r23346, MPFR_RNDN)) { mpfr_set(r23359, r23351, MPFR_RNDN); } else { mpfr_set(r23359, r23358, MPFR_RNDN); };
        if (mpfr_get_si(r23339, MPFR_RNDN)) { mpfr_set(r23360, r23344, MPFR_RNDN); } else { mpfr_set(r23360, r23359, MPFR_RNDN); };
        if (mpfr_get_si(r23330, MPFR_RNDN)) { mpfr_set(r23361, r23337, MPFR_RNDN); } else { mpfr_set(r23361, r23360, MPFR_RNDN); };
        return mpfr_get_d(r23361, MPFR_RNDN);
}

static mpfr_t r23362, r23363, r23364, r23365, r23366, r23367, r23368, r23369, r23370, r23371, r23372, r23373, r23374, r23375, r23376, r23377, r23378, r23379, r23380, r23381, r23382, r23383, r23384, r23385, r23386, r23387, r23388, r23389, r23390, r23391, r23392, r23393, r23394, r23395, r23396, r23397;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r23362);
        mpfr_init(r23363);
        mpfr_init(r23364);
        mpfr_init_set_str(r23365, "-inf.0", 10, MPFR_RNDN);
        mpfr_init(r23366);
        mpfr_init(r23367);
        mpfr_init(r23368);
        mpfr_init(r23369);
        mpfr_init(r23370);
        mpfr_init(r23371);
        mpfr_init(r23372);
        mpfr_init(r23373);
        mpfr_init_set_str(r23374, "-8.662013682143746e-304", 10, MPFR_RNDN);
        mpfr_init(r23375);
        mpfr_init_set_str(r23376, "1", 10, MPFR_RNDN);
        mpfr_init(r23377);
        mpfr_init(r23378);
        mpfr_init(r23379);
        mpfr_init(r23380);
        mpfr_init_set_str(r23381, "2.4578593314605e-315", 10, MPFR_RNDN);
        mpfr_init(r23382);
        mpfr_init(r23383);
        mpfr_init(r23384);
        mpfr_init(r23385);
        mpfr_init(r23386);
        mpfr_init(r23387);
        mpfr_init_set_str(r23388, "3.33359585043328e+268", 10, MPFR_RNDN);
        mpfr_init(r23389);
        mpfr_init(r23390);
        mpfr_init(r23391);
        mpfr_init(r23392);
        mpfr_init(r23393);
        mpfr_init(r23394);
        mpfr_init(r23395);
        mpfr_init(r23396);
        mpfr_init(r23397);
}

double f_dm(double c0, double A, double V, double l) {
        mpfr_set_d(r23362, A, MPFR_RNDN);
        mpfr_set_d(r23363, V, MPFR_RNDN);
        mpfr_div(r23364, r23362, r23363, MPFR_RNDN);
        ;
        mpfr_set_si(r23366, mpfr_cmp(r23364, r23365) <= 0, MPFR_RNDN);
        mpfr_set_d(r23367, c0, MPFR_RNDN);
        mpfr_set_d(r23368, l, MPFR_RNDN);
        mpfr_div(r23369, r23362, r23368, MPFR_RNDN);
        mpfr_sqrt(r23370, r23369, MPFR_RNDN);
        mpfr_sqrt(r23371, r23363, MPFR_RNDN);
        mpfr_div(r23372, r23370, r23371, MPFR_RNDN);
        mpfr_mul(r23373, r23367, r23372, MPFR_RNDN);
        ;
        mpfr_set_si(r23375, mpfr_cmp(r23364, r23374) <= 0, MPFR_RNDN);
        ;
        mpfr_div(r23377, r23376, r23368, MPFR_RNDN);
        mpfr_mul(r23378, r23364, r23377, MPFR_RNDN);
        mpfr_sqrt(r23379, r23378, MPFR_RNDN);
        mpfr_mul(r23380, r23367, r23379, MPFR_RNDN);
        ;
        mpfr_set_si(r23382, mpfr_cmp(r23364, r23381) <= 0, MPFR_RNDN);
        mpfr_mul(r23383, r23363, r23368, MPFR_RNDN);
        mpfr_div(r23384, r23376, r23383, MPFR_RNDN);
        mpfr_mul(r23385, r23362, r23384, MPFR_RNDN);
        mpfr_sqrt(r23386, r23385, MPFR_RNDN);
        mpfr_mul(r23387, r23367, r23386, MPFR_RNDN);
        ;
        mpfr_set_si(r23389, mpfr_cmp(r23364, r23388) <= 0, MPFR_RNDN);
        mpfr_sqrt(r23390, r23364, MPFR_RNDN);
        mpfr_mul(r23391, r23367, r23390, MPFR_RNDN);
        mpfr_sqrt(r23392, r23368, MPFR_RNDN);
        mpfr_div(r23393, r23391, r23392, MPFR_RNDN);
        if (mpfr_get_si(r23389, MPFR_RNDN)) { mpfr_set(r23394, r23393, MPFR_RNDN); } else { mpfr_set(r23394, r23387, MPFR_RNDN); };
        if (mpfr_get_si(r23382, MPFR_RNDN)) { mpfr_set(r23395, r23387, MPFR_RNDN); } else { mpfr_set(r23395, r23394, MPFR_RNDN); };
        if (mpfr_get_si(r23375, MPFR_RNDN)) { mpfr_set(r23396, r23380, MPFR_RNDN); } else { mpfr_set(r23396, r23395, MPFR_RNDN); };
        if (mpfr_get_si(r23366, MPFR_RNDN)) { mpfr_set(r23397, r23373, MPFR_RNDN); } else { mpfr_set(r23397, r23396, MPFR_RNDN); };
        return mpfr_get_d(r23397, MPFR_RNDN);
}