#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 r26102 = w0; float r26103 = 1; float r26104 = M; float r26105 = D; float r26106 = r26104 * r26105; float r26107 = 2; float r26108 = d; float r26109 = r26107 * r26108; float r26110 = r26106 / r26109; float r26111 = pow(r26110, r26107); float r26112 = h; float r26113 = l; float r26114 = r26112 / r26113; float r26115 = r26111 * r26114; float r26116 = r26103 - r26115; float r26117 = sqrt(r26116); float r26118 = r26102 * r26117; return r26118; } double f_id(double w0, double M, double D, double h, double l, double d) { double r26119 = w0; double r26120 = 1; double r26121 = M; double r26122 = D; double r26123 = r26121 * r26122; double r26124 = 2; double r26125 = d; double r26126 = r26124 * r26125; double r26127 = r26123 / r26126; double r26128 = pow(r26127, r26124); double r26129 = h; double r26130 = l; double r26131 = r26129 / r26130; double r26132 = r26128 * r26131; double r26133 = r26120 - r26132; double r26134 = sqrt(r26133); double r26135 = r26119 * r26134; return r26135; } double f_of(float w0, float M, float D, float h, float l, float d) { float r26136 = 1; float r26137 = M; float r26138 = D; float r26139 = r26137 * r26138; float r26140 = 2; float r26141 = d; float r26142 = r26140 * r26141; float r26143 = r26139 / r26142; float r26144 = h; float r26145 = r26143 * r26144; float r26146 = r26139 * r26145; float r26147 = l; float r26148 = r26147 * r26142; float r26149 = r26146 / r26148; float r26150 = r26136 - r26149; float r26151 = sqrt(r26150); float r26152 = 4.67316943187834e+146; bool r26153 = r26151 <= r26152; float r26154 = w0; float r26155 = r26154 * r26151; float r26156 = -r26137; float r26157 = r26147 / r26138; float r26158 = r26156 / r26157; float r26159 = r26141 * r26140; float r26160 = r26138 / r26159; float r26161 = r26137 * r26144; float r26162 = r26161 / r26159; float r26163 = r26160 * r26162; float r26164 = fma(r26158, r26163, r26136); float r26165 = sqrt(r26164); float r26166 = r26164 * r26165; float r26167 = cbrt(r26166); float r26168 = r26154 * r26167; float r26169 = r26153 ? r26155 : r26168; return r26169; } double f_od(double w0, double M, double D, double h, double l, double d) { double r26170 = 1; double r26171 = M; double r26172 = D; double r26173 = r26171 * r26172; double r26174 = 2; double r26175 = d; double r26176 = r26174 * r26175; double r26177 = r26173 / r26176; double r26178 = h; double r26179 = r26177 * r26178; double r26180 = r26173 * r26179; double r26181 = l; double r26182 = r26181 * r26176; double r26183 = r26180 / r26182; double r26184 = r26170 - r26183; double r26185 = sqrt(r26184); double r26186 = 4.67316943187834e+146; bool r26187 = r26185 <= r26186; double r26188 = w0; double r26189 = r26188 * r26185; double r26190 = -r26171; double r26191 = r26181 / r26172; double r26192 = r26190 / r26191; double r26193 = r26175 * r26174; double r26194 = r26172 / r26193; double r26195 = r26171 * r26178; double r26196 = r26195 / r26193; double r26197 = r26194 * r26196; double r26198 = fma(r26192, r26197, r26170); double r26199 = sqrt(r26198); double r26200 = r26198 * r26199; double r26201 = cbrt(r26200); double r26202 = r26188 * r26201; double r26203 = r26187 ? r26189 : r26202; return r26203; } 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 r26204, r26205, r26206, r26207, r26208, r26209, r26210, r26211, r26212, r26213, r26214, r26215, r26216, r26217, r26218, r26219, r26220; void setup_mpfr_f_im() { mpfr_set_default_prec(336); mpfr_init(r26204); mpfr_init_set_str(r26205, "1", 10, MPFR_RNDN); mpfr_init(r26206); mpfr_init(r26207); mpfr_init(r26208); mpfr_init_set_str(r26209, "2", 10, MPFR_RNDN); mpfr_init(r26210); mpfr_init(r26211); mpfr_init(r26212); mpfr_init(r26213); mpfr_init(r26214); mpfr_init(r26215); mpfr_init(r26216); mpfr_init(r26217); mpfr_init(r26218); mpfr_init(r26219); mpfr_init(r26220); } double f_im(double w0, double M, double D, double h, double l, double d) { mpfr_set_d(r26204, w0, MPFR_RNDN); ; mpfr_set_d(r26206, M, MPFR_RNDN); mpfr_set_d(r26207, D, MPFR_RNDN); mpfr_mul(r26208, r26206, r26207, MPFR_RNDN); ; mpfr_set_d(r26210, d, MPFR_RNDN); mpfr_mul(r26211, r26209, r26210, MPFR_RNDN); mpfr_div(r26212, r26208, r26211, MPFR_RNDN); mpfr_pow(r26213, r26212, r26209, MPFR_RNDN); mpfr_set_d(r26214, h, MPFR_RNDN); mpfr_set_d(r26215, l, MPFR_RNDN); mpfr_div(r26216, r26214, r26215, MPFR_RNDN); mpfr_mul(r26217, r26213, r26216, MPFR_RNDN); mpfr_sub(r26218, r26205, r26217, MPFR_RNDN); mpfr_sqrt(r26219, r26218, MPFR_RNDN); mpfr_mul(r26220, r26204, r26219, MPFR_RNDN); return mpfr_get_d(r26220, MPFR_RNDN); } static mpfr_t r26221, r26222, r26223, r26224, r26225, r26226, r26227, r26228, r26229, r26230, r26231, r26232, r26233, r26234, r26235, r26236, r26237, r26238, r26239, r26240, r26241, r26242, r26243, r26244, r26245, r26246, r26247, r26248, r26249, r26250, r26251, r26252, r26253, r26254; void setup_mpfr_f_fm() { mpfr_set_default_prec(336); mpfr_init_set_str(r26221, "1", 10, MPFR_RNDN); mpfr_init(r26222); mpfr_init(r26223); mpfr_init(r26224); mpfr_init_set_str(r26225, "2", 10, MPFR_RNDN); mpfr_init(r26226); mpfr_init(r26227); mpfr_init(r26228); mpfr_init(r26229); mpfr_init(r26230); mpfr_init(r26231); mpfr_init(r26232); mpfr_init(r26233); mpfr_init(r26234); mpfr_init(r26235); mpfr_init(r26236); mpfr_init_set_str(r26237, "4.67316943187834e+146", 10, MPFR_RNDN); mpfr_init(r26238); mpfr_init(r26239); mpfr_init(r26240); mpfr_init(r26241); mpfr_init(r26242); mpfr_init(r26243); mpfr_init(r26244); mpfr_init(r26245); mpfr_init(r26246); mpfr_init(r26247); mpfr_init(r26248); mpfr_init(r26249); mpfr_init(r26250); mpfr_init(r26251); mpfr_init(r26252); mpfr_init(r26253); mpfr_init(r26254); } double f_fm(double w0, double M, double D, double h, double l, double d) { ; mpfr_set_d(r26222, M, MPFR_RNDN); mpfr_set_d(r26223, D, MPFR_RNDN); mpfr_mul(r26224, r26222, r26223, MPFR_RNDN); ; mpfr_set_d(r26226, d, MPFR_RNDN); mpfr_mul(r26227, r26225, r26226, MPFR_RNDN); mpfr_div(r26228, r26224, r26227, MPFR_RNDN); mpfr_set_d(r26229, h, MPFR_RNDN); mpfr_mul(r26230, r26228, r26229, MPFR_RNDN); mpfr_mul(r26231, r26224, r26230, MPFR_RNDN); mpfr_set_d(r26232, l, MPFR_RNDN); mpfr_mul(r26233, r26232, r26227, MPFR_RNDN); mpfr_div(r26234, r26231, r26233, MPFR_RNDN); mpfr_sub(r26235, r26221, r26234, MPFR_RNDN); mpfr_sqrt(r26236, r26235, MPFR_RNDN); ; mpfr_set_si(r26238, mpfr_cmp(r26236, r26237) <= 0, MPFR_RNDN); mpfr_set_d(r26239, w0, MPFR_RNDN); mpfr_mul(r26240, r26239, r26236, MPFR_RNDN); mpfr_neg(r26241, r26222, MPFR_RNDN); mpfr_div(r26242, r26232, r26223, MPFR_RNDN); mpfr_div(r26243, r26241, r26242, MPFR_RNDN); mpfr_mul(r26244, r26226, r26225, MPFR_RNDN); mpfr_div(r26245, r26223, r26244, MPFR_RNDN); mpfr_mul(r26246, r26222, r26229, MPFR_RNDN); mpfr_div(r26247, r26246, r26244, MPFR_RNDN); mpfr_mul(r26248, r26245, r26247, MPFR_RNDN); mpfr_fma(r26249, r26243, r26248, r26221, MPFR_RNDN); mpfr_sqrt(r26250, r26249, MPFR_RNDN); mpfr_mul(r26251, r26249, r26250, MPFR_RNDN); mpfr_cbrt(r26252, r26251, MPFR_RNDN); mpfr_mul(r26253, r26239, r26252, MPFR_RNDN); if (mpfr_get_si(r26238, MPFR_RNDN)) { mpfr_set(r26254, r26240, MPFR_RNDN); } else { mpfr_set(r26254, r26253, MPFR_RNDN); }; return mpfr_get_d(r26254, MPFR_RNDN); } static mpfr_t r26255, r26256, r26257, r26258, r26259, r26260, r26261, r26262, r26263, r26264, r26265, r26266, r26267, r26268, r26269, r26270, r26271, r26272, r26273, r26274, r26275, r26276, r26277, r26278, r26279, r26280, r26281, r26282, r26283, r26284, r26285, r26286, r26287, r26288; void setup_mpfr_f_dm() { mpfr_set_default_prec(336); mpfr_init_set_str(r26255, "1", 10, MPFR_RNDN); mpfr_init(r26256); mpfr_init(r26257); mpfr_init(r26258); mpfr_init_set_str(r26259, "2", 10, MPFR_RNDN); mpfr_init(r26260); mpfr_init(r26261); mpfr_init(r26262); mpfr_init(r26263); mpfr_init(r26264); mpfr_init(r26265); mpfr_init(r26266); mpfr_init(r26267); mpfr_init(r26268); mpfr_init(r26269); mpfr_init(r26270); mpfr_init_set_str(r26271, "4.67316943187834e+146", 10, MPFR_RNDN); mpfr_init(r26272); mpfr_init(r26273); mpfr_init(r26274); mpfr_init(r26275); mpfr_init(r26276); mpfr_init(r26277); mpfr_init(r26278); mpfr_init(r26279); mpfr_init(r26280); mpfr_init(r26281); mpfr_init(r26282); mpfr_init(r26283); mpfr_init(r26284); mpfr_init(r26285); mpfr_init(r26286); mpfr_init(r26287); mpfr_init(r26288); } double f_dm(double w0, double M, double D, double h, double l, double d) { ; mpfr_set_d(r26256, M, MPFR_RNDN); mpfr_set_d(r26257, D, MPFR_RNDN); mpfr_mul(r26258, r26256, r26257, MPFR_RNDN); ; mpfr_set_d(r26260, d, MPFR_RNDN); mpfr_mul(r26261, r26259, r26260, MPFR_RNDN); mpfr_div(r26262, r26258, r26261, MPFR_RNDN); mpfr_set_d(r26263, h, MPFR_RNDN); mpfr_mul(r26264, r26262, r26263, MPFR_RNDN); mpfr_mul(r26265, r26258, r26264, MPFR_RNDN); mpfr_set_d(r26266, l, MPFR_RNDN); mpfr_mul(r26267, r26266, r26261, MPFR_RNDN); mpfr_div(r26268, r26265, r26267, MPFR_RNDN); mpfr_sub(r26269, r26255, r26268, MPFR_RNDN); mpfr_sqrt(r26270, r26269, MPFR_RNDN); ; mpfr_set_si(r26272, mpfr_cmp(r26270, r26271) <= 0, MPFR_RNDN); mpfr_set_d(r26273, w0, MPFR_RNDN); mpfr_mul(r26274, r26273, r26270, MPFR_RNDN); mpfr_neg(r26275, r26256, MPFR_RNDN); mpfr_div(r26276, r26266, r26257, MPFR_RNDN); mpfr_div(r26277, r26275, r26276, MPFR_RNDN); mpfr_mul(r26278, r26260, r26259, MPFR_RNDN); mpfr_div(r26279, r26257, r26278, MPFR_RNDN); mpfr_mul(r26280, r26256, r26263, MPFR_RNDN); mpfr_div(r26281, r26280, r26278, MPFR_RNDN); mpfr_mul(r26282, r26279, r26281, MPFR_RNDN); mpfr_fma(r26283, r26277, r26282, r26255, MPFR_RNDN); mpfr_sqrt(r26284, r26283, MPFR_RNDN); mpfr_mul(r26285, r26283, r26284, MPFR_RNDN); mpfr_cbrt(r26286, r26285, MPFR_RNDN); mpfr_mul(r26287, r26273, r26286, MPFR_RNDN); if (mpfr_get_si(r26272, MPFR_RNDN)) { mpfr_set(r26288, r26274, MPFR_RNDN); } else { mpfr_set(r26288, r26287, MPFR_RNDN); }; return mpfr_get_d(r26288, MPFR_RNDN); }