#define DIM "10" #define Q "(-i_*(x(4)*x(5)*x(6)-x(2)*x(6)*x(7)+x(2)*x(3)*x(8)-x(1)*x(5)*x(8)-x(3)*x(4)*x(9)+x(1)*x(7)*x(9))*[1/x](0)*[1/x](10))" Local H0 = - y*d + x0*d0; Local H1 = - x2*d2 + x4*d4 - x5*d5 + x7*d7 + x8*d8 - x9*d9; Local H2 = - x1*d1 + x2*d2 - x3*d3 + x5*d5 - x6*d6 + x9*d9; Local H3 = - 2 - x0*d0 + x1*d1 - x5*d5 - x7*d7 - x8*d8 - x9*d9; Local H4 = - x1*d1 - x2*d2 + x3*d3 - x4*d4 + x5*d5 + x7*d7; Local H5 = - x3*d3 - x5*d5 + x6*d6 - x7*d7 + x8*d8 + x9*d9; Local Hom = - 6 - 2*y*d - x0*d0 - x1*d1 - x2*d2 - x3*d3 - x4*d4 - x5*d5 - x6*d6 - x7*d7 - x8*d8 - x9*d9; Local a1 = - x2*d4 - x5*d7 - x9*d8; Local a2 = - x1*d2 - x3*d5 - x6*d9; Local a3 = [1/y]*x5*x8*i_ - [1/y]*x7*x9*i_ - x0*d1; Local a4 = - x1*d3 - x2*d5 - x4*d7; Local a5 = - x3*d6 - x5*d9 - x7*d8; Local a6 = - x1*d4 - x3*d7 - x6*d8; Local a7 = - [1/y]*x3*x8*i_ + [1/y]*x6*x7*i_ - x0*d2; Local a8 = - [1/y]*x2*x8*i_ + [1/y]*x4*x9*i_ - x0*d3; Local a9 = - x1*d6 - x2*d9 - x4*d8; Local a10 = [1/y]*x3*x9*i_ - [1/y]*x5*x6*i_ - x0*d4; Local a11 = [1/y]*x1*x8*i_ - [1/y]*x4*x6*i_ - x0*d5; Local a12 = [1/y]*x2*x7*i_ - [1/y]*x4*x5*i_ - x0*d6; Local a13 = - [1/y]*x1*x9*i_ + [1/y]*x2*x6*i_ - x0*d7; Local a14 = - [1/y]*x1*x7*i_ + [1/y]*x3*x4*i_ - x0*d9; Local a15 = [1/y]*x1*x5*i_ - [1/y]*x2*x3*i_ - x0*d8; Local b0 = y*d0; Local b1 = y*d1; Local b2 = y*d2; Local b3 = y*d3; Local b4 = y*d4; Local b5 = y*d5; Local b6 = y*d6; Local b7 = y*d7; Local b8 = y*d8; Local b9 = y*d9; Local g0 = i_*x0; Local g1 = i_*x1; Local g2 = i_*x2; Local g3 = i_*x3; Local g4 = i_*x4; Local g5 = i_*x5; Local g6 = i_*x6; Local g7 = i_*x7; Local g8 = i_*x8; Local g9 = i_*x9; Local om = i_*y; Local am1 = x4*d2 + x7*d5 + x8*d9; Local am2 = x2*d1 + x5*d3 + x9*d6; Local am3 = - y*d5*d8*i_ + y*d7*d9*i_ + x1*d0; Local am4 = x3*d1 + x5*d2 + x7*d4; Local am5 = x6*d3 + x8*d7 + x9*d5; Local am6 = x4*d1 + x7*d3 + x8*d6; Local am7 = y*d3*d8*i_ - y*d6*d7*i_ + x2*d0; Local am8 = y*d2*d8*i_ - y*d4*d9*i_ + x3*d0; Local am9 = x6*d1 + x8*d4 + x9*d2; Local am10 = - y*d3*d9*i_ + y*d5*d6*i_ + x4*d0; Local am11 = - y*d1*d8*i_ + y*d4*d6*i_ + x5*d0; Local am12 = - y*d2*d7*i_ + y*d4*d5*i_ + x6*d0; Local am13 = y*d1*d9*i_ - y*d2*d6*i_ + x7*d0; Local am14 = y*d1*d7*i_ - y*d3*d4*i_ + x9*d0; Local am15 = - y*d1*d5*i_ + y*d2*d3*i_ + x8*d0; Local bm0 = - [1/y]*[1/y]*x1*x5*x8*i_ + [1/y]*[1/y]*x1*x7*x9*i_ + [1/y]*[1/y]*x2*x3 *x8*i_ - [1/y]*[1/y]*x2*x6*x7*i_ - [1/y]*[1/y]*x3*x4*x9*i_ + [1/y]*[1/y] *x4*x5*x6*i_ - x0*d; Local bm1 = 2*[1/y]*x1 + [1/y]*x1*x5*d5 + [1/y]*x1*x7*d7 + [1/y]*x1*x8*d8 + [1/y]*x1 *x9*d9 - [1/y]*x2*x3*d5 - [1/y]*x2*x6*d9 - [1/y]*x3*x4*d7 - [1/y]*x4*x6* d8 + x0*d5*d8*i_ - x0*d7*d9*i_ + x1*d; Local bm2 = 2- [1/y]*x1*x5*d3 - [1/y]*x1*x9*d6 + 2*[1/y]*x2 + [1/y]*x2*x3*d3 + [1/y] *x2*x6*d6 + [1/y]*x2*x7*d7 + [1/y]*x2*x8*d8 - [1/y]*x4*x5*d7 - [1/y]*x4* x9*d8 - x0*d3*d8*i_ + x0*d6*d7*i_ + x2*d; Local bm3 = - [1/y]*x1*x5*d2 - [1/y]*x1*x7*d4 + [1/y]*x2*x3*d2 + 2*[1/y]*x3 + [1/y] *x3*x4*d4 + [1/y]*x3*x8*d8 + [1/y]*x3*x9*d9 - [1/y]*x5*x6*d9 - [1/y]*x6* x7*d8 - x0*d2*d8*i_ + x0*d4*d9*i_ + x3*d; Local bm4 = - [1/y]*x1*x7*d3 - [1/y]*x1*x8*d6 - [1/y]*x2*x7*d5 - [1/y]*x2*x8*d9 + [1/y]*x3*x4*d3 + 2*[1/y]*x4 + [1/y]*x4*x5*d5 + [1/y]*x4*x6*d6 + [1/y]*x4 *x9*d9 + x0*d3*d9*i_ - x0*d5*d6*i_ + x4*d; Local bm5 = [1/y]*x1*x5*d1 - [1/y]*x2*x3*d1 - [1/y]*x2*x7*d4 - [1/y]*x3*x9*d6 + [1/y]*x4*x5*d4 + 2*[1/y]*x5 + [1/y]*x5*x6*d6 + [1/y]*x5*x8*d8 - [1/y]*x7 *x9*d8 + x0*d1*d8*i_ - x0*d4*d6*i_ + x5*d; Local bm6 = - [1/y]*x1*x8*d4 - [1/y]*x1*x9*d2 + [1/y]*x2*x6*d2 - [1/y]*x3*x8*d7 - [1/y]*x3*x9*d5 + [1/y]*x4*x6*d4 + [1/y]*x5*x6*d5 + 2*[1/y]*x6 + [1/y]*x6 *x7*d7 + x0*d2*d7*i_ - x0*d4*d5*i_ + x6*d; Local bm7 = [1/y]*x1*x7*d1 + [1/y]*x2*x7*d2 - [1/y]*x3*x4*d1 - [1/y]*x3*x8*d6 - [1/y]*x4*x5*d2 - [1/y]*x5*x8*d9 + [1/y]*x6*x7*d6 + 2*[1/y]*x7 + [1/y]*x7 *x9*d9 - x0*d1*d9*i_ + x0*d2*d6*i_ + x7*d; Local bm8 = [1/y]*x1*x8*d1 + [1/y]*x2*x8*d2 + [1/y]*x3*x8*d3 - [1/y]*x4*x6*d1 - [1/y]*x4*x9*d2 + [1/y]*x5*x8*d5 - [1/y]*x6*x7*d3 - [1/y]*x7*x9*d5 + 2* [1/y]*x8 + x0*d1*d5*i_ - x0*d2*d3*i_ + x8*d; Local bm9 = [1/y]*x1*x9*d1 - [1/y]*x2*x6*d1 - [1/y]*x2*x8*d4 + [1/y]*x3*x9*d3 + [1/y]*x4*x9*d4 - [1/y]*x5*x6*d3 - [1/y]*x5*x8*d7 + [1/y]*x7*x9*d7 + 2* [1/y]*x9 - x0*d1*d7*i_ + x0*d3*d4*i_ + x9*d; Local gm0 = - y*d0*d*i_ - y*d1*d5*d8 + y*d1*d7*d9 + y*d2*d3*d8 - y*d2*d6*d7 - y*d3* d4*d9 + y*d4*d5*d6 - x0*d0*d0*i_ - 6*d0*i_ - x1*d0*d1*i_ - x2*d0*d2*i_ - x3*d0*d3*i_ - x4*d0*d4*i_ - x5*d0*d5*i_ - x6*d0*d6*i_ - x7*d0*d7*i_ - x8*d0*d8*i_ - x9*d0*d9*i_; Local gm1 = y*d1*d*i_ + x0*d0*d1*i_ + x1*d1*d1*i_ + 4*d1*i_ + x2*d1*d2*i_ + x3*d1*d3 *i_ + x4*d1*d4*i_ + x5*d2*d3*i_ + x5*x8*[1/y]*d0 + x6*d1*d6*i_ + x7*d3* d4*i_ - x7*x9*[1/y]*d0 + x8*d4*d6*i_ + x9*d2*d6*i_; Local gm2 = y*d2*d*i_ + x0*d0*d2*i_ + x1*d1*d2*i_ + x2*d2*d2*i_ + 4*d2*i_ + x3*d1*d5 *i_ - x3*x8*[1/y]*d0 + x4*d2*d4*i_ + x5*d2*d5*i_ + x6*d1*d9*i_ + x6*x7* [1/y]*d0 + x7*d4*d5*i_ + x8*d4*d9*i_ + x9*d2*d9*i_; Local gm3 = y*d3*d*i_ + x0*d0*d3*i_ + x1*d1*d3*i_ + x2*d1*d5*i_ - x2*x8*[1/y]*d0 + x3*d3*d3*i_ + 4*d3*i_ + x4*d1*d7*i_ + x4*x9*[1/y]*d0 + x5*d3*d5*i_ + x6* d3*d6*i_ + x7*d3*d7*i_ + x8*d6*d7*i_ + x9*d5*d6*i_; Local gm4 = y*d4*d*i_ + x0*d0*d4*i_ + x1*d1*d4*i_ + x2*d2*d4*i_ + x3*d1*d7*i_ + x3* x9*[1/y]*d0 + x4*d4*d4*i_ + 4*d4*i_ + x5*d2*d7*i_ - x5*x6*[1/y]*d0 + x6* d1*d8*i_ + x7*d4*d7*i_ + x8*d4*d8*i_ + x9*d2*d8*i_; Local gm5 = y*d5*d*i_ + x0*d0*d5*i_ + x1*d2*d3*i_ + x1*x8*[1/y]*d0 + x2*d2*d5*i_ + x3*d3*d5*i_ + x4*d2*d7*i_ - x4*x6*[1/y]*d0 + x5*d5*d5*i_ + 4*d5*i_ + x6* d3*d9*i_ + x7*d5*d7*i_ + x8*d7*d9*i_ + x9*d5*d9*i_; Local gm6 = y*d6*d*i_ + x0*d0*d6*i_ + x1*d1*d6*i_ + x2*d1*d9*i_ + x2*x7*[1/y]*d0 + x3*d3*d6*i_ + x4*d1*d8*i_ - x4*x5*[1/y]*d0 + x5*d3*d9*i_ + x6*d6*d6*i_ + 4*d6*i_ + x7*d3*d8*i_ + x8*d6*d8*i_ + x9*d6*d9*i_; Local gm7 = y*d7*d*i_ + x0*d0*d7*i_ + x1*d3*d4*i_ - x1*x9*[1/y]*d0 + x2*d4*d5*i_ + x2*x6*[1/y]*d0 + x3*d3*d7*i_ + x4*d4*d7*i_ + x5*d5*d7*i_ + x6*d3*d8*i_ + x7*d7*d7*i_ + 4*d7*i_ + x8*d7*d8*i_ + x9*d5*d8*i_; Local gm8 = y*d8*d*i_ + x0*d0*d8*i_ + x1*d4*d6*i_ + x1*x5*[1/y]*d0 - x2*x3*[1/y]*d0 + x2*d4*d9*i_ + x3*d6*d7*i_ + x4*d4*d8*i_ + x5*d7*d9*i_ + x6*d6*d8*i_ + x7*d7*d8*i_ + x8*d8*d8*i_ + 4*d8*i_ + x9*d8*d9*i_; Local gm9 = y*d9*d*i_ + x0*d0*d9*i_ + x1*d2*d6*i_ - x1*x7*[1/y]*d0 + x2*d2*d9*i_ + x3*x4*[1/y]*d0 + x3*d5*d6*i_ + x4*d2*d8*i_ + x5*d5*d9*i_ + x6*d6*d9*i_ + x7*d5*d8*i_ + x8*d8*d9*i_ + x9*d9*d9*i_ + 4*d9*i_; Local mom = - y*d*d*i_ - 6*[1/y]*i_ - 6*d*i_ - x0*d0*d*i_ + x0*d1*d5*d8 - x0*d1*d7* d9 - x0*d2*d3*d8 + x0*d2*d6*d7 + x0*d3*d4*d9 - x0*d4*d5*d6 - 2*x1*[1/y]* d1*i_ - x1*d1*d*i_ - x1*x5*[1/y]*d1*d5*i_ + x1*x5*[1/y]*d2*d3*i_ + x1*x5 *x8*[1/y]*[1/y]*d0 - x1*x7*[1/y]*d1*d7*i_ + x1*x7*[1/y]*d3*d4*i_ - x1*x7 *x9*[1/y]*[1/y]*d0 - x1*x8*[1/y]*d1*d8*i_ + x1*x8*[1/y]*d4*d6*i_ - x1*x9 *[1/y]*d1*d9*i_ + x1*x9*[1/y]*d2*d6*i_ - 2*x2*[1/y]*d2*i_ - x2*d2*d*i_ + x2*x3*[1/y]*d1*d5*i_ - x2*x3*[1/y]*d2*d3*i_ - x2*x3*x8*[1/y]*[1/y]*d0 + x2*x6*[1/y]*d1*d9*i_ - x2*x6*[1/y]*d2*d6*i_ + x2*x6*x7*[1/y]*[1/y]*d0 - x2*x7*[1/y]*d2*d7*i_ + x2*x7*[1/y]*d4*d5*i_ - x2*x8*[1/y]*d2*d8*i_ + x2*x8*[1/y]*d4*d9*i_ - 2*x3*[1/y]*d3*i_ - x3*d3*d*i_ + x3*x4*[1/y]*d1*d7 *i_ - x3*x4*[1/y]*d3*d4*i_ + x3*x4*x9*[1/y]*[1/y]*d0 - x3*x8*[1/y]*d3*d8 *i_ + x3*x8*[1/y]*d6*d7*i_ - x3*x9*[1/y]*d3*d9*i_ + x3*x9*[1/y]*d5*d6*i_ - 2*x4*[1/y]*d4*i_ - x4*d4*d*i_ + x4*x5*[1/y]*d2*d7*i_ - x4*x5*[1/y]*d4 *d5*i_ - x4*x5*x6*[1/y]*[1/y]*d0 + x4*x6*[1/y]*d1*d8*i_ - x4*x6*[1/y]*d4 *d6*i_ + x4*x9*[1/y]*d2*d8*i_ - x4*x9*[1/y]*d4*d9*i_ - 2*x5*[1/y]*d5*i_ - x5*d5*d*i_ + x5*x6*[1/y]*d3*d9*i_ - x5*x6*[1/y]*d5*d6*i_ - x5*x8* [1/y]*d5*d8*i_ + x5*x8*[1/y]*d7*d9*i_ - 2*x6*[1/y]*d6*i_ - x6*d6*d*i_ + x6*x7*[1/y]*d3*d8*i_ - x6*x7*[1/y]*d6*d7*i_ - 2*x7*[1/y]*d7*i_ - x7*d7*d *i_ + x7*x9*[1/y]*d5*d8*i_ - x7*x9*[1/y]*d7*d9*i_ - 2*x8*[1/y]*d8*i_ - x8*d8*d*i_ - 2*x9*[1/y]*d9*i_ - x9*d9*d*i_;