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