source: git/Tst/Manual/cup.tst @ 7bb006

spielwiese
Last change on this file since 7bb006 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: 447 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "homolog.lib";
3int p      = printlevel;
4ring  rr   = 32003,(x,y,z),(dp,C);
5ideal  I   = x4+y3+z2;
6qring  o   = std(I);
7module M   = [x,y,0,z],[y2,-x3,z,0],[z,0,-y,-x3],[0,z,x,-y2];
8print(cup(M));
9print(cup(M,1));
10// 2nd EXAMPLE  (shows what is going on)
11printlevel = 3;
12ring   r   = 0,(x,y),(dp,C);
13ideal  i   = x2-y3;
14qring  q   = std(i);
15module M   = [-x,y],[-y2,x];
16print(cup(M));
17printlevel = p;
18tst_status(1);$
Note: See TracBrowser for help on using the repository browser.