i1 : A = skewPolynomialRing(QQ,(-1)_QQ,{w,x,y,z}) --Calling Bergman for NCGB calculation. Complete! o1 = A o1 : NCQuotientRing |
i2 : B = QQ{a,b,c} o2 = B o2 : NCPolynomialRing |
i3 : f = ncMap(B,A,{a^3,b^2,a+b,a-b}) o3 = NCRingMap B <--- A o3 : NCRingMap |
i4 : f(w*x+2*y) 3 2 o4 = 2b+a b +2a o4 : B |
i5 : f basis(2,A) o5 = | a^6 a^3*b^2 b^4 a^3*b+a^4 b^3+b^2*a b^2+b*a+a*b+a^2 -a^3*b+a^4 -b^3+b^2*a -b^2+b*a-a*b+a^2 b^2-b*a-a*b+a^2 | o5 : NCMatrix |