((Subscript[R, 1,2])((Subscript[(OverBar[R]), 3,4])//(Subscript[m, 4,3->3])))//(Subscript[m, 1,3->1])

(Subscript[R, 1,2])

(Subscript[(OverBar[C]), 2])(Subscript[R, 1,3])//(Subscript[m, 1,2->1])//(Subscript[m, 1,3->1])

(Subscript[(OverBar[C]), 2])(Subscript[(OverBar[R]), 1,3])//(Subscript[m, 1,2->1])//(Subscript[m, 1,3->1])

Expand[(Subscript[R, i,j])((Subscript[ka, 3])-(Subscript[kd, 3]))]//(Subscript[m, i,3->i])

(Subscript[(OverBar[R]), i,j])((Subscript[ka, 3])-(Subscript[kd, 3]))//(Subscript[m, i,3->i])

(Subscript[R, 1,2])