#include #include #include #include #include char *name = "Distance on a great circle"; double f_if(float R, float lambda1, float lambda2, float phi1, float phi2) { float r20485 = R; float r20486 = 2; float r20487 = phi1; float r20488 = phi2; float r20489 = r20487 - r20488; float r20490 = r20489 / r20486; float r20491 = sin(r20490); float r20492 = pow(r20491, r20486); float r20493 = cos(r20487); float r20494 = cos(r20488); float r20495 = r20493 * r20494; float r20496 = lambda1; float r20497 = lambda2; float r20498 = r20496 - r20497; float r20499 = r20498 / r20486; float r20500 = sin(r20499); float r20501 = r20495 * r20500; float r20502 = r20501 * r20500; float r20503 = r20492 + r20502; float r20504 = sqrt(r20503); float r20505 = 1; float r20506 = r20505 - r20503; float r20507 = sqrt(r20506); float r20508 = atan2(r20504, r20507); float r20509 = r20486 * r20508; float r20510 = r20485 * r20509; return r20510; } double f_id(double R, double lambda1, double lambda2, double phi1, double phi2) { double r20511 = R; double r20512 = 2; double r20513 = phi1; double r20514 = phi2; double r20515 = r20513 - r20514; double r20516 = r20515 / r20512; double r20517 = sin(r20516); double r20518 = pow(r20517, r20512); double r20519 = cos(r20513); double r20520 = cos(r20514); double r20521 = r20519 * r20520; double r20522 = lambda1; double r20523 = lambda2; double r20524 = r20522 - r20523; double r20525 = r20524 / r20512; double r20526 = sin(r20525); double r20527 = r20521 * r20526; double r20528 = r20527 * r20526; double r20529 = r20518 + r20528; double r20530 = sqrt(r20529); double r20531 = 1; double r20532 = r20531 - r20529; double r20533 = sqrt(r20532); double r20534 = atan2(r20530, r20533); double r20535 = r20512 * r20534; double r20536 = r20511 * r20535; return r20536; } double f_of(float R, float lambda1, float lambda2, float phi1, float phi2) { float r20537 = R; float r20538 = 2; float r20539 = phi1; float r20540 = phi2; float r20541 = r20539 - r20540; float r20542 = r20541 / r20538; float r20543 = sin(r20542); float r20544 = pow(r20543, r20538); float r20545 = cos(r20539); float r20546 = cos(r20540); float r20547 = r20545 * r20546; float r20548 = lambda1; float r20549 = lambda2; float r20550 = r20548 - r20549; float r20551 = r20550 / r20538; float r20552 = sin(r20551); float r20553 = r20547 * r20552; float r20554 = r20553 * r20552; float r20555 = r20544 + r20554; float r20556 = sqrt(r20555); float r20557 = 1; float r20558 = exp(r20552); float r20559 = log(r20558); float r20560 = 3; float r20561 = pow(r20559, r20560); float r20562 = cbrt(r20561); float r20563 = r20553 * r20562; float r20564 = r20544 + r20563; float r20565 = r20557 - r20564; float r20566 = sqrt(r20565); float r20567 = atan2(r20556, r20566); float r20568 = r20538 * r20567; float r20569 = r20537 * r20568; return r20569; } double f_od(double R, double lambda1, double lambda2, double phi1, double phi2) { double r20570 = R; double r20571 = 2; double r20572 = phi1; double r20573 = phi2; double r20574 = r20572 - r20573; double r20575 = r20574 / r20571; double r20576 = sin(r20575); double r20577 = pow(r20576, r20571); double r20578 = cos(r20572); double r20579 = cos(r20573); double r20580 = r20578 * r20579; double r20581 = lambda1; double r20582 = lambda2; double r20583 = r20581 - r20582; double r20584 = r20583 / r20571; double r20585 = sin(r20584); double r20586 = r20580 * r20585; double r20587 = r20586 * r20585; double r20588 = r20577 + r20587; double r20589 = sqrt(r20588); double r20590 = 1; double r20591 = exp(r20585); double r20592 = log(r20591); double r20593 = 3; double r20594 = pow(r20592, r20593); double r20595 = cbrt(r20594); double r20596 = r20586 * r20595; double r20597 = r20577 + r20596; double r20598 = r20590 - r20597; double r20599 = sqrt(r20598); double r20600 = atan2(r20589, r20599); double r20601 = r20571 * r20600; double r20602 = r20570 * r20601; return r20602; } 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 r20603, r20604, r20605, r20606, r20607, r20608, r20609, r20610, r20611, r20612, r20613, r20614, r20615, r20616, r20617, r20618, r20619, r20620, r20621, r20622, r20623, r20624, r20625, r20626, r20627, r20628; void setup_mpfr_f_im() { mpfr_set_default_prec(1424); mpfr_init(r20603); mpfr_init_set_str(r20604, "2", 10, MPFR_RNDN); mpfr_init(r20605); mpfr_init(r20606); mpfr_init(r20607); mpfr_init(r20608); mpfr_init(r20609); mpfr_init(r20610); mpfr_init(r20611); mpfr_init(r20612); mpfr_init(r20613); mpfr_init(r20614); mpfr_init(r20615); mpfr_init(r20616); mpfr_init(r20617); mpfr_init(r20618); mpfr_init(r20619); mpfr_init(r20620); mpfr_init(r20621); mpfr_init(r20622); mpfr_init_set_str(r20623, "1", 10, MPFR_RNDN); mpfr_init(r20624); mpfr_init(r20625); mpfr_init(r20626); mpfr_init(r20627); mpfr_init(r20628); } double f_im(double R, double lambda1, double lambda2, double phi1, double phi2) { mpfr_set_d(r20603, R, MPFR_RNDN); ; mpfr_set_d(r20605, phi1, MPFR_RNDN); mpfr_set_d(r20606, phi2, MPFR_RNDN); mpfr_sub(r20607, r20605, r20606, MPFR_RNDN); mpfr_div(r20608, r20607, r20604, MPFR_RNDN); mpfr_sin(r20609, r20608, MPFR_RNDN); mpfr_pow(r20610, r20609, r20604, MPFR_RNDN); mpfr_cos(r20611, r20605, MPFR_RNDN); mpfr_cos(r20612, r20606, MPFR_RNDN); mpfr_mul(r20613, r20611, r20612, MPFR_RNDN); mpfr_set_d(r20614, lambda1, MPFR_RNDN); mpfr_set_d(r20615, lambda2, MPFR_RNDN); mpfr_sub(r20616, r20614, r20615, MPFR_RNDN); mpfr_div(r20617, r20616, r20604, MPFR_RNDN); mpfr_sin(r20618, r20617, MPFR_RNDN); mpfr_mul(r20619, r20613, r20618, MPFR_RNDN); mpfr_mul(r20620, r20619, r20618, MPFR_RNDN); mpfr_add(r20621, r20610, r20620, MPFR_RNDN); mpfr_sqrt(r20622, r20621, MPFR_RNDN); ; mpfr_sub(r20624, r20623, r20621, MPFR_RNDN); mpfr_sqrt(r20625, r20624, MPFR_RNDN); mpfr_atan2(r20626, r20622, r20625, MPFR_RNDN); mpfr_mul(r20627, r20604, r20626, MPFR_RNDN); mpfr_mul(r20628, r20603, r20627, MPFR_RNDN); return mpfr_get_d(r20628, MPFR_RNDN); } static mpfr_t r20629, r20630, r20631, r20632, r20633, r20634, r20635, r20636, r20637, r20638, r20639, r20640, r20641, r20642, r20643, r20644, r20645, r20646, r20647, r20648, r20649, r20650, r20651, r20652, r20653, r20654, r20655, r20656, r20657, r20658, r20659, r20660, r20661; void setup_mpfr_f_fm() { mpfr_set_default_prec(1424); mpfr_init(r20629); mpfr_init_set_str(r20630, "2", 10, MPFR_RNDN); mpfr_init(r20631); mpfr_init(r20632); mpfr_init(r20633); mpfr_init(r20634); mpfr_init(r20635); mpfr_init(r20636); mpfr_init(r20637); mpfr_init(r20638); mpfr_init(r20639); mpfr_init(r20640); mpfr_init(r20641); mpfr_init(r20642); mpfr_init(r20643); mpfr_init(r20644); mpfr_init(r20645); mpfr_init(r20646); mpfr_init(r20647); mpfr_init(r20648); mpfr_init_set_str(r20649, "1", 10, MPFR_RNDN); mpfr_init(r20650); mpfr_init(r20651); mpfr_init_set_str(r20652, "3", 10, MPFR_RNDN); mpfr_init(r20653); mpfr_init(r20654); mpfr_init(r20655); mpfr_init(r20656); mpfr_init(r20657); mpfr_init(r20658); mpfr_init(r20659); mpfr_init(r20660); mpfr_init(r20661); } double f_fm(double R, double lambda1, double lambda2, double phi1, double phi2) { mpfr_set_d(r20629, R, MPFR_RNDN); ; mpfr_set_d(r20631, phi1, MPFR_RNDN); mpfr_set_d(r20632, phi2, MPFR_RNDN); mpfr_sub(r20633, r20631, r20632, MPFR_RNDN); mpfr_div(r20634, r20633, r20630, MPFR_RNDN); mpfr_sin(r20635, r20634, MPFR_RNDN); mpfr_pow(r20636, r20635, r20630, MPFR_RNDN); mpfr_cos(r20637, r20631, MPFR_RNDN); mpfr_cos(r20638, r20632, MPFR_RNDN); mpfr_mul(r20639, r20637, r20638, MPFR_RNDN); mpfr_set_d(r20640, lambda1, MPFR_RNDN); mpfr_set_d(r20641, lambda2, MPFR_RNDN); mpfr_sub(r20642, r20640, r20641, MPFR_RNDN); mpfr_div(r20643, r20642, r20630, MPFR_RNDN); mpfr_sin(r20644, r20643, MPFR_RNDN); mpfr_mul(r20645, r20639, r20644, MPFR_RNDN); mpfr_mul(r20646, r20645, r20644, MPFR_RNDN); mpfr_add(r20647, r20636, r20646, MPFR_RNDN); mpfr_sqrt(r20648, r20647, MPFR_RNDN); ; mpfr_exp(r20650, r20644, MPFR_RNDN); mpfr_log(r20651, r20650, MPFR_RNDN); ; mpfr_pow(r20653, r20651, r20652, MPFR_RNDN); mpfr_cbrt(r20654, r20653, MPFR_RNDN); mpfr_mul(r20655, r20645, r20654, MPFR_RNDN); mpfr_add(r20656, r20636, r20655, MPFR_RNDN); mpfr_sub(r20657, r20649, r20656, MPFR_RNDN); mpfr_sqrt(r20658, r20657, MPFR_RNDN); mpfr_atan2(r20659, r20648, r20658, MPFR_RNDN); mpfr_mul(r20660, r20630, r20659, MPFR_RNDN); mpfr_mul(r20661, r20629, r20660, MPFR_RNDN); return mpfr_get_d(r20661, MPFR_RNDN); } static mpfr_t r20662, r20663, r20664, r20665, r20666, r20667, r20668, r20669, r20670, r20671, r20672, r20673, r20674, r20675, r20676, r20677, r20678, r20679, r20680, r20681, r20682, r20683, r20684, r20685, r20686, r20687, r20688, r20689, r20690, r20691, r20692, r20693, r20694; void setup_mpfr_f_dm() { mpfr_set_default_prec(1424); mpfr_init(r20662); mpfr_init_set_str(r20663, "2", 10, MPFR_RNDN); mpfr_init(r20664); mpfr_init(r20665); mpfr_init(r20666); mpfr_init(r20667); mpfr_init(r20668); mpfr_init(r20669); mpfr_init(r20670); mpfr_init(r20671); mpfr_init(r20672); mpfr_init(r20673); mpfr_init(r20674); mpfr_init(r20675); mpfr_init(r20676); mpfr_init(r20677); mpfr_init(r20678); mpfr_init(r20679); mpfr_init(r20680); mpfr_init(r20681); mpfr_init_set_str(r20682, "1", 10, MPFR_RNDN); mpfr_init(r20683); mpfr_init(r20684); mpfr_init_set_str(r20685, "3", 10, MPFR_RNDN); mpfr_init(r20686); mpfr_init(r20687); mpfr_init(r20688); mpfr_init(r20689); mpfr_init(r20690); mpfr_init(r20691); mpfr_init(r20692); mpfr_init(r20693); mpfr_init(r20694); } double f_dm(double R, double lambda1, double lambda2, double phi1, double phi2) { mpfr_set_d(r20662, R, MPFR_RNDN); ; mpfr_set_d(r20664, phi1, MPFR_RNDN); mpfr_set_d(r20665, phi2, MPFR_RNDN); mpfr_sub(r20666, r20664, r20665, MPFR_RNDN); mpfr_div(r20667, r20666, r20663, MPFR_RNDN); mpfr_sin(r20668, r20667, MPFR_RNDN); mpfr_pow(r20669, r20668, r20663, MPFR_RNDN); mpfr_cos(r20670, r20664, MPFR_RNDN); mpfr_cos(r20671, r20665, MPFR_RNDN); mpfr_mul(r20672, r20670, r20671, MPFR_RNDN); mpfr_set_d(r20673, lambda1, MPFR_RNDN); mpfr_set_d(r20674, lambda2, MPFR_RNDN); mpfr_sub(r20675, r20673, r20674, MPFR_RNDN); mpfr_div(r20676, r20675, r20663, MPFR_RNDN); mpfr_sin(r20677, r20676, MPFR_RNDN); mpfr_mul(r20678, r20672, r20677, MPFR_RNDN); mpfr_mul(r20679, r20678, r20677, MPFR_RNDN); mpfr_add(r20680, r20669, r20679, MPFR_RNDN); mpfr_sqrt(r20681, r20680, MPFR_RNDN); ; mpfr_exp(r20683, r20677, MPFR_RNDN); mpfr_log(r20684, r20683, MPFR_RNDN); ; mpfr_pow(r20686, r20684, r20685, MPFR_RNDN); mpfr_cbrt(r20687, r20686, MPFR_RNDN); mpfr_mul(r20688, r20678, r20687, MPFR_RNDN); mpfr_add(r20689, r20669, r20688, MPFR_RNDN); mpfr_sub(r20690, r20682, r20689, MPFR_RNDN); mpfr_sqrt(r20691, r20690, MPFR_RNDN); mpfr_atan2(r20692, r20681, r20691, MPFR_RNDN); mpfr_mul(r20693, r20663, r20692, MPFR_RNDN); mpfr_mul(r20694, r20662, r20693, MPFR_RNDN); return mpfr_get_d(r20694, MPFR_RNDN); }