source: git/Tst/Manual/discr.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: 253 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "spcurve.lib";
3ring r=32003,(x(1),x(2),x(3)),ds;
4ideal curve=x(1)*x(2),x(1)*x(3),x(2)*x(3);
5matrix M=isCMcod2(curve);
6list l=matrixT1(M,3);
7def rneu=semiCMcod2(l[1],std(l[2]));
8setring rneu;
9discr(semi,3);
10tst_status(1);$
Note: See TracBrowser for help on using the repository browser.