#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 r22389 = im;
        float r22390 = re;
        float r22391 = atan2(r22389, r22390);
        float r22392 = base;
        float r22393 = log(r22392);
        float r22394 = r22391 * r22393;
        float r22395 = r22390 * r22390;
        float r22396 = r22389 * r22389;
        float r22397 = r22395 + r22396;
        float r22398 = sqrt(r22397);
        float r22399 = log(r22398);
        float r22400 = 0;
        float r22401 = r22399 * r22400;
        float r22402 = r22394 - r22401;
        float r22403 = r22393 * r22393;
        float r22404 = r22400 * r22400;
        float r22405 = r22403 + r22404;
        float r22406 = r22402 / r22405;
        return r22406;
}

double f_id(double re, double im, double base) {
        double r22407 = im;
        double r22408 = re;
        double r22409 = atan2(r22407, r22408);
        double r22410 = base;
        double r22411 = log(r22410);
        double r22412 = r22409 * r22411;
        double r22413 = r22408 * r22408;
        double r22414 = r22407 * r22407;
        double r22415 = r22413 + r22414;
        double r22416 = sqrt(r22415);
        double r22417 = log(r22416);
        double r22418 = 0;
        double r22419 = r22417 * r22418;
        double r22420 = r22412 - r22419;
        double r22421 = r22411 * r22411;
        double r22422 = r22418 * r22418;
        double r22423 = r22421 + r22422;
        double r22424 = r22420 / r22423;
        return r22424;
}


double f_of(float re, float im, float base) {
        float r22425 = im;
        float r22426 = re;
        float r22427 = atan2(r22425, r22426);
        float r22428 = 0;
        float r22429 = r22427 - r22428;
        float r22430 = base;
        float r22431 = log(r22430);
        float r22432 = r22429 / r22431;
        return r22432;
}

double f_od(double re, double im, double base) {
        double r22433 = im;
        double r22434 = re;
        double r22435 = atan2(r22433, r22434);
        double r22436 = 0;
        double r22437 = r22435 - r22436;
        double r22438 = base;
        double r22439 = log(r22438);
        double r22440 = r22437 / r22439;
        return r22440;
}

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 r22441, r22442, r22443, r22444, r22445, r22446, r22447, r22448, r22449, r22450, r22451, r22452, r22453, r22454, r22455, r22456, r22457, r22458;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r22441);
        mpfr_init(r22442);
        mpfr_init(r22443);
        mpfr_init(r22444);
        mpfr_init(r22445);
        mpfr_init(r22446);
        mpfr_init(r22447);
        mpfr_init(r22448);
        mpfr_init(r22449);
        mpfr_init(r22450);
        mpfr_init(r22451);
        mpfr_init_set_str(r22452, "0", 10, MPFR_RNDN);
        mpfr_init(r22453);
        mpfr_init(r22454);
        mpfr_init(r22455);
        mpfr_init(r22456);
        mpfr_init(r22457);
        mpfr_init(r22458);
}

double f_im(double re, double im, double base) {
        mpfr_set_d(r22441, im, MPFR_RNDN);
        mpfr_set_d(r22442, re, MPFR_RNDN);
        mpfr_atan2(r22443, r22441, r22442, MPFR_RNDN);
        mpfr_set_d(r22444, base, MPFR_RNDN);
        mpfr_log(r22445, r22444, MPFR_RNDN);
        mpfr_mul(r22446, r22443, r22445, MPFR_RNDN);
        mpfr_mul(r22447, r22442, r22442, MPFR_RNDN);
        mpfr_mul(r22448, r22441, r22441, MPFR_RNDN);
        mpfr_add(r22449, r22447, r22448, MPFR_RNDN);
        mpfr_sqrt(r22450, r22449, MPFR_RNDN);
        mpfr_log(r22451, r22450, MPFR_RNDN);
        ;
        mpfr_mul(r22453, r22451, r22452, MPFR_RNDN);
        mpfr_sub(r22454, r22446, r22453, MPFR_RNDN);
        mpfr_mul(r22455, r22445, r22445, MPFR_RNDN);
        mpfr_mul(r22456, r22452, r22452, MPFR_RNDN);
        mpfr_add(r22457, r22455, r22456, MPFR_RNDN);
        mpfr_div(r22458, r22454, r22457, MPFR_RNDN);
        return mpfr_get_d(r22458, MPFR_RNDN);
}

static mpfr_t r22459, r22460, r22461, r22462, r22463, r22464, r22465, r22466;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r22459);
        mpfr_init(r22460);
        mpfr_init(r22461);
        mpfr_init_set_str(r22462, "0", 10, MPFR_RNDN);
        mpfr_init(r22463);
        mpfr_init(r22464);
        mpfr_init(r22465);
        mpfr_init(r22466);
}

double f_fm(double re, double im, double base) {
        mpfr_set_d(r22459, im, MPFR_RNDN);
        mpfr_set_d(r22460, re, MPFR_RNDN);
        mpfr_atan2(r22461, r22459, r22460, MPFR_RNDN);
        ;
        mpfr_sub(r22463, r22461, r22462, MPFR_RNDN);
        mpfr_set_d(r22464, base, MPFR_RNDN);
        mpfr_log(r22465, r22464, MPFR_RNDN);
        mpfr_div(r22466, r22463, r22465, MPFR_RNDN);
        return mpfr_get_d(r22466, MPFR_RNDN);
}

static mpfr_t r22467, r22468, r22469, r22470, r22471, r22472, r22473, r22474;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r22467);
        mpfr_init(r22468);
        mpfr_init(r22469);
        mpfr_init_set_str(r22470, "0", 10, MPFR_RNDN);
        mpfr_init(r22471);
        mpfr_init(r22472);
        mpfr_init(r22473);
        mpfr_init(r22474);
}

double f_dm(double re, double im, double base) {
        mpfr_set_d(r22467, im, MPFR_RNDN);
        mpfr_set_d(r22468, re, MPFR_RNDN);
        mpfr_atan2(r22469, r22467, r22468, MPFR_RNDN);
        ;
        mpfr_sub(r22471, r22469, r22470, MPFR_RNDN);
        mpfr_set_d(r22472, base, MPFR_RNDN);
        mpfr_log(r22473, r22472, MPFR_RNDN);
        mpfr_div(r22474, r22471, r22473, MPFR_RNDN);
        return mpfr_get_d(r22474, MPFR_RNDN);
}