#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "Eccentricity of an ellipse";

double f_if(float a, float b) {
        float r25462 = a;
        float r25463 = r25462 * r25462;
        float r25464 = b;
        float r25465 = r25464 * r25464;
        float r25466 = r25463 - r25465;
        float r25467 = r25466 / r25463;
        float r25468 = fabs(r25467);
        float r25469 = sqrt(r25468);
        return r25469;
}

double f_id(double a, double b) {
        double r25470 = a;
        double r25471 = r25470 * r25470;
        double r25472 = b;
        double r25473 = r25472 * r25472;
        double r25474 = r25471 - r25473;
        double r25475 = r25474 / r25471;
        double r25476 = fabs(r25475);
        double r25477 = sqrt(r25476);
        return r25477;
}


double f_of(float a, float b) {
        float r25478 = 1;
        float r25479 = b;
        float r25480 = a;
        float r25481 = r25479 / r25480;
        float r25482 = r25481 * r25481;
        float r25483 = r25478 - r25482;
        float r25484 = fabs(r25483);
        float r25485 = sqrt(r25484);
        return r25485;
}

double f_od(double a, double b) {
        double r25486 = 1;
        double r25487 = b;
        double r25488 = a;
        double r25489 = r25487 / r25488;
        double r25490 = r25489 * r25489;
        double r25491 = r25486 - r25490;
        double r25492 = fabs(r25491);
        double r25493 = sqrt(r25492);
        return r25493;
}

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 r25494, r25495, r25496, r25497, r25498, r25499, r25500, r25501;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r25494);
        mpfr_init(r25495);
        mpfr_init(r25496);
        mpfr_init(r25497);
        mpfr_init(r25498);
        mpfr_init(r25499);
        mpfr_init(r25500);
        mpfr_init(r25501);
}

double f_im(double a, double b) {
        mpfr_set_d(r25494, a, MPFR_RNDN);
        mpfr_mul(r25495, r25494, r25494, MPFR_RNDN);
        mpfr_set_d(r25496, b, MPFR_RNDN);
        mpfr_mul(r25497, r25496, r25496, MPFR_RNDN);
        mpfr_sub(r25498, r25495, r25497, MPFR_RNDN);
        mpfr_div(r25499, r25498, r25495, MPFR_RNDN);
        mpfr_abs(r25500, r25499, MPFR_RNDN);
        mpfr_sqrt(r25501, r25500, MPFR_RNDN);
        return mpfr_get_d(r25501, MPFR_RNDN);
}

static mpfr_t r25502, r25503, r25504, r25505, r25506, r25507, r25508, r25509;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r25502, "1", 10, MPFR_RNDN);
        mpfr_init(r25503);
        mpfr_init(r25504);
        mpfr_init(r25505);
        mpfr_init(r25506);
        mpfr_init(r25507);
        mpfr_init(r25508);
        mpfr_init(r25509);
}

double f_fm(double a, double b) {
        ;
        mpfr_set_d(r25503, b, MPFR_RNDN);
        mpfr_set_d(r25504, a, MPFR_RNDN);
        mpfr_div(r25505, r25503, r25504, MPFR_RNDN);
        mpfr_mul(r25506, r25505, r25505, MPFR_RNDN);
        mpfr_sub(r25507, r25502, r25506, MPFR_RNDN);
        mpfr_abs(r25508, r25507, MPFR_RNDN);
        mpfr_sqrt(r25509, r25508, MPFR_RNDN);
        return mpfr_get_d(r25509, MPFR_RNDN);
}

static mpfr_t r25510, r25511, r25512, r25513, r25514, r25515, r25516, r25517;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r25510, "1", 10, MPFR_RNDN);
        mpfr_init(r25511);
        mpfr_init(r25512);
        mpfr_init(r25513);
        mpfr_init(r25514);
        mpfr_init(r25515);
        mpfr_init(r25516);
        mpfr_init(r25517);
}

double f_dm(double a, double b) {
        ;
        mpfr_set_d(r25511, b, MPFR_RNDN);
        mpfr_set_d(r25512, a, MPFR_RNDN);
        mpfr_div(r25513, r25511, r25512, MPFR_RNDN);
        mpfr_mul(r25514, r25513, r25513, MPFR_RNDN);
        mpfr_sub(r25515, r25510, r25514, MPFR_RNDN);
        mpfr_abs(r25516, r25515, MPFR_RNDN);
        mpfr_sqrt(r25517, r25516, MPFR_RNDN);
        return mpfr_get_d(r25517, MPFR_RNDN);
}