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

char *name = "r*sin(b)/cos(a+b), A";

double f_if(float r, float a, float b) {
        float r19695 = r;
        float r19696 = b;
        float r19697 = sin(r19696);
        float r19698 = r19695 * r19697;
        float r19699 = a;
        float r19700 = r19699 + r19696;
        float r19701 = cos(r19700);
        float r19702 = r19698 / r19701;
        return r19702;
}

double f_id(double r, double a, double b) {
        double r19703 = r;
        double r19704 = b;
        double r19705 = sin(r19704);
        double r19706 = r19703 * r19705;
        double r19707 = a;
        double r19708 = r19707 + r19704;
        double r19709 = cos(r19708);
        double r19710 = r19706 / r19709;
        return r19710;
}


double f_of(float r, float a, float b) {
        float r19711 = r;
        float r19712 = 1;
        float r19713 = r19711 / r19712;
        float r19714 = b;
        float r19715 = sin(r19714);
        float r19716 = a;
        float r19717 = cos(r19716);
        float r19718 = cos(r19714);
        float r19719 = r19717 * r19718;
        float r19720 = sin(r19716);
        float r19721 = r19720 * r19715;
        float r19722 = r19719 - r19721;
        float r19723 = r19715 / r19722;
        float r19724 = r19713 * r19723;
        return r19724;
}

double f_od(double r, double a, double b) {
        double r19725 = r;
        double r19726 = 1;
        double r19727 = r19725 / r19726;
        double r19728 = b;
        double r19729 = sin(r19728);
        double r19730 = a;
        double r19731 = cos(r19730);
        double r19732 = cos(r19728);
        double r19733 = r19731 * r19732;
        double r19734 = sin(r19730);
        double r19735 = r19734 * r19729;
        double r19736 = r19733 - r19735;
        double r19737 = r19729 / r19736;
        double r19738 = r19727 * r19737;
        return r19738;
}

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 r19739, r19740, r19741, r19742, r19743, r19744, r19745, r19746;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1424);
        mpfr_init(r19739);
        mpfr_init(r19740);
        mpfr_init(r19741);
        mpfr_init(r19742);
        mpfr_init(r19743);
        mpfr_init(r19744);
        mpfr_init(r19745);
        mpfr_init(r19746);
}

double f_im(double r, double a, double b) {
        mpfr_set_d(r19739, r, MPFR_RNDN);
        mpfr_set_d(r19740, b, MPFR_RNDN);
        mpfr_sin(r19741, r19740, MPFR_RNDN);
        mpfr_mul(r19742, r19739, r19741, MPFR_RNDN);
        mpfr_set_d(r19743, a, MPFR_RNDN);
        mpfr_add(r19744, r19743, r19740, MPFR_RNDN);
        mpfr_cos(r19745, r19744, MPFR_RNDN);
        mpfr_div(r19746, r19742, r19745, MPFR_RNDN);
        return mpfr_get_d(r19746, MPFR_RNDN);
}

static mpfr_t r19747, r19748, r19749, r19750, r19751, r19752, r19753, r19754, r19755, r19756, r19757, r19758, r19759, r19760;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r19747);
        mpfr_init_set_str(r19748, "1", 10, MPFR_RNDN);
        mpfr_init(r19749);
        mpfr_init(r19750);
        mpfr_init(r19751);
        mpfr_init(r19752);
        mpfr_init(r19753);
        mpfr_init(r19754);
        mpfr_init(r19755);
        mpfr_init(r19756);
        mpfr_init(r19757);
        mpfr_init(r19758);
        mpfr_init(r19759);
        mpfr_init(r19760);
}

double f_fm(double r, double a, double b) {
        mpfr_set_d(r19747, r, MPFR_RNDN);
        ;
        mpfr_div(r19749, r19747, r19748, MPFR_RNDN);
        mpfr_set_d(r19750, b, MPFR_RNDN);
        mpfr_sin(r19751, r19750, MPFR_RNDN);
        mpfr_set_d(r19752, a, MPFR_RNDN);
        mpfr_cos(r19753, r19752, MPFR_RNDN);
        mpfr_cos(r19754, r19750, MPFR_RNDN);
        mpfr_mul(r19755, r19753, r19754, MPFR_RNDN);
        mpfr_sin(r19756, r19752, MPFR_RNDN);
        mpfr_mul(r19757, r19756, r19751, MPFR_RNDN);
        mpfr_sub(r19758, r19755, r19757, MPFR_RNDN);
        mpfr_div(r19759, r19751, r19758, MPFR_RNDN);
        mpfr_mul(r19760, r19749, r19759, MPFR_RNDN);
        return mpfr_get_d(r19760, MPFR_RNDN);
}

static mpfr_t r19761, r19762, r19763, r19764, r19765, r19766, r19767, r19768, r19769, r19770, r19771, r19772, r19773, r19774;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1424);
        mpfr_init(r19761);
        mpfr_init_set_str(r19762, "1", 10, MPFR_RNDN);
        mpfr_init(r19763);
        mpfr_init(r19764);
        mpfr_init(r19765);
        mpfr_init(r19766);
        mpfr_init(r19767);
        mpfr_init(r19768);
        mpfr_init(r19769);
        mpfr_init(r19770);
        mpfr_init(r19771);
        mpfr_init(r19772);
        mpfr_init(r19773);
        mpfr_init(r19774);
}

double f_dm(double r, double a, double b) {
        mpfr_set_d(r19761, r, MPFR_RNDN);
        ;
        mpfr_div(r19763, r19761, r19762, MPFR_RNDN);
        mpfr_set_d(r19764, b, MPFR_RNDN);
        mpfr_sin(r19765, r19764, MPFR_RNDN);
        mpfr_set_d(r19766, a, MPFR_RNDN);
        mpfr_cos(r19767, r19766, MPFR_RNDN);
        mpfr_cos(r19768, r19764, MPFR_RNDN);
        mpfr_mul(r19769, r19767, r19768, MPFR_RNDN);
        mpfr_sin(r19770, r19766, MPFR_RNDN);
        mpfr_mul(r19771, r19770, r19765, MPFR_RNDN);
        mpfr_sub(r19772, r19769, r19771, MPFR_RNDN);
        mpfr_div(r19773, r19765, r19772, MPFR_RNDN);
        mpfr_mul(r19774, r19763, r19773, MPFR_RNDN);
        return mpfr_get_d(r19774, MPFR_RNDN);
}