#include #include #include #include #include char *name = "Linear.Matrix:det33 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 j) { float r21229 = x; float r21230 = y; float r21231 = z; float r21232 = r21230 * r21231; float r21233 = t; float r21234 = a; float r21235 = r21233 * r21234; float r21236 = r21232 - r21235; float r21237 = r21229 * r21236; float r21238 = b; float r21239 = c; float r21240 = r21239 * r21231; float r21241 = i; float r21242 = r21241 * r21234; float r21243 = r21240 - r21242; float r21244 = r21238 * r21243; float r21245 = r21237 - r21244; float r21246 = j; float r21247 = r21239 * r21233; float r21248 = r21241 * r21230; float r21249 = r21247 - r21248; float r21250 = r21246 * r21249; float r21251 = r21245 + r21250; return r21251; } double f_id(double x, double y, double z, double t, double a, double b, double c, double i, double j) { double r21252 = x; double r21253 = y; double r21254 = z; double r21255 = r21253 * r21254; double r21256 = t; double r21257 = a; double r21258 = r21256 * r21257; double r21259 = r21255 - r21258; double r21260 = r21252 * r21259; double r21261 = b; double r21262 = c; double r21263 = r21262 * r21254; double r21264 = i; double r21265 = r21264 * r21257; double r21266 = r21263 - r21265; double r21267 = r21261 * r21266; double r21268 = r21260 - r21267; double r21269 = j; double r21270 = r21262 * r21256; double r21271 = r21264 * r21253; double r21272 = r21270 - r21271; double r21273 = r21269 * r21272; double r21274 = r21268 + r21273; return r21274; } double f_of(float x, float y, float z, float t, float a, float b, float c, float i, float j) { float r21275 = y; float r21276 = -5.44636089570363e+223; bool r21277 = r21275 <= r21276; float r21278 = z; float r21279 = r21278 * r21275; float r21280 = a; float r21281 = t; float r21282 = r21280 * r21281; float r21283 = r21279 - r21282; float r21284 = x; float r21285 = r21283 * r21284; float r21286 = b; float r21287 = c; float r21288 = r21278 * r21287; float r21289 = i; float r21290 = r21289 * r21280; float r21291 = r21288 - r21290; float r21292 = r21286 * r21291; float r21293 = r21285 - r21292; float r21294 = j; float r21295 = r21287 * r21294; float r21296 = r21295 * r21281; float r21297 = -r21289; float r21298 = r21294 * r21275; float r21299 = r21297 * r21298; float r21300 = r21296 + r21299; float r21301 = r21293 + r21300; float r21302 = 7.127886059570066e-11; bool r21303 = r21275 <= r21302; float r21304 = r21275 * r21278; float r21305 = r21281 * r21280; float r21306 = r21304 - r21305; float r21307 = r21284 * r21306; float r21308 = r21287 * r21278; float r21309 = r21308 - r21290; float r21310 = r21286 * r21309; float r21311 = r21307 - r21310; float r21312 = r21287 * r21281; float r21313 = r21289 * r21275; float r21314 = r21312 - r21313; float r21315 = r21294 * r21314; float r21316 = cbrt(r21315); float r21317 = r21316 * r21316; float r21318 = r21317 * r21316; float r21319 = r21311 + r21318; float r21320 = r21278 * r21284; float r21321 = r21275 * r21320; float r21322 = -r21294; float r21323 = r21313 * r21322; float r21324 = r21321 + r21323; float r21325 = r21284 * r21280; float r21326 = r21294 * r21287; float r21327 = r21325 - r21326; float r21328 = r21281 * r21327; float r21329 = r21328 + r21292; float r21330 = r21324 - r21329; float r21331 = r21303 ? r21319 : r21330; float r21332 = r21277 ? r21301 : r21331; return r21332; } double f_od(double x, double y, double z, double t, double a, double b, double c, double i, double j) { double r21333 = y; double r21334 = -5.44636089570363e+223; bool r21335 = r21333 <= r21334; double r21336 = z; double r21337 = r21336 * r21333; double r21338 = a; double r21339 = t; double r21340 = r21338 * r21339; double r21341 = r21337 - r21340; double r21342 = x; double r21343 = r21341 * r21342; double r21344 = b; double r21345 = c; double r21346 = r21336 * r21345; double r21347 = i; double r21348 = r21347 * r21338; double r21349 = r21346 - r21348; double r21350 = r21344 * r21349; double r21351 = r21343 - r21350; double r21352 = j; double r21353 = r21345 * r21352; double r21354 = r21353 * r21339; double r21355 = -r21347; double r21356 = r21352 * r21333; double r21357 = r21355 * r21356; double r21358 = r21354 + r21357; double r21359 = r21351 + r21358; double r21360 = 7.127886059570066e-11; bool r21361 = r21333 <= r21360; double r21362 = r21333 * r21336; double r21363 = r21339 * r21338; double r21364 = r21362 - r21363; double r21365 = r21342 * r21364; double r21366 = r21345 * r21336; double r21367 = r21366 - r21348; double r21368 = r21344 * r21367; double r21369 = r21365 - r21368; double r21370 = r21345 * r21339; double r21371 = r21347 * r21333; double r21372 = r21370 - r21371; double r21373 = r21352 * r21372; double r21374 = cbrt(r21373); double r21375 = r21374 * r21374; double r21376 = r21375 * r21374; double r21377 = r21369 + r21376; double r21378 = r21336 * r21342; double r21379 = r21333 * r21378; double r21380 = -r21352; double r21381 = r21371 * r21380; double r21382 = r21379 + r21381; double r21383 = r21342 * r21338; double r21384 = r21352 * r21345; double r21385 = r21383 - r21384; double r21386 = r21339 * r21385; double r21387 = r21386 + r21350; double r21388 = r21382 - r21387; double r21389 = r21361 ? r21377 : r21388; double r21390 = r21335 ? r21359 : r21389; return r21390; } 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 r21391, r21392, r21393, r21394, r21395, r21396, r21397, r21398, r21399, r21400, r21401, r21402, r21403, r21404, r21405, r21406, r21407, r21408, r21409, r21410, r21411, r21412, r21413; void setup_mpfr_f_im() { mpfr_set_default_prec(400); mpfr_init(r21391); mpfr_init(r21392); mpfr_init(r21393); mpfr_init(r21394); mpfr_init(r21395); mpfr_init(r21396); mpfr_init(r21397); mpfr_init(r21398); mpfr_init(r21399); mpfr_init(r21400); mpfr_init(r21401); mpfr_init(r21402); mpfr_init(r21403); mpfr_init(r21404); mpfr_init(r21405); mpfr_init(r21406); mpfr_init(r21407); mpfr_init(r21408); mpfr_init(r21409); mpfr_init(r21410); mpfr_init(r21411); mpfr_init(r21412); mpfr_init(r21413); } double f_im(double x, double y, double z, double t, double a, double b, double c, double i, double j) { mpfr_set_d(r21391, x, MPFR_RNDN); mpfr_set_d(r21392, y, MPFR_RNDN); mpfr_set_d(r21393, z, MPFR_RNDN); mpfr_mul(r21394, r21392, r21393, MPFR_RNDN); mpfr_set_d(r21395, t, MPFR_RNDN); mpfr_set_d(r21396, a, MPFR_RNDN); mpfr_mul(r21397, r21395, r21396, MPFR_RNDN); mpfr_sub(r21398, r21394, r21397, MPFR_RNDN); mpfr_mul(r21399, r21391, r21398, MPFR_RNDN); mpfr_set_d(r21400, b, MPFR_RNDN); mpfr_set_d(r21401, c, MPFR_RNDN); mpfr_mul(r21402, r21401, r21393, MPFR_RNDN); mpfr_set_d(r21403, i, MPFR_RNDN); mpfr_mul(r21404, r21403, r21396, MPFR_RNDN); mpfr_sub(r21405, r21402, r21404, MPFR_RNDN); mpfr_mul(r21406, r21400, r21405, MPFR_RNDN); mpfr_sub(r21407, r21399, r21406, MPFR_RNDN); mpfr_set_d(r21408, j, MPFR_RNDN); mpfr_mul(r21409, r21401, r21395, MPFR_RNDN); mpfr_mul(r21410, r21403, r21392, MPFR_RNDN); mpfr_sub(r21411, r21409, r21410, MPFR_RNDN); mpfr_mul(r21412, r21408, r21411, MPFR_RNDN); mpfr_add(r21413, r21407, r21412, MPFR_RNDN); return mpfr_get_d(r21413, MPFR_RNDN); } static mpfr_t r21414, r21415, r21416, r21417, r21418, r21419, r21420, r21421, r21422, r21423, r21424, r21425, r21426, r21427, r21428, r21429, r21430, r21431, r21432, r21433, r21434, r21435, r21436, r21437, r21438, r21439, r21440, r21441, r21442, r21443, r21444, r21445, r21446, r21447, r21448, r21449, r21450, r21451, r21452, r21453, r21454, r21455, r21456, r21457, r21458, r21459, r21460, r21461, r21462, r21463, r21464, r21465, r21466, r21467, r21468, r21469, r21470, r21471; void setup_mpfr_f_fm() { mpfr_set_default_prec(400); mpfr_init(r21414); mpfr_init_set_str(r21415, "-5.44636089570363e+223", 10, MPFR_RNDN); mpfr_init(r21416); mpfr_init(r21417); mpfr_init(r21418); mpfr_init(r21419); mpfr_init(r21420); mpfr_init(r21421); mpfr_init(r21422); mpfr_init(r21423); mpfr_init(r21424); mpfr_init(r21425); mpfr_init(r21426); mpfr_init(r21427); mpfr_init(r21428); mpfr_init(r21429); mpfr_init(r21430); mpfr_init(r21431); mpfr_init(r21432); mpfr_init(r21433); mpfr_init(r21434); mpfr_init(r21435); mpfr_init(r21436); mpfr_init(r21437); mpfr_init(r21438); mpfr_init(r21439); mpfr_init(r21440); mpfr_init_set_str(r21441, "7.127886059570066e-11", 10, MPFR_RNDN); mpfr_init(r21442); mpfr_init(r21443); mpfr_init(r21444); mpfr_init(r21445); mpfr_init(r21446); mpfr_init(r21447); mpfr_init(r21448); mpfr_init(r21449); mpfr_init(r21450); mpfr_init(r21451); mpfr_init(r21452); mpfr_init(r21453); mpfr_init(r21454); mpfr_init(r21455); mpfr_init(r21456); mpfr_init(r21457); mpfr_init(r21458); mpfr_init(r21459); mpfr_init(r21460); mpfr_init(r21461); mpfr_init(r21462); mpfr_init(r21463); mpfr_init(r21464); mpfr_init(r21465); mpfr_init(r21466); mpfr_init(r21467); mpfr_init(r21468); mpfr_init(r21469); mpfr_init(r21470); mpfr_init(r21471); } double f_fm(double x, double y, double z, double t, double a, double b, double c, double i, double j) { mpfr_set_d(r21414, y, MPFR_RNDN); ; mpfr_set_si(r21416, mpfr_cmp(r21414, r21415) <= 0, MPFR_RNDN); mpfr_set_d(r21417, z, MPFR_RNDN); mpfr_mul(r21418, r21417, r21414, MPFR_RNDN); mpfr_set_d(r21419, a, MPFR_RNDN); mpfr_set_d(r21420, t, MPFR_RNDN); mpfr_mul(r21421, r21419, r21420, MPFR_RNDN); mpfr_sub(r21422, r21418, r21421, MPFR_RNDN); mpfr_set_d(r21423, x, MPFR_RNDN); mpfr_mul(r21424, r21422, r21423, MPFR_RNDN); mpfr_set_d(r21425, b, MPFR_RNDN); mpfr_set_d(r21426, c, MPFR_RNDN); mpfr_mul(r21427, r21417, r21426, MPFR_RNDN); mpfr_set_d(r21428, i, MPFR_RNDN); mpfr_mul(r21429, r21428, r21419, MPFR_RNDN); mpfr_sub(r21430, r21427, r21429, MPFR_RNDN); mpfr_mul(r21431, r21425, r21430, MPFR_RNDN); mpfr_sub(r21432, r21424, r21431, MPFR_RNDN); mpfr_set_d(r21433, j, MPFR_RNDN); mpfr_mul(r21434, r21426, r21433, MPFR_RNDN); mpfr_mul(r21435, r21434, r21420, MPFR_RNDN); mpfr_neg(r21436, r21428, MPFR_RNDN); mpfr_mul(r21437, r21433, r21414, MPFR_RNDN); mpfr_mul(r21438, r21436, r21437, MPFR_RNDN); mpfr_add(r21439, r21435, r21438, MPFR_RNDN); mpfr_add(r21440, r21432, r21439, MPFR_RNDN); ; mpfr_set_si(r21442, mpfr_cmp(r21414, r21441) <= 0, MPFR_RNDN); mpfr_mul(r21443, r21414, r21417, MPFR_RNDN); mpfr_mul(r21444, r21420, r21419, MPFR_RNDN); mpfr_sub(r21445, r21443, r21444, MPFR_RNDN); mpfr_mul(r21446, r21423, r21445, MPFR_RNDN); mpfr_mul(r21447, r21426, r21417, MPFR_RNDN); mpfr_sub(r21448, r21447, r21429, MPFR_RNDN); mpfr_mul(r21449, r21425, r21448, MPFR_RNDN); mpfr_sub(r21450, r21446, r21449, MPFR_RNDN); mpfr_mul(r21451, r21426, r21420, MPFR_RNDN); mpfr_mul(r21452, r21428, r21414, MPFR_RNDN); mpfr_sub(r21453, r21451, r21452, MPFR_RNDN); mpfr_mul(r21454, r21433, r21453, MPFR_RNDN); mpfr_cbrt(r21455, r21454, MPFR_RNDN); mpfr_mul(r21456, r21455, r21455, MPFR_RNDN); mpfr_mul(r21457, r21456, r21455, MPFR_RNDN); mpfr_add(r21458, r21450, r21457, MPFR_RNDN); mpfr_mul(r21459, r21417, r21423, MPFR_RNDN); mpfr_mul(r21460, r21414, r21459, MPFR_RNDN); mpfr_neg(r21461, r21433, MPFR_RNDN); mpfr_mul(r21462, r21452, r21461, MPFR_RNDN); mpfr_add(r21463, r21460, r21462, MPFR_RNDN); mpfr_mul(r21464, r21423, r21419, MPFR_RNDN); mpfr_mul(r21465, r21433, r21426, MPFR_RNDN); mpfr_sub(r21466, r21464, r21465, MPFR_RNDN); mpfr_mul(r21467, r21420, r21466, MPFR_RNDN); mpfr_add(r21468, r21467, r21431, MPFR_RNDN); mpfr_sub(r21469, r21463, r21468, MPFR_RNDN); if (mpfr_get_si(r21442, MPFR_RNDN)) { mpfr_set(r21470, r21458, MPFR_RNDN); } else { mpfr_set(r21470, r21469, MPFR_RNDN); }; if (mpfr_get_si(r21416, MPFR_RNDN)) { mpfr_set(r21471, r21440, MPFR_RNDN); } else { mpfr_set(r21471, r21470, MPFR_RNDN); }; return mpfr_get_d(r21471, MPFR_RNDN); } static mpfr_t r21472, r21473, r21474, r21475, r21476, r21477, r21478, r21479, r21480, r21481, r21482, r21483, r21484, r21485, r21486, r21487, r21488, r21489, r21490, r21491, r21492, r21493, r21494, r21495, r21496, r21497, r21498, r21499, r21500, r21501, r21502, r21503, r21504, r21505, r21506, r21507, r21508, r21509, r21510, r21511, r21512, r21513, r21514, r21515, r21516, r21517, r21518, r21519, r21520, r21521, r21522, r21523, r21524, r21525, r21526, r21527, r21528, r21529; void setup_mpfr_f_dm() { mpfr_set_default_prec(400); mpfr_init(r21472); mpfr_init_set_str(r21473, "-5.44636089570363e+223", 10, MPFR_RNDN); mpfr_init(r21474); mpfr_init(r21475); mpfr_init(r21476); mpfr_init(r21477); mpfr_init(r21478); mpfr_init(r21479); mpfr_init(r21480); mpfr_init(r21481); mpfr_init(r21482); mpfr_init(r21483); mpfr_init(r21484); mpfr_init(r21485); mpfr_init(r21486); mpfr_init(r21487); mpfr_init(r21488); mpfr_init(r21489); mpfr_init(r21490); mpfr_init(r21491); mpfr_init(r21492); mpfr_init(r21493); mpfr_init(r21494); mpfr_init(r21495); mpfr_init(r21496); mpfr_init(r21497); mpfr_init(r21498); mpfr_init_set_str(r21499, "7.127886059570066e-11", 10, MPFR_RNDN); mpfr_init(r21500); mpfr_init(r21501); mpfr_init(r21502); mpfr_init(r21503); mpfr_init(r21504); mpfr_init(r21505); mpfr_init(r21506); mpfr_init(r21507); mpfr_init(r21508); mpfr_init(r21509); mpfr_init(r21510); mpfr_init(r21511); mpfr_init(r21512); mpfr_init(r21513); mpfr_init(r21514); mpfr_init(r21515); mpfr_init(r21516); mpfr_init(r21517); mpfr_init(r21518); mpfr_init(r21519); mpfr_init(r21520); mpfr_init(r21521); mpfr_init(r21522); mpfr_init(r21523); mpfr_init(r21524); mpfr_init(r21525); mpfr_init(r21526); mpfr_init(r21527); mpfr_init(r21528); mpfr_init(r21529); } double f_dm(double x, double y, double z, double t, double a, double b, double c, double i, double j) { mpfr_set_d(r21472, y, MPFR_RNDN); ; mpfr_set_si(r21474, mpfr_cmp(r21472, r21473) <= 0, MPFR_RNDN); mpfr_set_d(r21475, z, MPFR_RNDN); mpfr_mul(r21476, r21475, r21472, MPFR_RNDN); mpfr_set_d(r21477, a, MPFR_RNDN); mpfr_set_d(r21478, t, MPFR_RNDN); mpfr_mul(r21479, r21477, r21478, MPFR_RNDN); mpfr_sub(r21480, r21476, r21479, MPFR_RNDN); mpfr_set_d(r21481, x, MPFR_RNDN); mpfr_mul(r21482, r21480, r21481, MPFR_RNDN); mpfr_set_d(r21483, b, MPFR_RNDN); mpfr_set_d(r21484, c, MPFR_RNDN); mpfr_mul(r21485, r21475, r21484, MPFR_RNDN); mpfr_set_d(r21486, i, MPFR_RNDN); mpfr_mul(r21487, r21486, r21477, MPFR_RNDN); mpfr_sub(r21488, r21485, r21487, MPFR_RNDN); mpfr_mul(r21489, r21483, r21488, MPFR_RNDN); mpfr_sub(r21490, r21482, r21489, MPFR_RNDN); mpfr_set_d(r21491, j, MPFR_RNDN); mpfr_mul(r21492, r21484, r21491, MPFR_RNDN); mpfr_mul(r21493, r21492, r21478, MPFR_RNDN); mpfr_neg(r21494, r21486, MPFR_RNDN); mpfr_mul(r21495, r21491, r21472, MPFR_RNDN); mpfr_mul(r21496, r21494, r21495, MPFR_RNDN); mpfr_add(r21497, r21493, r21496, MPFR_RNDN); mpfr_add(r21498, r21490, r21497, MPFR_RNDN); ; mpfr_set_si(r21500, mpfr_cmp(r21472, r21499) <= 0, MPFR_RNDN); mpfr_mul(r21501, r21472, r21475, MPFR_RNDN); mpfr_mul(r21502, r21478, r21477, MPFR_RNDN); mpfr_sub(r21503, r21501, r21502, MPFR_RNDN); mpfr_mul(r21504, r21481, r21503, MPFR_RNDN); mpfr_mul(r21505, r21484, r21475, MPFR_RNDN); mpfr_sub(r21506, r21505, r21487, MPFR_RNDN); mpfr_mul(r21507, r21483, r21506, MPFR_RNDN); mpfr_sub(r21508, r21504, r21507, MPFR_RNDN); mpfr_mul(r21509, r21484, r21478, MPFR_RNDN); mpfr_mul(r21510, r21486, r21472, MPFR_RNDN); mpfr_sub(r21511, r21509, r21510, MPFR_RNDN); mpfr_mul(r21512, r21491, r21511, MPFR_RNDN); mpfr_cbrt(r21513, r21512, MPFR_RNDN); mpfr_mul(r21514, r21513, r21513, MPFR_RNDN); mpfr_mul(r21515, r21514, r21513, MPFR_RNDN); mpfr_add(r21516, r21508, r21515, MPFR_RNDN); mpfr_mul(r21517, r21475, r21481, MPFR_RNDN); mpfr_mul(r21518, r21472, r21517, MPFR_RNDN); mpfr_neg(r21519, r21491, MPFR_RNDN); mpfr_mul(r21520, r21510, r21519, MPFR_RNDN); mpfr_add(r21521, r21518, r21520, MPFR_RNDN); mpfr_mul(r21522, r21481, r21477, MPFR_RNDN); mpfr_mul(r21523, r21491, r21484, MPFR_RNDN); mpfr_sub(r21524, r21522, r21523, MPFR_RNDN); mpfr_mul(r21525, r21478, r21524, MPFR_RNDN); mpfr_add(r21526, r21525, r21489, MPFR_RNDN); mpfr_sub(r21527, r21521, r21526, MPFR_RNDN); if (mpfr_get_si(r21500, MPFR_RNDN)) { mpfr_set(r21528, r21516, MPFR_RNDN); } else { mpfr_set(r21528, r21527, MPFR_RNDN); }; if (mpfr_get_si(r21474, MPFR_RNDN)) { mpfr_set(r21529, r21498, MPFR_RNDN); } else { mpfr_set(r21529, r21528, MPFR_RNDN); }; return mpfr_get_d(r21529, MPFR_RNDN); }