off rlabout;



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


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



P := {{-12113328672691984410726934527843381137199681900618894732443371011203000000000000000000000000000+265531664443197190854736321096866293055055548814886972174776156196176026001511549196005982309*x3, 363119861759361777726981473298884265200114025794605848425623541901559364374554229*x1-637075027274048773060571408865600390531285598462643433040162009479123724946507480, 88855413834028114168909038303845635674184681755699132119998105847417*x2-2435158196431678075269723303260121876380182041220218084000000000000000}, {x1, x2, x3}, {x1, -18803847410563257643936152701756744357953910015427593757480+413711757957603563962561726895597206305839538704229138119*x3, 26362895550152013829500107313856292042370637*x2-654851742936221295302416932062794504476866400}};


p := {{26553166444319719085473632109686629305505554881488697217477615619617602\
       6001511549196005982309*x3 - 1211332867269198441072693452784338113719968\
       1900618894732443371011203000000000000000000000000000,363119861759361777\
       726981473298884265200114025794605848425623541901559364374554229*x1 - 63\
       70750272740487730605714088656003905312855984626434330401620094791237249\
       46507480,88855413834028114168909038303845635674184681755699132119998105\
                847417*x2 - 24351581964316780752697233032601218763801820412202\
                18084000000000000000},

      {x1,x2,x3},

      {x1,413711757957603563962561726895597206305839538704229138119*x3

           - 18803847410563257643936152701756744357953910015427593757480,

       26362895550152013829500107313856292042370637*x2

        - 654851742936221295302416932062794504476866400}}


classifyComponents P;


{{{x1,x2,x3},

  {x1,x2,x3},

  {x1,x2,x3}},

 {{x1,x2,x3},

  {},

  {x2,x3}},

 {{x1 = 6370750272740487730605714088656003905312855984626434330401620094791237\
   24946507480/363119861759361777726981473298884265200114025794605848425623541\
   901559364374554229,x2

       2435158196431678075269723303260121876380182041220218084000000000000000
    = ------------------------------------------------------------------------,
        88855413834028114168909038303845635674184681755699132119998105847417

   x3 = 1211332867269198441072693452784338113719968190061889473244337101120300\
   0000000000000000000000000/2655316644431971908547363210968662930550555488148\
   86972174776156196176026001511549196005982309},

  {1 = 0},

         654851742936221295302416932062794504476866400
  {x2 = -----------------------------------------------,x3
         26362895550152013829500107313856292042370637

       18803847410563257643936152701756744357953910015427593757480
    = -------------------------------------------------------------}},
        413711757957603563962561726895597206305839538704229138119

 {C,o,c},

 C + c + o}


end;

