@@ -21,15 +21,6 @@ function left_excitation_transfer_system(
2121 start = scale! (last (found[1 : i] * T), cis (- mom * len))
2222 if istrivial (exci) && isidentitylevel (H, i)
2323 regularize! (start, ρ_right, ρ_left)
24- if exci. trivial && isidentitylevel (H, i)
25- # not using braiding tensors here, leads to extra leg
26- util = similar (exci. left_gs. AL[i], first (left_virtualspace (H[i])))
27- fill_data! (util, one)
28- @plansor start[- 1 - 2 ; - 3 - 4 ] -= start[2 1 ; - 3 3 ] *
29- util[1 ] *
30- r_RL (exci. right_gs)[3 ; 2 ] *
31- l_RL (exci. right_gs)[- 1 ; - 4 ] *
32- conj (util[- 2 ])
3324 end
3425
3526 found[i] = add! (start, GBL[i])
@@ -80,15 +71,6 @@ function right_excitation_transfer_system(
8071 start = scale! (first (T * found[i: odim]), cis (mom * len))
8172 if istrivial (exci) && isidentitylevel (H, i)
8273 regularize! (start, ρ_left, ρ_right)
83- if exci. trivial && isidentitylevel (H, i)
84- # not using braiding tensors here, leads to extra leg
85- util = similar (exci. right_gs. AL[i], first (left_virtualspace (H[i])))
86- fill_data! (util, one)
87- @plansor start[- 1 - 2 ; - 3 - 4 ] -= start[2 1 ; - 3 3 ] *
88- conj (util[1 ]) *
89- l_LR (exci. right_gs)[3 ; 2 ] *
90- r_LR (exci. right_gs)[- 1 ; - 4 ] *
91- util[- 2 ]
9274 end
9375
9476 found[i] = add! (start, GBR[i])
@@ -113,4 +95,4 @@ function right_excitation_transfer_system(
11395 end
11496 end
11597 return found
116- end
98+ end
0 commit comments