#include #include #include #include #include char *name = "Octave 3.8, jcobi/2"; double f_if(float alpha, float beta, float i) { float r10010 = alpha; float r10011 = beta; float r10012 = r10010 + r10011; float r10013 = r10011 - r10010; float r10014 = r10012 * r10013; float r10015 = 2.0f; float r10016 = i; float r10017 = r10015 * r10016; float r10018 = r10012 + r10017; float r10019 = r10014 / r10018; float r10020 = 2.0f; float r10021 = r10018 + r10020; float r10022 = r10019 / r10021; float r10023 = 1.0f; float r10024 = r10022 + r10023; float r10025 = r10024 / r10020; return r10025; } double f_id(double alpha, double beta, double i) { double r10026 = alpha; double r10027 = beta; double r10028 = r10026 + r10027; double r10029 = r10027 - r10026; double r10030 = r10028 * r10029; double r10031 = 2.0; double r10032 = i; double r10033 = r10031 * r10032; double r10034 = r10028 + r10033; double r10035 = r10030 / r10034; double r10036 = 2.0; double r10037 = r10034 + r10036; double r10038 = r10035 / r10037; double r10039 = 1.0; double r10040 = r10038 + r10039; double r10041 = r10040 / r10036; return r10041; } double f_of(float alpha, float beta, float i) { float r10042 = alpha; float r10043 = beta; float r10044 = r10042 + r10043; float r10045 = sqrt(r10044); float r10046 = r10043 - r10042; float r10047 = i; float r10048 = 2.0f; float r10049 = r10047 * r10048; float r10050 = r10044 + r10049; float r10051 = r10046 / r10050; float r10052 = 2.0f; float r10053 = r10052 + r10050; float r10054 = r10051 / r10053; float r10055 = r10045 * r10054; float r10056 = r10055 * r10045; float r10057 = 1.0f; float r10058 = r10056 + r10057; float r10059 = r10058 / r10052; float r10060 = 1.6323084650749024e-13f; bool r10061 = r10059 <= r10060; float r10062 = r10052 / r10042; float r10063 = 8.0f; float r10064 = r10063 / r10042; float r10065 = 4.0f; float r10066 = r10064 - r10065; float r10067 = r10042 * r10042; float r10068 = r10066 / r10067; float r10069 = r10062 + r10068; float r10070 = r10069 / r10052; float r10071 = r10053 / r10051; float r10072 = r10044 / r10071; float r10073 = 3.0f; float r10074 = pow(r10072, r10073); float r10075 = pow(r10057, r10073); float r10076 = r10074 + r10075; float r10077 = r10057 * r10057; float r10078 = r10057 * r10072; float r10079 = r10077 - r10078; float r10080 = r10072 * r10072; float r10081 = r10079 + r10080; float r10082 = r10076 / r10081; float r10083 = r10082 / r10052; float r10084 = r10061 ? r10070 : r10083; return r10084; } double f_od(double alpha, double beta, double i) { double r10085 = alpha; double r10086 = beta; double r10087 = r10085 + r10086; double r10088 = sqrt(r10087); double r10089 = r10086 - r10085; double r10090 = i; double r10091 = 2.0; double r10092 = r10090 * r10091; double r10093 = r10087 + r10092; double r10094 = r10089 / r10093; double r10095 = 2.0; double r10096 = r10095 + r10093; double r10097 = r10094 / r10096; double r10098 = r10088 * r10097; double r10099 = r10098 * r10088; double r10100 = 1.0; double r10101 = r10099 + r10100; double r10102 = r10101 / r10095; double r10103 = 1.6323084650749024e-13; bool r10104 = r10102 <= r10103; double r10105 = r10095 / r10085; double r10106 = 8.0; double r10107 = r10106 / r10085; double r10108 = 4.0; double r10109 = r10107 - r10108; double r10110 = r10085 * r10085; double r10111 = r10109 / r10110; double r10112 = r10105 + r10111; double r10113 = r10112 / r10095; double r10114 = r10096 / r10094; double r10115 = r10087 / r10114; double r10116 = 3.0; double r10117 = pow(r10115, r10116); double r10118 = pow(r10100, r10116); double r10119 = r10117 + r10118; double r10120 = r10100 * r10100; double r10121 = r10100 * r10115; double r10122 = r10120 - r10121; double r10123 = r10115 * r10115; double r10124 = r10122 + r10123; double r10125 = r10119 / r10124; double r10126 = r10125 / r10095; double r10127 = r10104 ? r10113 : r10126; return r10127; } 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 r10128, r10129, r10130, r10131, r10132, r10133, r10134, r10135, r10136, r10137, r10138, r10139, r10140, r10141, r10142, r10143; void setup_mpfr_f_im() { mpfr_set_default_prec(1360); mpfr_init(r10128); mpfr_init(r10129); mpfr_init(r10130); mpfr_init(r10131); mpfr_init(r10132); mpfr_init_set_str(r10133, "2", 10, MPFR_RNDN); mpfr_init(r10134); mpfr_init(r10135); mpfr_init(r10136); mpfr_init(r10137); mpfr_init_set_str(r10138, "2.0", 10, MPFR_RNDN); mpfr_init(r10139); mpfr_init(r10140); mpfr_init_set_str(r10141, "1.0", 10, MPFR_RNDN); mpfr_init(r10142); mpfr_init(r10143); } double f_im(double alpha, double beta, double i) { mpfr_set_d(r10128, alpha, MPFR_RNDN); mpfr_set_d(r10129, beta, MPFR_RNDN); mpfr_add(r10130, r10128, r10129, MPFR_RNDN); mpfr_sub(r10131, r10129, r10128, MPFR_RNDN); mpfr_mul(r10132, r10130, r10131, MPFR_RNDN); ; mpfr_set_d(r10134, i, MPFR_RNDN); mpfr_mul(r10135, r10133, r10134, MPFR_RNDN); mpfr_add(r10136, r10130, r10135, MPFR_RNDN); mpfr_div(r10137, r10132, r10136, MPFR_RNDN); ; mpfr_add(r10139, r10136, r10138, MPFR_RNDN); mpfr_div(r10140, r10137, r10139, MPFR_RNDN); ; mpfr_add(r10142, r10140, r10141, MPFR_RNDN); mpfr_div(r10143, r10142, r10138, MPFR_RNDN); return mpfr_get_d(r10143, MPFR_RNDN); } static mpfr_t r10144, r10145, r10146, r10147, r10148, r10149, r10150, r10151, r10152, r10153, r10154, r10155, r10156, r10157, r10158, r10159, r10160, r10161, r10162, r10163, r10164, r10165, r10166, r10167, r10168, r10169, r10170, r10171, r10172, r10173, r10174, r10175, r10176, r10177, r10178, r10179, r10180, r10181, r10182, r10183, r10184, r10185, r10186; void setup_mpfr_f_fm() { mpfr_set_default_prec(1360); mpfr_init(r10144); mpfr_init(r10145); mpfr_init(r10146); mpfr_init(r10147); mpfr_init(r10148); mpfr_init(r10149); mpfr_init_set_str(r10150, "2", 10, MPFR_RNDN); mpfr_init(r10151); mpfr_init(r10152); mpfr_init(r10153); mpfr_init_set_str(r10154, "2.0", 10, MPFR_RNDN); mpfr_init(r10155); mpfr_init(r10156); mpfr_init(r10157); mpfr_init(r10158); mpfr_init_set_str(r10159, "1.0", 10, MPFR_RNDN); mpfr_init(r10160); mpfr_init(r10161); mpfr_init_set_str(r10162, "1.6323084650749024e-13", 10, MPFR_RNDN); mpfr_init(r10163); mpfr_init(r10164); mpfr_init_set_str(r10165, "8.0", 10, MPFR_RNDN); mpfr_init(r10166); mpfr_init_set_str(r10167, "4.0", 10, MPFR_RNDN); mpfr_init(r10168); mpfr_init(r10169); mpfr_init(r10170); mpfr_init(r10171); mpfr_init(r10172); mpfr_init(r10173); mpfr_init(r10174); mpfr_init_set_str(r10175, "3", 10, MPFR_RNDN); mpfr_init(r10176); mpfr_init(r10177); mpfr_init(r10178); mpfr_init(r10179); mpfr_init(r10180); mpfr_init(r10181); mpfr_init(r10182); mpfr_init(r10183); mpfr_init(r10184); mpfr_init(r10185); mpfr_init(r10186); } double f_fm(double alpha, double beta, double i) { mpfr_set_d(r10144, alpha, MPFR_RNDN); mpfr_set_d(r10145, beta, MPFR_RNDN); mpfr_add(r10146, r10144, r10145, MPFR_RNDN); mpfr_sqrt(r10147, r10146, MPFR_RNDN); mpfr_sub(r10148, r10145, r10144, MPFR_RNDN); mpfr_set_d(r10149, i, MPFR_RNDN); ; mpfr_mul(r10151, r10149, r10150, MPFR_RNDN); mpfr_add(r10152, r10146, r10151, MPFR_RNDN); mpfr_div(r10153, r10148, r10152, MPFR_RNDN); ; mpfr_add(r10155, r10154, r10152, MPFR_RNDN); mpfr_div(r10156, r10153, r10155, MPFR_RNDN); mpfr_mul(r10157, r10147, r10156, MPFR_RNDN); mpfr_mul(r10158, r10157, r10147, MPFR_RNDN); ; mpfr_add(r10160, r10158, r10159, MPFR_RNDN); mpfr_div(r10161, r10160, r10154, MPFR_RNDN); ; mpfr_set_si(r10163, mpfr_cmp(r10161, r10162) <= 0, MPFR_RNDN); mpfr_div(r10164, r10154, r10144, MPFR_RNDN); ; mpfr_div(r10166, r10165, r10144, MPFR_RNDN); ; mpfr_sub(r10168, r10166, r10167, MPFR_RNDN); mpfr_mul(r10169, r10144, r10144, MPFR_RNDN); mpfr_div(r10170, r10168, r10169, MPFR_RNDN); mpfr_add(r10171, r10164, r10170, MPFR_RNDN); mpfr_div(r10172, r10171, r10154, MPFR_RNDN); mpfr_div(r10173, r10155, r10153, MPFR_RNDN); mpfr_div(r10174, r10146, r10173, MPFR_RNDN); ; mpfr_pow(r10176, r10174, r10175, MPFR_RNDN); mpfr_pow(r10177, r10159, r10175, MPFR_RNDN); mpfr_add(r10178, r10176, r10177, MPFR_RNDN); mpfr_mul(r10179, r10159, r10159, MPFR_RNDN); mpfr_mul(r10180, r10159, r10174, MPFR_RNDN); mpfr_sub(r10181, r10179, r10180, MPFR_RNDN); mpfr_mul(r10182, r10174, r10174, MPFR_RNDN); mpfr_add(r10183, r10181, r10182, MPFR_RNDN); mpfr_div(r10184, r10178, r10183, MPFR_RNDN); mpfr_div(r10185, r10184, r10154, MPFR_RNDN); if (mpfr_get_si(r10163, MPFR_RNDN)) { mpfr_set(r10186, r10172, MPFR_RNDN); } else { mpfr_set(r10186, r10185, MPFR_RNDN); }; return mpfr_get_d(r10186, MPFR_RNDN); } static mpfr_t r10187, r10188, r10189, r10190, r10191, r10192, r10193, r10194, r10195, r10196, r10197, r10198, r10199, r10200, r10201, r10202, r10203, r10204, r10205, r10206, r10207, r10208, r10209, r10210, r10211, r10212, r10213, r10214, r10215, r10216, r10217, r10218, r10219, r10220, r10221, r10222, r10223, r10224, r10225, r10226, r10227, r10228, r10229; void setup_mpfr_f_dm() { mpfr_set_default_prec(1360); mpfr_init(r10187); mpfr_init(r10188); mpfr_init(r10189); mpfr_init(r10190); mpfr_init(r10191); mpfr_init(r10192); mpfr_init_set_str(r10193, "2", 10, MPFR_RNDN); mpfr_init(r10194); mpfr_init(r10195); mpfr_init(r10196); mpfr_init_set_str(r10197, "2.0", 10, MPFR_RNDN); mpfr_init(r10198); mpfr_init(r10199); mpfr_init(r10200); mpfr_init(r10201); mpfr_init_set_str(r10202, "1.0", 10, MPFR_RNDN); mpfr_init(r10203); mpfr_init(r10204); mpfr_init_set_str(r10205, "1.6323084650749024e-13", 10, MPFR_RNDN); mpfr_init(r10206); mpfr_init(r10207); mpfr_init_set_str(r10208, "8.0", 10, MPFR_RNDN); mpfr_init(r10209); mpfr_init_set_str(r10210, "4.0", 10, MPFR_RNDN); mpfr_init(r10211); mpfr_init(r10212); mpfr_init(r10213); mpfr_init(r10214); mpfr_init(r10215); mpfr_init(r10216); mpfr_init(r10217); mpfr_init_set_str(r10218, "3", 10, MPFR_RNDN); mpfr_init(r10219); mpfr_init(r10220); mpfr_init(r10221); mpfr_init(r10222); mpfr_init(r10223); mpfr_init(r10224); mpfr_init(r10225); mpfr_init(r10226); mpfr_init(r10227); mpfr_init(r10228); mpfr_init(r10229); } double f_dm(double alpha, double beta, double i) { mpfr_set_d(r10187, alpha, MPFR_RNDN); mpfr_set_d(r10188, beta, MPFR_RNDN); mpfr_add(r10189, r10187, r10188, MPFR_RNDN); mpfr_sqrt(r10190, r10189, MPFR_RNDN); mpfr_sub(r10191, r10188, r10187, MPFR_RNDN); mpfr_set_d(r10192, i, MPFR_RNDN); ; mpfr_mul(r10194, r10192, r10193, MPFR_RNDN); mpfr_add(r10195, r10189, r10194, MPFR_RNDN); mpfr_div(r10196, r10191, r10195, MPFR_RNDN); ; mpfr_add(r10198, r10197, r10195, MPFR_RNDN); mpfr_div(r10199, r10196, r10198, MPFR_RNDN); mpfr_mul(r10200, r10190, r10199, MPFR_RNDN); mpfr_mul(r10201, r10200, r10190, MPFR_RNDN); ; mpfr_add(r10203, r10201, r10202, MPFR_RNDN); mpfr_div(r10204, r10203, r10197, MPFR_RNDN); ; mpfr_set_si(r10206, mpfr_cmp(r10204, r10205) <= 0, MPFR_RNDN); mpfr_div(r10207, r10197, r10187, MPFR_RNDN); ; mpfr_div(r10209, r10208, r10187, MPFR_RNDN); ; mpfr_sub(r10211, r10209, r10210, MPFR_RNDN); mpfr_mul(r10212, r10187, r10187, MPFR_RNDN); mpfr_div(r10213, r10211, r10212, MPFR_RNDN); mpfr_add(r10214, r10207, r10213, MPFR_RNDN); mpfr_div(r10215, r10214, r10197, MPFR_RNDN); mpfr_div(r10216, r10198, r10196, MPFR_RNDN); mpfr_div(r10217, r10189, r10216, MPFR_RNDN); ; mpfr_pow(r10219, r10217, r10218, MPFR_RNDN); mpfr_pow(r10220, r10202, r10218, MPFR_RNDN); mpfr_add(r10221, r10219, r10220, MPFR_RNDN); mpfr_mul(r10222, r10202, r10202, MPFR_RNDN); mpfr_mul(r10223, r10202, r10217, MPFR_RNDN); mpfr_sub(r10224, r10222, r10223, MPFR_RNDN); mpfr_mul(r10225, r10217, r10217, MPFR_RNDN); mpfr_add(r10226, r10224, r10225, MPFR_RNDN); mpfr_div(r10227, r10221, r10226, MPFR_RNDN); mpfr_div(r10228, r10227, r10197, MPFR_RNDN); if (mpfr_get_si(r10206, MPFR_RNDN)) { mpfr_set(r10229, r10215, MPFR_RNDN); } else { mpfr_set(r10229, r10228, MPFR_RNDN); }; return mpfr_get_d(r10229, MPFR_RNDN); }