off rlabout;



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


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



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


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


classifyComponents {basis};


{{{x1,

   x2,

   x3,

   x4,

   x5}},

 {{x1,

   x2,

   x3,

   x4,

   x5}},

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

 {X},

 X}


end;

