#include #include #include #include #include char *name = "Compound Interest"; double f_if(float i, float n) { float r26120 = 100; float r26121 = 1; float r26122 = i; float r26123 = n; float r26124 = r26122 / r26123; float r26125 = r26121 + r26124; float r26126 = pow(r26125, r26123); float r26127 = r26126 - r26121; float r26128 = r26127 / r26124; float r26129 = r26120 * r26128; return r26129; } double f_id(double i, double n) { double r26130 = 100; double r26131 = 1; double r26132 = i; double r26133 = n; double r26134 = r26132 / r26133; double r26135 = r26131 + r26134; double r26136 = pow(r26135, r26133); double r26137 = r26136 - r26131; double r26138 = r26137 / r26134; double r26139 = r26130 * r26138; return r26139; } double f_of(float i, float n) { float r26140 = i; float r26141 = -8.167226589971193e-07; bool r26142 = r26140 <= r26141; float r26143 = 100; float r26144 = n; float r26145 = r26140 / r26144; float r26146 = log1p(r26145); float r26147 = r26144 * r26146; float r26148 = exp(r26147); float r26149 = 1; float r26150 = r26148 - r26149; float r26151 = r26150 / r26145; float r26152 = r26143 * r26151; float r26153 = 5.1004880328042854e-27; bool r26154 = r26140 <= r26153; float r26155 = 1/2; float r26156 = fma(r26155, r26140, r26149); float r26157 = r26143 * r26156; float r26158 = r26144 * r26157; float r26159 = 2.694607808984922e+111; bool r26160 = r26140 <= r26159; float r26161 = r26149 + r26145; float r26162 = log(r26161); float r26163 = r26144 * r26162; float r26164 = expm1(r26163); float r26165 = r26164 / r26145; float r26166 = r26143 * r26165; float r26167 = pow(r26140, r26144); float r26168 = pow(r26144, r26144); float r26169 = r26167 / r26168; float r26170 = r26169 - r26149; float r26171 = r26143 / r26140; float r26172 = r26171 * r26144; float r26173 = r26170 * r26172; float r26174 = r26160 ? r26166 : r26173; float r26175 = r26154 ? r26158 : r26174; float r26176 = r26142 ? r26152 : r26175; return r26176; } double f_od(double i, double n) { double r26177 = i; double r26178 = -8.167226589971193e-07; bool r26179 = r26177 <= r26178; double r26180 = 100; double r26181 = n; double r26182 = r26177 / r26181; double r26183 = log1p(r26182); double r26184 = r26181 * r26183; double r26185 = exp(r26184); double r26186 = 1; double r26187 = r26185 - r26186; double r26188 = r26187 / r26182; double r26189 = r26180 * r26188; double r26190 = 5.1004880328042854e-27; bool r26191 = r26177 <= r26190; double r26192 = 1/2; double r26193 = fma(r26192, r26177, r26186); double r26194 = r26180 * r26193; double r26195 = r26181 * r26194; double r26196 = 2.694607808984922e+111; bool r26197 = r26177 <= r26196; double r26198 = r26186 + r26182; double r26199 = log(r26198); double r26200 = r26181 * r26199; double r26201 = expm1(r26200); double r26202 = r26201 / r26182; double r26203 = r26180 * r26202; double r26204 = pow(r26177, r26181); double r26205 = pow(r26181, r26181); double r26206 = r26204 / r26205; double r26207 = r26206 - r26186; double r26208 = r26180 / r26177; double r26209 = r26208 * r26181; double r26210 = r26207 * r26209; double r26211 = r26197 ? r26203 : r26210; double r26212 = r26191 ? r26195 : r26211; double r26213 = r26179 ? r26189 : r26212; return r26213; } 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 r26214, r26215, r26216, r26217, r26218, r26219, r26220, r26221, r26222, r26223; void setup_mpfr_f_im() { mpfr_set_default_prec(3408); mpfr_init_set_str(r26214, "100", 10, MPFR_RNDN); mpfr_init_set_str(r26215, "1", 10, MPFR_RNDN); mpfr_init(r26216); mpfr_init(r26217); mpfr_init(r26218); mpfr_init(r26219); mpfr_init(r26220); mpfr_init(r26221); mpfr_init(r26222); mpfr_init(r26223); } double f_im(double i, double n) { ; ; mpfr_set_d(r26216, i, MPFR_RNDN); mpfr_set_d(r26217, n, MPFR_RNDN); mpfr_div(r26218, r26216, r26217, MPFR_RNDN); mpfr_add(r26219, r26215, r26218, MPFR_RNDN); mpfr_pow(r26220, r26219, r26217, MPFR_RNDN); mpfr_sub(r26221, r26220, r26215, MPFR_RNDN); mpfr_div(r26222, r26221, r26218, MPFR_RNDN); mpfr_mul(r26223, r26214, r26222, MPFR_RNDN); return mpfr_get_d(r26223, MPFR_RNDN); } static mpfr_t r26224, r26225, r26226, r26227, r26228, r26229, r26230, r26231, r26232, r26233, r26234, r26235, r26236, r26237, r26238, r26239, r26240, r26241, r26242, r26243, r26244, r26245, r26246, r26247, r26248, r26249, r26250, r26251, r26252, r26253, r26254, r26255, r26256, r26257, r26258, r26259, r26260; void setup_mpfr_f_fm() { mpfr_set_default_prec(3408); mpfr_init(r26224); mpfr_init_set_str(r26225, "-8.167226589971193e-07", 10, MPFR_RNDN); mpfr_init(r26226); mpfr_init_set_str(r26227, "100", 10, MPFR_RNDN); mpfr_init(r26228); mpfr_init(r26229); mpfr_init(r26230); mpfr_init(r26231); mpfr_init(r26232); mpfr_init_set_str(r26233, "1", 10, MPFR_RNDN); mpfr_init(r26234); mpfr_init(r26235); mpfr_init(r26236); mpfr_init_set_str(r26237, "5.1004880328042854e-27", 10, MPFR_RNDN); mpfr_init(r26238); mpfr_init_set_str(r26239, "1/2", 10, MPFR_RNDN); mpfr_init(r26240); mpfr_init(r26241); mpfr_init(r26242); mpfr_init_set_str(r26243, "2.694607808984922e+111", 10, MPFR_RNDN); mpfr_init(r26244); mpfr_init(r26245); mpfr_init(r26246); mpfr_init(r26247); mpfr_init(r26248); mpfr_init(r26249); mpfr_init(r26250); mpfr_init(r26251); mpfr_init(r26252); mpfr_init(r26253); mpfr_init(r26254); mpfr_init(r26255); mpfr_init(r26256); mpfr_init(r26257); mpfr_init(r26258); mpfr_init(r26259); mpfr_init(r26260); } double f_fm(double i, double n) { mpfr_set_d(r26224, i, MPFR_RNDN); ; mpfr_set_si(r26226, mpfr_cmp(r26224, r26225) <= 0, MPFR_RNDN); ; mpfr_set_d(r26228, n, MPFR_RNDN); mpfr_div(r26229, r26224, r26228, MPFR_RNDN); mpfr_log1p(r26230, r26229, MPFR_RNDN); mpfr_mul(r26231, r26228, r26230, MPFR_RNDN); mpfr_exp(r26232, r26231, MPFR_RNDN); ; mpfr_sub(r26234, r26232, r26233, MPFR_RNDN); mpfr_div(r26235, r26234, r26229, MPFR_RNDN); mpfr_mul(r26236, r26227, r26235, MPFR_RNDN); ; mpfr_set_si(r26238, mpfr_cmp(r26224, r26237) <= 0, MPFR_RNDN); ; mpfr_fma(r26240, r26239, r26224, r26233, MPFR_RNDN); mpfr_mul(r26241, r26227, r26240, MPFR_RNDN); mpfr_mul(r26242, r26228, r26241, MPFR_RNDN); ; mpfr_set_si(r26244, mpfr_cmp(r26224, r26243) <= 0, MPFR_RNDN); mpfr_add(r26245, r26233, r26229, MPFR_RNDN); mpfr_log(r26246, r26245, MPFR_RNDN); mpfr_mul(r26247, r26228, r26246, MPFR_RNDN); mpfr_expm1(r26248, r26247, MPFR_RNDN); mpfr_div(r26249, r26248, r26229, MPFR_RNDN); mpfr_mul(r26250, r26227, r26249, MPFR_RNDN); mpfr_pow(r26251, r26224, r26228, MPFR_RNDN); mpfr_pow(r26252, r26228, r26228, MPFR_RNDN); mpfr_div(r26253, r26251, r26252, MPFR_RNDN); mpfr_sub(r26254, r26253, r26233, MPFR_RNDN); mpfr_div(r26255, r26227, r26224, MPFR_RNDN); mpfr_mul(r26256, r26255, r26228, MPFR_RNDN); mpfr_mul(r26257, r26254, r26256, MPFR_RNDN); if (mpfr_get_si(r26244, MPFR_RNDN)) { mpfr_set(r26258, r26250, MPFR_RNDN); } else { mpfr_set(r26258, r26257, MPFR_RNDN); }; if (mpfr_get_si(r26238, MPFR_RNDN)) { mpfr_set(r26259, r26242, MPFR_RNDN); } else { mpfr_set(r26259, r26258, MPFR_RNDN); }; if (mpfr_get_si(r26226, MPFR_RNDN)) { mpfr_set(r26260, r26236, MPFR_RNDN); } else { mpfr_set(r26260, r26259, MPFR_RNDN); }; return mpfr_get_d(r26260, MPFR_RNDN); } static mpfr_t r26261, r26262, r26263, r26264, r26265, r26266, r26267, r26268, r26269, r26270, r26271, r26272, r26273, r26274, r26275, r26276, r26277, r26278, r26279, r26280, r26281, r26282, r26283, r26284, r26285, r26286, r26287, r26288, r26289, r26290, r26291, r26292, r26293, r26294, r26295, r26296, r26297; void setup_mpfr_f_dm() { mpfr_set_default_prec(3408); mpfr_init(r26261); mpfr_init_set_str(r26262, "-8.167226589971193e-07", 10, MPFR_RNDN); mpfr_init(r26263); mpfr_init_set_str(r26264, "100", 10, MPFR_RNDN); mpfr_init(r26265); mpfr_init(r26266); mpfr_init(r26267); mpfr_init(r26268); mpfr_init(r26269); mpfr_init_set_str(r26270, "1", 10, MPFR_RNDN); mpfr_init(r26271); mpfr_init(r26272); mpfr_init(r26273); mpfr_init_set_str(r26274, "5.1004880328042854e-27", 10, MPFR_RNDN); mpfr_init(r26275); mpfr_init_set_str(r26276, "1/2", 10, MPFR_RNDN); mpfr_init(r26277); mpfr_init(r26278); mpfr_init(r26279); mpfr_init_set_str(r26280, "2.694607808984922e+111", 10, MPFR_RNDN); mpfr_init(r26281); mpfr_init(r26282); mpfr_init(r26283); mpfr_init(r26284); mpfr_init(r26285); mpfr_init(r26286); mpfr_init(r26287); mpfr_init(r26288); mpfr_init(r26289); mpfr_init(r26290); mpfr_init(r26291); mpfr_init(r26292); mpfr_init(r26293); mpfr_init(r26294); mpfr_init(r26295); mpfr_init(r26296); mpfr_init(r26297); } double f_dm(double i, double n) { mpfr_set_d(r26261, i, MPFR_RNDN); ; mpfr_set_si(r26263, mpfr_cmp(r26261, r26262) <= 0, MPFR_RNDN); ; mpfr_set_d(r26265, n, MPFR_RNDN); mpfr_div(r26266, r26261, r26265, MPFR_RNDN); mpfr_log1p(r26267, r26266, MPFR_RNDN); mpfr_mul(r26268, r26265, r26267, MPFR_RNDN); mpfr_exp(r26269, r26268, MPFR_RNDN); ; mpfr_sub(r26271, r26269, r26270, MPFR_RNDN); mpfr_div(r26272, r26271, r26266, MPFR_RNDN); mpfr_mul(r26273, r26264, r26272, MPFR_RNDN); ; mpfr_set_si(r26275, mpfr_cmp(r26261, r26274) <= 0, MPFR_RNDN); ; mpfr_fma(r26277, r26276, r26261, r26270, MPFR_RNDN); mpfr_mul(r26278, r26264, r26277, MPFR_RNDN); mpfr_mul(r26279, r26265, r26278, MPFR_RNDN); ; mpfr_set_si(r26281, mpfr_cmp(r26261, r26280) <= 0, MPFR_RNDN); mpfr_add(r26282, r26270, r26266, MPFR_RNDN); mpfr_log(r26283, r26282, MPFR_RNDN); mpfr_mul(r26284, r26265, r26283, MPFR_RNDN); mpfr_expm1(r26285, r26284, MPFR_RNDN); mpfr_div(r26286, r26285, r26266, MPFR_RNDN); mpfr_mul(r26287, r26264, r26286, MPFR_RNDN); mpfr_pow(r26288, r26261, r26265, MPFR_RNDN); mpfr_pow(r26289, r26265, r26265, MPFR_RNDN); mpfr_div(r26290, r26288, r26289, MPFR_RNDN); mpfr_sub(r26291, r26290, r26270, MPFR_RNDN); mpfr_div(r26292, r26264, r26261, MPFR_RNDN); mpfr_mul(r26293, r26292, r26265, MPFR_RNDN); mpfr_mul(r26294, r26291, r26293, MPFR_RNDN); if (mpfr_get_si(r26281, MPFR_RNDN)) { mpfr_set(r26295, r26287, MPFR_RNDN); } else { mpfr_set(r26295, r26294, MPFR_RNDN); }; if (mpfr_get_si(r26275, MPFR_RNDN)) { mpfr_set(r26296, r26279, MPFR_RNDN); } else { mpfr_set(r26296, r26295, MPFR_RNDN); }; if (mpfr_get_si(r26263, MPFR_RNDN)) { mpfr_set(r26297, r26273, MPFR_RNDN); } else { mpfr_set(r26297, r26296, MPFR_RNDN); }; return mpfr_get_d(r26297, MPFR_RNDN); }