Return to syz.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
File: [local] / OpenXM / src / kan96xx / Doc / syz.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 |
%% syz.sm1 [ (x,y) ring_of_differential_operators [[(Dx) 1 (Dy) 1]] weight_vector 0 ] define_ring [ (x Dx + y Dy). (Dx^2 + Dy^2). ] /ff set ff { [[(h). (1).]] replace homogenize} map /ff2 set [ff2 [(needBack) (needSyz)]] groebner /ans set ; (Syzygies are ...) message ans 2 get ::