1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | ring r1=(0,Q),(x,y,z),Dp; |
---|
4 | minpoly=Q^4+Q^2+1; |
---|
5 | matrix C[3][3]; |
---|
6 | matrix D[3][3]; |
---|
7 | C[1,2]=Q2; |
---|
8 | C[1,3]=1/Q2; |
---|
9 | C[2,3]=Q2; |
---|
10 | D[1,2]=-Q*z; |
---|
11 | D[1,3]=1/Q*y; |
---|
12 | D[2,3]=-Q*x; |
---|
13 | def S=nc_algebra(C,D);setring S; |
---|
14 | // it is quantum deformation U'_q(so_3) |
---|
15 | // where q=Q^2 specialized at the 3rd root of unity |
---|
16 | S; |
---|
17 | kill r1,S; |
---|
18 | ring r2=0,(Xa,Xb,Xc,Ya,Yb,Yc,Ha,Hb),dp; |
---|
19 | matrix d[8][8]; |
---|
20 | d[1,2]=-Xc; d[1,4]=-Ha; d[1,6]=Yb; |
---|
21 | d[1,7]=2*Xa; d[1,8]=-Xa; d[2,5]=-Hb; |
---|
22 | d[2,6]=-Ya; d[2,7]=-Xb; d[2,8]=2*Xb; |
---|
23 | d[3,4]=Xb; d[3,5]=-Xa; d[3,6]=-Ha-Hb; |
---|
24 | d[3,7]=Xc; d[3,8]=Xc; d[4,5]=Yc; |
---|
25 | d[4,7]=-2*Ya; d[4,8]=Ya; d[5,7]=Yb; |
---|
26 | d[5,8]=-2*Yb; d[6,7]=-Yc; d[6,8]=-Yc; |
---|
27 | def S2=nc_algebra(1,d);setring S2; |
---|
28 | // it is U(sl_3) |
---|
29 | S2; |
---|
30 | kill r2,S2; |
---|
31 | ring r3=0,(a,b,c,d),lp; |
---|
32 | matrix c[4][4]; |
---|
33 | c[1,2]=1; c[1,3]=3; c[1,4]=-2; |
---|
34 | c[2,3]=-1; c[2,4]=-3; c[3,4]=1; |
---|
35 | def S3=nc_algebra(c,0);setring S3; |
---|
36 | // it is some quasi--commutative algebra |
---|
37 | S3; |
---|
38 | kill r3,S3; |
---|
39 | ring r4=0,(t,u,v,w),dp; |
---|
40 | def S4=nc_algebra(-1,0); setring S4; |
---|
41 | // it is anticommutative algebra |
---|
42 | S4; |
---|
43 | kill r4,S4; |
---|
44 | tst_status(1);$ |
---|