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

char *name = "math.log/2 on complex, imaginary part";

double f_if(float re, float im, float base) {
        float r21350 = im;
        float r21351 = re;
        float r21352 = atan2(r21350, r21351);
        float r21353 = base;
        float r21354 = log(r21353);
        float r21355 = r21352 * r21354;
        float r21356 = r21351 * r21351;
        float r21357 = r21350 * r21350;
        float r21358 = r21356 + r21357;
        float r21359 = sqrt(r21358);
        float r21360 = log(r21359);
        float r21361 = 0;
        float r21362 = r21360 * r21361;
        float r21363 = r21355 - r21362;
        float r21364 = r21354 * r21354;
        float r21365 = r21361 * r21361;
        float r21366 = r21364 + r21365;
        float r21367 = r21363 / r21366;
        return r21367;
}

double f_id(double re, double im, double base) {
        double r21368 = im;
        double r21369 = re;
        double r21370 = atan2(r21368, r21369);
        double r21371 = base;
        double r21372 = log(r21371);
        double r21373 = r21370 * r21372;
        double r21374 = r21369 * r21369;
        double r21375 = r21368 * r21368;
        double r21376 = r21374 + r21375;
        double r21377 = sqrt(r21376);
        double r21378 = log(r21377);
        double r21379 = 0;
        double r21380 = r21378 * r21379;
        double r21381 = r21373 - r21380;
        double r21382 = r21372 * r21372;
        double r21383 = r21379 * r21379;
        double r21384 = r21382 + r21383;
        double r21385 = r21381 / r21384;
        return r21385;
}


double f_of(float re, float im, float base) {
        float r21386 = im;
        float r21387 = re;
        float r21388 = atan2(r21386, r21387);
        float r21389 = 0;
        float r21390 = r21388 - r21389;
        float r21391 = 1;
        float r21392 = base;
        float r21393 = log(r21392);
        float r21394 = r21391 / r21393;
        float r21395 = r21390 * r21394;
        return r21395;
}

double f_od(double re, double im, double base) {
        double r21396 = im;
        double r21397 = re;
        double r21398 = atan2(r21396, r21397);
        double r21399 = 0;
        double r21400 = r21398 - r21399;
        double r21401 = 1;
        double r21402 = base;
        double r21403 = log(r21402);
        double r21404 = r21401 / r21403;
        double r21405 = r21400 * r21404;
        return r21405;
}

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 r21406, r21407, r21408, r21409, r21410, r21411, r21412, r21413, r21414, r21415, r21416, r21417, r21418, r21419, r21420, r21421, r21422, r21423;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r21406);
        mpfr_init(r21407);
        mpfr_init(r21408);
        mpfr_init(r21409);
        mpfr_init(r21410);
        mpfr_init(r21411);
        mpfr_init(r21412);
        mpfr_init(r21413);
        mpfr_init(r21414);
        mpfr_init(r21415);
        mpfr_init(r21416);
        mpfr_init_set_str(r21417, "0", 10, MPFR_RNDN);
        mpfr_init(r21418);
        mpfr_init(r21419);
        mpfr_init(r21420);
        mpfr_init(r21421);
        mpfr_init(r21422);
        mpfr_init(r21423);
}

double f_im(double re, double im, double base) {
        mpfr_set_d(r21406, im, MPFR_RNDN);
        mpfr_set_d(r21407, re, MPFR_RNDN);
        mpfr_atan2(r21408, r21406, r21407, MPFR_RNDN);
        mpfr_set_d(r21409, base, MPFR_RNDN);
        mpfr_log(r21410, r21409, MPFR_RNDN);
        mpfr_mul(r21411, r21408, r21410, MPFR_RNDN);
        mpfr_mul(r21412, r21407, r21407, MPFR_RNDN);
        mpfr_mul(r21413, r21406, r21406, MPFR_RNDN);
        mpfr_add(r21414, r21412, r21413, MPFR_RNDN);
        mpfr_sqrt(r21415, r21414, MPFR_RNDN);
        mpfr_log(r21416, r21415, MPFR_RNDN);
        ;
        mpfr_mul(r21418, r21416, r21417, MPFR_RNDN);
        mpfr_sub(r21419, r21411, r21418, MPFR_RNDN);
        mpfr_mul(r21420, r21410, r21410, MPFR_RNDN);
        mpfr_mul(r21421, r21417, r21417, MPFR_RNDN);
        mpfr_add(r21422, r21420, r21421, MPFR_RNDN);
        mpfr_div(r21423, r21419, r21422, MPFR_RNDN);
        return mpfr_get_d(r21423, MPFR_RNDN);
}

static mpfr_t r21424, r21425, r21426, r21427, r21428, r21429, r21430, r21431, r21432, r21433;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r21424);
        mpfr_init(r21425);
        mpfr_init(r21426);
        mpfr_init_set_str(r21427, "0", 10, MPFR_RNDN);
        mpfr_init(r21428);
        mpfr_init_set_str(r21429, "1", 10, MPFR_RNDN);
        mpfr_init(r21430);
        mpfr_init(r21431);
        mpfr_init(r21432);
        mpfr_init(r21433);
}

double f_fm(double re, double im, double base) {
        mpfr_set_d(r21424, im, MPFR_RNDN);
        mpfr_set_d(r21425, re, MPFR_RNDN);
        mpfr_atan2(r21426, r21424, r21425, MPFR_RNDN);
        ;
        mpfr_sub(r21428, r21426, r21427, MPFR_RNDN);
        ;
        mpfr_set_d(r21430, base, MPFR_RNDN);
        mpfr_log(r21431, r21430, MPFR_RNDN);
        mpfr_div(r21432, r21429, r21431, MPFR_RNDN);
        mpfr_mul(r21433, r21428, r21432, MPFR_RNDN);
        return mpfr_get_d(r21433, MPFR_RNDN);
}

static mpfr_t r21434, r21435, r21436, r21437, r21438, r21439, r21440, r21441, r21442, r21443;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r21434);
        mpfr_init(r21435);
        mpfr_init(r21436);
        mpfr_init_set_str(r21437, "0", 10, MPFR_RNDN);
        mpfr_init(r21438);
        mpfr_init_set_str(r21439, "1", 10, MPFR_RNDN);
        mpfr_init(r21440);
        mpfr_init(r21441);
        mpfr_init(r21442);
        mpfr_init(r21443);
}

double f_dm(double re, double im, double base) {
        mpfr_set_d(r21434, im, MPFR_RNDN);
        mpfr_set_d(r21435, re, MPFR_RNDN);
        mpfr_atan2(r21436, r21434, r21435, MPFR_RNDN);
        ;
        mpfr_sub(r21438, r21436, r21437, MPFR_RNDN);
        ;
        mpfr_set_d(r21440, base, MPFR_RNDN);
        mpfr_log(r21441, r21440, MPFR_RNDN);
        mpfr_div(r21442, r21439, r21441, MPFR_RNDN);
        mpfr_mul(r21443, r21438, r21442, MPFR_RNDN);
        return mpfr_get_d(r21443, MPFR_RNDN);
}