| LIB "nctools.lib";
ring r = (0,q),(a,b,c,d),lp;
matrix C[4][4];
C[1,2]=q; C[1,3]=q; C[1,4]=1; C[2,3]=1; C[2,4]=q; C[3,4]=q;
matrix D[4][4];
D[1,4]=(q-1/q)*b*c;
def S = nc_algebra(C,D); setring S; S;
==> // characteristic : 0
==> // 1 parameter : q
==> // minpoly : 0
==> // number of vars : 4
==> // block 1 : ordering lp
==> // : names a b c d
==> // block 2 : ordering C
==> // noncommutative relations:
==> // ba=(q)*ab
==> // ca=(q)*ac
==> // da=ad+(q2-1)/(q)*bc
==> // db=(q)*bd
==> // dc=(q)*cd
def t=weightedRing(S);
setring t; t;
==> // characteristic : 0
==> // 1 parameter : q
==> // minpoly : 0
==> // number of vars : 4
==> // block 1 : ordering M
==> // : names a b c d
==> // : weights 2 1 1 1
==> // : weights 0 0 0 1
==> // : weights 0 0 1 0
==> // : weights 0 1 0 0
==> // block 2 : ordering C
==> // noncommutative relations:
==> // ba=(q)*ab
==> // ca=(q)*ac
==> // da=ad+(q2-1)/(q)*bc
==> // db=(q)*bd
==> // dc=(q)*cd
|