#include #include #include #include #include char *name = "Henrywood and Agarwal, Equation (9a)"; double f_if(float w0, float M, float D, float h, float l, float d) { float r10105 = w0; float r10106 = 1; float r10107 = M; float r10108 = D; float r10109 = r10107 * r10108; float r10110 = 2; float r10111 = d; float r10112 = r10110 * r10111; float r10113 = r10109 / r10112; float r10114 = pow(r10113, r10110); float r10115 = h; float r10116 = l; float r10117 = r10115 / r10116; float r10118 = r10114 * r10117; float r10119 = r10106 - r10118; float r10120 = sqrt(r10119); float r10121 = r10105 * r10120; return r10121; } double f_id(double w0, double M, double D, double h, double l, double d) { double r10122 = w0; double r10123 = 1; double r10124 = M; double r10125 = D; double r10126 = r10124 * r10125; double r10127 = 2; double r10128 = d; double r10129 = r10127 * r10128; double r10130 = r10126 / r10129; double r10131 = pow(r10130, r10127); double r10132 = h; double r10133 = l; double r10134 = r10132 / r10133; double r10135 = r10131 * r10134; double r10136 = r10123 - r10135; double r10137 = sqrt(r10136); double r10138 = r10122 * r10137; return r10138; } double f_of(float w0, float M, float D, float h, float l, float d) { float r10139 = 1; float r10140 = M; float r10141 = D; float r10142 = r10140 * r10141; float r10143 = 2; float r10144 = d; float r10145 = r10143 * r10144; float r10146 = r10142 / r10145; float r10147 = h; float r10148 = r10146 * r10147; float r10149 = r10146 * r10148; float r10150 = l; float r10151 = r10139 / r10150; float r10152 = r10149 * r10151; float r10153 = r10139 - r10152; float r10154 = sqrt(r10153); float r10155 = 2.7578631765029056e+143; bool r10156 = r10154 <= r10155; float r10157 = w0; float r10158 = r10157 * r10154; float r10159 = r10140 / r10144; float r10160 = 1/2; float r10161 = r10141 * r10160; float r10162 = r10159 * r10161; float r10163 = r10141 / r10144; float r10164 = r10140 / r10143; float r10165 = r10163 * r10164; float r10166 = r10147 / r10150; float r10167 = -r10166; float r10168 = r10165 * r10167; float r10169 = fma(r10162, r10168, r10139); float r10170 = sqrt(r10169); float r10171 = r10157 * r10170; float r10172 = r10156 ? r10158 : r10171; return r10172; } double f_od(double w0, double M, double D, double h, double l, double d) { double r10173 = 1; double r10174 = M; double r10175 = D; double r10176 = r10174 * r10175; double r10177 = 2; double r10178 = d; double r10179 = r10177 * r10178; double r10180 = r10176 / r10179; double r10181 = h; double r10182 = r10180 * r10181; double r10183 = r10180 * r10182; double r10184 = l; double r10185 = r10173 / r10184; double r10186 = r10183 * r10185; double r10187 = r10173 - r10186; double r10188 = sqrt(r10187); double r10189 = 2.7578631765029056e+143; bool r10190 = r10188 <= r10189; double r10191 = w0; double r10192 = r10191 * r10188; double r10193 = r10174 / r10178; double r10194 = 1/2; double r10195 = r10175 * r10194; double r10196 = r10193 * r10195; double r10197 = r10175 / r10178; double r10198 = r10174 / r10177; double r10199 = r10197 * r10198; double r10200 = r10181 / r10184; double r10201 = -r10200; double r10202 = r10199 * r10201; double r10203 = fma(r10196, r10202, r10173); double r10204 = sqrt(r10203); double r10205 = r10191 * r10204; double r10206 = r10190 ? r10192 : r10205; return r10206; } 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 r10207, r10208, r10209, r10210, r10211, r10212, r10213, r10214, r10215, r10216, r10217, r10218, r10219, r10220, r10221, r10222, r10223; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r10207); mpfr_init_set_str(r10208, "1", 10, MPFR_RNDN); mpfr_init(r10209); mpfr_init(r10210); mpfr_init(r10211); mpfr_init_set_str(r10212, "2", 10, MPFR_RNDN); mpfr_init(r10213); mpfr_init(r10214); mpfr_init(r10215); mpfr_init(r10216); mpfr_init(r10217); mpfr_init(r10218); mpfr_init(r10219); mpfr_init(r10220); mpfr_init(r10221); mpfr_init(r10222); mpfr_init(r10223); } double f_im(double w0, double M, double D, double h, double l, double d) { mpfr_set_d(r10207, w0, MPFR_RNDN); ; mpfr_set_d(r10209, M, MPFR_RNDN); mpfr_set_d(r10210, D, MPFR_RNDN); mpfr_mul(r10211, r10209, r10210, MPFR_RNDN); ; mpfr_set_d(r10213, d, MPFR_RNDN); mpfr_mul(r10214, r10212, r10213, MPFR_RNDN); mpfr_div(r10215, r10211, r10214, MPFR_RNDN); mpfr_pow(r10216, r10215, r10212, MPFR_RNDN); mpfr_set_d(r10217, h, MPFR_RNDN); mpfr_set_d(r10218, l, MPFR_RNDN); mpfr_div(r10219, r10217, r10218, MPFR_RNDN); mpfr_mul(r10220, r10216, r10219, MPFR_RNDN); mpfr_sub(r10221, r10208, r10220, MPFR_RNDN); mpfr_sqrt(r10222, r10221, MPFR_RNDN); mpfr_mul(r10223, r10207, r10222, MPFR_RNDN); return mpfr_get_d(r10223, MPFR_RNDN); } static mpfr_t r10224, r10225, r10226, r10227, r10228, r10229, r10230, r10231, r10232, r10233, r10234, r10235, r10236, r10237, r10238, r10239, r10240, r10241, r10242, r10243, r10244, r10245, r10246, r10247, r10248, r10249, r10250, r10251, r10252, r10253, r10254, r10255, r10256, r10257; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init_set_str(r10224, "1", 10, MPFR_RNDN); mpfr_init(r10225); mpfr_init(r10226); mpfr_init(r10227); mpfr_init_set_str(r10228, "2", 10, MPFR_RNDN); mpfr_init(r10229); mpfr_init(r10230); mpfr_init(r10231); mpfr_init(r10232); mpfr_init(r10233); mpfr_init(r10234); mpfr_init(r10235); mpfr_init(r10236); mpfr_init(r10237); mpfr_init(r10238); mpfr_init(r10239); mpfr_init_set_str(r10240, "2.7578631765029056e+143", 10, MPFR_RNDN); mpfr_init(r10241); mpfr_init(r10242); mpfr_init(r10243); mpfr_init(r10244); mpfr_init_set_str(r10245, "1/2", 10, MPFR_RNDN); mpfr_init(r10246); mpfr_init(r10247); mpfr_init(r10248); mpfr_init(r10249); mpfr_init(r10250); mpfr_init(r10251); mpfr_init(r10252); mpfr_init(r10253); mpfr_init(r10254); mpfr_init(r10255); mpfr_init(r10256); mpfr_init(r10257); } double f_fm(double w0, double M, double D, double h, double l, double d) { ; mpfr_set_d(r10225, M, MPFR_RNDN); mpfr_set_d(r10226, D, MPFR_RNDN); mpfr_mul(r10227, r10225, r10226, MPFR_RNDN); ; mpfr_set_d(r10229, d, MPFR_RNDN); mpfr_mul(r10230, r10228, r10229, MPFR_RNDN); mpfr_div(r10231, r10227, r10230, MPFR_RNDN); mpfr_set_d(r10232, h, MPFR_RNDN); mpfr_mul(r10233, r10231, r10232, MPFR_RNDN); mpfr_mul(r10234, r10231, r10233, MPFR_RNDN); mpfr_set_d(r10235, l, MPFR_RNDN); mpfr_div(r10236, r10224, r10235, MPFR_RNDN); mpfr_mul(r10237, r10234, r10236, MPFR_RNDN); mpfr_sub(r10238, r10224, r10237, MPFR_RNDN); mpfr_sqrt(r10239, r10238, MPFR_RNDN); ; mpfr_set_si(r10241, mpfr_cmp(r10239, r10240) <= 0, MPFR_RNDN); mpfr_set_d(r10242, w0, MPFR_RNDN); mpfr_mul(r10243, r10242, r10239, MPFR_RNDN); mpfr_div(r10244, r10225, r10229, MPFR_RNDN); ; mpfr_mul(r10246, r10226, r10245, MPFR_RNDN); mpfr_mul(r10247, r10244, r10246, MPFR_RNDN); mpfr_div(r10248, r10226, r10229, MPFR_RNDN); mpfr_div(r10249, r10225, r10228, MPFR_RNDN); mpfr_mul(r10250, r10248, r10249, MPFR_RNDN); mpfr_div(r10251, r10232, r10235, MPFR_RNDN); mpfr_neg(r10252, r10251, MPFR_RNDN); mpfr_mul(r10253, r10250, r10252, MPFR_RNDN); mpfr_fma(r10254, r10247, r10253, r10224, MPFR_RNDN); mpfr_sqrt(r10255, r10254, MPFR_RNDN); mpfr_mul(r10256, r10242, r10255, MPFR_RNDN); if (mpfr_get_si(r10241, MPFR_RNDN)) { mpfr_set(r10257, r10243, MPFR_RNDN); } else { mpfr_set(r10257, r10256, MPFR_RNDN); }; return mpfr_get_d(r10257, MPFR_RNDN); } static mpfr_t r10258, r10259, r10260, r10261, r10262, r10263, r10264, r10265, r10266, r10267, r10268, r10269, r10270, r10271, r10272, r10273, r10274, r10275, r10276, r10277, r10278, r10279, r10280, r10281, r10282, r10283, r10284, r10285, r10286, r10287, r10288, r10289, r10290, r10291; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init_set_str(r10258, "1", 10, MPFR_RNDN); mpfr_init(r10259); mpfr_init(r10260); mpfr_init(r10261); mpfr_init_set_str(r10262, "2", 10, MPFR_RNDN); mpfr_init(r10263); mpfr_init(r10264); mpfr_init(r10265); mpfr_init(r10266); mpfr_init(r10267); mpfr_init(r10268); mpfr_init(r10269); mpfr_init(r10270); mpfr_init(r10271); mpfr_init(r10272); mpfr_init(r10273); mpfr_init_set_str(r10274, "2.7578631765029056e+143", 10, MPFR_RNDN); mpfr_init(r10275); mpfr_init(r10276); mpfr_init(r10277); mpfr_init(r10278); mpfr_init_set_str(r10279, "1/2", 10, MPFR_RNDN); mpfr_init(r10280); mpfr_init(r10281); mpfr_init(r10282); mpfr_init(r10283); mpfr_init(r10284); mpfr_init(r10285); mpfr_init(r10286); mpfr_init(r10287); mpfr_init(r10288); mpfr_init(r10289); mpfr_init(r10290); mpfr_init(r10291); } double f_dm(double w0, double M, double D, double h, double l, double d) { ; mpfr_set_d(r10259, M, MPFR_RNDN); mpfr_set_d(r10260, D, MPFR_RNDN); mpfr_mul(r10261, r10259, r10260, MPFR_RNDN); ; mpfr_set_d(r10263, d, MPFR_RNDN); mpfr_mul(r10264, r10262, r10263, MPFR_RNDN); mpfr_div(r10265, r10261, r10264, MPFR_RNDN); mpfr_set_d(r10266, h, MPFR_RNDN); mpfr_mul(r10267, r10265, r10266, MPFR_RNDN); mpfr_mul(r10268, r10265, r10267, MPFR_RNDN); mpfr_set_d(r10269, l, MPFR_RNDN); mpfr_div(r10270, r10258, r10269, MPFR_RNDN); mpfr_mul(r10271, r10268, r10270, MPFR_RNDN); mpfr_sub(r10272, r10258, r10271, MPFR_RNDN); mpfr_sqrt(r10273, r10272, MPFR_RNDN); ; mpfr_set_si(r10275, mpfr_cmp(r10273, r10274) <= 0, MPFR_RNDN); mpfr_set_d(r10276, w0, MPFR_RNDN); mpfr_mul(r10277, r10276, r10273, MPFR_RNDN); mpfr_div(r10278, r10259, r10263, MPFR_RNDN); ; mpfr_mul(r10280, r10260, r10279, MPFR_RNDN); mpfr_mul(r10281, r10278, r10280, MPFR_RNDN); mpfr_div(r10282, r10260, r10263, MPFR_RNDN); mpfr_div(r10283, r10259, r10262, MPFR_RNDN); mpfr_mul(r10284, r10282, r10283, MPFR_RNDN); mpfr_div(r10285, r10266, r10269, MPFR_RNDN); mpfr_neg(r10286, r10285, MPFR_RNDN); mpfr_mul(r10287, r10284, r10286, MPFR_RNDN); mpfr_fma(r10288, r10281, r10287, r10258, MPFR_RNDN); mpfr_sqrt(r10289, r10288, MPFR_RNDN); mpfr_mul(r10290, r10276, r10289, MPFR_RNDN); if (mpfr_get_si(r10275, MPFR_RNDN)) { mpfr_set(r10291, r10277, MPFR_RNDN); } else { mpfr_set(r10291, r10290, MPFR_RNDN); }; return mpfr_get_d(r10291, MPFR_RNDN); }