source: git/Tst/Manual/CenCharDec.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: 440 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "ncdecomp.lib";
3printlevel=0;
4option(returnSB);
5def a = makeUsl2(); // U(sl_2) in characteristic 0
6setring a;
7ideal I = e3,f3,h3-4*h;
8I = twostd(I);           // two-sided ideal generated by I
9vdim(I);                 // it is finite-dimensional
10ideal Cn = 4*e*f+h^2-2*h; // the only central element
11list T = CenCharDec(I,Cn);
12T;
13// consider another example
14ideal J = e*f*h;
15CenCharDec(J,Cn);
16tst_status(1);$
Note: See TracBrowser for help on using the repository browser.