INVBASE.TST 533 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. % ***** Example 1 *****
  2. g:=invbase{4*x^2 + x*y^2 - z +1/4,
  3. 2*x + y^2*z + 1/2,
  4. x^2*z - 1/2*x - y^2};
  5. h:=invlex g;
  6. % ***** Example 2 *****
  7. on trinvbase$
  8. invtorder revgradlex,{x,y,z}$
  9. g:=invbase{x^3 + y^2 + z - 3,
  10. y^3 + z^2 + x - 3,
  11. z^3 + x^2 + y - 3};
  12. h:=invlex g;
  13. % ***** Example 3 (limited by the degree bound) *****
  14. invtorder revgradlex,{x,z,y,t}$
  15. k:=5$
  16. on errcont$
  17. invbase{x^(k+1)-y^(k-1)*z*t,
  18. x*z^(k-1)-y**k,
  19. x^k*y-z^k*t};
  20. invtempbasis;
  21. end$