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

char *name = "Linear.Matrix:fromQuaternion from linear-1.19.1.3, A";

double f_if(float x, float y) {
        float r47889 = 2.0;
        float r47890 = x;
        float r47891 = r47890 * r47890;
        float r47892 = y;
        float r47893 = r47890 * r47892;
        float r47894 = r47891 - r47893;
        float r47895 = r47889 * r47894;
        return r47895;
}

double f_id(double x, double y) {
        double r47896 = 2.0;
        double r47897 = x;
        double r47898 = r47897 * r47897;
        double r47899 = y;
        double r47900 = r47897 * r47899;
        double r47901 = r47898 - r47900;
        double r47902 = r47896 * r47901;
        return r47902;
}


double f_of(float x, float y) {
        float r47903 = 2.0;
        float r47904 = x;
        float r47905 = r47904 * r47904;
        float r47906 = y;
        float r47907 = r47904 * r47906;
        float r47908 = r47905 - r47907;
        float r47909 = r47903 * r47908;
        return r47909;
}

double f_od(double x, double y) {
        double r47910 = 2.0;
        double r47911 = x;
        double r47912 = r47911 * r47911;
        double r47913 = y;
        double r47914 = r47911 * r47913;
        double r47915 = r47912 - r47914;
        double r47916 = r47910 * r47915;
        return r47916;
}

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 r47917, r47918, r47919, r47920, r47921, r47922, r47923;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r47917, "2.0", 10, MPFR_RNDN);
        mpfr_init(r47918);
        mpfr_init(r47919);
        mpfr_init(r47920);
        mpfr_init(r47921);
        mpfr_init(r47922);
        mpfr_init(r47923);
}

double f_im(double x, double y) {
        ;
        mpfr_set_d(r47918, x, MPFR_RNDN);
        mpfr_mul(r47919, r47918, r47918, MPFR_RNDN);
        mpfr_set_d(r47920, y, MPFR_RNDN);
        mpfr_mul(r47921, r47918, r47920, MPFR_RNDN);
        mpfr_sub(r47922, r47919, r47921, MPFR_RNDN);
        mpfr_mul(r47923, r47917, r47922, MPFR_RNDN);
        return mpfr_get_d(r47923, MPFR_RNDN);
}

static mpfr_t r47924, r47925, r47926, r47927, r47928, r47929, r47930;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r47924, "2.0", 10, MPFR_RNDN);
        mpfr_init(r47925);
        mpfr_init(r47926);
        mpfr_init(r47927);
        mpfr_init(r47928);
        mpfr_init(r47929);
        mpfr_init(r47930);
}

double f_fm(double x, double y) {
        ;
        mpfr_set_d(r47925, x, MPFR_RNDN);
        mpfr_mul(r47926, r47925, r47925, MPFR_RNDN);
        mpfr_set_d(r47927, y, MPFR_RNDN);
        mpfr_mul(r47928, r47925, r47927, MPFR_RNDN);
        mpfr_sub(r47929, r47926, r47928, MPFR_RNDN);
        mpfr_mul(r47930, r47924, r47929, MPFR_RNDN);
        return mpfr_get_d(r47930, MPFR_RNDN);
}

static mpfr_t r47931, r47932, r47933, r47934, r47935, r47936, r47937;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r47931, "2.0", 10, MPFR_RNDN);
        mpfr_init(r47932);
        mpfr_init(r47933);
        mpfr_init(r47934);
        mpfr_init(r47935);
        mpfr_init(r47936);
        mpfr_init(r47937);
}

double f_dm(double x, double y) {
        ;
        mpfr_set_d(r47932, x, MPFR_RNDN);
        mpfr_mul(r47933, r47932, r47932, MPFR_RNDN);
        mpfr_set_d(r47934, y, MPFR_RNDN);
        mpfr_mul(r47935, r47932, r47934, MPFR_RNDN);
        mpfr_sub(r47936, r47933, r47935, MPFR_RNDN);
        mpfr_mul(r47937, r47931, r47936, MPFR_RNDN);
        return mpfr_get_d(r47937, MPFR_RNDN);
}