off rlabout;



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


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



basis := { - 37*x1*x2 + 20*x1,  - 9*x2 + 11*x3, 15*x1 - 11*x3};


basis := { - 37*x1*x2 + 20*x1, - 9*x2 + 11*x3,15*x1 - 11*x3}


classifyComponents {basis};


{{{x1,x2,x3}},

 {{x1,x2,x3}},

         12        20        180
 {{x1 = ----,x2 = ----,x3 = -----}},
         37        37        407

 {C},

 C}


end;

