matrix := [ [1,0,0,0,0,0,0], [0,0,2,0,0,0,0], [0,2,0,0,0,0,0], [0,0,0,0,2,0,0], [0,0,0,2,0,0,0], [0,0,0,0,0,0,2], [0,0,0,0,0,2,0] ]*Z(3);