#include #include #include #include #include char *name = "Jmat.Real.gamma, branch z less than 0.5"; double f_if(float z) { float r26219 = atan2(1.0, 0.0); float r26220 = z; float r26221 = r26219 * r26220; float r26222 = sin(r26221); float r26223 = r26219 / r26222; float r26224 = 2; float r26225 = r26219 * r26224; float r26226 = sqrt(r26225); float r26227 = 1; float r26228 = r26227 - r26220; float r26229 = r26228 - r26227; float r26230 = 7; float r26231 = r26229 + r26230; float r26232 = 0.5; float r26233 = r26231 + r26232; float r26234 = r26229 + r26232; float r26235 = pow(r26233, r26234); float r26236 = r26226 * r26235; float r26237 = -r26233; float r26238 = exp(r26237); float r26239 = r26236 * r26238; float r26240 = 0.9999999999998099; float r26241 = 676.5203681218851; float r26242 = r26229 + r26227; float r26243 = r26241 / r26242; float r26244 = r26240 + r26243; float r26245 = -1259.1392167224028; float r26246 = r26229 + r26224; float r26247 = r26245 / r26246; float r26248 = r26244 + r26247; float r26249 = 771.3234287776531; float r26250 = 3; float r26251 = r26229 + r26250; float r26252 = r26249 / r26251; float r26253 = r26248 + r26252; float r26254 = -176.6150291621406; float r26255 = 4; float r26256 = r26229 + r26255; float r26257 = r26254 / r26256; float r26258 = r26253 + r26257; float r26259 = 12.507343278686905; float r26260 = 5; float r26261 = r26229 + r26260; float r26262 = r26259 / r26261; float r26263 = r26258 + r26262; float r26264 = -0.13857109526572012; float r26265 = 6; float r26266 = r26229 + r26265; float r26267 = r26264 / r26266; float r26268 = r26263 + r26267; float r26269 = 9.984369578019572e-06; float r26270 = r26269 / r26231; float r26271 = r26268 + r26270; float r26272 = 1.5056327351493116e-07; float r26273 = 8; float r26274 = r26229 + r26273; float r26275 = r26272 / r26274; float r26276 = r26271 + r26275; float r26277 = r26239 * r26276; float r26278 = r26223 * r26277; return r26278; } double f_id(double z) { double r26279 = atan2(1.0, 0.0); double r26280 = z; double r26281 = r26279 * r26280; double r26282 = sin(r26281); double r26283 = r26279 / r26282; double r26284 = 2; double r26285 = r26279 * r26284; double r26286 = sqrt(r26285); double r26287 = 1; double r26288 = r26287 - r26280; double r26289 = r26288 - r26287; double r26290 = 7; double r26291 = r26289 + r26290; double r26292 = 0.5; double r26293 = r26291 + r26292; double r26294 = r26289 + r26292; double r26295 = pow(r26293, r26294); double r26296 = r26286 * r26295; double r26297 = -r26293; double r26298 = exp(r26297); double r26299 = r26296 * r26298; double r26300 = 0.9999999999998099; double r26301 = 676.5203681218851; double r26302 = r26289 + r26287; double r26303 = r26301 / r26302; double r26304 = r26300 + r26303; double r26305 = -1259.1392167224028; double r26306 = r26289 + r26284; double r26307 = r26305 / r26306; double r26308 = r26304 + r26307; double r26309 = 771.3234287776531; double r26310 = 3; double r26311 = r26289 + r26310; double r26312 = r26309 / r26311; double r26313 = r26308 + r26312; double r26314 = -176.6150291621406; double r26315 = 4; double r26316 = r26289 + r26315; double r26317 = r26314 / r26316; double r26318 = r26313 + r26317; double r26319 = 12.507343278686905; double r26320 = 5; double r26321 = r26289 + r26320; double r26322 = r26319 / r26321; double r26323 = r26318 + r26322; double r26324 = -0.13857109526572012; double r26325 = 6; double r26326 = r26289 + r26325; double r26327 = r26324 / r26326; double r26328 = r26323 + r26327; double r26329 = 9.984369578019572e-06; double r26330 = r26329 / r26291; double r26331 = r26328 + r26330; double r26332 = 1.5056327351493116e-07; double r26333 = 8; double r26334 = r26289 + r26333; double r26335 = r26332 / r26334; double r26336 = r26331 + r26335; double r26337 = r26299 * r26336; double r26338 = r26283 * r26337; return r26338; } double f_of(float z) { float r26339 = -0.13857109526572012; float r26340 = 6; float r26341 = 1; float r26342 = r26340 + r26341; float r26343 = z; float r26344 = r26343 + r26341; float r26345 = r26342 - r26344; float r26346 = r26339 / r26345; float r26347 = 12.507343278686905; float r26348 = r26341 - r26343; float r26349 = 5; float r26350 = r26341 - r26349; float r26351 = r26348 - r26350; float r26352 = r26347 / r26351; float r26353 = r26346 + r26352; float r26354 = 1.5056327351493116e-07; float r26355 = 8; float r26356 = r26341 + r26355; float r26357 = r26356 - r26344; float r26358 = r26354 / r26357; float r26359 = 9.984369578019572e-06; float r26360 = 7; float r26361 = r26341 - r26360; float r26362 = r26348 - r26361; float r26363 = r26359 / r26362; float r26364 = r26358 + r26363; float r26365 = r26353 + r26364; float r26366 = 676.5203681218851; float r26367 = r26366 / r26348; float r26368 = 0.9999999999998099; float r26369 = r26367 + r26368; float r26370 = 771.3234287776531; float r26371 = 3; float r26372 = r26371 + r26341; float r26373 = r26372 - r26344; float r26374 = r26370 / r26373; float r26375 = r26369 + r26374; float r26376 = -1259.1392167224028; float r26377 = 2; float r26378 = r26377 + r26341; float r26379 = r26378 - r26344; float r26380 = r26376 / r26379; float r26381 = -176.6150291621406; float r26382 = 4; float r26383 = r26341 - r26382; float r26384 = r26348 - r26383; float r26385 = r26381 / r26384; float r26386 = r26380 + r26385; float r26387 = r26375 + r26386; float r26388 = r26365 + r26387; float r26389 = atan2(1.0, 0.0); float r26390 = log(r26389); float r26391 = r26390 * r26371; float r26392 = exp(r26391); float r26393 = sqrt(r26392); float r26394 = 7.5; float r26395 = r26343 - r26394; float r26396 = exp(r26395); float r26397 = r26393 * r26396; float r26398 = r26343 * r26389; float r26399 = sin(r26398); float r26400 = sqrt(r26377); float r26401 = r26399 / r26400; float r26402 = r26394 - r26343; float r26403 = 0.5; float r26404 = r26403 - r26343; float r26405 = pow(r26402, r26404); float r26406 = r26401 / r26405; float r26407 = r26397 / r26406; float r26408 = r26388 * r26407; return r26408; } double f_od(double z) { double r26409 = -0.13857109526572012; double r26410 = 6; double r26411 = 1; double r26412 = r26410 + r26411; double r26413 = z; double r26414 = r26413 + r26411; double r26415 = r26412 - r26414; double r26416 = r26409 / r26415; double r26417 = 12.507343278686905; double r26418 = r26411 - r26413; double r26419 = 5; double r26420 = r26411 - r26419; double r26421 = r26418 - r26420; double r26422 = r26417 / r26421; double r26423 = r26416 + r26422; double r26424 = 1.5056327351493116e-07; double r26425 = 8; double r26426 = r26411 + r26425; double r26427 = r26426 - r26414; double r26428 = r26424 / r26427; double r26429 = 9.984369578019572e-06; double r26430 = 7; double r26431 = r26411 - r26430; double r26432 = r26418 - r26431; double r26433 = r26429 / r26432; double r26434 = r26428 + r26433; double r26435 = r26423 + r26434; double r26436 = 676.5203681218851; double r26437 = r26436 / r26418; double r26438 = 0.9999999999998099; double r26439 = r26437 + r26438; double r26440 = 771.3234287776531; double r26441 = 3; double r26442 = r26441 + r26411; double r26443 = r26442 - r26414; double r26444 = r26440 / r26443; double r26445 = r26439 + r26444; double r26446 = -1259.1392167224028; double r26447 = 2; double r26448 = r26447 + r26411; double r26449 = r26448 - r26414; double r26450 = r26446 / r26449; double r26451 = -176.6150291621406; double r26452 = 4; double r26453 = r26411 - r26452; double r26454 = r26418 - r26453; double r26455 = r26451 / r26454; double r26456 = r26450 + r26455; double r26457 = r26445 + r26456; double r26458 = r26435 + r26457; double r26459 = atan2(1.0, 0.0); double r26460 = log(r26459); double r26461 = r26460 * r26441; double r26462 = exp(r26461); double r26463 = sqrt(r26462); double r26464 = 7.5; double r26465 = r26413 - r26464; double r26466 = exp(r26465); double r26467 = r26463 * r26466; double r26468 = r26413 * r26459; double r26469 = sin(r26468); double r26470 = sqrt(r26447); double r26471 = r26469 / r26470; double r26472 = r26464 - r26413; double r26473 = 0.5; double r26474 = r26473 - r26413; double r26475 = pow(r26472, r26474); double r26476 = r26471 / r26475; double r26477 = r26467 / r26476; double r26478 = r26458 * r26477; return r26478; } 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 r26479, r26480, r26481, r26482, r26483, r26484, r26485, r26486, r26487, r26488, r26489, r26490, r26491, r26492, r26493, r26494, r26495, r26496, r26497, r26498, r26499, r26500, r26501, r26502, r26503, r26504, r26505, r26506, r26507, r26508, r26509, r26510, r26511, r26512, r26513, r26514, r26515, r26516, r26517, r26518, r26519, r26520, r26521, r26522, r26523, r26524, r26525, r26526, r26527, r26528, r26529, r26530, r26531, r26532, r26533, r26534, r26535, r26536, r26537, r26538; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r26479); mpfr_init(r26480); mpfr_init(r26481); mpfr_init(r26482); mpfr_init(r26483); mpfr_init_set_str(r26484, "2", 10, MPFR_RNDN); mpfr_init(r26485); mpfr_init(r26486); mpfr_init_set_str(r26487, "1", 10, MPFR_RNDN); mpfr_init(r26488); mpfr_init(r26489); mpfr_init_set_str(r26490, "7", 10, MPFR_RNDN); mpfr_init(r26491); mpfr_init_set_str(r26492, "0.5", 10, MPFR_RNDN); mpfr_init(r26493); mpfr_init(r26494); mpfr_init(r26495); mpfr_init(r26496); mpfr_init(r26497); mpfr_init(r26498); mpfr_init(r26499); mpfr_init_set_str(r26500, "0.9999999999998099", 10, MPFR_RNDN); mpfr_init_set_str(r26501, "676.5203681218851", 10, MPFR_RNDN); mpfr_init(r26502); mpfr_init(r26503); mpfr_init(r26504); mpfr_init_set_str(r26505, "-1259.1392167224028", 10, MPFR_RNDN); mpfr_init(r26506); mpfr_init(r26507); mpfr_init(r26508); mpfr_init_set_str(r26509, "771.3234287776531", 10, MPFR_RNDN); mpfr_init_set_str(r26510, "3", 10, MPFR_RNDN); mpfr_init(r26511); mpfr_init(r26512); mpfr_init(r26513); mpfr_init_set_str(r26514, "-176.6150291621406", 10, MPFR_RNDN); mpfr_init_set_str(r26515, "4", 10, MPFR_RNDN); mpfr_init(r26516); mpfr_init(r26517); mpfr_init(r26518); mpfr_init_set_str(r26519, "12.507343278686905", 10, MPFR_RNDN); mpfr_init_set_str(r26520, "5", 10, MPFR_RNDN); mpfr_init(r26521); mpfr_init(r26522); mpfr_init(r26523); mpfr_init_set_str(r26524, "-0.13857109526572012", 10, MPFR_RNDN); mpfr_init_set_str(r26525, "6", 10, MPFR_RNDN); mpfr_init(r26526); mpfr_init(r26527); mpfr_init(r26528); mpfr_init_set_str(r26529, "9.984369578019572e-06", 10, MPFR_RNDN); mpfr_init(r26530); mpfr_init(r26531); mpfr_init_set_str(r26532, "1.5056327351493116e-07", 10, MPFR_RNDN); mpfr_init_set_str(r26533, "8", 10, MPFR_RNDN); mpfr_init(r26534); mpfr_init(r26535); mpfr_init(r26536); mpfr_init(r26537); mpfr_init(r26538); } double f_im(double z) { mpfr_const_pi(r26479, MPFR_RNDN); mpfr_set_d(r26480, z, MPFR_RNDN); mpfr_mul(r26481, r26479, r26480, MPFR_RNDN); mpfr_sin(r26482, r26481, MPFR_RNDN); mpfr_div(r26483, r26479, r26482, MPFR_RNDN); ; mpfr_mul(r26485, r26479, r26484, MPFR_RNDN); mpfr_sqrt(r26486, r26485, MPFR_RNDN); ; mpfr_sub(r26488, r26487, r26480, MPFR_RNDN); mpfr_sub(r26489, r26488, r26487, MPFR_RNDN); ; mpfr_add(r26491, r26489, r26490, MPFR_RNDN); ; mpfr_add(r26493, r26491, r26492, MPFR_RNDN); mpfr_add(r26494, r26489, r26492, MPFR_RNDN); mpfr_pow(r26495, r26493, r26494, MPFR_RNDN); mpfr_mul(r26496, r26486, r26495, MPFR_RNDN); mpfr_neg(r26497, r26493, MPFR_RNDN); mpfr_exp(r26498, r26497, MPFR_RNDN); mpfr_mul(r26499, r26496, r26498, MPFR_RNDN); ; ; mpfr_add(r26502, r26489, r26487, MPFR_RNDN); mpfr_div(r26503, r26501, r26502, MPFR_RNDN); mpfr_add(r26504, r26500, r26503, MPFR_RNDN); ; mpfr_add(r26506, r26489, r26484, MPFR_RNDN); mpfr_div(r26507, r26505, r26506, MPFR_RNDN); mpfr_add(r26508, r26504, r26507, MPFR_RNDN); ; ; mpfr_add(r26511, r26489, r26510, MPFR_RNDN); mpfr_div(r26512, r26509, r26511, MPFR_RNDN); mpfr_add(r26513, r26508, r26512, MPFR_RNDN); ; ; mpfr_add(r26516, r26489, r26515, MPFR_RNDN); mpfr_div(r26517, r26514, r26516, MPFR_RNDN); mpfr_add(r26518, r26513, r26517, MPFR_RNDN); ; ; mpfr_add(r26521, r26489, r26520, MPFR_RNDN); mpfr_div(r26522, r26519, r26521, MPFR_RNDN); mpfr_add(r26523, r26518, r26522, MPFR_RNDN); ; ; mpfr_add(r26526, r26489, r26525, MPFR_RNDN); mpfr_div(r26527, r26524, r26526, MPFR_RNDN); mpfr_add(r26528, r26523, r26527, MPFR_RNDN); ; mpfr_div(r26530, r26529, r26491, MPFR_RNDN); mpfr_add(r26531, r26528, r26530, MPFR_RNDN); ; ; mpfr_add(r26534, r26489, r26533, MPFR_RNDN); mpfr_div(r26535, r26532, r26534, MPFR_RNDN); mpfr_add(r26536, r26531, r26535, MPFR_RNDN); mpfr_mul(r26537, r26499, r26536, MPFR_RNDN); mpfr_mul(r26538, r26483, r26537, MPFR_RNDN); return mpfr_get_d(r26538, MPFR_RNDN); } static mpfr_t r26539, r26540, r26541, r26542, r26543, r26544, r26545, r26546, r26547, r26548, r26549, r26550, r26551, r26552, r26553, r26554, r26555, r26556, r26557, r26558, r26559, r26560, r26561, r26562, r26563, r26564, r26565, r26566, r26567, r26568, r26569, r26570, r26571, r26572, r26573, r26574, r26575, r26576, r26577, 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; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init_set_str(r26539, "-0.13857109526572012", 10, MPFR_RNDN); mpfr_init_set_str(r26540, "6", 10, MPFR_RNDN); mpfr_init_set_str(r26541, "1", 10, MPFR_RNDN); mpfr_init(r26542); mpfr_init(r26543); mpfr_init(r26544); mpfr_init(r26545); mpfr_init(r26546); mpfr_init_set_str(r26547, "12.507343278686905", 10, MPFR_RNDN); mpfr_init(r26548); mpfr_init_set_str(r26549, "5", 10, MPFR_RNDN); mpfr_init(r26550); mpfr_init(r26551); mpfr_init(r26552); mpfr_init(r26553); mpfr_init_set_str(r26554, "1.5056327351493116e-07", 10, MPFR_RNDN); mpfr_init_set_str(r26555, "8", 10, MPFR_RNDN); mpfr_init(r26556); mpfr_init(r26557); mpfr_init(r26558); mpfr_init_set_str(r26559, "9.984369578019572e-06", 10, MPFR_RNDN); mpfr_init_set_str(r26560, "7", 10, MPFR_RNDN); mpfr_init(r26561); mpfr_init(r26562); mpfr_init(r26563); mpfr_init(r26564); mpfr_init(r26565); mpfr_init_set_str(r26566, "676.5203681218851", 10, MPFR_RNDN); mpfr_init(r26567); mpfr_init_set_str(r26568, "0.9999999999998099", 10, MPFR_RNDN); mpfr_init(r26569); mpfr_init_set_str(r26570, "771.3234287776531", 10, MPFR_RNDN); mpfr_init_set_str(r26571, "3", 10, MPFR_RNDN); mpfr_init(r26572); mpfr_init(r26573); mpfr_init(r26574); mpfr_init(r26575); mpfr_init_set_str(r26576, "-1259.1392167224028", 10, MPFR_RNDN); mpfr_init_set_str(r26577, "2", 10, MPFR_RNDN); mpfr_init(r26578); mpfr_init(r26579); mpfr_init(r26580); mpfr_init_set_str(r26581, "-176.6150291621406", 10, MPFR_RNDN); mpfr_init_set_str(r26582, "4", 10, MPFR_RNDN); mpfr_init(r26583); mpfr_init(r26584); mpfr_init(r26585); mpfr_init(r26586); mpfr_init(r26587); mpfr_init(r26588); mpfr_init(r26589); mpfr_init(r26590); mpfr_init(r26591); mpfr_init(r26592); mpfr_init(r26593); mpfr_init_set_str(r26594, "7.5", 10, MPFR_RNDN); mpfr_init(r26595); mpfr_init(r26596); mpfr_init(r26597); mpfr_init(r26598); mpfr_init(r26599); mpfr_init(r26600); mpfr_init(r26601); mpfr_init(r26602); mpfr_init_set_str(r26603, "0.5", 10, MPFR_RNDN); mpfr_init(r26604); mpfr_init(r26605); mpfr_init(r26606); mpfr_init(r26607); mpfr_init(r26608); } double f_fm(double z) { ; ; ; mpfr_add(r26542, r26540, r26541, MPFR_RNDN); mpfr_set_d(r26543, z, MPFR_RNDN); mpfr_add(r26544, r26543, r26541, MPFR_RNDN); mpfr_sub(r26545, r26542, r26544, MPFR_RNDN); mpfr_div(r26546, r26539, r26545, MPFR_RNDN); ; mpfr_sub(r26548, r26541, r26543, MPFR_RNDN); ; mpfr_sub(r26550, r26541, r26549, MPFR_RNDN); mpfr_sub(r26551, r26548, r26550, MPFR_RNDN); mpfr_div(r26552, r26547, r26551, MPFR_RNDN); mpfr_add(r26553, r26546, r26552, MPFR_RNDN); ; ; mpfr_add(r26556, r26541, r26555, MPFR_RNDN); mpfr_sub(r26557, r26556, r26544, MPFR_RNDN); mpfr_div(r26558, r26554, r26557, MPFR_RNDN); ; ; mpfr_sub(r26561, r26541, r26560, MPFR_RNDN); mpfr_sub(r26562, r26548, r26561, MPFR_RNDN); mpfr_div(r26563, r26559, r26562, MPFR_RNDN); mpfr_add(r26564, r26558, r26563, MPFR_RNDN); mpfr_add(r26565, r26553, r26564, MPFR_RNDN); ; mpfr_div(r26567, r26566, r26548, MPFR_RNDN); ; mpfr_add(r26569, r26567, r26568, MPFR_RNDN); ; ; mpfr_add(r26572, r26571, r26541, MPFR_RNDN); mpfr_sub(r26573, r26572, r26544, MPFR_RNDN); mpfr_div(r26574, r26570, r26573, MPFR_RNDN); mpfr_add(r26575, r26569, r26574, MPFR_RNDN); ; ; mpfr_add(r26578, r26577, r26541, MPFR_RNDN); mpfr_sub(r26579, r26578, r26544, MPFR_RNDN); mpfr_div(r26580, r26576, r26579, MPFR_RNDN); ; ; mpfr_sub(r26583, r26541, r26582, MPFR_RNDN); mpfr_sub(r26584, r26548, r26583, MPFR_RNDN); mpfr_div(r26585, r26581, r26584, MPFR_RNDN); mpfr_add(r26586, r26580, r26585, MPFR_RNDN); mpfr_add(r26587, r26575, r26586, MPFR_RNDN); mpfr_add(r26588, r26565, r26587, MPFR_RNDN); mpfr_const_pi(r26589, MPFR_RNDN); mpfr_log(r26590, r26589, MPFR_RNDN); mpfr_mul(r26591, r26590, r26571, MPFR_RNDN); mpfr_exp(r26592, r26591, MPFR_RNDN); mpfr_sqrt(r26593, r26592, MPFR_RNDN); ; mpfr_sub(r26595, r26543, r26594, MPFR_RNDN); mpfr_exp(r26596, r26595, MPFR_RNDN); mpfr_mul(r26597, r26593, r26596, MPFR_RNDN); mpfr_mul(r26598, r26543, r26589, MPFR_RNDN); mpfr_sin(r26599, r26598, MPFR_RNDN); mpfr_sqrt(r26600, r26577, MPFR_RNDN); mpfr_div(r26601, r26599, r26600, MPFR_RNDN); mpfr_sub(r26602, r26594, r26543, MPFR_RNDN); ; mpfr_sub(r26604, r26603, r26543, MPFR_RNDN); mpfr_pow(r26605, r26602, r26604, MPFR_RNDN); mpfr_div(r26606, r26601, r26605, MPFR_RNDN); mpfr_div(r26607, r26597, r26606, MPFR_RNDN); mpfr_mul(r26608, r26588, r26607, MPFR_RNDN); return mpfr_get_d(r26608, MPFR_RNDN); } static mpfr_t r26609, r26610, r26611, r26612, r26613, r26614, r26615, r26616, 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, r26656, r26657, r26658, r26659, r26660, r26661, r26662, r26663, r26664, r26665, r26666, r26667, r26668, r26669, r26670, r26671, r26672, r26673, r26674, r26675, r26676, r26677, r26678; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init_set_str(r26609, "-0.13857109526572012", 10, MPFR_RNDN); mpfr_init_set_str(r26610, "6", 10, MPFR_RNDN); mpfr_init_set_str(r26611, "1", 10, MPFR_RNDN); mpfr_init(r26612); mpfr_init(r26613); mpfr_init(r26614); mpfr_init(r26615); mpfr_init(r26616); mpfr_init_set_str(r26617, "12.507343278686905", 10, MPFR_RNDN); mpfr_init(r26618); mpfr_init_set_str(r26619, "5", 10, MPFR_RNDN); mpfr_init(r26620); mpfr_init(r26621); mpfr_init(r26622); mpfr_init(r26623); mpfr_init_set_str(r26624, "1.5056327351493116e-07", 10, MPFR_RNDN); mpfr_init_set_str(r26625, "8", 10, MPFR_RNDN); mpfr_init(r26626); mpfr_init(r26627); mpfr_init(r26628); mpfr_init_set_str(r26629, "9.984369578019572e-06", 10, MPFR_RNDN); mpfr_init_set_str(r26630, "7", 10, MPFR_RNDN); mpfr_init(r26631); mpfr_init(r26632); mpfr_init(r26633); mpfr_init(r26634); mpfr_init(r26635); mpfr_init_set_str(r26636, "676.5203681218851", 10, MPFR_RNDN); mpfr_init(r26637); mpfr_init_set_str(r26638, "0.9999999999998099", 10, MPFR_RNDN); mpfr_init(r26639); mpfr_init_set_str(r26640, "771.3234287776531", 10, MPFR_RNDN); mpfr_init_set_str(r26641, "3", 10, MPFR_RNDN); mpfr_init(r26642); mpfr_init(r26643); mpfr_init(r26644); mpfr_init(r26645); mpfr_init_set_str(r26646, "-1259.1392167224028", 10, MPFR_RNDN); mpfr_init_set_str(r26647, "2", 10, MPFR_RNDN); mpfr_init(r26648); mpfr_init(r26649); mpfr_init(r26650); mpfr_init_set_str(r26651, "-176.6150291621406", 10, MPFR_RNDN); mpfr_init_set_str(r26652, "4", 10, MPFR_RNDN); mpfr_init(r26653); mpfr_init(r26654); mpfr_init(r26655); 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_set_str(r26664, "7.5", 10, MPFR_RNDN); mpfr_init(r26665); mpfr_init(r26666); mpfr_init(r26667); mpfr_init(r26668); mpfr_init(r26669); mpfr_init(r26670); mpfr_init(r26671); mpfr_init(r26672); mpfr_init_set_str(r26673, "0.5", 10, MPFR_RNDN); mpfr_init(r26674); mpfr_init(r26675); mpfr_init(r26676); mpfr_init(r26677); mpfr_init(r26678); } double f_dm(double z) { ; ; ; mpfr_add(r26612, r26610, r26611, MPFR_RNDN); mpfr_set_d(r26613, z, MPFR_RNDN); mpfr_add(r26614, r26613, r26611, MPFR_RNDN); mpfr_sub(r26615, r26612, r26614, MPFR_RNDN); mpfr_div(r26616, r26609, r26615, MPFR_RNDN); ; mpfr_sub(r26618, r26611, r26613, MPFR_RNDN); ; mpfr_sub(r26620, r26611, r26619, MPFR_RNDN); mpfr_sub(r26621, r26618, r26620, MPFR_RNDN); mpfr_div(r26622, r26617, r26621, MPFR_RNDN); mpfr_add(r26623, r26616, r26622, MPFR_RNDN); ; ; mpfr_add(r26626, r26611, r26625, MPFR_RNDN); mpfr_sub(r26627, r26626, r26614, MPFR_RNDN); mpfr_div(r26628, r26624, r26627, MPFR_RNDN); ; ; mpfr_sub(r26631, r26611, r26630, MPFR_RNDN); mpfr_sub(r26632, r26618, r26631, MPFR_RNDN); mpfr_div(r26633, r26629, r26632, MPFR_RNDN); mpfr_add(r26634, r26628, r26633, MPFR_RNDN); mpfr_add(r26635, r26623, r26634, MPFR_RNDN); ; mpfr_div(r26637, r26636, r26618, MPFR_RNDN); ; mpfr_add(r26639, r26637, r26638, MPFR_RNDN); ; ; mpfr_add(r26642, r26641, r26611, MPFR_RNDN); mpfr_sub(r26643, r26642, r26614, MPFR_RNDN); mpfr_div(r26644, r26640, r26643, MPFR_RNDN); mpfr_add(r26645, r26639, r26644, MPFR_RNDN); ; ; mpfr_add(r26648, r26647, r26611, MPFR_RNDN); mpfr_sub(r26649, r26648, r26614, MPFR_RNDN); mpfr_div(r26650, r26646, r26649, MPFR_RNDN); ; ; mpfr_sub(r26653, r26611, r26652, MPFR_RNDN); mpfr_sub(r26654, r26618, r26653, MPFR_RNDN); mpfr_div(r26655, r26651, r26654, MPFR_RNDN); mpfr_add(r26656, r26650, r26655, MPFR_RNDN); mpfr_add(r26657, r26645, r26656, MPFR_RNDN); mpfr_add(r26658, r26635, r26657, MPFR_RNDN); mpfr_const_pi(r26659, MPFR_RNDN); mpfr_log(r26660, r26659, MPFR_RNDN); mpfr_mul(r26661, r26660, r26641, MPFR_RNDN); mpfr_exp(r26662, r26661, MPFR_RNDN); mpfr_sqrt(r26663, r26662, MPFR_RNDN); ; mpfr_sub(r26665, r26613, r26664, MPFR_RNDN); mpfr_exp(r26666, r26665, MPFR_RNDN); mpfr_mul(r26667, r26663, r26666, MPFR_RNDN); mpfr_mul(r26668, r26613, r26659, MPFR_RNDN); mpfr_sin(r26669, r26668, MPFR_RNDN); mpfr_sqrt(r26670, r26647, MPFR_RNDN); mpfr_div(r26671, r26669, r26670, MPFR_RNDN); mpfr_sub(r26672, r26664, r26613, MPFR_RNDN); ; mpfr_sub(r26674, r26673, r26613, MPFR_RNDN); mpfr_pow(r26675, r26672, r26674, MPFR_RNDN); mpfr_div(r26676, r26671, r26675, MPFR_RNDN); mpfr_div(r26677, r26667, r26676, MPFR_RNDN); mpfr_mul(r26678, r26658, r26677, MPFR_RNDN); return mpfr_get_d(r26678, MPFR_RNDN); }