#include #include #include #include #include char *name = "Jmat.Real.erfi, branch x greater than or equal to 5"; double f_if(float x) { float r27395 = 1; float r27396 = atan2(1.0, 0.0); float r27397 = sqrt(r27396); float r27398 = r27395 / r27397; float r27399 = x; float r27400 = fabs(r27399); float r27401 = r27400 * r27400; float r27402 = exp(r27401); float r27403 = r27398 * r27402; float r27404 = r27395 / r27400; float r27405 = 2; float r27406 = r27395 / r27405; float r27407 = r27404 * r27404; float r27408 = r27407 * r27404; float r27409 = r27406 * r27408; float r27410 = r27404 + r27409; float r27411 = 3; float r27412 = 4; float r27413 = r27411 / r27412; float r27414 = r27408 * r27404; float r27415 = r27414 * r27404; float r27416 = r27413 * r27415; float r27417 = r27410 + r27416; float r27418 = 15; float r27419 = 8; float r27420 = r27418 / r27419; float r27421 = r27415 * r27404; float r27422 = r27421 * r27404; float r27423 = r27420 * r27422; float r27424 = r27417 + r27423; float r27425 = r27403 * r27424; return r27425; } double f_id(double x) { double r27426 = 1; double r27427 = atan2(1.0, 0.0); double r27428 = sqrt(r27427); double r27429 = r27426 / r27428; double r27430 = x; double r27431 = fabs(r27430); double r27432 = r27431 * r27431; double r27433 = exp(r27432); double r27434 = r27429 * r27433; double r27435 = r27426 / r27431; double r27436 = 2; double r27437 = r27426 / r27436; double r27438 = r27435 * r27435; double r27439 = r27438 * r27435; double r27440 = r27437 * r27439; double r27441 = r27435 + r27440; double r27442 = 3; double r27443 = 4; double r27444 = r27442 / r27443; double r27445 = r27439 * r27435; double r27446 = r27445 * r27435; double r27447 = r27444 * r27446; double r27448 = r27441 + r27447; double r27449 = 15; double r27450 = 8; double r27451 = r27449 / r27450; double r27452 = r27446 * r27435; double r27453 = r27452 * r27435; double r27454 = r27451 * r27453; double r27455 = r27448 + r27454; double r27456 = r27434 * r27455; return r27456; } double f_of(float x) { float r27457 = x; float r27458 = fabs(r27457); float r27459 = -1; float r27460 = 1; float r27461 = r27460 + r27460; float r27462 = r27459 - r27461; float r27463 = r27462 - r27461; float r27464 = pow(r27458, r27463); float r27465 = 3; float r27466 = 4; float r27467 = r27465 / r27466; float r27468 = 15; float r27469 = 8; float r27470 = r27468 / r27469; float r27471 = r27460 * r27470; float r27472 = r27458 * r27458; float r27473 = r27471 / r27472; float r27474 = r27467 + r27473; float r27475 = r27464 * r27474; float r27476 = r27460 / r27458; float r27477 = 2; float r27478 = r27477 * r27472; float r27479 = r27476 / r27478; float r27480 = r27479 + r27476; float r27481 = r27475 + r27480; float r27482 = exp(r27472); float r27483 = atan2(1.0, 0.0); float r27484 = sqrt(r27483); float r27485 = r27482 / r27484; float r27486 = r27481 * r27485; return r27486; } double f_od(double x) { double r27487 = x; double r27488 = fabs(r27487); double r27489 = -1; double r27490 = 1; double r27491 = r27490 + r27490; double r27492 = r27489 - r27491; double r27493 = r27492 - r27491; double r27494 = pow(r27488, r27493); double r27495 = 3; double r27496 = 4; double r27497 = r27495 / r27496; double r27498 = 15; double r27499 = 8; double r27500 = r27498 / r27499; double r27501 = r27490 * r27500; double r27502 = r27488 * r27488; double r27503 = r27501 / r27502; double r27504 = r27497 + r27503; double r27505 = r27494 * r27504; double r27506 = r27490 / r27488; double r27507 = 2; double r27508 = r27507 * r27502; double r27509 = r27506 / r27508; double r27510 = r27509 + r27506; double r27511 = r27505 + r27510; double r27512 = exp(r27502); double r27513 = atan2(1.0, 0.0); double r27514 = sqrt(r27513); double r27515 = r27512 / r27514; double r27516 = r27511 * r27515; return r27516; } 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 r27517, r27518, r27519, r27520, r27521, r27522, r27523, r27524, r27525, r27526, r27527, r27528, r27529, r27530, r27531, r27532, r27533, r27534, r27535, r27536, r27537, r27538, r27539, r27540, r27541, r27542, r27543, r27544, r27545, r27546, r27547; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init_set_str(r27517, "1", 10, MPFR_RNDN); mpfr_init(r27518); mpfr_init(r27519); mpfr_init(r27520); mpfr_init(r27521); mpfr_init(r27522); mpfr_init(r27523); mpfr_init(r27524); mpfr_init(r27525); mpfr_init(r27526); mpfr_init_set_str(r27527, "2", 10, MPFR_RNDN); mpfr_init(r27528); mpfr_init(r27529); mpfr_init(r27530); mpfr_init(r27531); mpfr_init(r27532); mpfr_init_set_str(r27533, "3", 10, MPFR_RNDN); mpfr_init_set_str(r27534, "4", 10, MPFR_RNDN); mpfr_init(r27535); mpfr_init(r27536); mpfr_init(r27537); mpfr_init(r27538); mpfr_init(r27539); mpfr_init_set_str(r27540, "15", 10, MPFR_RNDN); mpfr_init_set_str(r27541, "8", 10, MPFR_RNDN); mpfr_init(r27542); mpfr_init(r27543); mpfr_init(r27544); mpfr_init(r27545); mpfr_init(r27546); mpfr_init(r27547); } double f_im(double x) { ; mpfr_const_pi(r27518, MPFR_RNDN); mpfr_sqrt(r27519, r27518, MPFR_RNDN); mpfr_div(r27520, r27517, r27519, MPFR_RNDN); mpfr_set_d(r27521, x, MPFR_RNDN); mpfr_abs(r27522, r27521, MPFR_RNDN); mpfr_mul(r27523, r27522, r27522, MPFR_RNDN); mpfr_exp(r27524, r27523, MPFR_RNDN); mpfr_mul(r27525, r27520, r27524, MPFR_RNDN); mpfr_div(r27526, r27517, r27522, MPFR_RNDN); ; mpfr_div(r27528, r27517, r27527, MPFR_RNDN); mpfr_mul(r27529, r27526, r27526, MPFR_RNDN); mpfr_mul(r27530, r27529, r27526, MPFR_RNDN); mpfr_mul(r27531, r27528, r27530, MPFR_RNDN); mpfr_add(r27532, r27526, r27531, MPFR_RNDN); ; ; mpfr_div(r27535, r27533, r27534, MPFR_RNDN); mpfr_mul(r27536, r27530, r27526, MPFR_RNDN); mpfr_mul(r27537, r27536, r27526, MPFR_RNDN); mpfr_mul(r27538, r27535, r27537, MPFR_RNDN); mpfr_add(r27539, r27532, r27538, MPFR_RNDN); ; ; mpfr_div(r27542, r27540, r27541, MPFR_RNDN); mpfr_mul(r27543, r27537, r27526, MPFR_RNDN); mpfr_mul(r27544, r27543, r27526, MPFR_RNDN); mpfr_mul(r27545, r27542, r27544, MPFR_RNDN); mpfr_add(r27546, r27539, r27545, MPFR_RNDN); mpfr_mul(r27547, r27525, r27546, MPFR_RNDN); return mpfr_get_d(r27547, MPFR_RNDN); } static mpfr_t r27548, r27549, r27550, r27551, r27552, r27553, r27554, r27555, r27556, r27557, r27558, r27559, r27560, r27561, r27562, r27563, r27564, r27565, r27566, r27567, r27568, r27569, r27570, r27571, r27572, r27573, r27574, r27575, r27576, r27577; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init(r27548); mpfr_init(r27549); mpfr_init_set_str(r27550, "-1", 10, MPFR_RNDN); mpfr_init_set_str(r27551, "1", 10, MPFR_RNDN); mpfr_init(r27552); mpfr_init(r27553); mpfr_init(r27554); mpfr_init(r27555); mpfr_init_set_str(r27556, "3", 10, MPFR_RNDN); mpfr_init_set_str(r27557, "4", 10, MPFR_RNDN); mpfr_init(r27558); mpfr_init_set_str(r27559, "15", 10, MPFR_RNDN); mpfr_init_set_str(r27560, "8", 10, MPFR_RNDN); mpfr_init(r27561); mpfr_init(r27562); mpfr_init(r27563); mpfr_init(r27564); mpfr_init(r27565); mpfr_init(r27566); mpfr_init(r27567); mpfr_init_set_str(r27568, "2", 10, MPFR_RNDN); mpfr_init(r27569); mpfr_init(r27570); mpfr_init(r27571); mpfr_init(r27572); mpfr_init(r27573); mpfr_init(r27574); mpfr_init(r27575); mpfr_init(r27576); mpfr_init(r27577); } double f_fm(double x) { mpfr_set_d(r27548, x, MPFR_RNDN); mpfr_abs(r27549, r27548, MPFR_RNDN); ; ; mpfr_add(r27552, r27551, r27551, MPFR_RNDN); mpfr_sub(r27553, r27550, r27552, MPFR_RNDN); mpfr_sub(r27554, r27553, r27552, MPFR_RNDN); mpfr_pow(r27555, r27549, r27554, MPFR_RNDN); ; ; mpfr_div(r27558, r27556, r27557, MPFR_RNDN); ; ; mpfr_div(r27561, r27559, r27560, MPFR_RNDN); mpfr_mul(r27562, r27551, r27561, MPFR_RNDN); mpfr_mul(r27563, r27549, r27549, MPFR_RNDN); mpfr_div(r27564, r27562, r27563, MPFR_RNDN); mpfr_add(r27565, r27558, r27564, MPFR_RNDN); mpfr_mul(r27566, r27555, r27565, MPFR_RNDN); mpfr_div(r27567, r27551, r27549, MPFR_RNDN); ; mpfr_mul(r27569, r27568, r27563, MPFR_RNDN); mpfr_div(r27570, r27567, r27569, MPFR_RNDN); mpfr_add(r27571, r27570, r27567, MPFR_RNDN); mpfr_add(r27572, r27566, r27571, MPFR_RNDN); mpfr_exp(r27573, r27563, MPFR_RNDN); mpfr_const_pi(r27574, MPFR_RNDN); mpfr_sqrt(r27575, r27574, MPFR_RNDN); mpfr_div(r27576, r27573, r27575, MPFR_RNDN); mpfr_mul(r27577, r27572, r27576, MPFR_RNDN); return mpfr_get_d(r27577, MPFR_RNDN); } static mpfr_t r27578, r27579, r27580, r27581, r27582, r27583, r27584, r27585, r27586, r27587, r27588, r27589, r27590, r27591, r27592, r27593, r27594, r27595, r27596, r27597, r27598, r27599, r27600, r27601, r27602, r27603, r27604, r27605, r27606, r27607; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init(r27578); mpfr_init(r27579); mpfr_init_set_str(r27580, "-1", 10, MPFR_RNDN); mpfr_init_set_str(r27581, "1", 10, MPFR_RNDN); mpfr_init(r27582); mpfr_init(r27583); mpfr_init(r27584); mpfr_init(r27585); mpfr_init_set_str(r27586, "3", 10, MPFR_RNDN); mpfr_init_set_str(r27587, "4", 10, MPFR_RNDN); mpfr_init(r27588); mpfr_init_set_str(r27589, "15", 10, MPFR_RNDN); mpfr_init_set_str(r27590, "8", 10, MPFR_RNDN); mpfr_init(r27591); mpfr_init(r27592); mpfr_init(r27593); mpfr_init(r27594); mpfr_init(r27595); mpfr_init(r27596); mpfr_init(r27597); mpfr_init_set_str(r27598, "2", 10, MPFR_RNDN); mpfr_init(r27599); mpfr_init(r27600); mpfr_init(r27601); mpfr_init(r27602); mpfr_init(r27603); mpfr_init(r27604); mpfr_init(r27605); mpfr_init(r27606); mpfr_init(r27607); } double f_dm(double x) { mpfr_set_d(r27578, x, MPFR_RNDN); mpfr_abs(r27579, r27578, MPFR_RNDN); ; ; mpfr_add(r27582, r27581, r27581, MPFR_RNDN); mpfr_sub(r27583, r27580, r27582, MPFR_RNDN); mpfr_sub(r27584, r27583, r27582, MPFR_RNDN); mpfr_pow(r27585, r27579, r27584, MPFR_RNDN); ; ; mpfr_div(r27588, r27586, r27587, MPFR_RNDN); ; ; mpfr_div(r27591, r27589, r27590, MPFR_RNDN); mpfr_mul(r27592, r27581, r27591, MPFR_RNDN); mpfr_mul(r27593, r27579, r27579, MPFR_RNDN); mpfr_div(r27594, r27592, r27593, MPFR_RNDN); mpfr_add(r27595, r27588, r27594, MPFR_RNDN); mpfr_mul(r27596, r27585, r27595, MPFR_RNDN); mpfr_div(r27597, r27581, r27579, MPFR_RNDN); ; mpfr_mul(r27599, r27598, r27593, MPFR_RNDN); mpfr_div(r27600, r27597, r27599, MPFR_RNDN); mpfr_add(r27601, r27600, r27597, MPFR_RNDN); mpfr_add(r27602, r27596, r27601, MPFR_RNDN); mpfr_exp(r27603, r27593, MPFR_RNDN); mpfr_const_pi(r27604, MPFR_RNDN); mpfr_sqrt(r27605, r27604, MPFR_RNDN); mpfr_div(r27606, r27603, r27605, MPFR_RNDN); mpfr_mul(r27607, r27602, r27606, MPFR_RNDN); return mpfr_get_d(r27607, MPFR_RNDN); }