#include #include #include #include #include char *name = "Diagrams.Solve.Polynomial:cubForm from diagrams-solve-0.1"; double f_if(float x, float y, float z, float t, float a, float b, float c, float i, float j, float k) { float r26441 = x; float r26442 = 18.0; float r26443 = r26441 * r26442; float r26444 = y; float r26445 = r26443 * r26444; float r26446 = z; float r26447 = r26445 * r26446; float r26448 = t; float r26449 = r26447 * r26448; float r26450 = a; float r26451 = 4.0; float r26452 = r26450 * r26451; float r26453 = r26452 * r26448; float r26454 = r26449 - r26453; float r26455 = b; float r26456 = c; float r26457 = r26455 * r26456; float r26458 = r26454 + r26457; float r26459 = r26441 * r26451; float r26460 = i; float r26461 = r26459 * r26460; float r26462 = r26458 - r26461; float r26463 = j; float r26464 = 27.0; float r26465 = r26463 * r26464; float r26466 = k; float r26467 = r26465 * r26466; float r26468 = r26462 - r26467; return r26468; } double f_id(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) { double r26469 = x; double r26470 = 18.0; double r26471 = r26469 * r26470; double r26472 = y; double r26473 = r26471 * r26472; double r26474 = z; double r26475 = r26473 * r26474; double r26476 = t; double r26477 = r26475 * r26476; double r26478 = a; double r26479 = 4.0; double r26480 = r26478 * r26479; double r26481 = r26480 * r26476; double r26482 = r26477 - r26481; double r26483 = b; double r26484 = c; double r26485 = r26483 * r26484; double r26486 = r26482 + r26485; double r26487 = r26469 * r26479; double r26488 = i; double r26489 = r26487 * r26488; double r26490 = r26486 - r26489; double r26491 = j; double r26492 = 27.0; double r26493 = r26491 * r26492; double r26494 = k; double r26495 = r26493 * r26494; double r26496 = r26490 - r26495; return r26496; } double f_of(float x, float y, float z, float t, float a, float b, float c, float i, float j, float k) { float r26497 = 18.0; float r26498 = z; float r26499 = y; float r26500 = r26498 * r26499; float r26501 = t; float r26502 = x; float r26503 = r26501 * r26502; float r26504 = r26500 * r26503; float r26505 = r26497 * r26504; float r26506 = a; float r26507 = 4.0; float r26508 = r26506 * r26507; float r26509 = r26508 * r26501; float r26510 = r26505 - r26509; float r26511 = b; float r26512 = c; float r26513 = r26511 * r26512; float r26514 = r26510 + r26513; float r26515 = r26502 * r26507; float r26516 = i; float r26517 = r26515 * r26516; float r26518 = r26514 - r26517; float r26519 = j; float r26520 = 27.0; float r26521 = r26519 * r26520; float r26522 = k; float r26523 = r26521 * r26522; float r26524 = r26518 - r26523; float r26525 = -1.023244258247893e+306; bool r26526 = r26524 <= r26525; float r26527 = r26516 * r26515; float r26528 = r26513 - r26527; float r26529 = r26520 * r26522; float r26530 = r26519 * r26529; float r26531 = r26528 - r26530; float r26532 = r26498 * r26502; float r26533 = r26499 * r26497; float r26534 = r26532 * r26533; float r26535 = r26507 * r26506; float r26536 = r26534 - r26535; float r26537 = r26501 * r26536; float r26538 = r26531 + r26537; float r26539 = 2.893458529333276e+297; bool r26540 = r26524 <= r26539; float r26541 = r26512 * r26511; float r26542 = r26497 * r26501; float r26543 = r26498 * r26542; float r26544 = r26499 * r26502; float r26545 = r26543 * r26544; float r26546 = r26541 + r26545; float r26547 = r26502 * r26516; float r26548 = r26501 * r26506; float r26549 = r26547 + r26548; float r26550 = r26507 * r26549; float r26551 = r26522 * r26519; float r26552 = r26551 * r26520; float r26553 = r26550 + r26552; float r26554 = r26546 - r26553; float r26555 = r26540 ? r26524 : r26554; float r26556 = r26526 ? r26538 : r26555; return r26556; } double f_od(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) { double r26557 = 18.0; double r26558 = z; double r26559 = y; double r26560 = r26558 * r26559; double r26561 = t; double r26562 = x; double r26563 = r26561 * r26562; double r26564 = r26560 * r26563; double r26565 = r26557 * r26564; double r26566 = a; double r26567 = 4.0; double r26568 = r26566 * r26567; double r26569 = r26568 * r26561; double r26570 = r26565 - r26569; double r26571 = b; double r26572 = c; double r26573 = r26571 * r26572; double r26574 = r26570 + r26573; double r26575 = r26562 * r26567; double r26576 = i; double r26577 = r26575 * r26576; double r26578 = r26574 - r26577; double r26579 = j; double r26580 = 27.0; double r26581 = r26579 * r26580; double r26582 = k; double r26583 = r26581 * r26582; double r26584 = r26578 - r26583; double r26585 = -1.023244258247893e+306; bool r26586 = r26584 <= r26585; double r26587 = r26576 * r26575; double r26588 = r26573 - r26587; double r26589 = r26580 * r26582; double r26590 = r26579 * r26589; double r26591 = r26588 - r26590; double r26592 = r26558 * r26562; double r26593 = r26559 * r26557; double r26594 = r26592 * r26593; double r26595 = r26567 * r26566; double r26596 = r26594 - r26595; double r26597 = r26561 * r26596; double r26598 = r26591 + r26597; double r26599 = 2.893458529333276e+297; bool r26600 = r26584 <= r26599; double r26601 = r26572 * r26571; double r26602 = r26557 * r26561; double r26603 = r26558 * r26602; double r26604 = r26559 * r26562; double r26605 = r26603 * r26604; double r26606 = r26601 + r26605; double r26607 = r26562 * r26576; double r26608 = r26561 * r26566; double r26609 = r26607 + r26608; double r26610 = r26567 * r26609; double r26611 = r26582 * r26579; double r26612 = r26611 * r26580; double r26613 = r26610 + r26612; double r26614 = r26606 - r26613; double r26615 = r26600 ? r26584 : r26614; double r26616 = r26586 ? r26598 : r26615; return r26616; } 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 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; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r26617); mpfr_init_set_str(r26618, "18.0", 10, MPFR_RNDN); mpfr_init(r26619); mpfr_init(r26620); mpfr_init(r26621); mpfr_init(r26622); mpfr_init(r26623); mpfr_init(r26624); mpfr_init(r26625); mpfr_init(r26626); mpfr_init_set_str(r26627, "4.0", 10, MPFR_RNDN); mpfr_init(r26628); mpfr_init(r26629); mpfr_init(r26630); mpfr_init(r26631); mpfr_init(r26632); mpfr_init(r26633); mpfr_init(r26634); mpfr_init(r26635); mpfr_init(r26636); mpfr_init(r26637); mpfr_init(r26638); mpfr_init(r26639); mpfr_init_set_str(r26640, "27.0", 10, MPFR_RNDN); mpfr_init(r26641); mpfr_init(r26642); mpfr_init(r26643); mpfr_init(r26644); } double f_im(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) { mpfr_set_d(r26617, x, MPFR_RNDN); ; mpfr_mul(r26619, r26617, r26618, MPFR_RNDN); mpfr_set_d(r26620, y, MPFR_RNDN); mpfr_mul(r26621, r26619, r26620, MPFR_RNDN); mpfr_set_d(r26622, z, MPFR_RNDN); mpfr_mul(r26623, r26621, r26622, MPFR_RNDN); mpfr_set_d(r26624, t, MPFR_RNDN); mpfr_mul(r26625, r26623, r26624, MPFR_RNDN); mpfr_set_d(r26626, a, MPFR_RNDN); ; mpfr_mul(r26628, r26626, r26627, MPFR_RNDN); mpfr_mul(r26629, r26628, r26624, MPFR_RNDN); mpfr_sub(r26630, r26625, r26629, MPFR_RNDN); mpfr_set_d(r26631, b, MPFR_RNDN); mpfr_set_d(r26632, c, MPFR_RNDN); mpfr_mul(r26633, r26631, r26632, MPFR_RNDN); mpfr_add(r26634, r26630, r26633, MPFR_RNDN); mpfr_mul(r26635, r26617, r26627, MPFR_RNDN); mpfr_set_d(r26636, i, MPFR_RNDN); mpfr_mul(r26637, r26635, r26636, MPFR_RNDN); mpfr_sub(r26638, r26634, r26637, MPFR_RNDN); mpfr_set_d(r26639, j, MPFR_RNDN); ; mpfr_mul(r26641, r26639, r26640, MPFR_RNDN); mpfr_set_d(r26642, k, MPFR_RNDN); mpfr_mul(r26643, r26641, r26642, MPFR_RNDN); mpfr_sub(r26644, r26638, r26643, MPFR_RNDN); return mpfr_get_d(r26644, MPFR_RNDN); } static mpfr_t r26645, r26646, r26647, r26648, r26649, r26650, r26651, r26652, r26653, r26654, r26655, r26656, r26657, r26658, r26659, r26660, r26661, r26662, r26663, r26664, r26665, r26666, r26667, r26668, r26669, r26670, r26671, r26672, r26673, r26674, r26675, r26676, r26677, r26678, r26679, r26680, r26681, r26682, r26683, r26684, r26685, r26686, r26687, r26688, r26689, r26690, r26691, r26692, r26693, r26694, r26695, r26696, r26697, r26698, r26699, r26700, r26701, r26702, r26703, r26704; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init_set_str(r26645, "18.0", 10, MPFR_RNDN); 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_set_str(r26655, "4.0", 10, MPFR_RNDN); mpfr_init(r26656); mpfr_init(r26657); mpfr_init(r26658); mpfr_init(r26659); mpfr_init(r26660); mpfr_init(r26661); mpfr_init(r26662); mpfr_init(r26663); mpfr_init(r26664); mpfr_init(r26665); mpfr_init(r26666); mpfr_init(r26667); mpfr_init_set_str(r26668, "27.0", 10, MPFR_RNDN); mpfr_init(r26669); mpfr_init(r26670); mpfr_init(r26671); mpfr_init(r26672); mpfr_init_set_str(r26673, "-1.023244258247893e+306", 10, MPFR_RNDN); mpfr_init(r26674); mpfr_init(r26675); mpfr_init(r26676); mpfr_init(r26677); mpfr_init(r26678); mpfr_init(r26679); mpfr_init(r26680); mpfr_init(r26681); mpfr_init(r26682); mpfr_init(r26683); mpfr_init(r26684); mpfr_init(r26685); mpfr_init(r26686); mpfr_init_set_str(r26687, "2.893458529333276e+297", 10, MPFR_RNDN); mpfr_init(r26688); mpfr_init(r26689); mpfr_init(r26690); mpfr_init(r26691); mpfr_init(r26692); mpfr_init(r26693); mpfr_init(r26694); mpfr_init(r26695); mpfr_init(r26696); mpfr_init(r26697); mpfr_init(r26698); mpfr_init(r26699); mpfr_init(r26700); mpfr_init(r26701); mpfr_init(r26702); mpfr_init(r26703); mpfr_init(r26704); } double f_fm(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) { ; mpfr_set_d(r26646, z, MPFR_RNDN); mpfr_set_d(r26647, y, MPFR_RNDN); mpfr_mul(r26648, r26646, r26647, MPFR_RNDN); mpfr_set_d(r26649, t, MPFR_RNDN); mpfr_set_d(r26650, x, MPFR_RNDN); mpfr_mul(r26651, r26649, r26650, MPFR_RNDN); mpfr_mul(r26652, r26648, r26651, MPFR_RNDN); mpfr_mul(r26653, r26645, r26652, MPFR_RNDN); mpfr_set_d(r26654, a, MPFR_RNDN); ; mpfr_mul(r26656, r26654, r26655, MPFR_RNDN); mpfr_mul(r26657, r26656, r26649, MPFR_RNDN); mpfr_sub(r26658, r26653, r26657, MPFR_RNDN); mpfr_set_d(r26659, b, MPFR_RNDN); mpfr_set_d(r26660, c, MPFR_RNDN); mpfr_mul(r26661, r26659, r26660, MPFR_RNDN); mpfr_add(r26662, r26658, r26661, MPFR_RNDN); mpfr_mul(r26663, r26650, r26655, MPFR_RNDN); mpfr_set_d(r26664, i, MPFR_RNDN); mpfr_mul(r26665, r26663, r26664, MPFR_RNDN); mpfr_sub(r26666, r26662, r26665, MPFR_RNDN); mpfr_set_d(r26667, j, MPFR_RNDN); ; mpfr_mul(r26669, r26667, r26668, MPFR_RNDN); mpfr_set_d(r26670, k, MPFR_RNDN); mpfr_mul(r26671, r26669, r26670, MPFR_RNDN); mpfr_sub(r26672, r26666, r26671, MPFR_RNDN); ; mpfr_set_si(r26674, mpfr_cmp(r26672, r26673) <= 0, MPFR_RNDN); mpfr_mul(r26675, r26664, r26663, MPFR_RNDN); mpfr_sub(r26676, r26661, r26675, MPFR_RNDN); mpfr_mul(r26677, r26668, r26670, MPFR_RNDN); mpfr_mul(r26678, r26667, r26677, MPFR_RNDN); mpfr_sub(r26679, r26676, r26678, MPFR_RNDN); mpfr_mul(r26680, r26646, r26650, MPFR_RNDN); mpfr_mul(r26681, r26647, r26645, MPFR_RNDN); mpfr_mul(r26682, r26680, r26681, MPFR_RNDN); mpfr_mul(r26683, r26655, r26654, MPFR_RNDN); mpfr_sub(r26684, r26682, r26683, MPFR_RNDN); mpfr_mul(r26685, r26649, r26684, MPFR_RNDN); mpfr_add(r26686, r26679, r26685, MPFR_RNDN); ; mpfr_set_si(r26688, mpfr_cmp(r26672, r26687) <= 0, MPFR_RNDN); mpfr_mul(r26689, r26660, r26659, MPFR_RNDN); mpfr_mul(r26690, r26645, r26649, MPFR_RNDN); mpfr_mul(r26691, r26646, r26690, MPFR_RNDN); mpfr_mul(r26692, r26647, r26650, MPFR_RNDN); mpfr_mul(r26693, r26691, r26692, MPFR_RNDN); mpfr_add(r26694, r26689, r26693, MPFR_RNDN); mpfr_mul(r26695, r26650, r26664, MPFR_RNDN); mpfr_mul(r26696, r26649, r26654, MPFR_RNDN); mpfr_add(r26697, r26695, r26696, MPFR_RNDN); mpfr_mul(r26698, r26655, r26697, MPFR_RNDN); mpfr_mul(r26699, r26670, r26667, MPFR_RNDN); mpfr_mul(r26700, r26699, r26668, MPFR_RNDN); mpfr_add(r26701, r26698, r26700, MPFR_RNDN); mpfr_sub(r26702, r26694, r26701, MPFR_RNDN); if (mpfr_get_si(r26688, MPFR_RNDN)) { mpfr_set(r26703, r26672, MPFR_RNDN); } else { mpfr_set(r26703, r26702, MPFR_RNDN); }; if (mpfr_get_si(r26674, MPFR_RNDN)) { mpfr_set(r26704, r26686, MPFR_RNDN); } else { mpfr_set(r26704, r26703, MPFR_RNDN); }; return mpfr_get_d(r26704, MPFR_RNDN); } static mpfr_t r26705, r26706, r26707, r26708, r26709, r26710, r26711, r26712, r26713, r26714, r26715, r26716, r26717, r26718, r26719, r26720, r26721, r26722, r26723, r26724, r26725, r26726, r26727, r26728, r26729, r26730, r26731, r26732, r26733, r26734, r26735, r26736, r26737, r26738, r26739, r26740, r26741, r26742, r26743, r26744, r26745, r26746, r26747, r26748, r26749, r26750, r26751, r26752, r26753, r26754, r26755, r26756, r26757, r26758, r26759, r26760, r26761, r26762, r26763, r26764; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init_set_str(r26705, "18.0", 10, MPFR_RNDN); mpfr_init(r26706); mpfr_init(r26707); mpfr_init(r26708); mpfr_init(r26709); mpfr_init(r26710); mpfr_init(r26711); mpfr_init(r26712); mpfr_init(r26713); mpfr_init(r26714); mpfr_init_set_str(r26715, "4.0", 10, MPFR_RNDN); mpfr_init(r26716); mpfr_init(r26717); mpfr_init(r26718); mpfr_init(r26719); mpfr_init(r26720); mpfr_init(r26721); mpfr_init(r26722); mpfr_init(r26723); mpfr_init(r26724); mpfr_init(r26725); mpfr_init(r26726); mpfr_init(r26727); mpfr_init_set_str(r26728, "27.0", 10, MPFR_RNDN); mpfr_init(r26729); mpfr_init(r26730); mpfr_init(r26731); mpfr_init(r26732); mpfr_init_set_str(r26733, "-1.023244258247893e+306", 10, MPFR_RNDN); mpfr_init(r26734); mpfr_init(r26735); mpfr_init(r26736); mpfr_init(r26737); mpfr_init(r26738); mpfr_init(r26739); mpfr_init(r26740); mpfr_init(r26741); mpfr_init(r26742); mpfr_init(r26743); mpfr_init(r26744); mpfr_init(r26745); mpfr_init(r26746); mpfr_init_set_str(r26747, "2.893458529333276e+297", 10, MPFR_RNDN); mpfr_init(r26748); mpfr_init(r26749); mpfr_init(r26750); mpfr_init(r26751); mpfr_init(r26752); mpfr_init(r26753); mpfr_init(r26754); mpfr_init(r26755); mpfr_init(r26756); mpfr_init(r26757); mpfr_init(r26758); mpfr_init(r26759); mpfr_init(r26760); mpfr_init(r26761); mpfr_init(r26762); mpfr_init(r26763); mpfr_init(r26764); } double f_dm(double x, double y, double z, double t, double a, double b, double c, double i, double j, double k) { ; mpfr_set_d(r26706, z, MPFR_RNDN); mpfr_set_d(r26707, y, MPFR_RNDN); mpfr_mul(r26708, r26706, r26707, MPFR_RNDN); mpfr_set_d(r26709, t, MPFR_RNDN); mpfr_set_d(r26710, x, MPFR_RNDN); mpfr_mul(r26711, r26709, r26710, MPFR_RNDN); mpfr_mul(r26712, r26708, r26711, MPFR_RNDN); mpfr_mul(r26713, r26705, r26712, MPFR_RNDN); mpfr_set_d(r26714, a, MPFR_RNDN); ; mpfr_mul(r26716, r26714, r26715, MPFR_RNDN); mpfr_mul(r26717, r26716, r26709, MPFR_RNDN); mpfr_sub(r26718, r26713, r26717, MPFR_RNDN); mpfr_set_d(r26719, b, MPFR_RNDN); mpfr_set_d(r26720, c, MPFR_RNDN); mpfr_mul(r26721, r26719, r26720, MPFR_RNDN); mpfr_add(r26722, r26718, r26721, MPFR_RNDN); mpfr_mul(r26723, r26710, r26715, MPFR_RNDN); mpfr_set_d(r26724, i, MPFR_RNDN); mpfr_mul(r26725, r26723, r26724, MPFR_RNDN); mpfr_sub(r26726, r26722, r26725, MPFR_RNDN); mpfr_set_d(r26727, j, MPFR_RNDN); ; mpfr_mul(r26729, r26727, r26728, MPFR_RNDN); mpfr_set_d(r26730, k, MPFR_RNDN); mpfr_mul(r26731, r26729, r26730, MPFR_RNDN); mpfr_sub(r26732, r26726, r26731, MPFR_RNDN); ; mpfr_set_si(r26734, mpfr_cmp(r26732, r26733) <= 0, MPFR_RNDN); mpfr_mul(r26735, r26724, r26723, MPFR_RNDN); mpfr_sub(r26736, r26721, r26735, MPFR_RNDN); mpfr_mul(r26737, r26728, r26730, MPFR_RNDN); mpfr_mul(r26738, r26727, r26737, MPFR_RNDN); mpfr_sub(r26739, r26736, r26738, MPFR_RNDN); mpfr_mul(r26740, r26706, r26710, MPFR_RNDN); mpfr_mul(r26741, r26707, r26705, MPFR_RNDN); mpfr_mul(r26742, r26740, r26741, MPFR_RNDN); mpfr_mul(r26743, r26715, r26714, MPFR_RNDN); mpfr_sub(r26744, r26742, r26743, MPFR_RNDN); mpfr_mul(r26745, r26709, r26744, MPFR_RNDN); mpfr_add(r26746, r26739, r26745, MPFR_RNDN); ; mpfr_set_si(r26748, mpfr_cmp(r26732, r26747) <= 0, MPFR_RNDN); mpfr_mul(r26749, r26720, r26719, MPFR_RNDN); mpfr_mul(r26750, r26705, r26709, MPFR_RNDN); mpfr_mul(r26751, r26706, r26750, MPFR_RNDN); mpfr_mul(r26752, r26707, r26710, MPFR_RNDN); mpfr_mul(r26753, r26751, r26752, MPFR_RNDN); mpfr_add(r26754, r26749, r26753, MPFR_RNDN); mpfr_mul(r26755, r26710, r26724, MPFR_RNDN); mpfr_mul(r26756, r26709, r26714, MPFR_RNDN); mpfr_add(r26757, r26755, r26756, MPFR_RNDN); mpfr_mul(r26758, r26715, r26757, MPFR_RNDN); mpfr_mul(r26759, r26730, r26727, MPFR_RNDN); mpfr_mul(r26760, r26759, r26728, MPFR_RNDN); mpfr_add(r26761, r26758, r26760, MPFR_RNDN); mpfr_sub(r26762, r26754, r26761, MPFR_RNDN); if (mpfr_get_si(r26748, MPFR_RNDN)) { mpfr_set(r26763, r26732, MPFR_RNDN); } else { mpfr_set(r26763, r26762, MPFR_RNDN); }; if (mpfr_get_si(r26734, MPFR_RNDN)) { mpfr_set(r26764, r26746, MPFR_RNDN); } else { mpfr_set(r26764, r26763, MPFR_RNDN); }; return mpfr_get_d(r26764, MPFR_RNDN); }