i1 : marginMap(1,markovRing(3,2)) o1 = map(QQ[p , p , p , p , p , p ],QQ[p , p , p , p , p , p ],{p - p - p , p - p - p , p , p , p , p }) 1,1 1,2 2,1 2,2 3,1 3,2 1,1 1,2 2,1 2,2 3,1 3,2 1,1 2,1 3,1 1,2 2,2 3,2 2,1 2,2 3,1 3,2 o1 : RingMap QQ[p , p , p , p , p , p ] <--- QQ[p , p , p , p , p , p ] 1,1 1,2 2,1 2,2 3,1 3,2 1,1 1,2 2,1 2,2 3,1 3,2 |