i1 : R = ZZ/101[a..d] o1 = R o1 : PolynomialRing |
i2 : S = ZZ/101[p..s] o2 = S o2 : PolynomialRing |
i3 : (f,g) = newCoordinateSystem(S,matrix{{a+2*b,3*c-d}});
|
i4 : f
o4 = map(S,R,{50p, 3r, p + 2q, 3r - s})
o4 : RingMap S <--- R
|
i5 : g
o5 = map(R,S,{-2a, a - 50c, 34b, b - d})
o5 : RingMap R <--- S
|
The object newCoordinateSystem is a method function.