function T = Tra_ZZ(L)

T = [ 1  0  0  0
      0  1  0  0
      0  0  1  L
      0  0  0  1 ];