| 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 | system("PLURAL",C,D); |
|---|
| 14 | // it is quantum deformation U'_q(so_3) |
|---|
| 15 | // where q=Q^2 specialized at the 3rd root of unity |
|---|
| 16 | r1; |
|---|
| 17 | kill r1; |
|---|
| 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 | system("PLURAL",1,d); |
|---|
| 28 | // it is U(sl_3) |
|---|
| 29 | r2; |
|---|
| 30 | kill r2; |
|---|
| 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 | system("PLURAL",c,0); |
|---|
| 36 | // it is some quasi--commutative algebra |
|---|
| 37 | r3; |
|---|
| 38 | kill r3; |
|---|
| 39 | ring r4=0,(t,u,v,w),dp; |
|---|
| 40 | system("PLURAL",-1,0); |
|---|
| 41 | // it is anticommutative algebra |
|---|
| 42 | r4; |
|---|
| 43 | kill r4; |
|---|
| 44 | tst_status(1);$ |
|---|
