#include #include #include #include #include char *name = "Linear.V4:$cdot from linear-1.19.1.3"; double f_if(float x, float y, float z, float t, float a, float b, float c, float i) { float r23714 = x; float r23715 = y; float r23716 = r23714 * r23715; float r23717 = z; float r23718 = t; float r23719 = r23717 * r23718; float r23720 = r23716 + r23719; float r23721 = a; float r23722 = b; float r23723 = r23721 * r23722; float r23724 = r23720 + r23723; float r23725 = c; float r23726 = i; float r23727 = r23725 * r23726; float r23728 = r23724 + r23727; return r23728; } double f_id(double x, double y, double z, double t, double a, double b, double c, double i) { double r23729 = x; double r23730 = y; double r23731 = r23729 * r23730; double r23732 = z; double r23733 = t; double r23734 = r23732 * r23733; double r23735 = r23731 + r23734; double r23736 = a; double r23737 = b; double r23738 = r23736 * r23737; double r23739 = r23735 + r23738; double r23740 = c; double r23741 = i; double r23742 = r23740 * r23741; double r23743 = r23739 + r23742; return r23743; } double f_of(float x, float y, float z, float t, float a, float b, float c, float i) { float r23744 = x; float r23745 = y; float r23746 = r23744 * r23745; float r23747 = z; float r23748 = t; float r23749 = r23747 * r23748; float r23750 = r23746 + r23749; float r23751 = a; float r23752 = b; float r23753 = r23751 * r23752; float r23754 = r23750 + r23753; float r23755 = c; float r23756 = i; float r23757 = r23755 * r23756; float r23758 = r23754 + r23757; return r23758; } double f_od(double x, double y, double z, double t, double a, double b, double c, double i) { double r23759 = x; double r23760 = y; double r23761 = r23759 * r23760; double r23762 = z; double r23763 = t; double r23764 = r23762 * r23763; double r23765 = r23761 + r23764; double r23766 = a; double r23767 = b; double r23768 = r23766 * r23767; double r23769 = r23765 + r23768; double r23770 = c; double r23771 = i; double r23772 = r23770 * r23771; double r23773 = r23769 + r23772; return r23773; } 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 r23774, r23775, r23776, r23777, r23778, r23779, r23780, r23781, r23782, r23783, r23784, r23785, r23786, r23787, r23788; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init(r23774); mpfr_init(r23775); mpfr_init(r23776); mpfr_init(r23777); mpfr_init(r23778); mpfr_init(r23779); mpfr_init(r23780); mpfr_init(r23781); mpfr_init(r23782); mpfr_init(r23783); mpfr_init(r23784); mpfr_init(r23785); mpfr_init(r23786); mpfr_init(r23787); mpfr_init(r23788); } double f_im(double x, double y, double z, double t, double a, double b, double c, double i) { mpfr_set_d(r23774, x, MPFR_RNDN); mpfr_set_d(r23775, y, MPFR_RNDN); mpfr_mul(r23776, r23774, r23775, MPFR_RNDN); mpfr_set_d(r23777, z, MPFR_RNDN); mpfr_set_d(r23778, t, MPFR_RNDN); mpfr_mul(r23779, r23777, r23778, MPFR_RNDN); mpfr_add(r23780, r23776, r23779, MPFR_RNDN); mpfr_set_d(r23781, a, MPFR_RNDN); mpfr_set_d(r23782, b, MPFR_RNDN); mpfr_mul(r23783, r23781, r23782, MPFR_RNDN); mpfr_add(r23784, r23780, r23783, MPFR_RNDN); mpfr_set_d(r23785, c, MPFR_RNDN); mpfr_set_d(r23786, i, MPFR_RNDN); mpfr_mul(r23787, r23785, r23786, MPFR_RNDN); mpfr_add(r23788, r23784, r23787, MPFR_RNDN); return mpfr_get_d(r23788, MPFR_RNDN); } static mpfr_t r23789, r23790, r23791, r23792, r23793, r23794, r23795, r23796, r23797, r23798, r23799, r23800, r23801, r23802, r23803; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r23789); mpfr_init(r23790); mpfr_init(r23791); mpfr_init(r23792); mpfr_init(r23793); mpfr_init(r23794); mpfr_init(r23795); mpfr_init(r23796); mpfr_init(r23797); mpfr_init(r23798); mpfr_init(r23799); mpfr_init(r23800); mpfr_init(r23801); mpfr_init(r23802); mpfr_init(r23803); } double f_fm(double x, double y, double z, double t, double a, double b, double c, double i) { mpfr_set_d(r23789, x, MPFR_RNDN); mpfr_set_d(r23790, y, MPFR_RNDN); mpfr_mul(r23791, r23789, r23790, MPFR_RNDN); mpfr_set_d(r23792, z, MPFR_RNDN); mpfr_set_d(r23793, t, MPFR_RNDN); mpfr_mul(r23794, r23792, r23793, MPFR_RNDN); mpfr_add(r23795, r23791, r23794, MPFR_RNDN); mpfr_set_d(r23796, a, MPFR_RNDN); mpfr_set_d(r23797, b, MPFR_RNDN); mpfr_mul(r23798, r23796, r23797, MPFR_RNDN); mpfr_add(r23799, r23795, r23798, MPFR_RNDN); mpfr_set_d(r23800, c, MPFR_RNDN); mpfr_set_d(r23801, i, MPFR_RNDN); mpfr_mul(r23802, r23800, r23801, MPFR_RNDN); mpfr_add(r23803, r23799, r23802, MPFR_RNDN); return mpfr_get_d(r23803, MPFR_RNDN); } static mpfr_t r23804, r23805, r23806, r23807, r23808, r23809, r23810, r23811, r23812, r23813, r23814, r23815, r23816, r23817, r23818; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r23804); mpfr_init(r23805); mpfr_init(r23806); mpfr_init(r23807); mpfr_init(r23808); mpfr_init(r23809); mpfr_init(r23810); mpfr_init(r23811); mpfr_init(r23812); mpfr_init(r23813); mpfr_init(r23814); mpfr_init(r23815); mpfr_init(r23816); mpfr_init(r23817); mpfr_init(r23818); } double f_dm(double x, double y, double z, double t, double a, double b, double c, double i) { mpfr_set_d(r23804, x, MPFR_RNDN); mpfr_set_d(r23805, y, MPFR_RNDN); mpfr_mul(r23806, r23804, r23805, MPFR_RNDN); mpfr_set_d(r23807, z, MPFR_RNDN); mpfr_set_d(r23808, t, MPFR_RNDN); mpfr_mul(r23809, r23807, r23808, MPFR_RNDN); mpfr_add(r23810, r23806, r23809, MPFR_RNDN); mpfr_set_d(r23811, a, MPFR_RNDN); mpfr_set_d(r23812, b, MPFR_RNDN); mpfr_mul(r23813, r23811, r23812, MPFR_RNDN); mpfr_add(r23814, r23810, r23813, MPFR_RNDN); mpfr_set_d(r23815, c, MPFR_RNDN); mpfr_set_d(r23816, i, MPFR_RNDN); mpfr_mul(r23817, r23815, r23816, MPFR_RNDN); mpfr_add(r23818, r23814, r23817, MPFR_RNDN); return mpfr_get_d(r23818, MPFR_RNDN); }