off rlabout;



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


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



P := {{557*x4-813*x1, 760000*x2*x3-x1}};


p := {{ - 813*x1 + 557*x4, - x1 + 760000*x2*x3}}


classifyComponents P;


{{{x1,x2,x3,x4}},

 {{x1,x2,x3,x4}},

                                      - 617880000
 {{x1 = -760000,x2 = -1,x3 = 1,x4 = --------------}},
                                         557

 {C},

 C}


end;

