Tv1;matrix[[1,l2,0,0,-l2*a2/2,a2/2,0,0],[0,0,l2,1,0,0,a2/2,-l2*a2/2],[0,0,-l2,1,0,0,-a2/2,-l2*a2/2],[-1,l2,0,0,l2*a2/2,a2/2,0,0]]
Tv3;matrix[[1,l1,0,0,-l1*a1/2,a1/2,0,0],[0,0,0,0,0,0,l1/2,1/2],[0,0,-l1,1,0,0,-a1/2,-l1*a1/2],[0,0,0,0,-1/2,l1/2,0,0]]
