brnoeth.lib
LIB "brnoeth.lib"; ring s=2,T,lp; // here is the Hamming code of length 7 and dimension 3 matrix G[3][7]=1,0,1,0,1,0,1,0,1,1,0,0,1,1,0,0,0,1,1,1,1; print(G); ==> 1,0,1,0,1,0,1, ==> 0,1,1,0,0,1,1, ==> 0,0,0,1,1,1,1 matrix H=dual_code(G); print(H); ==> 1,1,1,0,0,0,0, ==> 1,0,0,1,1,0,0, ==> 0,1,0,1,0,1,0, ==> 1,1,0,1,0,0,1