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

char *name = "Complex division, imag part";

double f_if(float a, float b, float c, float d) {
        float r26679 = b;
        float r26680 = c;
        float r26681 = r26679 * r26680;
        float r26682 = a;
        float r26683 = d;
        float r26684 = r26682 * r26683;
        float r26685 = r26681 - r26684;
        float r26686 = r26680 * r26680;
        float r26687 = r26683 * r26683;
        float r26688 = r26686 + r26687;
        float r26689 = r26685 / r26688;
        return r26689;
}

double f_id(double a, double b, double c, double d) {
        double r26690 = b;
        double r26691 = c;
        double r26692 = r26690 * r26691;
        double r26693 = a;
        double r26694 = d;
        double r26695 = r26693 * r26694;
        double r26696 = r26692 - r26695;
        double r26697 = r26691 * r26691;
        double r26698 = r26694 * r26694;
        double r26699 = r26697 + r26698;
        double r26700 = r26696 / r26699;
        return r26700;
}


double f_of(float a, float b, float c, float d) {
        float r26701 = b;
        float r26702 = c;
        float r26703 = r26701 * r26702;
        float r26704 = a;
        float r26705 = d;
        float r26706 = r26704 * r26705;
        float r26707 = r26703 - r26706;
        float r26708 = r26702 * r26702;
        float r26709 = r26705 * r26705;
        float r26710 = r26708 + r26709;
        float r26711 = sqrt(r26710);
        float r26712 = r26707 / r26711;
        float r26713 = r26712 / r26711;
        return r26713;
}

double f_od(double a, double b, double c, double d) {
        double r26714 = b;
        double r26715 = c;
        double r26716 = r26714 * r26715;
        double r26717 = a;
        double r26718 = d;
        double r26719 = r26717 * r26718;
        double r26720 = r26716 - r26719;
        double r26721 = r26715 * r26715;
        double r26722 = r26718 * r26718;
        double r26723 = r26721 + r26722;
        double r26724 = sqrt(r26723);
        double r26725 = r26720 / r26724;
        double r26726 = r26725 / r26724;
        return r26726;
}

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 r26727, r26728, r26729, r26730, r26731, r26732, r26733, r26734, r26735, r26736, r26737;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r26727);
        mpfr_init(r26728);
        mpfr_init(r26729);
        mpfr_init(r26730);
        mpfr_init(r26731);
        mpfr_init(r26732);
        mpfr_init(r26733);
        mpfr_init(r26734);
        mpfr_init(r26735);
        mpfr_init(r26736);
        mpfr_init(r26737);
}

double f_im(double a, double b, double c, double d) {
        mpfr_set_d(r26727, b, MPFR_RNDN);
        mpfr_set_d(r26728, c, MPFR_RNDN);
        mpfr_mul(r26729, r26727, r26728, MPFR_RNDN);
        mpfr_set_d(r26730, a, MPFR_RNDN);
        mpfr_set_d(r26731, d, MPFR_RNDN);
        mpfr_mul(r26732, r26730, r26731, MPFR_RNDN);
        mpfr_sub(r26733, r26729, r26732, MPFR_RNDN);
        mpfr_mul(r26734, r26728, r26728, MPFR_RNDN);
        mpfr_mul(r26735, r26731, r26731, MPFR_RNDN);
        mpfr_add(r26736, r26734, r26735, MPFR_RNDN);
        mpfr_div(r26737, r26733, r26736, MPFR_RNDN);
        return mpfr_get_d(r26737, MPFR_RNDN);
}

static mpfr_t r26738, r26739, r26740, r26741, r26742, r26743, r26744, r26745, r26746, r26747, r26748, r26749, r26750;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        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(r26747);
        mpfr_init(r26748);
        mpfr_init(r26749);
        mpfr_init(r26750);
}

double f_fm(double a, double b, double c, double d) {
        mpfr_set_d(r26738, b, MPFR_RNDN);
        mpfr_set_d(r26739, c, MPFR_RNDN);
        mpfr_mul(r26740, r26738, r26739, MPFR_RNDN);
        mpfr_set_d(r26741, a, MPFR_RNDN);
        mpfr_set_d(r26742, d, MPFR_RNDN);
        mpfr_mul(r26743, r26741, r26742, MPFR_RNDN);
        mpfr_sub(r26744, r26740, r26743, MPFR_RNDN);
        mpfr_mul(r26745, r26739, r26739, MPFR_RNDN);
        mpfr_mul(r26746, r26742, r26742, MPFR_RNDN);
        mpfr_add(r26747, r26745, r26746, MPFR_RNDN);
        mpfr_sqrt(r26748, r26747, MPFR_RNDN);
        mpfr_div(r26749, r26744, r26748, MPFR_RNDN);
        mpfr_div(r26750, r26749, r26748, MPFR_RNDN);
        return mpfr_get_d(r26750, MPFR_RNDN);
}

static mpfr_t r26751, r26752, r26753, r26754, r26755, r26756, r26757, r26758, r26759, r26760, r26761, r26762, r26763;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        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);
}

double f_dm(double a, double b, double c, double d) {
        mpfr_set_d(r26751, b, MPFR_RNDN);
        mpfr_set_d(r26752, c, MPFR_RNDN);
        mpfr_mul(r26753, r26751, r26752, MPFR_RNDN);
        mpfr_set_d(r26754, a, MPFR_RNDN);
        mpfr_set_d(r26755, d, MPFR_RNDN);
        mpfr_mul(r26756, r26754, r26755, MPFR_RNDN);
        mpfr_sub(r26757, r26753, r26756, MPFR_RNDN);
        mpfr_mul(r26758, r26752, r26752, MPFR_RNDN);
        mpfr_mul(r26759, r26755, r26755, MPFR_RNDN);
        mpfr_add(r26760, r26758, r26759, MPFR_RNDN);
        mpfr_sqrt(r26761, r26760, MPFR_RNDN);
        mpfr_div(r26762, r26757, r26761, MPFR_RNDN);
        mpfr_div(r26763, r26762, r26761, MPFR_RNDN);
        return mpfr_get_d(r26763, MPFR_RNDN);
}