(Subscript[(OverHat[R]), 2])=[(U((Subscript[ρ, 2]),(Subscript[n, 2]))(Subscript[β, 1])(e^(j (Subscript[ϕ, 1])))U((Subscript[ρ, 2]),(Subscript[n, 2]))(Subscript[β, 1])(e^(j (Subscript[ϕ, 1])))U((Subscript[ρ, 2]),(Subscript[n, 2]))(Subscript[β, 2])U((Subscript[ρ, 2]),(Subscript[n, 2])))],