source: git/Tst/Manual/centralizerVS.tst @ 894057

spielwiese
Last change on this file since 894057 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: 389 bytes
Line 
1LIB "tst.lib"; tst_init();
2LIB "central.lib";
3ring AA = 0,(x,y,z),dp;
4matrix D[3][3]=0;
5D[1,2]=-z;  D[1,3]=2*x;  D[2,3]=-2*y;
6def A = nc_algebra(1,D); setring A; // this algebra is U(sl_2)
7ideal F = x, y;
8// find generators of the vector space of elements
9// of degree <= 4 commuting with x and y:
10ideal C = centralizerVS(F, 4);
11C;
12inCentralizer(C, F); // check the result
13tst_status(1);$
Note: See TracBrowser for help on using the repository browser.