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

char *name = "Toniolo and Linder, Equation (3a)";

double f_if(float l, float Om, float kx, float ky) {
        float r20293 = 1;
        float r20294 = 2;
        float r20295 = r20293 / r20294;
        float r20296 = l;
        float r20297 = r20294 * r20296;
        float r20298 = Om;
        float r20299 = r20297 / r20298;
        float r20300 = pow(r20299, r20294);
        float r20301 = kx;
        float r20302 = sin(r20301);
        float r20303 = pow(r20302, r20294);
        float r20304 = ky;
        float r20305 = sin(r20304);
        float r20306 = pow(r20305, r20294);
        float r20307 = r20303 + r20306;
        float r20308 = r20300 * r20307;
        float r20309 = r20293 + r20308;
        float r20310 = sqrt(r20309);
        float r20311 = r20293 / r20310;
        float r20312 = r20293 + r20311;
        float r20313 = r20295 * r20312;
        float r20314 = sqrt(r20313);
        return r20314;
}

double f_id(double l, double Om, double kx, double ky) {
        double r20315 = 1;
        double r20316 = 2;
        double r20317 = r20315 / r20316;
        double r20318 = l;
        double r20319 = r20316 * r20318;
        double r20320 = Om;
        double r20321 = r20319 / r20320;
        double r20322 = pow(r20321, r20316);
        double r20323 = kx;
        double r20324 = sin(r20323);
        double r20325 = pow(r20324, r20316);
        double r20326 = ky;
        double r20327 = sin(r20326);
        double r20328 = pow(r20327, r20316);
        double r20329 = r20325 + r20328;
        double r20330 = r20322 * r20329;
        double r20331 = r20315 + r20330;
        double r20332 = sqrt(r20331);
        double r20333 = r20315 / r20332;
        double r20334 = r20315 + r20333;
        double r20335 = r20317 * r20334;
        double r20336 = sqrt(r20335);
        return r20336;
}


double f_of(float l, float Om, float kx, float ky) {
        float r20337 = 1;
        float r20338 = 2;
        float r20339 = r20337 / r20338;
        float r20340 = l;
        float r20341 = r20338 * r20340;
        float r20342 = Om;
        float r20343 = r20341 / r20342;
        float r20344 = cbrt(r20343);
        float r20345 = r20344 * r20344;
        float r20346 = pow(r20345, r20338);
        float r20347 = pow(r20344, r20338);
        float r20348 = kx;
        float r20349 = sin(r20348);
        float r20350 = pow(r20349, r20338);
        float r20351 = ky;
        float r20352 = sin(r20351);
        float r20353 = pow(r20352, r20338);
        float r20354 = r20350 + r20353;
        float r20355 = r20347 * r20354;
        float r20356 = r20346 * r20355;
        float r20357 = r20337 + r20356;
        float r20358 = sqrt(r20357);
        float r20359 = r20337 / r20358;
        float r20360 = r20337 + r20359;
        float r20361 = r20339 * r20360;
        float r20362 = sqrt(r20361);
        return r20362;
}

double f_od(double l, double Om, double kx, double ky) {
        double r20363 = 1;
        double r20364 = 2;
        double r20365 = r20363 / r20364;
        double r20366 = l;
        double r20367 = r20364 * r20366;
        double r20368 = Om;
        double r20369 = r20367 / r20368;
        double r20370 = cbrt(r20369);
        double r20371 = r20370 * r20370;
        double r20372 = pow(r20371, r20364);
        double r20373 = pow(r20370, r20364);
        double r20374 = kx;
        double r20375 = sin(r20374);
        double r20376 = pow(r20375, r20364);
        double r20377 = ky;
        double r20378 = sin(r20377);
        double r20379 = pow(r20378, r20364);
        double r20380 = r20376 + r20379;
        double r20381 = r20373 * r20380;
        double r20382 = r20372 * r20381;
        double r20383 = r20363 + r20382;
        double r20384 = sqrt(r20383);
        double r20385 = r20363 / r20384;
        double r20386 = r20363 + r20385;
        double r20387 = r20365 * r20386;
        double r20388 = sqrt(r20387);
        return r20388;
}

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 r20389, r20390, r20391, r20392, r20393, r20394, r20395, r20396, r20397, r20398, r20399, r20400, r20401, r20402, r20403, r20404, r20405, r20406, r20407, r20408, r20409, r20410;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20389, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r20390, "2", 10, MPFR_RNDN);
        mpfr_init(r20391);
        mpfr_init(r20392);
        mpfr_init(r20393);
        mpfr_init(r20394);
        mpfr_init(r20395);
        mpfr_init(r20396);
        mpfr_init(r20397);
        mpfr_init(r20398);
        mpfr_init(r20399);
        mpfr_init(r20400);
        mpfr_init(r20401);
        mpfr_init(r20402);
        mpfr_init(r20403);
        mpfr_init(r20404);
        mpfr_init(r20405);
        mpfr_init(r20406);
        mpfr_init(r20407);
        mpfr_init(r20408);
        mpfr_init(r20409);
        mpfr_init(r20410);
}

double f_im(double l, double Om, double kx, double ky) {
        ;
        ;
        mpfr_div(r20391, r20389, r20390, MPFR_RNDN);
        mpfr_set_d(r20392, l, MPFR_RNDN);
        mpfr_mul(r20393, r20390, r20392, MPFR_RNDN);
        mpfr_set_d(r20394, Om, MPFR_RNDN);
        mpfr_div(r20395, r20393, r20394, MPFR_RNDN);
        mpfr_pow(r20396, r20395, r20390, MPFR_RNDN);
        mpfr_set_d(r20397, kx, MPFR_RNDN);
        mpfr_sin(r20398, r20397, MPFR_RNDN);
        mpfr_pow(r20399, r20398, r20390, MPFR_RNDN);
        mpfr_set_d(r20400, ky, MPFR_RNDN);
        mpfr_sin(r20401, r20400, MPFR_RNDN);
        mpfr_pow(r20402, r20401, r20390, MPFR_RNDN);
        mpfr_add(r20403, r20399, r20402, MPFR_RNDN);
        mpfr_mul(r20404, r20396, r20403, MPFR_RNDN);
        mpfr_add(r20405, r20389, r20404, MPFR_RNDN);
        mpfr_sqrt(r20406, r20405, MPFR_RNDN);
        mpfr_div(r20407, r20389, r20406, MPFR_RNDN);
        mpfr_add(r20408, r20389, r20407, MPFR_RNDN);
        mpfr_mul(r20409, r20391, r20408, MPFR_RNDN);
        mpfr_sqrt(r20410, r20409, MPFR_RNDN);
        return mpfr_get_d(r20410, MPFR_RNDN);
}

static mpfr_t r20411, r20412, r20413, r20414, r20415, r20416, r20417, r20418, r20419, r20420, r20421, r20422, r20423, r20424, r20425, r20426, r20427, r20428, r20429, r20430, r20431, r20432, r20433, r20434, r20435, r20436;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20411, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r20412, "2", 10, MPFR_RNDN);
        mpfr_init(r20413);
        mpfr_init(r20414);
        mpfr_init(r20415);
        mpfr_init(r20416);
        mpfr_init(r20417);
        mpfr_init(r20418);
        mpfr_init(r20419);
        mpfr_init(r20420);
        mpfr_init(r20421);
        mpfr_init(r20422);
        mpfr_init(r20423);
        mpfr_init(r20424);
        mpfr_init(r20425);
        mpfr_init(r20426);
        mpfr_init(r20427);
        mpfr_init(r20428);
        mpfr_init(r20429);
        mpfr_init(r20430);
        mpfr_init(r20431);
        mpfr_init(r20432);
        mpfr_init(r20433);
        mpfr_init(r20434);
        mpfr_init(r20435);
        mpfr_init(r20436);
}

double f_fm(double l, double Om, double kx, double ky) {
        ;
        ;
        mpfr_div(r20413, r20411, r20412, MPFR_RNDN);
        mpfr_set_d(r20414, l, MPFR_RNDN);
        mpfr_mul(r20415, r20412, r20414, MPFR_RNDN);
        mpfr_set_d(r20416, Om, MPFR_RNDN);
        mpfr_div(r20417, r20415, r20416, MPFR_RNDN);
        mpfr_cbrt(r20418, r20417, MPFR_RNDN);
        mpfr_mul(r20419, r20418, r20418, MPFR_RNDN);
        mpfr_pow(r20420, r20419, r20412, MPFR_RNDN);
        mpfr_pow(r20421, r20418, r20412, MPFR_RNDN);
        mpfr_set_d(r20422, kx, MPFR_RNDN);
        mpfr_sin(r20423, r20422, MPFR_RNDN);
        mpfr_pow(r20424, r20423, r20412, MPFR_RNDN);
        mpfr_set_d(r20425, ky, MPFR_RNDN);
        mpfr_sin(r20426, r20425, MPFR_RNDN);
        mpfr_pow(r20427, r20426, r20412, MPFR_RNDN);
        mpfr_add(r20428, r20424, r20427, MPFR_RNDN);
        mpfr_mul(r20429, r20421, r20428, MPFR_RNDN);
        mpfr_mul(r20430, r20420, r20429, MPFR_RNDN);
        mpfr_add(r20431, r20411, r20430, MPFR_RNDN);
        mpfr_sqrt(r20432, r20431, MPFR_RNDN);
        mpfr_div(r20433, r20411, r20432, MPFR_RNDN);
        mpfr_add(r20434, r20411, r20433, MPFR_RNDN);
        mpfr_mul(r20435, r20413, r20434, MPFR_RNDN);
        mpfr_sqrt(r20436, r20435, MPFR_RNDN);
        return mpfr_get_d(r20436, MPFR_RNDN);
}

static mpfr_t r20437, r20438, r20439, r20440, r20441, r20442, r20443, r20444, r20445, r20446, r20447, r20448, r20449, r20450, r20451, r20452, r20453, r20454, r20455, r20456, r20457, r20458, r20459, r20460, r20461, r20462;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init_set_str(r20437, "1", 10, MPFR_RNDN);
        mpfr_init_set_str(r20438, "2", 10, MPFR_RNDN);
        mpfr_init(r20439);
        mpfr_init(r20440);
        mpfr_init(r20441);
        mpfr_init(r20442);
        mpfr_init(r20443);
        mpfr_init(r20444);
        mpfr_init(r20445);
        mpfr_init(r20446);
        mpfr_init(r20447);
        mpfr_init(r20448);
        mpfr_init(r20449);
        mpfr_init(r20450);
        mpfr_init(r20451);
        mpfr_init(r20452);
        mpfr_init(r20453);
        mpfr_init(r20454);
        mpfr_init(r20455);
        mpfr_init(r20456);
        mpfr_init(r20457);
        mpfr_init(r20458);
        mpfr_init(r20459);
        mpfr_init(r20460);
        mpfr_init(r20461);
        mpfr_init(r20462);
}

double f_dm(double l, double Om, double kx, double ky) {
        ;
        ;
        mpfr_div(r20439, r20437, r20438, MPFR_RNDN);
        mpfr_set_d(r20440, l, MPFR_RNDN);
        mpfr_mul(r20441, r20438, r20440, MPFR_RNDN);
        mpfr_set_d(r20442, Om, MPFR_RNDN);
        mpfr_div(r20443, r20441, r20442, MPFR_RNDN);
        mpfr_cbrt(r20444, r20443, MPFR_RNDN);
        mpfr_mul(r20445, r20444, r20444, MPFR_RNDN);
        mpfr_pow(r20446, r20445, r20438, MPFR_RNDN);
        mpfr_pow(r20447, r20444, r20438, MPFR_RNDN);
        mpfr_set_d(r20448, kx, MPFR_RNDN);
        mpfr_sin(r20449, r20448, MPFR_RNDN);
        mpfr_pow(r20450, r20449, r20438, MPFR_RNDN);
        mpfr_set_d(r20451, ky, MPFR_RNDN);
        mpfr_sin(r20452, r20451, MPFR_RNDN);
        mpfr_pow(r20453, r20452, r20438, MPFR_RNDN);
        mpfr_add(r20454, r20450, r20453, MPFR_RNDN);
        mpfr_mul(r20455, r20447, r20454, MPFR_RNDN);
        mpfr_mul(r20456, r20446, r20455, MPFR_RNDN);
        mpfr_add(r20457, r20437, r20456, MPFR_RNDN);
        mpfr_sqrt(r20458, r20457, MPFR_RNDN);
        mpfr_div(r20459, r20437, r20458, MPFR_RNDN);
        mpfr_add(r20460, r20437, r20459, MPFR_RNDN);
        mpfr_mul(r20461, r20439, r20460, MPFR_RNDN);
        mpfr_sqrt(r20462, r20461, MPFR_RNDN);
        return mpfr_get_d(r20462, MPFR_RNDN);
}