# # # 11-25-2004 ############################################################### Read("/home/wdj/gapfiles/codes/putstform.gap"); ##################################################################### gap> C:=RandomLinearCode(20,10,GF(3)); a [20,10,?] randomly generated code over GF(3) gap> G:=GeneratorMat(C);;Display(G); 1 1 1 . . 2 2 . . . . 2 2 2 2 . 2 . . . . . 1 2 . 2 . . 1 . . . 2 . 1 . 1 . . . . 1 . . . 1 2 . 2 . . 2 2 . 2 1 2 . . . . . . 1 1 1 . . . . . 1 2 . 1 1 . . . . . . . . 1 1 . . . 1 . 2 . . 2 1 2 . . . . . . . . 1 2 . 2 1 . 1 2 2 2 . 1 1 . . . . . . . . . . . . . 1 2 . . 2 1 2 . 2 . . . . . . . . . 1 . . 2 . 1 2 2 2 2 1 . . . . . . . . . . 1 . 1 . . 1 . 2 1 1 . . . . . . . 1 . . . . 2 2 1 1 1 2 . . gap> H:=putstform(G,GF(3)); [ (7,12)(9,11), [ [ Z(3)^0, Z(3), Z(3), Z(3), Z(3)^0, Z(3)^0, Z(3)^0, Z(3)^0, 0*Z(3), 0*Z(3) ], [ 0*Z(3), 0*Z(3), Z(3)^0, 0*Z(3), 0*Z(3), Z(3), Z(3), Z(3)^0, 0*Z(3), 0*Z(3) ], [ 0*Z(3), Z(3)^0, 0*Z(3), Z(3)^0, Z(3), Z(3)^0, 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3) ], [ 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0, Z(3), 0*Z(3), Z(3)^0, Z(3)^0, 0*Z(3), 0*Z(3) ], [ 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0, Z(3), Z(3), 0*Z(3), 0*Z(3), 0*Z(3) ], [ 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0, Z(3), Z(3), 0*Z(3), 0*Z(3) ], [ 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0, 0*Z(3), 0*Z(3), 0*Z(3) ] , [ 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0 ], [ 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0, 0*Z(3) ], [ 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), 0*Z(3), Z(3)^0, 0*Z(3), 0*Z(3) ] ], [ < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector leng\ th 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) >, < mutable compressed vector length 20 over GF(3) > ] ] gap> Display(H[3]); 1 . . . . . . . . . 2 2 2 1 . . 2 2 2 . . 1 . . . . . . . . . . . 1 1 1 2 2 2 2 . . 1 . . . . . . . . 2 . 2 2 . . 1 . . . . . 1 . . . . . . . . . . . 1 1 1 2 . . . . . 1 . . . . . 1 1 2 1 . 2 . . . 1 . . . . . 1 . . . . 2 2 1 2 1 2 1 . 1 . . . . . . . 1 . . . . . 2 . . 2 1 2 . 2 . . . . . . . 1 . . . . 2 2 1 1 1 2 . . . . . . . . . . 1 . . . 1 . . 1 . 2 1 1 . . . . . . . . . 1 . . 2 . 1 2 2 2 2 1 gap> Display(TransposedMat(Permuted(TransposedMat(H[2]*G),(7,12)(9,11)))); 1 . . . . . . . . . 2 2 2 1 . . 2 2 2 . . 1 . . . . . . . . . . . 1 1 1 2 2 2 2 . . 1 . . . . . . . . 2 . 2 2 . . 1 . . . . . 1 . . . . . . . . . . . 1 1 1 2 . . . . . 1 . . . . . 1 1 2 1 . 2 . . . 1 . . . . . 1 . . . . 2 2 1 2 1 2 1 . 1 . . . . . . . 1 . . . . . 2 . . 2 1 2 . 2 . . . . . . . 1 . . . . 2 2 1 1 1 2 . . . . . . . . . . 1 . . . 1 . . 1 . 2 1 1 . . . . . . . . . 1 . . 2 . 1 2 2 2 2 1 gap>