off rlabout;



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


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



P := {{x1-x50, x10-x50, x11-x50, x12-x50, x13-x50, x14-x50, x15-x50, x16-x50, x17-x50, x18-x50, x19-x50, x2-x50, x20-x50, x21-x50, x22-x50, x23-x50, x24-x50, x25-x50, x26-x50, x27-x50, x28-x50, x29-x50, x3-x50, x30-x50, x31-x50, x32-x50, x33-x50, x34-x50, x35-x50, x36-x50, x37-x50, x38-x50, x39-x50, x4-x50, x40-x50, x41-x50, x42-x50, x43-x50, x44-x50, x45-x50, x46-x50, x47-x50, x48-x50, x49-x50, x5-x50, x51-x50, x52-x50, x6-x50, x7-x50, x8-x50, x9-x50}};


p := {{x1 - x50,

       x10 - x50,

       x11 - x50,

       x12 - x50,

       x13 - x50,

       x14 - x50,

       x15 - x50,

       x16 - x50,

       x17 - x50,

       x18 - x50,

       x19 - x50,

       x2 - x50,

       x20 - x50,

       x21 - x50,

       x22 - x50,

       x23 - x50,

       x24 - x50,

       x25 - x50,

       x26 - x50,

       x27 - x50,

       x28 - x50,

       x29 - x50,

       x3 - x50,

       x30 - x50,

       x31 - x50,

       x32 - x50,

       x33 - x50,

       x34 - x50,

       x35 - x50,

       x36 - x50,

       x37 - x50,

       x38 - x50,

       x39 - x50,

       x4 - x50,

       x40 - x50,

       x41 - x50,

       x42 - x50,

       x43 - x50,

       x44 - x50,

       x45 - x50,

       x46 - x50,

       x47 - x50,

       x48 - x50,

       x49 - x50,

       x5 - x50,

        - x50 + x51,

        - x50 + x52,

        - x50 + x6,

        - x50 + x7,

        - x50 + x8,

        - x50 + x9}}


classifyComponents P;


{{{x1,

   x10,

   x11,

   x12,

   x13,

   x14,

   x15,

   x16,

   x17,

   x18,

   x19,

   x2,

   x20,

   x21,

   x22,

   x23,

   x24,

   x25,

   x26,

   x27,

   x28,

   x29,

   x3,

   x30,

   x31,

   x32,

   x33,

   x34,

   x35,

   x36,

   x37,

   x38,

   x39,

   x4,

   x40,

   x41,

   x42,

   x43,

   x44,

   x45,

   x46,

   x47,

   x48,

   x49,

   x5,

   x50,

   x51,

   x52,

   x6,

   x7,

   x8,

   x9}},

 {{x1,

   x10,

   x11,

   x12,

   x13,

   x14,

   x15,

   x16,

   x17,

   x18,

   x19,

   x2,

   x20,

   x21,

   x22,

   x23,

   x24,

   x25,

   x26,

   x27,

   x28,

   x29,

   x3,

   x30,

   x31,

   x32,

   x33,

   x34,

   x35,

   x36,

   x37,

   x38,

   x39,

   x4,

   x40,

   x41,

   x42,

   x43,

   x44,

   x45,

   x46,

   x47,

   x48,

   x49,

   x5,

   x50,

   x51,

   x52,

   x6,

   x7,

   x8,

   x9}},

 {{x1 = -1,

   x10 = -1,

   x11 = -1,

   x12 = -1,

   x13 = -1,

   x14 = -1,

   x15 = -1,

   x16 = -1,

   x17 = -1,

   x18 = -1,

   x19 = -1,

   x2 = -1,

   x20 = -1,

   x21 = -1,

   x22 = -1,

   x23 = -1,

   x24 = -1,

   x25 = -1,

   x26 = -1,

   x27 = -1,

   x28 = -1,

   x29 = -1,

   x3 = -1,

   x30 = -1,

   x31 = -1,

   x32 = -1,

   x33 = -1,

   x34 = -1,

   x35 = -1,

   x36 = -1,

   x37 = -1,

   x38 = -1,

   x39 = -1,

   x4 = -1,

   x40 = -1,

   x41 = -1,

   x42 = -1,

   x43 = -1,

   x44 = -1,

   x45 = -1,

   x46 = -1,

   x47 = -1,

   x48 = -1,

   x49 = -1,

   x5 = -1,

   x50 = -1,

   x51 = -1,

   x52 = -1,

   x6 = -1,

   x7 = -1,

   x8 = -1,

   x9 = -1}},

 {G},

 G}


end;

