#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 r23212 = w0; float r23213 = 1; float r23214 = M; float r23215 = D; float r23216 = r23214 * r23215; float r23217 = 2; float r23218 = d; float r23219 = r23217 * r23218; float r23220 = r23216 / r23219; float r23221 = pow(r23220, r23217); float r23222 = h; float r23223 = l; float r23224 = r23222 / r23223; float r23225 = r23221 * r23224; float r23226 = r23213 - r23225; float r23227 = sqrt(r23226); float r23228 = r23212 * r23227; return r23228; } double f_id(double w0, double M, double D, double h, double l, double d) { double r23229 = w0; double r23230 = 1; double r23231 = M; double r23232 = D; double r23233 = r23231 * r23232; double r23234 = 2; double r23235 = d; double r23236 = r23234 * r23235; double r23237 = r23233 / r23236; double r23238 = pow(r23237, r23234); double r23239 = h; double r23240 = l; double r23241 = r23239 / r23240; double r23242 = r23238 * r23241; double r23243 = r23230 - r23242; double r23244 = sqrt(r23243); double r23245 = r23229 * r23244; return r23245; } double f_of(float w0, float M, float D, float h, float l, float d) { float r23246 = h; float r23247 = l; float r23248 = r23246 / r23247; float r23249 = -1.8056929412380624e-197; bool r23250 = r23248 <= r23249; float r23251 = w0; float r23252 = 1; float r23253 = M; float r23254 = 2; float r23255 = r23253 / r23254; float r23256 = D; float r23257 = d; float r23258 = r23256 / r23257; float r23259 = r23255 * r23258; float r23260 = pow(r23259, r23254); float r23261 = r23260 * r23246; float r23262 = r23252 / r23247; float r23263 = r23261 * r23262; float r23264 = r23252 - r23263; float r23265 = sqrt(r23264); float r23266 = r23251 * r23265; float r23267 = r23256 * r23253; float r23268 = r23246 * r23267; float r23269 = r23268 / r23257; float r23270 = r23267 / r23247; float r23271 = r23270 / r23254; float r23272 = r23269 * r23271; float r23273 = r23254 * r23257; float r23274 = r23272 / r23273; float r23275 = r23252 - r23274; float r23276 = sqrt(r23275); float r23277 = r23251 * r23276; float r23278 = r23250 ? r23266 : r23277; return r23278; } double f_od(double w0, double M, double D, double h, double l, double d) { double r23279 = h; double r23280 = l; double r23281 = r23279 / r23280; double r23282 = -1.8056929412380624e-197; bool r23283 = r23281 <= r23282; double r23284 = w0; double r23285 = 1; double r23286 = M; double r23287 = 2; double r23288 = r23286 / r23287; double r23289 = D; double r23290 = d; double r23291 = r23289 / r23290; double r23292 = r23288 * r23291; double r23293 = pow(r23292, r23287); double r23294 = r23293 * r23279; double r23295 = r23285 / r23280; double r23296 = r23294 * r23295; double r23297 = r23285 - r23296; double r23298 = sqrt(r23297); double r23299 = r23284 * r23298; double r23300 = r23289 * r23286; double r23301 = r23279 * r23300; double r23302 = r23301 / r23290; double r23303 = r23300 / r23280; double r23304 = r23303 / r23287; double r23305 = r23302 * r23304; double r23306 = r23287 * r23290; double r23307 = r23305 / r23306; double r23308 = r23285 - r23307; double r23309 = sqrt(r23308); double r23310 = r23284 * r23309; double r23311 = r23283 ? r23299 : r23310; return r23311; } 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 r23312, r23313, r23314, r23315, r23316, r23317, r23318, r23319, r23320, r23321, r23322, r23323, r23324, r23325, r23326, r23327, r23328; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init(r23312); mpfr_init_set_str(r23313, "1", 10, MPFR_RNDN); mpfr_init(r23314); mpfr_init(r23315); mpfr_init(r23316); mpfr_init_set_str(r23317, "2", 10, MPFR_RNDN); mpfr_init(r23318); mpfr_init(r23319); mpfr_init(r23320); mpfr_init(r23321); mpfr_init(r23322); mpfr_init(r23323); mpfr_init(r23324); mpfr_init(r23325); mpfr_init(r23326); mpfr_init(r23327); mpfr_init(r23328); } double f_im(double w0, double M, double D, double h, double l, double d) { mpfr_set_d(r23312, w0, MPFR_RNDN); ; mpfr_set_d(r23314, M, MPFR_RNDN); mpfr_set_d(r23315, D, MPFR_RNDN); mpfr_mul(r23316, r23314, r23315, MPFR_RNDN); ; mpfr_set_d(r23318, d, MPFR_RNDN); mpfr_mul(r23319, r23317, r23318, MPFR_RNDN); mpfr_div(r23320, r23316, r23319, MPFR_RNDN); mpfr_pow(r23321, r23320, r23317, MPFR_RNDN); mpfr_set_d(r23322, h, MPFR_RNDN); mpfr_set_d(r23323, l, MPFR_RNDN); mpfr_div(r23324, r23322, r23323, MPFR_RNDN); mpfr_mul(r23325, r23321, r23324, MPFR_RNDN); mpfr_sub(r23326, r23313, r23325, MPFR_RNDN); mpfr_sqrt(r23327, r23326, MPFR_RNDN); mpfr_mul(r23328, r23312, r23327, MPFR_RNDN); return mpfr_get_d(r23328, MPFR_RNDN); } static mpfr_t 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(r23329); mpfr_init(r23330); mpfr_init(r23331); mpfr_init_set_str(r23332, "-1.8056929412380624e-197", 10, MPFR_RNDN); mpfr_init(r23333); mpfr_init(r23334); mpfr_init_set_str(r23335, "1", 10, MPFR_RNDN); mpfr_init(r23336); mpfr_init_set_str(r23337, "2", 10, MPFR_RNDN); mpfr_init(r23338); mpfr_init(r23339); mpfr_init(r23340); mpfr_init(r23341); mpfr_init(r23342); mpfr_init(r23343); mpfr_init(r23344); mpfr_init(r23345); mpfr_init(r23346); mpfr_init(r23347); mpfr_init(r23348); mpfr_init(r23349); mpfr_init(r23350); mpfr_init(r23351); mpfr_init(r23352); 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 w0, double M, double D, double h, double l, double d) { mpfr_set_d(r23329, h, MPFR_RNDN); mpfr_set_d(r23330, l, MPFR_RNDN); mpfr_div(r23331, r23329, r23330, MPFR_RNDN); ; mpfr_set_si(r23333, mpfr_cmp(r23331, r23332) <= 0, MPFR_RNDN); mpfr_set_d(r23334, w0, MPFR_RNDN); ; mpfr_set_d(r23336, M, MPFR_RNDN); ; mpfr_div(r23338, r23336, r23337, MPFR_RNDN); mpfr_set_d(r23339, D, MPFR_RNDN); mpfr_set_d(r23340, d, MPFR_RNDN); mpfr_div(r23341, r23339, r23340, MPFR_RNDN); mpfr_mul(r23342, r23338, r23341, MPFR_RNDN); mpfr_pow(r23343, r23342, r23337, MPFR_RNDN); mpfr_mul(r23344, r23343, r23329, MPFR_RNDN); mpfr_div(r23345, r23335, r23330, MPFR_RNDN); mpfr_mul(r23346, r23344, r23345, MPFR_RNDN); mpfr_sub(r23347, r23335, r23346, MPFR_RNDN); mpfr_sqrt(r23348, r23347, MPFR_RNDN); mpfr_mul(r23349, r23334, r23348, MPFR_RNDN); mpfr_mul(r23350, r23339, r23336, MPFR_RNDN); mpfr_mul(r23351, r23329, r23350, MPFR_RNDN); mpfr_div(r23352, r23351, r23340, MPFR_RNDN); mpfr_div(r23353, r23350, r23330, MPFR_RNDN); mpfr_div(r23354, r23353, r23337, MPFR_RNDN); mpfr_mul(r23355, r23352, r23354, MPFR_RNDN); mpfr_mul(r23356, r23337, r23340, MPFR_RNDN); mpfr_div(r23357, r23355, r23356, MPFR_RNDN); mpfr_sub(r23358, r23335, r23357, MPFR_RNDN); mpfr_sqrt(r23359, r23358, MPFR_RNDN); mpfr_mul(r23360, r23334, r23359, MPFR_RNDN); if (mpfr_get_si(r23333, MPFR_RNDN)) { mpfr_set(r23361, r23349, 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; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r23362); mpfr_init(r23363); mpfr_init(r23364); mpfr_init_set_str(r23365, "-1.8056929412380624e-197", 10, MPFR_RNDN); mpfr_init(r23366); mpfr_init(r23367); mpfr_init_set_str(r23368, "1", 10, MPFR_RNDN); mpfr_init(r23369); mpfr_init_set_str(r23370, "2", 10, MPFR_RNDN); mpfr_init(r23371); mpfr_init(r23372); mpfr_init(r23373); mpfr_init(r23374); mpfr_init(r23375); mpfr_init(r23376); mpfr_init(r23377); mpfr_init(r23378); mpfr_init(r23379); mpfr_init(r23380); mpfr_init(r23381); mpfr_init(r23382); mpfr_init(r23383); mpfr_init(r23384); mpfr_init(r23385); mpfr_init(r23386); mpfr_init(r23387); mpfr_init(r23388); mpfr_init(r23389); mpfr_init(r23390); mpfr_init(r23391); mpfr_init(r23392); mpfr_init(r23393); mpfr_init(r23394); } double f_dm(double w0, double M, double D, double h, double l, double d) { mpfr_set_d(r23362, h, MPFR_RNDN); mpfr_set_d(r23363, l, MPFR_RNDN); mpfr_div(r23364, r23362, r23363, MPFR_RNDN); ; mpfr_set_si(r23366, mpfr_cmp(r23364, r23365) <= 0, MPFR_RNDN); mpfr_set_d(r23367, w0, MPFR_RNDN); ; mpfr_set_d(r23369, M, MPFR_RNDN); ; mpfr_div(r23371, r23369, r23370, MPFR_RNDN); mpfr_set_d(r23372, D, MPFR_RNDN); mpfr_set_d(r23373, d, MPFR_RNDN); mpfr_div(r23374, r23372, r23373, MPFR_RNDN); mpfr_mul(r23375, r23371, r23374, MPFR_RNDN); mpfr_pow(r23376, r23375, r23370, MPFR_RNDN); mpfr_mul(r23377, r23376, r23362, MPFR_RNDN); mpfr_div(r23378, r23368, r23363, MPFR_RNDN); mpfr_mul(r23379, r23377, r23378, MPFR_RNDN); mpfr_sub(r23380, r23368, r23379, MPFR_RNDN); mpfr_sqrt(r23381, r23380, MPFR_RNDN); mpfr_mul(r23382, r23367, r23381, MPFR_RNDN); mpfr_mul(r23383, r23372, r23369, MPFR_RNDN); mpfr_mul(r23384, r23362, r23383, MPFR_RNDN); mpfr_div(r23385, r23384, r23373, MPFR_RNDN); mpfr_div(r23386, r23383, r23363, MPFR_RNDN); mpfr_div(r23387, r23386, r23370, MPFR_RNDN); mpfr_mul(r23388, r23385, r23387, MPFR_RNDN); mpfr_mul(r23389, r23370, r23373, MPFR_RNDN); mpfr_div(r23390, r23388, r23389, MPFR_RNDN); mpfr_sub(r23391, r23368, r23390, MPFR_RNDN); mpfr_sqrt(r23392, r23391, MPFR_RNDN); mpfr_mul(r23393, r23367, r23392, MPFR_RNDN); if (mpfr_get_si(r23366, MPFR_RNDN)) { mpfr_set(r23394, r23382, MPFR_RNDN); } else { mpfr_set(r23394, r23393, MPFR_RNDN); }; return mpfr_get_d(r23394, MPFR_RNDN); }