#include #include #include #include #include char *name = "Toniolo and Linder, Equation (10+)"; double f_if(float t, float l, float k) { float r25386 = 2; float r25387 = t; float r25388 = 3; float r25389 = pow(r25387, r25388); float r25390 = l; float r25391 = r25390 * r25390; float r25392 = r25389 / r25391; float r25393 = k; float r25394 = sin(r25393); float r25395 = r25392 * r25394; float r25396 = tan(r25393); float r25397 = r25395 * r25396; float r25398 = 1; float r25399 = r25393 / r25387; float r25400 = pow(r25399, r25386); float r25401 = r25398 + r25400; float r25402 = r25401 + r25398; float r25403 = r25397 * r25402; float r25404 = r25386 / r25403; return r25404; } double f_id(double t, double l, double k) { double r25405 = 2; double r25406 = t; double r25407 = 3; double r25408 = pow(r25406, r25407); double r25409 = l; double r25410 = r25409 * r25409; double r25411 = r25408 / r25410; double r25412 = k; double r25413 = sin(r25412); double r25414 = r25411 * r25413; double r25415 = tan(r25412); double r25416 = r25414 * r25415; double r25417 = 1; double r25418 = r25412 / r25406; double r25419 = pow(r25418, r25405); double r25420 = r25417 + r25419; double r25421 = r25420 + r25417; double r25422 = r25416 * r25421; double r25423 = r25405 / r25422; return r25423; } double f_of(float t, float l, float k) { float r25424 = k; float r25425 = sin(r25424); float r25426 = l; float r25427 = t; float r25428 = r25426 / r25427; float r25429 = r25425 / r25428; float r25430 = cbrt(r25429); float r25431 = r25430 * r25430; float r25432 = r25431 * r25430; float r25433 = r25432 * r25427; float r25434 = r25433 * r25425; float r25435 = 1; float r25436 = r25424 / r25427; float r25437 = 2; float r25438 = pow(r25436, r25437); float r25439 = r25435 + r25438; float r25440 = r25439 + r25435; float r25441 = r25434 * r25440; float r25442 = cos(r25424); float r25443 = r25428 * r25442; float r25444 = r25441 / r25443; float r25445 = 4.3400588385362695e+247; bool r25446 = r25444 <= r25445; float r25447 = r25429 * r25427; float r25448 = r25447 * r25425; float r25449 = r25448 * r25440; float r25450 = cbrt(r25449); float r25451 = r25450 * r25450; float r25452 = r25451 * r25450; float r25453 = r25452 / r25443; float r25454 = r25437 / r25453; float r25455 = r25425 * r25427; float r25456 = r25455 * r25425; float r25457 = r25456 * r25440; float r25458 = r25457 / r25428; float r25459 = r25458 / r25443; float r25460 = r25437 / r25459; float r25461 = r25446 ? r25454 : r25460; return r25461; } double f_od(double t, double l, double k) { double r25462 = k; double r25463 = sin(r25462); double r25464 = l; double r25465 = t; double r25466 = r25464 / r25465; double r25467 = r25463 / r25466; double r25468 = cbrt(r25467); double r25469 = r25468 * r25468; double r25470 = r25469 * r25468; double r25471 = r25470 * r25465; double r25472 = r25471 * r25463; double r25473 = 1; double r25474 = r25462 / r25465; double r25475 = 2; double r25476 = pow(r25474, r25475); double r25477 = r25473 + r25476; double r25478 = r25477 + r25473; double r25479 = r25472 * r25478; double r25480 = cos(r25462); double r25481 = r25466 * r25480; double r25482 = r25479 / r25481; double r25483 = 4.3400588385362695e+247; bool r25484 = r25482 <= r25483; double r25485 = r25467 * r25465; double r25486 = r25485 * r25463; double r25487 = r25486 * r25478; double r25488 = cbrt(r25487); double r25489 = r25488 * r25488; double r25490 = r25489 * r25488; double r25491 = r25490 / r25481; double r25492 = r25475 / r25491; double r25493 = r25463 * r25465; double r25494 = r25493 * r25463; double r25495 = r25494 * r25478; double r25496 = r25495 / r25466; double r25497 = r25496 / r25481; double r25498 = r25475 / r25497; double r25499 = r25484 ? r25492 : r25498; return r25499; } 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 r25500, r25501, r25502, r25503, r25504, r25505, r25506, r25507, r25508, r25509, r25510, r25511, r25512, r25513, r25514, r25515, r25516, r25517, r25518; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init_set_str(r25500, "2", 10, MPFR_RNDN); mpfr_init(r25501); mpfr_init_set_str(r25502, "3", 10, MPFR_RNDN); mpfr_init(r25503); mpfr_init(r25504); mpfr_init(r25505); mpfr_init(r25506); mpfr_init(r25507); mpfr_init(r25508); mpfr_init(r25509); mpfr_init(r25510); mpfr_init(r25511); mpfr_init_set_str(r25512, "1", 10, MPFR_RNDN); mpfr_init(r25513); mpfr_init(r25514); mpfr_init(r25515); mpfr_init(r25516); mpfr_init(r25517); mpfr_init(r25518); } double f_im(double t, double l, double k) { ; mpfr_set_d(r25501, t, MPFR_RNDN); ; mpfr_pow(r25503, r25501, r25502, MPFR_RNDN); mpfr_set_d(r25504, l, MPFR_RNDN); mpfr_mul(r25505, r25504, r25504, MPFR_RNDN); mpfr_div(r25506, r25503, r25505, MPFR_RNDN); mpfr_set_d(r25507, k, MPFR_RNDN); mpfr_sin(r25508, r25507, MPFR_RNDN); mpfr_mul(r25509, r25506, r25508, MPFR_RNDN); mpfr_tan(r25510, r25507, MPFR_RNDN); mpfr_mul(r25511, r25509, r25510, MPFR_RNDN); ; mpfr_div(r25513, r25507, r25501, MPFR_RNDN); mpfr_pow(r25514, r25513, r25500, MPFR_RNDN); mpfr_add(r25515, r25512, r25514, MPFR_RNDN); mpfr_add(r25516, r25515, r25512, MPFR_RNDN); mpfr_mul(r25517, r25511, r25516, MPFR_RNDN); mpfr_div(r25518, r25500, r25517, MPFR_RNDN); return mpfr_get_d(r25518, MPFR_RNDN); } static mpfr_t r25519, r25520, r25521, r25522, r25523, r25524, r25525, r25526, r25527, r25528, r25529, r25530, r25531, r25532, r25533, r25534, r25535, r25536, r25537, r25538, r25539, r25540, r25541, r25542, r25543, r25544, r25545, r25546, r25547, r25548, r25549, r25550, r25551, r25552, r25553, r25554, r25555, r25556; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r25519); mpfr_init(r25520); mpfr_init(r25521); mpfr_init(r25522); mpfr_init(r25523); mpfr_init(r25524); mpfr_init(r25525); mpfr_init(r25526); mpfr_init(r25527); mpfr_init(r25528); mpfr_init(r25529); mpfr_init_set_str(r25530, "1", 10, MPFR_RNDN); mpfr_init(r25531); mpfr_init_set_str(r25532, "2", 10, MPFR_RNDN); mpfr_init(r25533); mpfr_init(r25534); mpfr_init(r25535); mpfr_init(r25536); mpfr_init(r25537); mpfr_init(r25538); mpfr_init(r25539); mpfr_init_set_str(r25540, "4.3400588385362695e+247", 10, MPFR_RNDN); mpfr_init(r25541); mpfr_init(r25542); mpfr_init(r25543); mpfr_init(r25544); mpfr_init(r25545); mpfr_init(r25546); mpfr_init(r25547); mpfr_init(r25548); mpfr_init(r25549); mpfr_init(r25550); mpfr_init(r25551); mpfr_init(r25552); mpfr_init(r25553); mpfr_init(r25554); mpfr_init(r25555); mpfr_init(r25556); } double f_fm(double t, double l, double k) { mpfr_set_d(r25519, k, MPFR_RNDN); mpfr_sin(r25520, r25519, MPFR_RNDN); mpfr_set_d(r25521, l, MPFR_RNDN); mpfr_set_d(r25522, t, MPFR_RNDN); mpfr_div(r25523, r25521, r25522, MPFR_RNDN); mpfr_div(r25524, r25520, r25523, MPFR_RNDN); mpfr_cbrt(r25525, r25524, MPFR_RNDN); mpfr_mul(r25526, r25525, r25525, MPFR_RNDN); mpfr_mul(r25527, r25526, r25525, MPFR_RNDN); mpfr_mul(r25528, r25527, r25522, MPFR_RNDN); mpfr_mul(r25529, r25528, r25520, MPFR_RNDN); ; mpfr_div(r25531, r25519, r25522, MPFR_RNDN); ; mpfr_pow(r25533, r25531, r25532, MPFR_RNDN); mpfr_add(r25534, r25530, r25533, MPFR_RNDN); mpfr_add(r25535, r25534, r25530, MPFR_RNDN); mpfr_mul(r25536, r25529, r25535, MPFR_RNDN); mpfr_cos(r25537, r25519, MPFR_RNDN); mpfr_mul(r25538, r25523, r25537, MPFR_RNDN); mpfr_div(r25539, r25536, r25538, MPFR_RNDN); ; mpfr_set_si(r25541, mpfr_cmp(r25539, r25540) <= 0, MPFR_RNDN); mpfr_mul(r25542, r25524, r25522, MPFR_RNDN); mpfr_mul(r25543, r25542, r25520, MPFR_RNDN); mpfr_mul(r25544, r25543, r25535, MPFR_RNDN); mpfr_cbrt(r25545, r25544, MPFR_RNDN); mpfr_mul(r25546, r25545, r25545, MPFR_RNDN); mpfr_mul(r25547, r25546, r25545, MPFR_RNDN); mpfr_div(r25548, r25547, r25538, MPFR_RNDN); mpfr_div(r25549, r25532, r25548, MPFR_RNDN); mpfr_mul(r25550, r25520, r25522, MPFR_RNDN); mpfr_mul(r25551, r25550, r25520, MPFR_RNDN); mpfr_mul(r25552, r25551, r25535, MPFR_RNDN); mpfr_div(r25553, r25552, r25523, MPFR_RNDN); mpfr_div(r25554, r25553, r25538, MPFR_RNDN); mpfr_div(r25555, r25532, r25554, MPFR_RNDN); if (mpfr_get_si(r25541, MPFR_RNDN)) { mpfr_set(r25556, r25549, MPFR_RNDN); } else { mpfr_set(r25556, r25555, MPFR_RNDN); }; return mpfr_get_d(r25556, MPFR_RNDN); } static mpfr_t r25557, r25558, r25559, r25560, r25561, r25562, r25563, r25564, r25565, r25566, r25567, r25568, r25569, r25570, r25571, r25572, r25573, r25574, r25575, r25576, r25577, r25578, r25579, r25580, r25581, r25582, r25583, r25584, r25585, r25586, r25587, r25588, r25589, r25590, r25591, r25592, r25593, r25594; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init(r25557); mpfr_init(r25558); mpfr_init(r25559); mpfr_init(r25560); mpfr_init(r25561); mpfr_init(r25562); mpfr_init(r25563); mpfr_init(r25564); mpfr_init(r25565); mpfr_init(r25566); mpfr_init(r25567); mpfr_init_set_str(r25568, "1", 10, MPFR_RNDN); mpfr_init(r25569); mpfr_init_set_str(r25570, "2", 10, MPFR_RNDN); mpfr_init(r25571); mpfr_init(r25572); mpfr_init(r25573); mpfr_init(r25574); mpfr_init(r25575); mpfr_init(r25576); mpfr_init(r25577); mpfr_init_set_str(r25578, "4.3400588385362695e+247", 10, MPFR_RNDN); mpfr_init(r25579); mpfr_init(r25580); mpfr_init(r25581); mpfr_init(r25582); mpfr_init(r25583); mpfr_init(r25584); mpfr_init(r25585); mpfr_init(r25586); mpfr_init(r25587); mpfr_init(r25588); mpfr_init(r25589); mpfr_init(r25590); mpfr_init(r25591); mpfr_init(r25592); mpfr_init(r25593); mpfr_init(r25594); } double f_dm(double t, double l, double k) { mpfr_set_d(r25557, k, MPFR_RNDN); mpfr_sin(r25558, r25557, MPFR_RNDN); mpfr_set_d(r25559, l, MPFR_RNDN); mpfr_set_d(r25560, t, MPFR_RNDN); mpfr_div(r25561, r25559, r25560, MPFR_RNDN); mpfr_div(r25562, r25558, r25561, MPFR_RNDN); mpfr_cbrt(r25563, r25562, MPFR_RNDN); mpfr_mul(r25564, r25563, r25563, MPFR_RNDN); mpfr_mul(r25565, r25564, r25563, MPFR_RNDN); mpfr_mul(r25566, r25565, r25560, MPFR_RNDN); mpfr_mul(r25567, r25566, r25558, MPFR_RNDN); ; mpfr_div(r25569, r25557, r25560, MPFR_RNDN); ; mpfr_pow(r25571, r25569, r25570, MPFR_RNDN); mpfr_add(r25572, r25568, r25571, MPFR_RNDN); mpfr_add(r25573, r25572, r25568, MPFR_RNDN); mpfr_mul(r25574, r25567, r25573, MPFR_RNDN); mpfr_cos(r25575, r25557, MPFR_RNDN); mpfr_mul(r25576, r25561, r25575, MPFR_RNDN); mpfr_div(r25577, r25574, r25576, MPFR_RNDN); ; mpfr_set_si(r25579, mpfr_cmp(r25577, r25578) <= 0, MPFR_RNDN); mpfr_mul(r25580, r25562, r25560, MPFR_RNDN); mpfr_mul(r25581, r25580, r25558, MPFR_RNDN); mpfr_mul(r25582, r25581, r25573, MPFR_RNDN); mpfr_cbrt(r25583, r25582, MPFR_RNDN); mpfr_mul(r25584, r25583, r25583, MPFR_RNDN); mpfr_mul(r25585, r25584, r25583, MPFR_RNDN); mpfr_div(r25586, r25585, r25576, MPFR_RNDN); mpfr_div(r25587, r25570, r25586, MPFR_RNDN); mpfr_mul(r25588, r25558, r25560, MPFR_RNDN); mpfr_mul(r25589, r25588, r25558, MPFR_RNDN); mpfr_mul(r25590, r25589, r25573, MPFR_RNDN); mpfr_div(r25591, r25590, r25561, MPFR_RNDN); mpfr_div(r25592, r25591, r25576, MPFR_RNDN); mpfr_div(r25593, r25570, r25592, MPFR_RNDN); if (mpfr_get_si(r25579, MPFR_RNDN)) { mpfr_set(r25594, r25587, MPFR_RNDN); } else { mpfr_set(r25594, r25593, MPFR_RNDN); }; return mpfr_get_d(r25594, MPFR_RNDN); }