Return to gbvec.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
File: [local] / OpenXM / src / kan96xx / Doc / gbvec.sm1 (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:02 1999 UTC (24 years, 11 months ago) by maekawa
o import OpenXM sources |
%% gbvec.sm1 [ (x,y,z) ring_of_polynomials [[(x) 1 (y) 1 (z) 1]] weight_vector 0] define_ring [ [(x-1). (y-1). (z-1).] homogenize [(x y - 1). (y z - 2). (z x - 3).] homogenize ] /ff set [ff] groebner {toVectors dehomogenize} map ::