off rlabout;



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


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



P := {{x2-2*x1, x3-x1, -x1+2*x4+x5}};


p := {{ - 2*x1 + x2, - x1 + x3, - x1 + 2*x4 + x5}}


classifyComponents P;


{{{x1,

   x2,

   x3,

   x4,

   x5}},

 {{x1,

   x2,

   x3,

   x4,

   x5}},

 {{x1 = -1,x2 = -2,x3 = -1,x4 = 1,x5 = -3}},

 {X},

 X}


end;

