#include #include #include #include #include char *name = "Octave 3.8, jcobi/3"; double f_if(float alpha, float beta) { float r9892 = alpha; float r9893 = beta; float r9894 = r9892 + r9893; float r9895 = r9893 * r9892; float r9896 = r9894 + r9895; float r9897 = 1.0f; float r9898 = r9896 + r9897; float r9899 = 2.0f; float r9900 = 1.0f; float r9901 = r9899 * r9900; float r9902 = r9894 + r9901; float r9903 = r9898 / r9902; float r9904 = r9903 / r9902; float r9905 = r9902 + r9897; float r9906 = r9904 / r9905; return r9906; } double f_id(double alpha, double beta) { double r9907 = alpha; double r9908 = beta; double r9909 = r9907 + r9908; double r9910 = r9908 * r9907; double r9911 = r9909 + r9910; double r9912 = 1.0; double r9913 = r9911 + r9912; double r9914 = 2.0; double r9915 = 1.0; double r9916 = r9914 * r9915; double r9917 = r9909 + r9916; double r9918 = r9913 / r9917; double r9919 = r9918 / r9917; double r9920 = r9917 + r9912; double r9921 = r9919 / r9920; return r9921; } double f_of(float alpha, float beta) { float r9922 = 1.0f; float r9923 = alpha; float r9924 = beta; float r9925 = r9923 * r9924; float r9926 = r9924 + r9923; float r9927 = r9925 + r9926; float r9928 = r9922 + r9927; float r9929 = 2.0f; float r9930 = r9929 + r9926; float r9931 = r9928 / r9930; float r9932 = r9931 / r9930; float r9933 = r9930 + r9922; float r9934 = r9932 / r9933; float r9935 = 1.2789894458039883e-87f; bool r9936 = r9934 <= r9935; float r9937 = r9922 + r9923; float r9938 = r9937 + r9924; float r9939 = r9925 + r9938; float r9940 = sqrt(r9939); float r9941 = r9926 + r9929; float r9942 = r9940 / r9941; float r9943 = r9942 * r9942; float r9944 = 3.0f; float r9945 = r9923 + r9944; float r9946 = r9924 + r9945; float r9947 = r9943 / r9946; float r9948 = r9924 + r9922; float r9949 = r9923 + r9948; float r9950 = r9949 / r9930; float r9951 = r9950 / r9930; float r9952 = r9951 / r9946; float r9953 = r9936 ? r9947 : r9952; return r9953; } double f_od(double alpha, double beta) { double r9954 = 1.0; double r9955 = alpha; double r9956 = beta; double r9957 = r9955 * r9956; double r9958 = r9956 + r9955; double r9959 = r9957 + r9958; double r9960 = r9954 + r9959; double r9961 = 2.0; double r9962 = r9961 + r9958; double r9963 = r9960 / r9962; double r9964 = r9963 / r9962; double r9965 = r9962 + r9954; double r9966 = r9964 / r9965; double r9967 = 1.2789894458039883e-87; bool r9968 = r9966 <= r9967; double r9969 = r9954 + r9955; double r9970 = r9969 + r9956; double r9971 = r9957 + r9970; double r9972 = sqrt(r9971); double r9973 = r9958 + r9961; double r9974 = r9972 / r9973; double r9975 = r9974 * r9974; double r9976 = 3.0; double r9977 = r9955 + r9976; double r9978 = r9956 + r9977; double r9979 = r9975 / r9978; double r9980 = r9956 + r9954; double r9981 = r9955 + r9980; double r9982 = r9981 / r9962; double r9983 = r9982 / r9962; double r9984 = r9983 / r9978; double r9985 = r9968 ? r9979 : r9984; return r9985; } 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 r9986, r9987, r9988, r9989, r9990, r9991, r9992, r9993, r9994, r9995, r9996, r9997, r9998, r9999, r10000; void setup_mpfr_f_im() { mpfr_set_default_prec(592); mpfr_init(r9986); mpfr_init(r9987); mpfr_init(r9988); mpfr_init(r9989); mpfr_init(r9990); mpfr_init_set_str(r9991, "1.0", 10, MPFR_RNDN); mpfr_init(r9992); mpfr_init_set_str(r9993, "2", 10, MPFR_RNDN); mpfr_init_set_str(r9994, "1", 10, MPFR_RNDN); mpfr_init(r9995); mpfr_init(r9996); mpfr_init(r9997); mpfr_init(r9998); mpfr_init(r9999); mpfr_init(r10000); } double f_im(double alpha, double beta) { mpfr_set_d(r9986, alpha, MPFR_RNDN); mpfr_set_d(r9987, beta, MPFR_RNDN); mpfr_add(r9988, r9986, r9987, MPFR_RNDN); mpfr_mul(r9989, r9987, r9986, MPFR_RNDN); mpfr_add(r9990, r9988, r9989, MPFR_RNDN); ; mpfr_add(r9992, r9990, r9991, MPFR_RNDN); ; ; mpfr_mul(r9995, r9993, r9994, MPFR_RNDN); mpfr_add(r9996, r9988, r9995, MPFR_RNDN); mpfr_div(r9997, r9992, r9996, MPFR_RNDN); mpfr_div(r9998, r9997, r9996, MPFR_RNDN); mpfr_add(r9999, r9996, r9991, MPFR_RNDN); mpfr_div(r10000, r9998, r9999, MPFR_RNDN); return mpfr_get_d(r10000, MPFR_RNDN); } static mpfr_t r10001, r10002, r10003, r10004, r10005, r10006, r10007, r10008, r10009, r10010, r10011, r10012, r10013, r10014, r10015, r10016, r10017, r10018, r10019, r10020, r10021, r10022, r10023, r10024, r10025, r10026, r10027, r10028, r10029, r10030, r10031, r10032; void setup_mpfr_f_fm() { mpfr_set_default_prec(592); mpfr_init_set_str(r10001, "1.0", 10, MPFR_RNDN); mpfr_init(r10002); mpfr_init(r10003); mpfr_init(r10004); mpfr_init(r10005); mpfr_init(r10006); mpfr_init(r10007); mpfr_init_set_str(r10008, "2", 10, MPFR_RNDN); mpfr_init(r10009); mpfr_init(r10010); mpfr_init(r10011); mpfr_init(r10012); mpfr_init(r10013); mpfr_init_set_str(r10014, "1.2789894458039883e-87", 10, MPFR_RNDN); mpfr_init(r10015); mpfr_init(r10016); mpfr_init(r10017); mpfr_init(r10018); mpfr_init(r10019); mpfr_init(r10020); mpfr_init(r10021); mpfr_init(r10022); mpfr_init_set_str(r10023, "3.0", 10, MPFR_RNDN); mpfr_init(r10024); mpfr_init(r10025); mpfr_init(r10026); mpfr_init(r10027); mpfr_init(r10028); mpfr_init(r10029); mpfr_init(r10030); mpfr_init(r10031); mpfr_init(r10032); } double f_fm(double alpha, double beta) { ; mpfr_set_d(r10002, alpha, MPFR_RNDN); mpfr_set_d(r10003, beta, MPFR_RNDN); mpfr_mul(r10004, r10002, r10003, MPFR_RNDN); mpfr_add(r10005, r10003, r10002, MPFR_RNDN); mpfr_add(r10006, r10004, r10005, MPFR_RNDN); mpfr_add(r10007, r10001, r10006, MPFR_RNDN); ; mpfr_add(r10009, r10008, r10005, MPFR_RNDN); mpfr_div(r10010, r10007, r10009, MPFR_RNDN); mpfr_div(r10011, r10010, r10009, MPFR_RNDN); mpfr_add(r10012, r10009, r10001, MPFR_RNDN); mpfr_div(r10013, r10011, r10012, MPFR_RNDN); ; mpfr_set_si(r10015, mpfr_cmp(r10013, r10014) <= 0, MPFR_RNDN); mpfr_add(r10016, r10001, r10002, MPFR_RNDN); mpfr_add(r10017, r10016, r10003, MPFR_RNDN); mpfr_add(r10018, r10004, r10017, MPFR_RNDN); mpfr_sqrt(r10019, r10018, MPFR_RNDN); mpfr_add(r10020, r10005, r10008, MPFR_RNDN); mpfr_div(r10021, r10019, r10020, MPFR_RNDN); mpfr_mul(r10022, r10021, r10021, MPFR_RNDN); ; mpfr_add(r10024, r10002, r10023, MPFR_RNDN); mpfr_add(r10025, r10003, r10024, MPFR_RNDN); mpfr_div(r10026, r10022, r10025, MPFR_RNDN); mpfr_add(r10027, r10003, r10001, MPFR_RNDN); mpfr_add(r10028, r10002, r10027, MPFR_RNDN); mpfr_div(r10029, r10028, r10009, MPFR_RNDN); mpfr_div(r10030, r10029, r10009, MPFR_RNDN); mpfr_div(r10031, r10030, r10025, MPFR_RNDN); if (mpfr_get_si(r10015, MPFR_RNDN)) { mpfr_set(r10032, r10026, MPFR_RNDN); } else { mpfr_set(r10032, r10031, MPFR_RNDN); }; return mpfr_get_d(r10032, MPFR_RNDN); } static mpfr_t r10033, r10034, r10035, r10036, r10037, r10038, r10039, r10040, r10041, r10042, r10043, r10044, r10045, r10046, r10047, r10048, r10049, r10050, r10051, r10052, r10053, r10054, r10055, r10056, r10057, r10058, r10059, r10060, r10061, r10062, r10063, r10064; void setup_mpfr_f_dm() { mpfr_set_default_prec(592); mpfr_init_set_str(r10033, "1.0", 10, MPFR_RNDN); mpfr_init(r10034); mpfr_init(r10035); mpfr_init(r10036); mpfr_init(r10037); mpfr_init(r10038); mpfr_init(r10039); mpfr_init_set_str(r10040, "2", 10, MPFR_RNDN); mpfr_init(r10041); mpfr_init(r10042); mpfr_init(r10043); mpfr_init(r10044); mpfr_init(r10045); mpfr_init_set_str(r10046, "1.2789894458039883e-87", 10, MPFR_RNDN); mpfr_init(r10047); mpfr_init(r10048); mpfr_init(r10049); mpfr_init(r10050); mpfr_init(r10051); mpfr_init(r10052); mpfr_init(r10053); mpfr_init(r10054); mpfr_init_set_str(r10055, "3.0", 10, MPFR_RNDN); mpfr_init(r10056); mpfr_init(r10057); mpfr_init(r10058); mpfr_init(r10059); mpfr_init(r10060); mpfr_init(r10061); mpfr_init(r10062); mpfr_init(r10063); mpfr_init(r10064); } double f_dm(double alpha, double beta) { ; mpfr_set_d(r10034, alpha, MPFR_RNDN); mpfr_set_d(r10035, beta, MPFR_RNDN); mpfr_mul(r10036, r10034, r10035, MPFR_RNDN); mpfr_add(r10037, r10035, r10034, MPFR_RNDN); mpfr_add(r10038, r10036, r10037, MPFR_RNDN); mpfr_add(r10039, r10033, r10038, MPFR_RNDN); ; mpfr_add(r10041, r10040, r10037, MPFR_RNDN); mpfr_div(r10042, r10039, r10041, MPFR_RNDN); mpfr_div(r10043, r10042, r10041, MPFR_RNDN); mpfr_add(r10044, r10041, r10033, MPFR_RNDN); mpfr_div(r10045, r10043, r10044, MPFR_RNDN); ; mpfr_set_si(r10047, mpfr_cmp(r10045, r10046) <= 0, MPFR_RNDN); mpfr_add(r10048, r10033, r10034, MPFR_RNDN); mpfr_add(r10049, r10048, r10035, MPFR_RNDN); mpfr_add(r10050, r10036, r10049, MPFR_RNDN); mpfr_sqrt(r10051, r10050, MPFR_RNDN); mpfr_add(r10052, r10037, r10040, MPFR_RNDN); mpfr_div(r10053, r10051, r10052, MPFR_RNDN); mpfr_mul(r10054, r10053, r10053, MPFR_RNDN); ; mpfr_add(r10056, r10034, r10055, MPFR_RNDN); mpfr_add(r10057, r10035, r10056, MPFR_RNDN); mpfr_div(r10058, r10054, r10057, MPFR_RNDN); mpfr_add(r10059, r10035, r10033, MPFR_RNDN); mpfr_add(r10060, r10034, r10059, MPFR_RNDN); mpfr_div(r10061, r10060, r10041, MPFR_RNDN); mpfr_div(r10062, r10061, r10041, MPFR_RNDN); mpfr_div(r10063, r10062, r10057, MPFR_RNDN); if (mpfr_get_si(r10047, MPFR_RNDN)) { mpfr_set(r10064, r10058, MPFR_RNDN); } else { mpfr_set(r10064, r10063, MPFR_RNDN); }; return mpfr_get_d(r10064, MPFR_RNDN); }