[back] [prev] [next] [index] [root]
d := AbelianDualGroup(g);
groups | g, d |
kash> g := AbelianGroupCreate([[0,1,2],[5,6,0],[0,4,5]]); Group with relations: [0 1 2] [5 6 0] [0 4 5] kash> d := AbelianDualGroup(g); Group with relations: [15] kash> eltd := AbelianGroupEltCreate(d, [1]); [1] kash> hom := AbelianGroupDiscreteExp(eltd); HomMatrix = [ -6 6] [ 10 -10] [ -5 5] from Group with relations: [0 1 2] [5 6 0] [0 4 5] to Group with relations: [3 0] [0 5] kash> eltg := AbelianGroupEltCreate(g, [1,0,0]); [1 0 0] kash> AbelianGroupDiscreteExp(hom*eltg); 1/5
kash> eltd*eltg; > 1/5
<- back[back] [prev] [next] [index] [root]