source: git/Tst/Manual/Edatalist.tst @ 76ce4e6

spielwiese
Last change on this file since 76ce4e6 was 894057, checked in by Oleksandr Motsak <motsak@…>, 13 years ago
ADD: Tests from online manual (res+stat on mamawutz): short ones Tst/Manual/s.lst
  • Property mode set to 100644
File size: 771 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "resbinomial.lib";
3ring r = 0,(x(1),y(2),x(3),y(4),x(5..7),y(8)),dp;
4list flag=identifyvar();
5ideal J=x(1)^3*x(3)-y(2)*y(4)^2,x(5)*y(2)-x(7)*y(4)^2,x(6)^2*(1-y(4)*y(8)^5);
6list L=data(J,3,8);
7list EL=Edatalist(L[1],L[2],3,8,flag);
8EL; // E-order of each term
9ring r = 2,(x(1),y(2),x(3),y(4),x(5..7),y(8)),dp;
10list flag=identifyvar();
11ideal J=x(1)^3*x(3)-y(2)*y(4)^2,x(5)*y(2)-x(7)*y(4)^2,x(6)^2*(1-y(4)*y(8)^5);
12list L=data(J,3,8);
13list EL=Edatalist(L[1],L[2],3,8,flag);
14EL; // E-order of each term IN CHAR 2, COMPUTATIONS NEED TO BE DONE IN CHAR 0
15ring r = 0,(x(1..3)),dp;
16list flag=identifyvar();
17ideal J=x(1)^4*x(2)^2, x(1)^2-x(3)^3;
18list L=data(J,2,3);
19list EL=Edatalist(L[1],L[2],2,3,flag);
20EL; // E-order of each term
21tst_status(1);$
Note: See TracBrowser for help on using the repository browser.