#include #include #include #include #include char *name = "Octave 3.8, jcobi/1"; double f_if(float alpha, float beta) { float r26470 = beta; float r26471 = alpha; float r26472 = r26470 - r26471; float r26473 = r26471 + r26470; float r26474 = 2.0; float r26475 = r26473 + r26474; float r26476 = r26472 / r26475; float r26477 = 1.0; float r26478 = r26476 + r26477; float r26479 = r26478 / r26474; return r26479; } double f_id(double alpha, double beta) { double r26480 = beta; double r26481 = alpha; double r26482 = r26480 - r26481; double r26483 = r26481 + r26480; double r26484 = 2.0; double r26485 = r26483 + r26484; double r26486 = r26482 / r26485; double r26487 = 1.0; double r26488 = r26486 + r26487; double r26489 = r26488 / r26484; return r26489; } double f_of(float alpha, float beta) { float r26490 = beta; float r26491 = alpha; float r26492 = r26490 - r26491; float r26493 = r26491 + r26490; float r26494 = 2.0; float r26495 = r26493 + r26494; float r26496 = r26492 / r26495; float r26497 = 1.0; float r26498 = r26496 + r26497; float r26499 = r26498 / r26494; float r26500 = 1.0167133754042726e-08; bool r26501 = r26499 <= r26500; float r26502 = r26490 / r26495; float r26503 = 4.0; float r26504 = 1; float r26505 = 2; float r26506 = pow(r26491, r26505); float r26507 = r26504 / r26506; float r26508 = r26503 * r26507; float r26509 = 8.0; float r26510 = 3; float r26511 = pow(r26491, r26510); float r26512 = r26504 / r26511; float r26513 = r26509 * r26512; float r26514 = r26504 / r26491; float r26515 = r26494 * r26514; float r26516 = r26513 + r26515; float r26517 = r26508 - r26516; float r26518 = r26502 - r26517; float r26519 = r26518 / r26494; float r26520 = r26494 + r26493; float r26521 = r26490 / r26520; float r26522 = r26491 / r26520; float r26523 = r26521 - r26522; float r26524 = r26497 + r26523; float r26525 = exp(r26524); float r26526 = log(r26525); float r26527 = r26526 / r26494; float r26528 = r26501 ? r26519 : r26527; return r26528; } double f_od(double alpha, double beta) { double r26529 = beta; double r26530 = alpha; double r26531 = r26529 - r26530; double r26532 = r26530 + r26529; double r26533 = 2.0; double r26534 = r26532 + r26533; double r26535 = r26531 / r26534; double r26536 = 1.0; double r26537 = r26535 + r26536; double r26538 = r26537 / r26533; double r26539 = 1.0167133754042726e-08; bool r26540 = r26538 <= r26539; double r26541 = r26529 / r26534; double r26542 = 4.0; double r26543 = 1; double r26544 = 2; double r26545 = pow(r26530, r26544); double r26546 = r26543 / r26545; double r26547 = r26542 * r26546; double r26548 = 8.0; double r26549 = 3; double r26550 = pow(r26530, r26549); double r26551 = r26543 / r26550; double r26552 = r26548 * r26551; double r26553 = r26543 / r26530; double r26554 = r26533 * r26553; double r26555 = r26552 + r26554; double r26556 = r26547 - r26555; double r26557 = r26541 - r26556; double r26558 = r26557 / r26533; double r26559 = r26533 + r26532; double r26560 = r26529 / r26559; double r26561 = r26530 / r26559; double r26562 = r26560 - r26561; double r26563 = r26536 + r26562; double r26564 = exp(r26563); double r26565 = log(r26564); double r26566 = r26565 / r26533; double r26567 = r26540 ? r26558 : r26566; return r26567; } 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 r26568, r26569, r26570, r26571, r26572, r26573, r26574, r26575, r26576, r26577; void setup_mpfr_f_im() { mpfr_set_default_prec(1360); mpfr_init(r26568); mpfr_init(r26569); mpfr_init(r26570); mpfr_init(r26571); mpfr_init_set_str(r26572, "2.0", 10, MPFR_RNDN); mpfr_init(r26573); mpfr_init(r26574); mpfr_init_set_str(r26575, "1.0", 10, MPFR_RNDN); mpfr_init(r26576); mpfr_init(r26577); } double f_im(double alpha, double beta) { mpfr_set_d(r26568, beta, MPFR_RNDN); mpfr_set_d(r26569, alpha, MPFR_RNDN); mpfr_sub(r26570, r26568, r26569, MPFR_RNDN); mpfr_add(r26571, r26569, r26568, MPFR_RNDN); ; mpfr_add(r26573, r26571, r26572, MPFR_RNDN); mpfr_div(r26574, r26570, r26573, MPFR_RNDN); ; mpfr_add(r26576, r26574, r26575, MPFR_RNDN); mpfr_div(r26577, r26576, r26572, MPFR_RNDN); return mpfr_get_d(r26577, MPFR_RNDN); } static mpfr_t r26578, r26579, r26580, r26581, r26582, r26583, r26584, r26585, r26586, r26587, r26588, r26589, r26590, r26591, r26592, r26593, r26594, r26595, r26596, r26597, r26598, r26599, r26600, r26601, r26602, r26603, r26604, r26605, r26606, r26607, r26608, r26609, r26610, r26611, r26612, r26613, r26614, r26615, r26616; void setup_mpfr_f_fm() { mpfr_set_default_prec(1360); mpfr_init(r26578); mpfr_init(r26579); mpfr_init(r26580); mpfr_init(r26581); mpfr_init_set_str(r26582, "2.0", 10, MPFR_RNDN); mpfr_init(r26583); mpfr_init(r26584); mpfr_init_set_str(r26585, "1.0", 10, MPFR_RNDN); mpfr_init(r26586); mpfr_init(r26587); mpfr_init_set_str(r26588, "1.0167133754042726e-08", 10, MPFR_RNDN); mpfr_init(r26589); mpfr_init(r26590); mpfr_init_set_str(r26591, "4.0", 10, MPFR_RNDN); mpfr_init_set_str(r26592, "1", 10, MPFR_RNDN); mpfr_init_set_str(r26593, "2", 10, MPFR_RNDN); mpfr_init(r26594); mpfr_init(r26595); mpfr_init(r26596); mpfr_init_set_str(r26597, "8.0", 10, MPFR_RNDN); mpfr_init_set_str(r26598, "3", 10, MPFR_RNDN); mpfr_init(r26599); mpfr_init(r26600); mpfr_init(r26601); mpfr_init(r26602); mpfr_init(r26603); mpfr_init(r26604); mpfr_init(r26605); mpfr_init(r26606); mpfr_init(r26607); mpfr_init(r26608); mpfr_init(r26609); mpfr_init(r26610); mpfr_init(r26611); mpfr_init(r26612); mpfr_init(r26613); mpfr_init(r26614); mpfr_init(r26615); mpfr_init(r26616); } double f_fm(double alpha, double beta) { mpfr_set_d(r26578, beta, MPFR_RNDN); mpfr_set_d(r26579, alpha, MPFR_RNDN); mpfr_sub(r26580, r26578, r26579, MPFR_RNDN); mpfr_add(r26581, r26579, r26578, MPFR_RNDN); ; mpfr_add(r26583, r26581, r26582, MPFR_RNDN); mpfr_div(r26584, r26580, r26583, MPFR_RNDN); ; mpfr_add(r26586, r26584, r26585, MPFR_RNDN); mpfr_div(r26587, r26586, r26582, MPFR_RNDN); ; mpfr_set_si(r26589, mpfr_cmp(r26587, r26588) <= 0, MPFR_RNDN); mpfr_div(r26590, r26578, r26583, MPFR_RNDN); ; ; ; mpfr_pow(r26594, r26579, r26593, MPFR_RNDN); mpfr_div(r26595, r26592, r26594, MPFR_RNDN); mpfr_mul(r26596, r26591, r26595, MPFR_RNDN); ; ; mpfr_pow(r26599, r26579, r26598, MPFR_RNDN); mpfr_div(r26600, r26592, r26599, MPFR_RNDN); mpfr_mul(r26601, r26597, r26600, MPFR_RNDN); mpfr_div(r26602, r26592, r26579, MPFR_RNDN); mpfr_mul(r26603, r26582, r26602, MPFR_RNDN); mpfr_add(r26604, r26601, r26603, MPFR_RNDN); mpfr_sub(r26605, r26596, r26604, MPFR_RNDN); mpfr_sub(r26606, r26590, r26605, MPFR_RNDN); mpfr_div(r26607, r26606, r26582, MPFR_RNDN); mpfr_add(r26608, r26582, r26581, MPFR_RNDN); mpfr_div(r26609, r26578, r26608, MPFR_RNDN); mpfr_div(r26610, r26579, r26608, MPFR_RNDN); mpfr_sub(r26611, r26609, r26610, MPFR_RNDN); mpfr_add(r26612, r26585, r26611, MPFR_RNDN); mpfr_exp(r26613, r26612, MPFR_RNDN); mpfr_log(r26614, r26613, MPFR_RNDN); mpfr_div(r26615, r26614, r26582, MPFR_RNDN); if (mpfr_get_si(r26589, MPFR_RNDN)) { mpfr_set(r26616, r26607, MPFR_RNDN); } else { mpfr_set(r26616, r26615, MPFR_RNDN); }; return mpfr_get_d(r26616, MPFR_RNDN); } static mpfr_t r26617, r26618, r26619, r26620, r26621, r26622, r26623, r26624, r26625, r26626, r26627, r26628, r26629, r26630, r26631, r26632, r26633, r26634, r26635, r26636, r26637, r26638, r26639, r26640, r26641, r26642, r26643, r26644, r26645, r26646, r26647, r26648, r26649, r26650, r26651, r26652, r26653, r26654, r26655; void setup_mpfr_f_dm() { mpfr_set_default_prec(1360); mpfr_init(r26617); mpfr_init(r26618); mpfr_init(r26619); mpfr_init(r26620); mpfr_init_set_str(r26621, "2.0", 10, MPFR_RNDN); mpfr_init(r26622); mpfr_init(r26623); mpfr_init_set_str(r26624, "1.0", 10, MPFR_RNDN); mpfr_init(r26625); mpfr_init(r26626); mpfr_init_set_str(r26627, "1.0167133754042726e-08", 10, MPFR_RNDN); mpfr_init(r26628); mpfr_init(r26629); mpfr_init_set_str(r26630, "4.0", 10, MPFR_RNDN); mpfr_init_set_str(r26631, "1", 10, MPFR_RNDN); mpfr_init_set_str(r26632, "2", 10, MPFR_RNDN); mpfr_init(r26633); mpfr_init(r26634); mpfr_init(r26635); mpfr_init_set_str(r26636, "8.0", 10, MPFR_RNDN); mpfr_init_set_str(r26637, "3", 10, MPFR_RNDN); mpfr_init(r26638); mpfr_init(r26639); mpfr_init(r26640); mpfr_init(r26641); mpfr_init(r26642); mpfr_init(r26643); mpfr_init(r26644); mpfr_init(r26645); mpfr_init(r26646); mpfr_init(r26647); mpfr_init(r26648); mpfr_init(r26649); mpfr_init(r26650); mpfr_init(r26651); mpfr_init(r26652); mpfr_init(r26653); mpfr_init(r26654); mpfr_init(r26655); } double f_dm(double alpha, double beta) { mpfr_set_d(r26617, beta, MPFR_RNDN); mpfr_set_d(r26618, alpha, MPFR_RNDN); mpfr_sub(r26619, r26617, r26618, MPFR_RNDN); mpfr_add(r26620, r26618, r26617, MPFR_RNDN); ; mpfr_add(r26622, r26620, r26621, MPFR_RNDN); mpfr_div(r26623, r26619, r26622, MPFR_RNDN); ; mpfr_add(r26625, r26623, r26624, MPFR_RNDN); mpfr_div(r26626, r26625, r26621, MPFR_RNDN); ; mpfr_set_si(r26628, mpfr_cmp(r26626, r26627) <= 0, MPFR_RNDN); mpfr_div(r26629, r26617, r26622, MPFR_RNDN); ; ; ; mpfr_pow(r26633, r26618, r26632, MPFR_RNDN); mpfr_div(r26634, r26631, r26633, MPFR_RNDN); mpfr_mul(r26635, r26630, r26634, MPFR_RNDN); ; ; mpfr_pow(r26638, r26618, r26637, MPFR_RNDN); mpfr_div(r26639, r26631, r26638, MPFR_RNDN); mpfr_mul(r26640, r26636, r26639, MPFR_RNDN); mpfr_div(r26641, r26631, r26618, MPFR_RNDN); mpfr_mul(r26642, r26621, r26641, MPFR_RNDN); mpfr_add(r26643, r26640, r26642, MPFR_RNDN); mpfr_sub(r26644, r26635, r26643, MPFR_RNDN); mpfr_sub(r26645, r26629, r26644, MPFR_RNDN); mpfr_div(r26646, r26645, r26621, MPFR_RNDN); mpfr_add(r26647, r26621, r26620, MPFR_RNDN); mpfr_div(r26648, r26617, r26647, MPFR_RNDN); mpfr_div(r26649, r26618, r26647, MPFR_RNDN); mpfr_sub(r26650, r26648, r26649, MPFR_RNDN); mpfr_add(r26651, r26624, r26650, MPFR_RNDN); mpfr_exp(r26652, r26651, MPFR_RNDN); mpfr_log(r26653, r26652, MPFR_RNDN); mpfr_div(r26654, r26653, r26621, MPFR_RNDN); if (mpfr_get_si(r26628, MPFR_RNDN)) { mpfr_set(r26655, r26646, MPFR_RNDN); } else { mpfr_set(r26655, r26654, MPFR_RNDN); }; return mpfr_get_d(r26655, MPFR_RNDN); }