off rlabout;



symbolic (infile "../../SUPPORT/real.red" where !*output=nil);


symbolic (infile "../../SUPPORT/strings.red" where !*output=nil);



P := {{5800*x10-2869, 165*x11-19*x13, 220214653841*x16+631620000*x13, 4785000*x5+663803, 542590*x6+663803, 29000*x7+34937, 33000*x8-2869, 3742*x9-2869, 217036*x12-249400*x13+94677, -137*x1*x13*x3+320000*x14, -411*x1*x13*x3+234800*x15, -411*x1*x13*x3-960000*x1+2000000*x2, -411*x1*x13*x3-480000*x3+1000000*x4, 267431370600*x1*x13^2*x3-101522052423*x1*x13*x3+25480026400000*x13-83185257223200}};


p := {{5800*x10 - 2869,

       165*x11 - 19*x13,

       631620000*x13 + 220214653841*x16,

       4785000*x5 + 663803,

       542590*x6 + 663803,

       29000*x7 + 34937,

       33000*x8 - 2869,

       3742*x9 - 2869,

       217036*x12 - 249400*x13 + 94677,

        - 137*x1*x13*x3 + 320000*x14,

        - 411*x1*x13*x3 + 234800*x15,

        - 411*x1*x13*x3 - 960000*x1 + 2000000*x2,

        - 411*x1*x13*x3 - 480000*x3 + 1000000*x4,

                          2
       267431370600*x1*x13 *x3 - 101522052423*x1*x13*x3 + 25480026400000*x13

        - 83185257223200}}


classifyComponents P;


{{{x1,

   x10,

   x11,

   x12,

   x13,

   x14,

   x15,

   x16,

   x2,

   x3,

   x4,

   x5,

   x6,

   x7,

   x8,

   x9}},

 {{x1,

   x10,

   x11,

   x12,

   x13,

   x14,

   x15,

   x16,

   x2,

   x3,

   x4,

   x5,

   x6,

   x7,

   x8,

   x9}},

 {{x1 = -1,

          2869
   x10 = ------,
          5800

   x11 = -1,

           - 42949863
   x12 = -------------,
            4123684

           - 165
   x13 = --------,
            19

           - 219118342547
   x14 = -----------------,
           4074770638800

           - 746570162
   x15 = --------------,
           3395642199

          104217300000
   x16 = ---------------,
          4184078422979

          - 4293888981347
   x2 = ------------------,
          8489105497500

          - 666119761342880
   x3 = --------------------,
           46055095145037

          - 134214586295230987
   x4 = -----------------------,
           19189622977098750

          - 663803
   x5 = -----------,
          4785000

          - 663803
   x6 = -----------,
          542590

          - 34937
   x7 = ----------,
          29000

         2869
   x8 = -------,
         33000

         2869
   x9 = ------}},
         3742

 {X},

 X}


end;

