source: git/Tst/Buch/Example_1_9_25.tst @ a7efa79

spielwiese
Last change on this file since a7efa79 was a7efa79, checked in by Hans Schönemann <hannes@…>, 17 years ago
*hannes: new book version git-svn-id: file:///usr/local/Singular/svn/trunk@10182 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 568 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4============================= example 1.9.25  ===============================
5
6LIB "ncalg.lib";
7LIB "center.lib";
8def A0 = makeUsl2(); // U(sl_2) over the rationals
9setring A0;
10// compute the centralizer of f^2 up to degree 6
11ideal C = centralizer(f^2,6); C;
12ideal Z = center(5); Z;
13def A5 = makeUsl2(5); // U(sl_2) over Z/5Z
14setring A5;
15ideal Z = center(5);
16Z;
17
18// we are in the algebra A5
19ideal T = twostd(4ef+h2-2h); 
20T;
21qring Q = T;
22// compute the centralizer of f^2 up to degree 6
23ideal C = centralizer(f^2,6);
24C;
25
26tst_status(1);$
27
Note: See TracBrowser for help on using the repository browser.